Sub DB_Daten_Senden_PROG()
'Tip:
' 1. Verwenden Sie die Tastenkombination <CTRL+SPACE> oder <CTRL+I>, um eine Liste aller Objekte und Funktionen zu öffnen
' 2. Schreiben Sie den Code unter Verwendung des HMI Runtime Objekts.
' Beispiel: HmiRuntime.Screens("Screen_1").
' 3. Verwenden Sie die Tastenkombination <CTRL+J>, um eine Objektreferenz zu erstellen.
'Schreiben Sie den Code ab dieser Position:
'Declaration of local tags - Deklaration von lokalen Variablen
Dim fso, f, ts, path, i, j, Dat_Nr
Dim stKennung, rVc, rKm, rAnz,rMh, rDsl, rDsw1, rDsw2
'Definition of local tags - Definition von lokalen Variablen
i=1
j=1
'Definition of file extension - Definition der Datei-Extension
path= "f:\daten_saege.csv" '"\Storage Card USB\daten_saege.csv"
'Error Routine - Fehlerroutine
On Error Resume Next
'Create object - Objekt erstellen
Set fso = CreateObject("Scripting.FileSystemObject")
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If
'if no file exist a text file will be created – Datei erstellen, wenn keine vorhanden
If Not fso.FileExists(path) Then
fso.CreateTextFile path
End If
Set f = fso.GetFile(path)
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If
Set ts = f.OpenAsTextStream(2, -2)
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If
'Varialblen zuweisen
stKennung=SmartTags("PROG_DATEN_AUFTRAG.PROG_NAME")
rVc=SmartTags("PROG_DATEN_AUFTRAG.BANDGESCHWINDIGKEIT")
rMh=SmartTags("PROG_DATEN_AUFTRAG.MAT_HÖHE")
rKm=SmartTags("PROG_DATEN_AUFTRAG.KÜHLEN")
rAnz=SmartTags("PROG_DATEN_AUFTRAG.n_SOLL")
'Write values into the file - Werte in die Datei schreiben
ts.WriteLine("Auftrag-Kennung; " & stKennung & ";") 'Auftrag Kennung
ts.WriteLine("Materialhöhe [mm]; " & rMh & ";")
ts.WriteLine("vc[m/min]; " & rVc & ";") 'Bandgeschwindigkeit in [m/min]
ts.WriteLine("Kühlmittel; " & rKm & ";")
ts.WriteLine("Stück; " & rAnz & ";") 'Stückzahl
ts.WriteLine("") 'leer Zeile
ts.WriteLine("") 'leer Zeile
ts.WriteLine("") 'leer Zeile
'Kopfzeile Datensatz
ts.WriteLine("Datensatz-Nr.:; " & "Länge [mm]; " & "Winkel 1 [°]; " & "Winkel 2 [°]; ")
For i = 1 To 30 'Daten in die Tabelle eintragen
Dat_Nr = i
rDsl=CStr("PROG_DATEN_AUFTRAG.DATEN[")&(i)& CStr("].ABSCHNITTLÄNGE")
ts.WriteLine(Dat_Nr & ";" & CStr(rDsl) & ";" & SmartTags("rWinkel_a_s") & ";" & SmartTags("rWinkel_b_s"))
Next
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If
'Close file - Datei schließen
ts.Close
Set ts = Nothing
Set f = Nothing
Set fso = Nothing
ShowSystemAlarm "Datenübertragung war Erfolgreich!" 'Storage of the data was successful!
'// EOS /////////////////////////////////////////////////////////
End Sub
