-> Hier kostenlos registrieren
Sehr geehrtes Schwarmwissen
Seit mehreren Tagen beschäftigte ich mich erstmals mit VB-Skripten und bin nun an einen Punkt an dem ich gar nicht weiter komme.
Kurz zur Aufgabenstellung: Messwerte werden an einem Prüfstand über Stunden hinweg (Solange Messung aktiv = 1) aufgezeichnet und sollen in eine Excel-Datei geschrieben werden (1 Wert pro Sekunde => 1Hz).
HardWare: 1215C, KT900 Comfort
Da ich mich noch an das endgültige Ergebnis/Programm ran taste sieht mein Code zur Zeit wie folgt aus:
Dim fs
Dim f
Dim mode
Dim pfad
' pfad festlegen
pfad = "Storage Card SD\Logs"
' Objekt fuer Filehandling erstellen
Set fs = CreateObject("filectl.filesystem")
Set f= CreateObject("filectl.file")
' Pruefen ob Verzeichnis existiert und sonst erstellen
If fs.dir(pfad) = "" Then fs.mkdir(pfad)
While "Messung aktiv" = True
If "Takt 1 Hz" = True Then
f.open pfad + "messwerte.csv", 8
f.LinePrint CStr(Now) & ";" & ";" & ";" & MWWert1 & ";" & ";" & MWWert2 & ";" & ";" & MWWert3 & ";"
f.Close
End If
Wend
PS: Werte in die Excel-Datei schreiben war kein Problem bis ich mit der While-Schleife + IF-Abfrage angefangen habe.
Ich freue mich über jeglichen Denkanreiz und verbleibe
mit besten Grüßen
Marco
Seit mehreren Tagen beschäftigte ich mich erstmals mit VB-Skripten und bin nun an einen Punkt an dem ich gar nicht weiter komme.
Kurz zur Aufgabenstellung: Messwerte werden an einem Prüfstand über Stunden hinweg (Solange Messung aktiv = 1) aufgezeichnet und sollen in eine Excel-Datei geschrieben werden (1 Wert pro Sekunde => 1Hz).
HardWare: 1215C, KT900 Comfort
Da ich mich noch an das endgültige Ergebnis/Programm ran taste sieht mein Code zur Zeit wie folgt aus:
Dim fs
Dim f
Dim mode
Dim pfad
' pfad festlegen
pfad = "Storage Card SD\Logs"
' Objekt fuer Filehandling erstellen
Set fs = CreateObject("filectl.filesystem")
Set f= CreateObject("filectl.file")
' Pruefen ob Verzeichnis existiert und sonst erstellen
If fs.dir(pfad) = "" Then fs.mkdir(pfad)
While "Messung aktiv" = True
If "Takt 1 Hz" = True Then
f.open pfad + "messwerte.csv", 8
f.LinePrint CStr(Now) & ";" & ";" & ";" & MWWert1 & ";" & ";" & MWWert2 & ";" & ";" & MWWert3 & ";"
f.Close
End If
Wend
PS: Werte in die Excel-Datei schreiben war kein Problem bis ich mit der While-Schleife + IF-Abfrage angefangen habe.
Ich freue mich über jeglichen Denkanreiz und verbleibe
mit besten Grüßen
Marco