16.05.2013, 08:18
Hallo mepkub,
der Script sieht wie folgt aus:
Dim bildnr as integer = VDF.ReadInt (20,100)
Dim bedingung as integer = VDF.ReadInt (30,62)
If bildnr = 302 and bedingung = 2 Then
VOK.WriteFattr 15,99,0
VOK.WriteFattr 18,99,0
VOK.WriteFattr 21,99,0
VOK.WriteFattr 24,99,0
Else
VOK.WriteFattr 15,99,1
VOK.WriteFattr 18,99,1
VOK.WriteFattr 21,99,1
VOK.WriteFattr 24,99,1
End If
Das sit mit Ihrem Projekt so getestet, und funktioniert.
der Script sieht wie folgt aus:
Dim bildnr as integer = VDF.ReadInt (20,100)
Dim bedingung as integer = VDF.ReadInt (30,62)
If bildnr = 302 and bedingung = 2 Then
VOK.WriteFattr 15,99,0
VOK.WriteFattr 18,99,0
VOK.WriteFattr 21,99,0
VOK.WriteFattr 24,99,0
Else
VOK.WriteFattr 15,99,1
VOK.WriteFattr 18,99,1
VOK.WriteFattr 21,99,1
VOK.WriteFattr 24,99,1
End If
Das sit mit Ihrem Projekt so getestet, und funktioniert.
Ralph Ringel
Vertrieb / Support
Tel: +49 (0)2631 941288-35
Vertrieb / Support
Tel: +49 (0)2631 941288-35