DIAdem-Forum - deutschsprachiges DIAdem Forum - Alle Foren

Kanalweitergabe von ComboBox zu Editbox

Wed, 01 Feb 2012 09:37:32 +0000

Hallo zusammen,

ich habe folgendes Problem und hoffe, dass ihr mir diesbezüglich weiterhelfen könnt.

Meine Daten aus dem Datenportal befinden sich in einer ComboBox.
Ich will jetzt einen der ca. 250 Kanäle auswählen und per Button in eine EditBox befördern.
Bin noch nicht so Diademerfahren und hoffe, dass ihr mir da weiterhelfen könnt.

Viele Grüße

Warum "StatBlockCalc" nicht funktioniert

Tue, 31 Jan 2012 12:14:48 +0000

Hallo zusammen,

Meine Frage ist ganz kurz. Warum StatBlockCalc Funktion in meinem Programm nicht korrekten Betrieb?

In Loop-Schleife zeigt immer gleiches Ergebnis (den maximalen/minimalen Wert der ersten Operation).

Danke
J.80

Code:

Option Explicit  'Erzwingt die explizite Deklaration aller Variablen in einem Script.

Dim iLoop, max_360, min_360, delta_360 

iLoop = 1      

Dim I

Do

  'delta_360 = 0

  'max_360 = 0

  'min_360 = 0

  Call DataBlCopy("'evaluation_torque_CCW'",iLoop,31448/2,"[2]/360°_CCW",1) 

  'Call Pause(0.5)                                        

  For I = 1 To 23

  StatSel(I) = "No"

  Next

  StatSel(4) = "Yes" ' Minimum

  StatSel(5) = "Yes" ' Maximum

  StatClipCopy     = 0

  StatClipValue    = 0

  StatFormat       = ""

  StatResChn       = 0

  Call StatBlockCalc("Channel","1-","[2]/360°_CCW") '... StatDirec,RowNoStr,ChnNoStr 

  max_360=str(Data.Root.ChannelGroups(2).Channels("360°_CCW").Properties("maximum").Value)     

  min_360=str(Data.Root.ChannelGroups(2).Channels("360°_CCW").Properties("minimum").Value)      

  'max_360=str(Data.Root.ChannelGroups(2).Channels("360°_CCW").Values(100))     

  'min_360=str(Data.Root.ChannelGroups(2).Channels("360°_CCW").Values(5000))   

  max_360=val(max_360)

  min_360=val(min_360)

  delta_360=max_360-min_360

  delta_360= round (delta_360,4)

  Call DataBlInsertVal("[2]/360°_peak_CCW", 1, 1, delta_360)

  iLoop = iLoop + 500                                 'index add 1 for next loop

Loop until (iLoop >=31448/4)

Hallo an alle im Forum

Mon, 30 Jan 2012 23:28:46 +0000

Hallo,

heute habe ich mich endlich in diesem Forum registriert, nachdem ich hier schon die eine oder andere nützliche Info bekommen habe. Vielleicht kann ich mich auch mal nützlich machen, wenn jemand ein Problem hat.

Bis dahin

Eberhard

eps-datei aus report erstellen

Mon, 30 Jan 2012 22:30:53 +0000

Hallo zusammen,
ich möchte gerne meine im report erstellte grafik im .eps-dateiformat speichern. doch kann ich diese datei nur in schwarz weiß abspeichern.
gibt es irgendeine möglichkeit die datei farbig ins eps format zu bringen?

vielen dank für eure hilfe
petra

Zeitstempel-Daten als x-Achse

Mon, 30 Jan 2012 15:15:07 +0000

Hallo,

bin als völliger Grünschnabel hier.

Ich habe mehrere Messreihen inkl. einer Reihe mit Zeitstempeln als *.tdm-Datei.
Kann mir jemand sagen, wie es möglich ist, die Zeitstempel-Messreihe als x-Achse zu definieren?

Ich habe einfach noch keine Möglichkeit gefunden Ist aber wahrscheinlich simpel, wenn man es weiß

Danke

im Dialog Excel Datei laden und mit Werten im Script rechnen

Fri, 27 Jan 2012 12:26:26 +0000

Hallo,

ich wähle in einem Dialog mit folgendem Code eine Excel Datei aus.
Wie gelingt es nun, dass ich aus der beispielsweise ersten Mappe die Werte in Spalte zwei Zeile 1 bis 10 nehme und so in das eigentliche vbs script übergebe, dass ich diese dort als Variablen zum Rechnen habe.

Dim iCount
Call FileDlgShow("Pfad", "Excel Datei, *.csv;*.xls", "Getriebe wählen", False)
If (DlgState = "IDOk") Then

For iCount = 0 To Ubound(FileDlgNameList)
Call DataFileLoad(FileDlgNameList(iCount))
Next
Else
Call MsgBox ("Getriebeauswahl abgebrochen!")

End If

Kanalname durch Variable ersetzen

Mon, 23 Jan 2012 15:19:51 +0000

Hallo,

bin Quereinsteiger und kenn mich nicht aus.
Kann ich in einem Befehl die Bezeichnung für Gruppe und Kanal durch eine vorher definierte Variable ersetzen? Zum Beispiel:
Find("Ch(""[1]/Messstelle1"")<10",1) 'mein ursprünglicher Befehl
Dim Messstelle
Messstelle = ("[1]/Messstelle1")
Find((Messstelle)<10,1) 'mein Wunschbefehl
So in der Art hätte ich´s gern, krieg es aber nicht hin. Geht das überhaupt? Wie sieht dann die Syntax aus?
Bin für jede Hilfe dankbar!

rookie

[ERLEDIGT] ChV gibt keine Millisekunden zurück

Mon, 16 Jan 2012 10:33:39 +0000

Hallo zusammen,
ich habe wieder einmal ein Problem.

ich habe in meinem Zeitkanal als ersten Wert
08.12.2010 13:30:00.0002
stehen.
Wie kann ich diesen Wert einlesen ohne dass mir die millisekunden abgeschnitten werden?

Code:

MsgBox Chv(1,"[1]/time")

gibt mir nur 08.12.2010 13:30:00 zurück.

Kann mir wer helfen?

Vielen Dank im Vorraus.

Gruß, bischjli

Zeitformat ausgeben

Tue, 10 Jan 2012 14:03:28 +0000

Hallo zusammen,
ich bin gerade dabei ein Script zur Zeitspannenauswahl zu schreiben. Ich möchte einen Anfangswert und einen Endwert vorgeben und er soll mir alle meine Kanäle auf diesen Zeitbereich kürzen. Das ganze funktioniert soweit mittlerweile auch. Jedoch benötige ich eine Abgfrage des Zeitformats, um Fehlermeldungungen bei Falscheingaben auszugeben.

Übergabeparameter:

Code:

30.11.2010 14:10:00.0009

Gewünschter Rückgabewert:

Code:

#dd.mm.yyyy hh:nn:ss.ffff oder dd.mm.yyyy hh:nn:ss.ffff

Es würde ausreichen, wenn ich ein TRUE oder FALSE für die Formatabfrage bekommen würde ähnlich:

Code:

CommonTimeFormatCheck("30.11.2010 14:10:00.0009")

das funktioniert aber leider nicht mit konkreten Datum/Uhrzeit

Kann mir jemand weiterhelfen?

Vielen Dank,

bischjli

Geschwindigkeitserfassung mittels GPS

Mon, 09 Jan 2012 19:54:13 +0000

Hallo zusammen,

in den kommenden Tagen wollte ich mich etwas mit dem Thema Onbord Geschwindigkeitsmessung von Fahrzeugen mittels GPS Sensor beschäftigen.
Ideal wäre ein kleines Handliches Gerät mit einer Aufzeichnungsrate von idealerweise 10Hz, dessen Daten man direkt in DIAdem importieren könnte.
(5 Hz wäre noch akzeptabel)
Gibt es vieleicht von Seiten des Forums bereits erste Erfahrungen in diesem Bereich?
Besten Dank schonmal für die Hilfe,

Viele Grüße,
Tobias

Zeit zwischen 2 Logs berechnen

Mon, 09 Jan 2012 15:39:59 +0000

MoinMoin!
Ich habe Logs mit einem einem Datums- und einem Zeitkanal im folgenden Format:
dd.mm.yyyy
hh:nns.ffff
bzw. einen Zeitkanal als Addition beider Kanäle.

Jetzt möchte ich die Zeit zwischen 2 Logs bestimmen, d.h. die Differenz zwischen dem ersten Wert des zweiten Logs und dem letzten Wert des ersten Logs.
Eigentlich wollte ich das ganze mit der TTR-Funktion machen, weil der Zeitabstand zwischen den Werten eh eine Sekunde beträgt und im Anschluss beide Logs verbunden werden sollen, mit entsprechend vielen (Null)Zeilen.

Code:

Set Time1 = Data.Root.ChannelGroups(1).Channels("Zeitkanal")

Set Time2 = Data.Root.ChannelGroups(2).Channels("Zeitkanal")

Zeitkanal1 = TTR(Time1(Time1.Size))

Zeitkanal2 = TTR(Time2(1))

TimeDiff = Zeitkanal2 - Zeitkanal1 +1

Allerdings bekomme ich folgenden Fehler:
130 16:37:14 Fehler:
Fehler in (Zeile: 12, Spalte: 1):
Innerhalb der Formel
TTR(63482949288,09)
ist das markierte Zeichen ..TTR(>6<3482949288,09).. nicht interpretierbar.

Wo ist der Fehler oder gibt es eine geschicktere Variante?

bis dann

Fehlermeldung beim Starten der Messung

Fri, 06 Jan 2012 09:37:45 +0000

Hallo,
ich möchte gerne eine Messung (11 Kanäle) über zehn Minuten bei einer Abtastfrequenz von 100Hz machen. Der daraus folgende Wert von 60000 Messpunkten habe ich in den Speicherblock eingetragen. Wenn ich die Messung starten will, erscheint folgende Fehlermeldung "Zu wenig/zu kurze Kanäle vorhanden. Zusätzlich benötigt [12/60000]".

Wenn ich in den Speicherblock die Messpunktanzahl auf 6000 setze, dann funtioniert alles. Benutzt wird DIAdem 8.1

Mfg
Zwoli

Mittelwerte

Wed, 21 Dec 2011 10:40:01 +0000

Hallo,

ich bräuchte ein Script der mir in einer Gruppe die Kanäle für folgende Aufgabe bearbeitet.

Ich habe Daten als Stundenwerte 24 Std = 24 Werte und die möchte zu einen Tagesmittel berechnen und das bis unendlich (Jahr).
Zudem soll noch von diesem 24Std block den Min, Max und Completnesswerte. Mit Completnesswerte meine ich wie viel Messwerte von den 24Std vollständig sind und das in Prozent.

Hoffentlich könnt Ihr mir helfen

Gruß und frohe Weihnachten

PS: Daten sind im Anhang

Test.zip (Größe: 110,43 KB / Downloads: 13)

[ERLEDIGT] Datum von einem Zeitkanal in einen anderen Übertragen

Tue, 20 Dec 2011 14:19:47 +0000

Hallo liebe Community,

ich habe ein Problem, ich komme mit der ganzen Zéitkanalgeschichte nicht wirklich klar. Ich habe ein Zeitkanal mit einem Datum, dieser Kanal hat aber nur 1 Wert. Dann habe ich noch einen 2. Zeitkanal welcher die genaue Zeit hat, aber "kein" Datum. Wie kann ich nun das Datum des 1. Zeitkanal für jeden wert des Anderen Zeitkanals übernehmen?

Ich hab mir überlegt dies wie folgt zu machen ich wandle den einen Kanal mit STR(Kanal,"#TT.MM.YYY") hier raus TTR eine Zahl diese zähle ich dann in den Umgewandelten anderen Zeitkanal zu jedem Wert hinzu.
Geht das so in Etwa? Aber das ist doch ziehmlich umständlich? Muss doch noch einfacher gehen.
Bin für jede Hilfe dankbar.

Gruß

[ERLEDIGT] Sub - Automatisiertes Einlesen

Tue, 20 Dec 2011 13:09:43 +0000

Hallo,

ich bin ganz neu auf dem Gebiet DIAdem und versuche zur Zeit ein Sub zu erstellen, mit dem ich mehrere INCA-Messdateien auswähle und anschließend in eine .tdm-Datei umwandeln kann. Allerdings möchte ich jede einzelne INCA-Messdatei einer einzelnen .tdm-Datei zuordnen und in einem neuem Ordner mit dem Tagesdatum ablegen.

Könnte sich bitte jemand meinem Problem annehmen, da ich leider nicht weiterkomme.
Wenn noch Informationen fehlen kann ich gerne aushelfen.

Freundliche Grüße

iFool

mehrere Kurven in Report übertragen

Tue, 20 Dec 2011 07:01:52 +0000

Hallo,

ich habe folgendes Problem:
ich möchte per Script nach meiner Auwertung alle Kurven(bis auf die letzte) in einem Reprot darstellen.
Diesen Report habe ich als Vorlage gespeichert und rufe ihn dann wieder auf. Leider werden die Kurven nicht geladen und ich habe keine Ahnung, woran es liegt.

Der Teil des Scriptes für den Rgeport sieht folgendermaßen aus:

'Anzahl der Kanalgruppen (Messungen + Leerlauf)
dim anzahl
anzahl=(Data.Root.ChannelGroups.Count)

'--Report-Vorlage auswählen und laden der Kurven

Call FileNameGet("Report","FileRead")
LayoutReadPath = FileDlgDir
Call PicLoad(FileDlgFileName)

For i = 1 to anzahl-1

Call GraphObjOpen("2D-Axis1")
Call GraphObjNew("2D-Curve","Axis_"&str(i))
Call Graphobjopen("Axis_"&str(i))
D2CChnXName = ""
D2CChnYName = "["&GroupPropGet(i, "index")&"]/Untitled"
Call GraphObjClose("Axis_"&str(i))
Call GraphObjClose("2D-Axis1")

next

Call PicUpdate

Kann mir einer von euch helfen?

Danke.

[ERLEDIGT] Programmstart mit Parametern

Thu, 15 Dec 2011 08:44:44 +0000

Hallo,

ich habe eine Frage bzgl. des Programmstarts mit Parametern. Ist es auch möglich über den Command-Syntax Parameter zu übergeben? Z.B. so ...DIAdem.exe /CScriptStart('MyScript.vbs',T1='Hallo') und in MyScript.vbs dann die entsprechende Ausgabe: Call MsgBox(T1)

Schon mal vielen Dank für eure Antworten!
MfG
Martin

Hyperlink aus Excel importieren

Tue, 13 Dec 2011 15:22:50 +0000

Hallo,
ich möchte gerne einen Hyperlink aus einer Excel-Tabelle importieren und dann als Pfad verwenden. Ist das überhaupt möglich? Values importieren ist ja kein Problem.
Gruß Thomas

Datenimport aus Textdateien

Mon, 12 Dec 2011 09:14:40 +0000

Hallo zusammen,
leider bin ich noch ein totaler DIAdem-noob und die Suchfunktion hat mich auch nicht viel weiter gebracht...
Kann mir jemand einen sinnvollen link zum Einstieg für folgendes Problem geben?

Ich habe einen Stall voll Text-Dateien (Kein XML, und auch nicht immer mit den selben Namensbezeichnungen...) und muss mir jetzt einen Translator basteln, der auf ein paar Sachen anspringt.

Der Assistent hat mir bisher auch nicht weiterhelfen können, also wird es wohl auf ein Script rauslaufen.

1. Jedes Text-File beginnt mit einem Header aus dem ich ein Paar Eigenschaften wie Datum, Zeit, Testhardware, Prüfling-Typ ... ziehen kann.

2. Zwischen jedem Prüfschritt steht eine Leerzeile. Und dann folgt eine Zeile mit "Pruefschrittname""" die immer einen neuen Schritt einleitet.

3. Darauf folgen mehere Zeilen mit "EigenschaftValue" und eine Zeile mit "MesswertValue" oder "Einheit[V]" ... usw. die ich dann dementsprechend zuordnen muss.

Wenn es irgendetwas wie "Makro aufzeichnen" gibt, dessen Ergebnis ich im Skripteditor ausbauen kann, wäre das auch sehr hilfreich.

Nach dem Einlesen wird der Nächste Schritt das zusammenfassen und Auswerten der selber Test-Messwerte von versch. Textfiles sein...

Ich lese mich gerne ein, hab aber noch keinen sinnvollen Punkt zum anfangen gefunden. Würde mich über etwas Starthilfe freuen.

Vielen Dank schon jetzt für eure Tips
Bernd

FFT in Schleife

Fri, 09 Dec 2011 10:40:48 +0000

Hi ich brauche für eine Serienauswerung eine FFT in einer schleife mein bisheriger code sieht so aus:

Code:

Option Explicit  'Erzwingt die explizite Deklaration aller Variablen in einem Script.

'Call Data.Root.Clear()

'-- Daten einlesen

'Call WndShow ("NAVIGATOR","Open")

'Call InteractionOn ()

Call Data.Root.ChannelGroups.add(31).Name("Auswertung")

Call Data.Root.ChannelGroups(31).Channels.Add("Schwingbreite",DataTypeFloat64)

     Data.Root.ChannelGroups(31).Channels("Schwingbreite").Properties("length").Value = 10

Call ChnLinGenImp("Zeit",1000032,-0.001,1E-07,"s") '... GHdChnName,GHdChnLength,GHdStartVal,GHdStep,GenXUnitPreset

Call Data.Move(Data.Root.ChannelGroups(30).Channels("Zeit"),Data.Root.ChannelGroups(31).Channels,1)

Dim p,i,j, Auslenkung_max, Auslenkung_min, Schwingbreite

    i = 1

    j = 1

For j=1 to 10

        Data.Root.ChannelGroups(i).Channels(1).Properties("unit_string").Value("µm")

            Auslenkung_max = Data.Root.ChannelGroups(i).Channels(1).Properties("maximum").Value

            Auslenkung_min = Data.Root.ChannelGroups(i).Channels(1).Properties("minimum").Value

            Schwingbreite = Auslenkung_max - Auslenkung_min

        ChD(j,"[31]/Schwingbreite") =  Schwingbreite * 2

        i = i + 3

Next

Die Schleife soll nun zusätzlich eine FFT des ersten Kanal jeder dritten Gruppe durch führen( durch die laufvariable i=i+3). mein problem ist das die FFT einen direkte zuweisung einer gruppe benötigt.
Beispiel:

Call ChnFFT1("[3]/Kanal 4","[3]/Kanal 5") '

Kann ich das was in diesem Beispiel [3]/Kanal 4 und [3]/Kanal 5 auch abhäning von meinem laufvariable i machen?
Sodass jeweils der erste Kanal der i-ten Gruppe als eingang genutzt wird.