25.10.2018, 21:26
Beim Visam 32 geht es mit dem Script
If VDF.ReadBitB(7,10,1,1)=0 Then 'Wenn keine Eingane noch erfolgt ist dann:
s=Hex(VDF.ReadInt(2,0)) 'Lesen aus SPS Hex
VDF.WriteInt 3,0,Cint(s) 'Umwandeln und schreiben in Visam
End If
Wert=VDF.ReadInt(3,0) 'Eingabefeld schreiben von Visam zur SPS
VDF.WriteInt 2,0,("&H"+Cstr(Wert)) 'von Int nach Hex
If VDF.ReadBitB(7,10,1,1)=0 Then 'Wenn keine Eingane noch erfolgt ist dann:
s=Hex(VDF.ReadInt(2,0)) 'Lesen aus SPS Hex
VDF.WriteInt 3,0,Cint(s) 'Umwandeln und schreiben in Visam
End If
Wert=VDF.ReadInt(3,0) 'Eingabefeld schreiben von Visam zur SPS
VDF.WriteInt 2,0,("&H"+Cstr(Wert)) 'von Int nach Hex