-> Hier kostenlos registrieren
Hallo, erste Gehversuche im VB. Kann mir jemand sagen wo hier der Fehler liegt:
Dim Force(8)
Dim objBorder
Dim I
Dim Count
Dim ForceOn
Set objBorder = ScreenItems("AI000.")
Set ForceOn = HMIRuntime.Tags("BINi_ForceOnAI000")
Set Force(0) = HMIRuntime.Tags("AI000.AI_Force00")
Set Force(1) = HMIRuntime.Tags("AI000.AI_Force01")
Set Force(2) = HMIRuntime.Tags("AI000.AI_Force02")
Set Force(3) = HMIRuntime.Tags("AI000.AI_Force03")
Set Force(4) = HMIRuntime.Tags("AI000.AI_Force04")
Set Force(5) = HMIRuntime.Tags("AI000.AI_Force05")
Set Force(6) = HMIRuntime.Tags("AI000.AI_Force06")
Set Force(7) = HMIRuntime.Tags("AI000.AI_Force07")
ForceOn.Read
For I = 0 To 10
Force(I).READ
Next
Count = 0
ForceOn = 0
objBorder.BorderColorTop = vbWhite
Do While Count < 8
If Force(Count) > 0 Then
objBorder.BorderColorTop = vbRed
ForceOn = 1
Exit Do
Count = Count + 1
End If
Loop
ForceOn.Write
Möchte einen Farbwechsel auf dem Button aber funzt nicht.
Danke
Dim Force(8)
Dim objBorder
Dim I
Dim Count
Dim ForceOn
Set objBorder = ScreenItems("AI000.")
Set ForceOn = HMIRuntime.Tags("BINi_ForceOnAI000")
Set Force(0) = HMIRuntime.Tags("AI000.AI_Force00")
Set Force(1) = HMIRuntime.Tags("AI000.AI_Force01")
Set Force(2) = HMIRuntime.Tags("AI000.AI_Force02")
Set Force(3) = HMIRuntime.Tags("AI000.AI_Force03")
Set Force(4) = HMIRuntime.Tags("AI000.AI_Force04")
Set Force(5) = HMIRuntime.Tags("AI000.AI_Force05")
Set Force(6) = HMIRuntime.Tags("AI000.AI_Force06")
Set Force(7) = HMIRuntime.Tags("AI000.AI_Force07")
ForceOn.Read
For I = 0 To 10
Force(I).READ
Next
Count = 0
ForceOn = 0
objBorder.BorderColorTop = vbWhite
Do While Count < 8
If Force(Count) > 0 Then
objBorder.BorderColorTop = vbRed
ForceOn = 1
Exit Do
Count = Count + 1
End If
Loop
ForceOn.Write
Möchte einen Farbwechsel auf dem Button aber funzt nicht.
Danke