Das Select Event...kommt mir so komisch vor...?

[funkheld]

Hallo, guten tag.

Irgendwie kommt mir das mit dem Select Event... komisch vor , aber es funktionert.
- Select EventID
- Select EventGadget()

Braucht man eigentlich alle ?

Danke.
Gruss

Code: Alles auswählen

Repeat  
  EventID =  WaitWindowEvent(5)
  
  If EventID = #PB_Event_Timer And EventTimer() = 123 And status=1
    SendNetworkString(conID,Chr(10)) 
  EndIf  
  
  Select EventID
    Case #PB_Event_CloseWindow
      Quit = 1
      
    Case #PB_Event_Gadget 
      delta = GetGadgetState(#track_v) /10
      If status=1
         SendNetworkString(conID, "LOCK THROTTLE TO "+delta+"."+Chr(10))  
      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_cls
          text_e=""
          SetGadgetText(#edit, text_e)   
          
        Case #b_start
          If status=1
            SendNetworkString(conID, "1"+Chr(10))  
            Delay(500)
            SendNetworkString(conID, "switch to 0."+Chr(10))  
            Delay(500)
            SendNetworkString(conID, "run myfirstkos24."+Chr(10)) 
            test_1=1
          EndIf
          
        Case #b_edit
          If status=1
            anzahl = CountGadgetItems(#edit)
            For wert =0 To anzahl
              text_e=GetGadgetItemText(#edit,wert) 
              SendNetworkString(conID,text_e+Chr(10))
              Delay(300)
              test_1=1
            Next
          EndIf 
          
        Case #b_open
          OpenFile(#file, "f:\kos-daten\kosdata.txt")
          op=1
          
        Case #b_close
          CloseFile(#file)
          op=0  
      EndSelect
  EndSelect
Until Quit = 1 Or EventID = #PB_Event_CloseWindow

Danke.
Gruss

[Andesdaf]

EventID gibt Auskunft über die Art des aufgetretenen Ereignisses. Ist dieses
ein Gadget-Event (#PB_Event_Gadget), kann unterschieden werden, welches
Gadget ausgelöst hat (Select EventGadget()). Ist also vollkommen in Ordnung.

Oder was wolltest du wissen?

[mk-soft]

Nur die ganzen Delays in der Event-Schleife sind nicht unbedingt zu Vorteil (Window: Fenster reagiert nicht...)

[funkheld]

Ja danke für die Info.
Diese Select hintereinander haben mich irritiert.

Gruss