Messwerte in einem PC im Netzwerk schreiben!

ka1978

Level-1
Beiträge
139
Reaktionspunkte
0
Zuviel Werbung?
-> Hier kostenlos registrieren
Guten abned,

ob es möglich Messwerte vom Panel MP377 direkt in einem Ordner in einem PC im Netzwerk zu schreiben?

wenn ja welche schritte sind zu folgen?

der Panel sowie der PC sind schon im Netzwerk integriert.

danke.
 
Hallo,

ich habe die Folgende Code auf mein Rechner getestet und die laufen sehr gut. Diese Code müssen auf ein Panel laufen, mein Problem ich

habe vor mir momentan kein Panel und ich habe keine Gute Kenntnisse im Skript .

wie werden diese beiden Code an einem Panel gepasst ?

Die Werte müssen auf der SD Memory Card geschrieben werden ? ist es das überhaupt möglich ?

Die Daten von der SD Memory Card müssen auf einem Rechner im Netzwer kopiert werden, wie wird das im Code deklariert.

der rechner un der Panel sind schon im Netzwerk integriert.

Code Daten_schreiben :

Code:
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const CreateFalse = False, CreateTrue = True
Const Tristatefalse = 0, Tristatetrue = -1, TristateUseDefault = -2

Dim ts,f,fso,fs,Filename

On Error Resume Next

Filename = "C:\CSV\Werte.csv"

Set fso=CreateObject("Scripting.FileSystemobject")
Set fs=CreateObject("wScript.Shell")

If Not fso.FileExists(Filename) Then
  fso.CreateTextFile Filename
  Set f = fso.GetFile(Filename)
  Set ts = f.OpenAsTextStream(8, -2)
  
ts.WriteLine "Datum;"&"Uhrzeit;"&"Actual_Value[°C]"
  
  If SmartTags ("SCript_Start"  ) = True Then	
  ts.WriteLine CStr(Date) & ";" & CStr(Time) & ";" & SmartTags("Messwerte.Actual_Value")      
  ts.Close
  End If

 Else
  Set f = fso.GetFile(Filename)
  Set ts = f.OpenAsTextStream(8, -2)
  If SmartTags ("SCript_Start"  ) = True Then	
  ts.WriteLine CStr(Date) & ";" & CStr(Time) & ";" & SmartTags("Messwerte.Actual_Value")    
  ts.Close
  End If

End If

If Err.Number <> 0 Then
	ShowSystemAlarm "Error in Skript" & Err.Number & " " & Err.Description
    Err.Clear 
    Exit Sub

Code Daten_kopieren :
Code:
Dim fs,fso
On Error Resume Next

Set fso = CreateObject("Scripting.FileSystemobject")
Set fs=CreateObject("wScript.Shell")

If Err.Number<> 0 Then
	ShowSystemAlarm "error #" & CStr(Err.Number) & " " & Err.Description
	Err.Clear
	Exit Sub
End If


fso.CopyFile "C:\CSV\Werte.csv", "C:\CSW\Werte.csv"

If Err.Number<> 0 Then
	ShowSystemAlarm "error #" & CStr(Err.Number) & " " & Err.Description
	Err.Clear
	Exit Sub
End If

Set fso=Nothing

ShowSystemAlarm "Done"

ich bedanke mich für jede Hilfe.
 
Zuviel Werbung?
-> Hier kostenlos registrieren
Da das Panel unter Windows-CE läuft, unterscheidet sich das Scripting zwischen Panel und PC.
Ich denke mal, dass dein Code nicht auf dem Panel laufen wird.

Gruß
Dieter
 
Guten abend,

ja klar habe ich die Skripte im Forum gefunden und angepasst. ich habe den Link geschaut, ich finde, es ist nicht einfach zu verstehen.

Ehrlich ich weiss nicht welche befehle muss ich ändern, damit die Code im Panel laufen. ich werde mich sehr dankbar, wenn jemand mir dabei hilft.

Danke
 
Zurück
Oben