-> Hier kostenlos registrieren
Hallo,
ich arbeite an einer S7-300 Station welche mit einem MP277 Touchpanel verbunden ist.
Das Programm auf der S7 prüft die Geschwindigkeit vorbeifahrener Züge und speichert diese in einem DB und Überschreitungen der max. Geschwindigkeit in einem anderen.
Per Script habe ich mit viel Zeit und Hilfe aus diesem Forum es realisiert das die Daten in einer CSV Datei auf einem Stick gespeichert werden
Die Datensätze setzen sich aus Geschwindigkeit, Datum, Uhrzeit zusammen.(Es gibt 200 Datensätze)
Jetzt ist es jedoch erwünscht das nach dem Übertragen der Daten die alten Einträge gelöscht werden.
Mein Ansatz war diese Funktion ebenfalls mit einem Script zu realisieren, nur leider bekomme ich bei meinen Versuchen immer Fehlermeldungen.
Hier ist mein Script:
For i=0 To 199 Step 1
Set SmartTags("Datentabelle.Messwerte["&i&"].Geschwindigkeit") = Nothing
Set SmartTags("Datentabelle.Messwerte["&i&"].Datum") = Nothing
Set SmartTags("Datentabelle.Messwerte["&i&"].Uhrzeit") = Nothing
Set SmartTags("Überschreitung.Messwerte["&i&"].Geschwindigkeit") = Nothing
Set SmartTags("Überschreitung.Messwerte["&i&"].Datum") = Nothing
Set SmartTags("Überschreitung.Messwerte["&i&"].Uhrzeit") = Nothing
If Err.Number <> 0 Then
ShowSystemAlarm ("1Error in code ! " & CStr(Err.Number) & ", " & Err.Description)
Err.Clear
End If
Next
Ich habe es auch schon über Variablen Probiert mit ähnlichen Ergebnissen.
Set RTempo = SmartTags("Datentabelle.Messwerte["&i&"].Geschwindigkeit")
SetValue RTempo, 0
Meine Frage an euch...
Bin ich auf einem Holzweg oder Übersehe ich hier das offensichtliche???
Ich hoffe ihr könnt mir helfen
Grüße,
Help.exe
ich arbeite an einer S7-300 Station welche mit einem MP277 Touchpanel verbunden ist.
Das Programm auf der S7 prüft die Geschwindigkeit vorbeifahrener Züge und speichert diese in einem DB und Überschreitungen der max. Geschwindigkeit in einem anderen.
Per Script habe ich mit viel Zeit und Hilfe aus diesem Forum es realisiert das die Daten in einer CSV Datei auf einem Stick gespeichert werden
Die Datensätze setzen sich aus Geschwindigkeit, Datum, Uhrzeit zusammen.(Es gibt 200 Datensätze)
Jetzt ist es jedoch erwünscht das nach dem Übertragen der Daten die alten Einträge gelöscht werden.
Mein Ansatz war diese Funktion ebenfalls mit einem Script zu realisieren, nur leider bekomme ich bei meinen Versuchen immer Fehlermeldungen.
Hier ist mein Script:
For i=0 To 199 Step 1
Set SmartTags("Datentabelle.Messwerte["&i&"].Geschwindigkeit") = Nothing
Set SmartTags("Datentabelle.Messwerte["&i&"].Datum") = Nothing
Set SmartTags("Datentabelle.Messwerte["&i&"].Uhrzeit") = Nothing
Set SmartTags("Überschreitung.Messwerte["&i&"].Geschwindigkeit") = Nothing
Set SmartTags("Überschreitung.Messwerte["&i&"].Datum") = Nothing
Set SmartTags("Überschreitung.Messwerte["&i&"].Uhrzeit") = Nothing
If Err.Number <> 0 Then
ShowSystemAlarm ("1Error in code ! " & CStr(Err.Number) & ", " & Err.Description)
Err.Clear
End If
Next
Ich habe es auch schon über Variablen Probiert mit ähnlichen Ergebnissen.
Set RTempo = SmartTags("Datentabelle.Messwerte["&i&"].Geschwindigkeit")
SetValue RTempo, 0
Meine Frage an euch...
Bin ich auf einem Holzweg oder Übersehe ich hier das offensichtliche???
Ich hoffe ihr könnt mir helfen
Grüße,
Help.exe