RONIN
Level-3
- Beiträge
- 2.574
- Reaktionspunkte
- 805
-> Hier kostenlos registrieren
Hier nochmal zur Bekräftigung des Problems.
Sobald im EA-Feld vor der Ausführung des objTag.Read ein &H70020000 steht gehts...
Code:
On Error Resume Next
Dim objTag
Dim TestVar1, TestVar2, TestVar3, TestVar4
TestVar1 = [COLOR=#ee82ee]&H80020000[/COLOR]
TestVar2 = TestVar1 And [COLOR=#ee82ee]&H80020000[/COLOR]
HMIRuntime.Trace "Err1 " & Err.Description & vbCrLf [COLOR=#008000]'Fehlerfrei[/COLOR]
Set objTag = HMIRuntime.Tags("Digi_S7_WinCC1_DWORD")
TestVar3 = objTag.Read [COLOR=#008000]'Wert &H8002000 per EA-Feld eingetragen[/COLOR]
TestVar4 = TestVar3 And [COLOR=#ee82ee]&H80020000[/COLOR]
HMIRuntime.Trace "Err2 " & Err.Description & vbCrLf [COLOR=#008000]'Liefert überlauf
[/COLOR]
Zuletzt bearbeitet: