Proceduren Funktionieren nicht?

[Raphi]

Hallo, kann mir jemand sagen wieso die Proceduren

Code: Alles auswählen

CEV(),Serversendung()

nicht Funktionieren?

Code: Alles auswählen

If InitNetwork() = 0
 MessageRequester("Error", "Netzwerk konnte nicht Initialisiert werden!", 0)
  End
EndIf
;*********************************************************************
Global Port = 6832
Global ConnectionID
Global SEvent
*Buffer = AllocateMemory(1000)
;********************************************************************************
Procedure CEV()


 SEvent = NetworkClientEvent(ConnectionID) 
    If SEvent
    
        Select SEvent
        Case 5
          ReceiveNetworkData(ConnectionID, *Buffer, 1000)
          MessageRequester("Info", "String: "+PeekS(*Buffer))
      EndSelect
      
    EndIf 
EndProcedure
Procedure ServerSendung()
If SendNetworkString(ConnectionID, Text$)
CloseNetworkConnection(ConnectionID)
Else
MessageRequester("Error","Naricht konnt nicht gesendet werden")
EndIf

  EndProcedure
Procedure Fenster()
ConnectionID = OpenNetworkConnection("111.222.112.2", Port)
If ConnectionID
 
 OpenWindow(0, 0, 0, 400, 40, "Naricht", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    StringGadget(0, 8,  10, 306, 20, "Hallo")
    ButtonGadget(1, 330, 10, 50, 20, "OK",#PB_Button_Toggle )
   
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow Or GetGadgetState(1)
If CEV()
Else
MessageRequester("CEV","Error")
EndIf
Text$ = GetGadgetText(0) 
 If ServerSendung()
 
 Else
 MessageRequester("Error","Serversendung")
 EndIf
 EndIf

EndProcedure

;*********************************************************************************************************
  Repeat 

Fenster()

  Until Quit = 1 
  ;*********************************************************************************************************
  Result=MessageRequester("PureBasic - Server", "Client beenden?",1 )
  If Result=1
  If Not CloseNetworkConnection(ConnectionID)
  MessageRequester("Server", "Der Client konnte nicht beendet werden",0 )
  Else
  MessageRequester("Server", "Der Client wurde Beendet",0 )
  EndIf
  EndIf

[Kaeru Gaman]

keine Parameter, nur die Hälfte als Globals?
dz dz dz

hast du dir immer noch nicht Kales Buch runtergeladen und noch keine Tutorials gemacht?
dz dz dz

reicht so eine Zurechtweisung nur zwei Wochen? fängst du jetzt wieder an, hundert billige Fragen zu posten?
dz dz dz

[ZeHa]

und das alles noch ohne vernuenftige Code-Formatierung?
dz dz dz

[Raphi]

ohne vernuenftige Code-Formatierung?

?????????

[Raphi]

Kales Buch runtergeladen

wo find ich das?

[Andesdaf]

http://www.purebasic.fr/english/viewtopic.php?t=37059

[Raphi]

Jo Danke

[ZeHa]

ohne vernuenftige Code-Formatierung?

?????????

Vernünftig:

Code: Alles auswählen

If ConnectionID
    OpenWindow(0, 0, 0, 400, 40, "Naricht", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    StringGadget(0, 8,  10, 306, 20, "Hallo")
    ButtonGadget(1, 330, 10, 50, 20, "OK",#PB_Button_Toggle)
   
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow Or GetGadgetState(1)

    If CEV()
        ; ...
    Else
        MessageRequester("CEV","Error")
    EndIf

    Text$ = GetGadgetText(0)

    If ServerSendung()
        ; ...
    Else
        MessageRequester("Error","Serversendung")
    EndIf
EndIf

Nicht vernünftig:

Code: Alles auswählen

If ConnectionID

OpenWindow(0, 0, 0, 400, 40, "Naricht", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    StringGadget(0, 8,  10, 306, 20, "Hallo")
    ButtonGadget(1, 330, 10, 50, 20, "OK",#PB_Button_Toggle )
   
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow Or GetGadgetState(1)
If CEV()
Else
MessageRequester("CEV","Error")
EndIf
Text$ = GetGadgetText(0)
If ServerSendung()

Else
MessageRequester("Error","Serversendung")
EndIf
EndIf