Trackbar ergebnisse einzeln ausgeben
Verfasst: 05.03.2018 21:10
Hallo, guten Tag.
Ich möchte bitte die jeweiligen Trackbarergebnisse nur ausgeben wenn die jeweilige Trackbar verstellt wurde.
Wie kann man die beiden bitte durch Case irgendwie trennen ?
Es werden immer beide Ergebnisse gesendet wenn eine Trackbar bedient wurde.
Danke.
Gruss
Ich möchte bitte die jeweiligen Trackbarergebnisse nur ausgeben wenn die jeweilige Trackbar verstellt wurde.
Wie kann man die beiden bitte durch Case irgendwie trennen ?
Es werden immer beide Ergebnisse gesendet wenn eine Trackbar bedient wurde.
Code: Alles auswählen
Select EventID
Case #PB_Event_CloseWindow
Quit = 1
Case #PB_Event_Gadget
tro = GetGadgetState(#track_tro)/10
If status=1
SendNetworkString(conID, "trottle,"+StrF(tro,1))
EndIf
hea = GetGadgetState(#track_hea)
If status=1
SendNetworkString(conID, "heading,"+StrF(hea,1))
EndIf
Select EventGadget()
Case #b_ende
Quit = 1
Case #b_connect
If Not status
conID = OpenNetworkConnection("127.0.0.1", Port,#PB_Network_TCP,2000)
If conID
status = 1
SetGadgetText(#str_netzwerk,"Connected" + #CR$)
EndIf
EndIf
Case #b_disconnect
If status <> 0
CloseNetworkConnection(conID)
status = 0
SetGadgetText(#str_netzwerk,"Connection closed" + #CR$)
EndIf
Case #b_stage
If status=1
SendNetworkString(conID, "stage,0")
EndIf
Case #b_cls
text_e=""
SetGadgetText(#edit, text_e)
Case #b_edit
If status=1
anzahl = CountGadgetItems(#edit)
For wert =0 To anzahl
text_e=GetGadgetItemText(#edit,wert)
SendNetworkString(conID,text_e)
Delay(100)
Next
EndIf
EndSelect
EndSelect
Gruss