Dim f,fs,datei
Dim fs2,pfad,mmc
Dim fs3,dateipfad
Dim traceability_io,freigabe_daten_loggen
Dim datum
Dim blattnummer,teilenummer
Dim batch_nr_basis, batch_nr_haerter
Dim operator
Dim maschinennummer
'ACTUAL VALUES
Dim druck_p_eingang_a,druck_p_eingang_b,druck_p_ausgang_a,druck_p_ausgang_b
Dim solltemp_aggregat,isttemp_aggregat
Dim isttemp_behaelter, niveau_behaelter
Dim solltemp_behaelter, solltemp_beh_a, solltemp_beh_b, isttemp_beh_a, isttemp_beh_b
Dim ausflussrate_ab,ar_a,ar_b
Dim mv,mv_abw_max, mv_abw_ist
Dim dichte_a,dichte_b
Dim bsz_ges_std,bsz_ges_min,bsz
Dim zertifikatsnummer_a,zertifikatsnummer_b
Dim verbrauch_a,verbrauch_b,total_verbrauch_a,total_verbrauch_b
Dim niveau_a,niveau_b
traceability_io=SmartTags("Interne_Variablen\INTERNE_VAR_Traceability_Data_OK")
freigabe_daten_loggen=SmartTags("Externe_Variablen_IC\ic_freigabe_daten_loggen")
If traceability_io=True And freigabe_daten_loggen=True Then
'If traceability_io=True Then
'Betriebsstundenzähler erstellen
bsz_ges_std=SmartTags("Externe_Variablen\IW_BETRIEBSSTUNDEN_GES_STD")
bsz_ges_min=SmartTags("Externe_Variablen\IW_BETRIEBSSTUNDEN_GES_MIN")
bsz=bsz_ges_std&"h"&" "&bsz_ges_min&"min"
'MMC CHECK
Set fs2 = CreateObject("filectl.filesystem")
pfad="\Storage Card MMC"
mmc=fs2.Dir(pfad)
If mmc="Storage Card MMC" Then
'Dateisystem erstellen
Set f = CreateObject("filectl.file")
Set fs = CreateObject("filectl.filesystem")
'Aktuelles Datum lesen
datum=Date
' Maschinen Seriennummer
maschinennummer="xyz"
'Speicherort zuweisen
dateipfad="\Storage Card MMC\Logs"
'Dateiname von Interner Variable zuweisen
datei=SmartTags("Interne_Variablen\INTERNE_VAR_Dateiname_Archiv_Export")
'INTERNE Variablen, lokalen zuweisen
blattnummer=SmartTags("Interne_Variablen\INTERNE_VAR_Blade_Number")
teilenummer=SmartTags("Interne_Variablen\INTERNE_VAR_TEILENUMMER")
batch_nr_basis=SmartTags("Interne_Variablen\INTERNE_VAR_Batch_Number_Base1")
batch_nr_haerter=SmartTags("Interne_Variablen\INTERNE_VAR_Batch_Number_Hardener")
zertifikatsnummer_a=SmartTags("Interne_Variablen\INTERNE_VAR_Kalibrierungszertifikatsnummer_A")
zertifikatsnummer_b=SmartTags("Interne_Variablen\INTERNE_VAR_Kalibrierungszertifikatsnummer_B")
'EXTERNE ACTUAL VALUES lokalen Variablen zuweisen
dichte_a=SmartTags("Externe_Variablen\IW_DICHTE_A")
dichte_b=SmartTags("Externe_Variablen\IW_DICHTE_B")
druck_p_eingang_a=FormatNumber(SmartTags("Externe_Variablen\IW_DRUCK_P_EING_A"),1)
druck_p_eingang_b=FormatNumber(SmartTags("Externe_Variablen\IW_DRUCK_P_EING_B"),1)
druck_p_ausgang_a=FormatNumber(SmartTags("Externe_Variablen\IW_DRUCK_P_AUSG_A"),1)
druck_p_ausgang_b=FormatNumber(SmartTags("Externe_Variablen\IW_DRUCK_P_AUSG_B"),1)
solltemp_aggregat=FormatNumber(SmartTags("Externe_Variablen\IW_SOLLTEMPERATUR"),1)
isttemp_aggregat=FormatNumber(SmartTags("Externe_Variablen\IW_IST_TEMP"),1)
ausflussrate_ab=FormatNumber(SmartTags("Externe_Variablen\IW_AR"),1)
ar_a=FormatNumber(SmartTags("Externe_Variablen\IW_AR_A"),1)
ar_b=FormatNumber(SmartTags("Externe_Variablen\IW_AR_B"),1)
mv=FormatNumber(SmartTags("Externe_Variablen\IW_MV_IST"),1)
mv_abw_max=FormatNumber(SmartTags("Externe_Variablen\IW_MV_ABW_MAX"),1)
mv_abw_ist=FormatNumber(SmartTags("Externe_Variablen\IW_MV_ABW_IST"),1)
verbrauch_a=FormatNumber(SmartTags("Externe_Variablen\IW_Verbrauch_pro_Blatt_A"),1)
verbrauch_b=FormatNumber(SmartTags("Externe_Variablen\IW_Verbrauch_pro_Blatt_B"),1)
total_verbrauch_a=FormatNumber(SmartTags("Externe_Variablen\IW_Verbrauch_Gesamt_A"),1)
total_verbrauch_b=FormatNumber(SmartTags("Externe_Variablen\IW_Verbrauch_Gesamt_B"),1)
isttemp_behaelter=FormatNumber(SmartTags("Externe_Variablen\IW_temperatur_container_ist"),1)
niveau_behaelter=FormatNumber(SmartTags("Externe_Variablen\IW_niveau_container"),1)
niveau_a=FormatNumber(SmartTags("Externe_Variablen\IW_NIVEAU_A"),1)
niveau_b=FormatNumber(SmartTags("Externe_Variablen\IW_NIVEAU_B"),1)
solltemp_behaelter=FormatNumber(SmartTags("Externe_Variablen\P_solltemp_beh"),1)
solltemp_beh_a=FormatNumber(SmartTags("Externe_Variablen\P_solltemp_beh_a"),1)
solltemp_beh_b=FormatNumber(SmartTags("Externe_Variablen\P_solltemp_beh_b"),1)
isttemp_beh_a=FormatNumber(SmartTags("Externe_Variablen\IW_isttemp_beh_a"),1)
isttemp_beh_b=FormatNumber(SmartTags("Externe_Variablen\IW_isttemp_beh_b"),1)
'Wenn Ordner Logs nicht vorhanden ist erstellen
Set fs3 = CreateObject("filectl.filesystem")
If fs3.dir(dateipfad) = "" Then fs.mkdir(dateipfad)
'Wenn die Datei mit diesem Namen noch nicht besteht,
'dann anlegen und Kopfzeile schreiben
If fs.dir(datei)="" Then
f.open datei,2
f.Lineprint "Date" & ";" & "Time" & ";" & "Blade number" & ";" & "Model part" & ";" & "Ratio A:B" & ";" & "Amount A [l]" & ";" & "Amount B[l]" & ";" & "Batch number base A" & ";" & "Batch number hardener B"& ";" & "Certificate Calibr. nr. A" & ";" & "Certificate Calibr. nr. B" & ";" & "Press. Pump Inp. A [bar]" & ";" & "Press. Pump Inp. B [bar]" & ";" & "Press. Pump Outp. A [bar]" & ";" & "Press. Pump Outp. B [bar]" & ";" & "Temp.TH S [°C]" & ";" & "Temp. TH R [°C]" & ";" & "Temp. Cont. S [°C]" & ";" & "Temp.Cont. R [°C]" & ";" & "Temp. Cont. A S [°C]" & ";" & "Temp. Cont. A R [°C]" & ";" & "Temp. Cont. B S [°C]" & ";" & "Temp. Cont. B R [°C]" & ";" & "Level A [%]" & ";" & "Level B [%]" & ";" & "Level Cont. [%]" & ";" & "Flow rate A+B [l/min]" & ";" & "Flow rate A [l/min]" & ";" & "Flow rate B [l/min]" & ";" & "Ratio Tol. [%]" & ";" & "Ratio Dev. [%]" & ";" & "Total Amount A [l]" & ";" & "Total Amount B [l]" & ";" & "Machine serial nr." & ";" & "Tot. mach. running hours [h]" & ";" & "Tot. mach. running hours [min]" & ";" & "Density base A [g/cm³]" & ";" & "Density hardener B [g/cm³]"
f.close
End If
'Log Daten anhängen
f.open datei,8
'f.Lineprint "Date" & ";" & "Time" & ";" & "Blade number" & ";" & "Model part" & ";" & "Ratio A:B" & ";" & "Amount A [l]" & ";" & "Amount B[l]" & ";" & "Batch number base A" & ";" & "Batch number hardener B"& ";" & "Certificate Calibr. nr. A" & ";" & "Certificate Calibr. nr. B" & ";" & "Press. Pump Inp. A [bar]" & ";" & "Press. Pump Inp. B [bar]" & ";" & "Press. Pump Outp. A [bar]" & ";" & "Press. Pump Outp. B [bar]" & ";" & "Temp.TH S [°C]" & ";" & "Temp. TH R [°C]" & ";" & "Temp.Cont. R [°C]" & ";" & "Level A [%]" & ";" & "Level B [%]" & ";" & "Level Cont. [%]" & ";" & "Flow rate A+B [l/min]" & ";" & "Flow rate A [l/min]" & ";" & "Flow rate B [l/min]" & ";" & "Ratio Tol. [%]" & ";" & "Ratio Dev. [%]" & ";" & "Total Amount A [l]" & ";" & "Total Amount B [l]" & ";" & "Machine serial nr." & ";" & "Tot. mach. running hours [h:min]" & ";" & "Density base A [g/cm³]" & ";" & "Density hardener B [g/cm³]"
f.Lineprint datum & ";" & Time & ";" & blattnummer & ";" & teilenummer & ";" & mv & ";" & verbrauch_a & ";" & verbrauch_b & ";" & batch_nr_basis & ";" & batch_nr_haerter & ";" & zertifikatsnummer_a & ";" & zertifikatsnummer_b & ";" & druck_p_eingang_a & ";" & druck_p_eingang_b & ";" & druck_p_ausgang_a & ";" & druck_p_ausgang_b & ";" & solltemp_aggregat & ";" & isttemp_aggregat & ";" & solltemp_behaelter & ";" & isttemp_behaelter & ";" & solltemp_beh_a & ";" & isttemp_beh_a & ";" & solltemp_beh_b & ";" & isttemp_beh_b & ";" & niveau_a & ";" & niveau_b & ";" & niveau_behaelter & ";" & ausflussrate_ab & ";" & ar_a & ";" & ar_b & ";" & mv_abw_max & ";" & mv_abw_ist & ";" & total_verbrauch_a & ";" & total_verbrauch_b & ";" & maschinennummer & ";" & bsz_ges_std & ";" & bsz_ges_min & ";" & dichte_a & ";" & dichte_b
f.close
Else
SetBitInTag SmartTags("Interne_Variablen\INTERNE_VAR_FEHLER"), 1
End If
End If