Hallo!!
Kurze Einleitung
Habe über Winsock (UDP-Protokoll) 6 ankommende Signale mit 1 und 0, diese sind mit
If Mid(Zustand,1,1)="1" definiert,
bei einer konstant anstehender 1 geht für jedes seperate Signal ein Label in den Vordergrund und wechselt die Farbe,bei 0 geht es wieder in den Hintergrund.
Jetzt habe ich das Problem das die ankommenden Signale nicht immer konstant sind, sondern von 1 auf 0 dauernd wechseln.Bei diesem dauerhaften wechseln von 1 auf 0 müssen die Labels wie bei einer konstanten 1 in den Vordergrund gehen bis eine dauerhaft anstehende 0 kommt.
Wie kann ich bei wechseln von 0 auf 1 dies programmieren, dass ich wie bei einer konstanten 1 die Labels in den Vordergrund bekomme.
Hier ein Programmauszug:
Private Sub UDPClient_DataArrival
UDPClient.GetData Zustand
If Farbe = vbWhite Then
Farbe = vbRed
Else
Farbe = vbWhite
End If
If Mid(Zustand, 1, 1) = "1"Then
lblVenoeser.BackStyle=1 lblVenoeser.BackColor = Farbe
Else
lblVenoeser.BackStyle=0
End If
If Mid(Zustand, 2, 1) = "1"Then
lblArterieller.BackStyle = 1
lblArterieller.BackColor = Farbe
Else
lblArterieller.BackStyle = 0
End If
Hoffe es kann jemand damit was anfangen
Gruß
highlander73 Gast |