-> Hier kostenlos registrieren
Hallo werte Gemeinde, eins vorweg im VB bin ich absoluter Neuling und hänge mit meiner aufgabe grade fest.
Folgendes. ich will einen Rohdatenblock als Integer lesen und es auf Ein/ausgabe felder ausgeben.
Als ich soweit war habe ich herausgefunden das WinCC den Rohdatenblock als Byte liest. irgendwo hier im Forum habe ich einen Code gefunden das er das Format auf Int wandelt.
ich habe versuch den Code einzubinden doch irgendwie bekomme ich den nicht ans laufen. ich habe das gefühl das ich was vo nder Setzung der Ausgabe was falsch gemacht habe, denn wenn ich den Code einfüge kann ich noch nicht mal mehr eine Constante am Ausgabefeld defieren.
Zusätzlich wollte ich euch fragen, wo es gute Literatur darüber gibt, ich habe mir zwar nen Buch "Windows Scripting VBS" gekauft dennoch habe ich festgestellt das das Müll und für das WinCC nicht zu gebrauchen ist.
Ich hoffe ihr könnt mir weiterhelfen
Hier mein Code:
Option Explicit
Function action
'Deklaration Rohdaten Variabel (Wort 0-199)
Dim dw0_199
'lokale Variable als Variant
Dim db0
Dim dw0(800)
Dim index
'Deklaration Ein/Ausgabe Felder
Dim Wert01_1
Set Wert01_1 = HMIRuntime.Tags("Wert01_1")
Dim Wert01_2
Set Wert01_2 = HMIRuntime.Tags("Wert01_2")
Dim Wert01_3
Set Wert01_3 = HMIRuntime.Tags("Wert01_3")
Dim Wert01_4
Set Wert01_4 = HMIRuntime.Tags("Wert01_4")
Set dw0_199 = HMIRuntime.Tags("Rohdaten")
'Rohdaten Lesen
dw0_199.Read
db0 = dw0_199.Value
'Wandel nach Int
For index = 0 To 4
dw0_199.Value = dw0_199.Value + Chr(dw0(index)\&h100) + Chr(dw0(index) And &hff)
Next
Wert01_1.Write dw0(0)
Wert01_2.Write dw0(1)
Wert01_3.Write dw0(3)
Wert01_4.Write dw0(4)
Gruß
Raydien
Folgendes. ich will einen Rohdatenblock als Integer lesen und es auf Ein/ausgabe felder ausgeben.
Als ich soweit war habe ich herausgefunden das WinCC den Rohdatenblock als Byte liest. irgendwo hier im Forum habe ich einen Code gefunden das er das Format auf Int wandelt.
ich habe versuch den Code einzubinden doch irgendwie bekomme ich den nicht ans laufen. ich habe das gefühl das ich was vo nder Setzung der Ausgabe was falsch gemacht habe, denn wenn ich den Code einfüge kann ich noch nicht mal mehr eine Constante am Ausgabefeld defieren.
Zusätzlich wollte ich euch fragen, wo es gute Literatur darüber gibt, ich habe mir zwar nen Buch "Windows Scripting VBS" gekauft dennoch habe ich festgestellt das das Müll und für das WinCC nicht zu gebrauchen ist.
Ich hoffe ihr könnt mir weiterhelfen
Hier mein Code:
Option Explicit
Function action
'Deklaration Rohdaten Variabel (Wort 0-199)
Dim dw0_199
'lokale Variable als Variant
Dim db0
Dim dw0(800)
Dim index
'Deklaration Ein/Ausgabe Felder
Dim Wert01_1
Set Wert01_1 = HMIRuntime.Tags("Wert01_1")
Dim Wert01_2
Set Wert01_2 = HMIRuntime.Tags("Wert01_2")
Dim Wert01_3
Set Wert01_3 = HMIRuntime.Tags("Wert01_3")
Dim Wert01_4
Set Wert01_4 = HMIRuntime.Tags("Wert01_4")
Set dw0_199 = HMIRuntime.Tags("Rohdaten")
'Rohdaten Lesen
dw0_199.Read
db0 = dw0_199.Value
'Wandel nach Int
For index = 0 To 4
dw0_199.Value = dw0_199.Value + Chr(dw0(index)\&h100) + Chr(dw0(index) And &hff)
Next
Wert01_1.Write dw0(0)
Wert01_2.Write dw0(1)
Wert01_3.Write dw0(3)
Wert01_4.Write dw0(4)
Gruß
Raydien
Zuletzt bearbeitet: