SPH Forum
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
SPH Forum

#### ######### # ############## ## ###### ### ######## ######### ####### ## # ####

Le Deal du moment : -39%
Ordinateur portable ASUS Chromebook Vibe CX34 Flip
Voir le deal
399 €

HCC ;;;;;;;;;;;;;;;;;;;;;;

SPH Forum :: Votre 1ère catégorie :: Votre 1er forum

Aller en bas

HCC ;;;;;;;;;;;;;;;;;;;;;; Empty HCC ;;;;;;;;;;;;;;;;;;;;;;

Message par Admin Lun 26 Aoû - 0:00

Code:
;;;;;;;;;;;;;;;;;;

OpenWindow(0, 0, 0, 780, 575, "HyperCryptChat", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered)

; Image.i = CatchImage(#PB_Any, ?titre2_bmp_start)
; ImageGadget(0,  10, 10, 760, 53, ImageID(image.i))                      ; imagegadget standard

PanelGadget (1, 12, 80, 756, 480)

AddGadgetItem (1, -1, "Password")
TextGadget(2, 20, 200,90,20,"Password :")
StringGadget(3, 80,  196, 650, 20, "...")


AddGadgetItem (1, -1, "Serveur")
TextGadget(4, 20, 30,90,20,"Pseudo :")
StringGadget(5, 70,  26, 305, 20, "Alpha")
      pseudo$=GetGadgetText(5)
;      Debug pseudo$
TextGadget(6, 20, 60,70,20,"Port :")
StringGadget(7, 52, 56, 40, 20, "6842")


EditorGadget(100, 20, 130, 357, 100, #PB_Editor_ReadOnly|#PB_Editor_WordWrap)
AddGadgetItem(100, -1, "HyperCryptChat - Beta 1")
AddGadgetItem(100, -1, "SPH(c)2019")
AddGadgetItem(100, -1, " ")
SendMessage_(GadgetID(100), #EM_SETSEL, -1, 0)

ButtonGadget(8, 20,250,357,20, "Démarrer")



AddGadgetItem (1, -1, "Client")
TextGadget(14, 20, 30,90,20,"Pseudo :")
StringGadget(15, 70,  26, 305, 20, "Charlie")
      pseudo$=GetGadgetText(5)
;      Debug pseudo$
TextGadget(16, 20, 60,70,20,"Port :")
StringGadget(17, 52, 56, 40, 20, "6842")
TextGadget(18, 20, 90,100,20,"Adresse IP :")
IPAddressGadget(19, 86,86, 110, 20)
SetGadgetState(19, MakeIPAddress(127, 0, 0, 1))  

EditorGadget(101, 20, 130, 357, 100, #PB_Editor_ReadOnly|#PB_Editor_WordWrap)
AddGadgetItem(101, -1, "HyperCryptChat - Beta 1")
AddGadgetItem(101, -1, "SPH(c)2019")
AddGadgetItem(101, -1, " ")
SendMessage_(GadgetID(101), #EM_SETSEL, -1, 0)

ButtonGadget(20, 20,250,357,20, "Démarrer")


      ;OpenWindow(0, 0, 0, 780, 575, "HyperCryptChat", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered)
   AddGadgetItem (1, -1, "Chat")
   EditorGadget(30, 10, 10, 720, 405, #PB_Editor_ReadOnly)
   StringGadget(31, 10, 425, 630, 20, "")
   ButtonGadget(32, 650, 425, 80, 20, "Envoyer")


;***************************************************************
;***************************************************************
;***************************************************************

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      End
      
    Case #PB_Event_Gadget

        Select EventGadget()
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
          Case 8 ;demarrer serveur
            If InitNetwork() = 0
              net=0
              AddGadgetItem(100, -1, "Impossible d'initialiser le réseau !")
            Else
              AddGadgetItem(100, -1, "Réseau connecté...")
              Gosub demarrer_serveur
              If net<>0
                Goto chat_serveur
              EndIf
            EndIf
            SendMessage_(GadgetID(100), #EM_SETSEL, -1, 0)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
          Case 20 ;demarrer client
            If InitNetwork() = 0
              net=0
              AddGadgetItem(101, -1, "Impossible d'initialiser le réseau !")
             Else
              AddGadgetItem(101, -1, "Réseau connecté...")
              Gosub demarrer_client
              If net<>0
                Goto chat_client
              EndIf
            EndIf
            SendMessage_(GadgetID(101), #EM_SETSEL, -1, 0)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

        EndSelect    

  EndSelect
  
Until Evenement = #PB_Event_CloseWindow
End



;*******************************
  ;*******************************
  ;*******************************
  ;*******************************
  ;*******************************
  ;*******************************
  ;*******************************
  ;*******************************

chat_serveur:

  Repeat
   SEvent = NetworkServerEvent()
    If SEvent
     ClientID = EventClient()
      Select SEvent
      
        Case #PB_NetworkEvent_Connect ; verifie si un client se connecte
         AddGadgetItem(30, -1, "un client s'est connecté !!!", 0, 0)
  
        Case #PB_NetworkEvent_Data ; verifie si un client envoie un message
         length = ReceiveNetworkData(ClientID, *Buffer, 10000)
          AddGadgetItem(30, -1, PeekS(*Buffer, length, #PB_UTF8), 0, 0)
  
        Case #PB_NetworkEvent_Disconnect ; verifie si un client se déconnecte
         AddGadgetItem(30, -1, "un client s'est déconnecté !!!", 0, 0)

      EndSelect
    EndIf

   EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget
      Select EventGadget()
          
        Case 32 ; on appuie sur le button envoyer
          If ClientID<>0
          SendNetworkString(ClientID, pseudo$+" : "+GetGadgetText(31), #PB_UTF8) ; on envoie le message au client
          AddGadgetItem(30, -1, pseudo$+" : "+GetGadgetText(31), 0, 0)           ; on affiche le message dans l'editor
          EndIf
          Beep_(1500,500)
          SetGadgetText(31, "") ; on vide le string

      EndSelect
    EndIf
  Until EventID = #PB_Event_CloseWindow
  CloseNetworkServer(0)
  
  ;*******************************
  ;*******************************
  ;*******************************
  ;*******************************
  ;*******************************
  ;*******************************
  ;*******************************
  
  chat_client:
  
  Repeat
   SEvent = NetworkClientEvent(ConnectionID)
   If SEvent
     Debug SEvent
     Select SEvent

      Case #PB_NetworkEvent_Data ; verifie si le serveur envoie un message
       length = ReceiveNetworkData(ConnectionID , *Buffer2, 10000)
        AddGadgetItem(30, -1, PeekS(*Buffer2, length, #PB_UTF8), 0, 0)

      Case #PB_NetworkEvent_Disconnect ; verifie si le serveur se deconnecte
       AddGadgetItem(30, -1, "le serveur s'est déconnecté !!!", 0, 0)
        CloseNetworkConnection(ConnectionID)

     EndSelect
    EndIf
    
   EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget
      Select EventGadget()
          
        Case 32 ; on appuie sur le button envoyer
          If ConnectionID<>0
            SendNetworkString(ConnectionID, pseudo$+" : "+GetGadgetText(31), #PB_UTF8) ; on envoie le message au serveur
            AddGadgetItem(30, -1, pseudo$+" : "+GetGadgetText(31), 0, 0) ; on affiche le message dans l'editor
          EndIf
          Beep_(1500,500)
          SetGadgetText(31, "") ; on vide le string

      EndSelect
    EndIf
  Until EventID = #PB_Event_CloseWindow
CloseNetworkConnection(ConnectionID)

  ;*******************************
  ;*******************************
  ;*******************************
  ;*******************************
  ;*******************************
  ;*******************************
  ;*******************************


demarrer_serveur:
Debug GetGadgetText(7)
*Buffer = AllocateMemory(10000)
If CreateNetworkServer(0, Val(GetGadgetText(7))) = 0
AddGadgetItem(100, -1, "Impossible de créer le serveur !")
SendMessage_(GadgetID(100), #EM_SETSEL, -1, 0)
Return
Else
  net=1
  Debug Val(GetGadgetText(7))
  AddGadgetItem(100,-1,"Serveur créé (Port : "+Val(GetGadgetText(7))+" TCP)")
  SendMessage_(GadgetID(100), #EM_SETSEL, -1, 0)
Return
EndIf




demarrer_client:
Debug Val(GetGadgetText(17))
Debug GetGadgetText(19)
*Buffer2 = AllocateMemory(10000)
ConnectionID = OpenNetworkConnection(GetGadgetText(19), Val(GetGadgetText(17)))
If ConnectionID = 0
AddGadgetItem(101, -1, "Impossible de se connecter au serveur !")
SendMessage_(GadgetID(101), #EM_SETSEL, -1, 0)
Return
Else
  net=2
  AddGadgetItem(101, -1, "Connecté au serveur !")
  SendMessage_(GadgetID(101), #EM_SETSEL, -1, 0)
Return  
EndIf



Admin
Admin

Messages : 66
Date d'inscription : 04/09/2015

https://sphforum.kanak.fr

Revenir en haut Aller en bas

HCC ;;;;;;;;;;;;;;;;;;;;;; Empty Re: HCC ;;;;;;;;;;;;;;;;;;;;;;

Message par Admin Mar 27 Aoû - 16:12

Deuxieme tentative :

Code:
Enumeration
  #Window_0
EndEnumeration

;- gadgets Constants
Enumeration
  #Server_01
  #Editor_01
  #String_01
  #Button_01
  #Server_02
  #Editor_02
  #String_02
  #Button_02
  
  #s0
  #s1
  #s2
  #s3
  #s4
  #s5
  #s6
  #s7
  #s8
  
  #s14
  #s15
  #s16
  #s17
  #s18
  #s19
  #s20  
  
  #s30  
  #s31  
  #s32  

  #s40  
  #s41  
  #s42  

  #s100  
  #s101  
EndEnumeration


;;;;;;;;;;;;;;;;;;;;;

OpenWindow(0, 0, 0, 780, 575, "HyperCryptChat", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered)

; Image.i = CatchImage(#PB_Any, ?titre2_bmp_start)
; ImageGadget(#s0, 10, 10, 760, 53, ImageID(image.i))                      ; imagegadget standard

PanelGadget (#s1, 12, 80, 756, 480)

AddGadgetItem (#s1, -1, "Password")
TextGadget(#s2, 20, 200,90,20,"Password :")
StringGadget(#s3, 80,  196, 650, 20, "...")


AddGadgetItem (#s1, -1, "Serveur")
TextGadget(#s4, 20, 30,90,20,"Pseudo :")
StringGadget(#s5, 70,  26, 210, 20, "Alpha")
pseudo$=GetGadgetText(#s5)
TextGadget(#s6, 20, 60,70,20,"Port :")
StringGadget(#s7, 52, 56, 40, 20, "6842")


EditorGadget(#s100, 20, 130, 260, 100, #PB_Editor_ReadOnly|#PB_Editor_WordWrap)
AddGadgetItem(#s100, -1, "HyperCryptChat - Beta 2")
AddGadgetItem(#s100, -1, "SPH(c)2019")
AddGadgetItem(#s100, -1, " ")
SendMessage_(GadgetID(#s100), #EM_SETSEL, -1, 0)

ButtonGadget(#s8, 20,250,260,20, "Démarrer")

;    AddGadgetItem (1, -1, "Chat")
   EditorGadget(#s30, 300, 10, 420, 405, #PB_Editor_ReadOnly)
   StringGadget(#s31, 300, 425, 340, 20, "")
   ButtonGadget(#s32, 650, 425, 80, 20, "Envoyer")


  
 ; ##################################################################################################  
  
  
  
AddGadgetItem (#s1, -1, "Client")
TextGadget(#s14, 20, 30,90,20,"Pseudo :")
StringGadget(#s15, 70,  26, 210, 20, "Charlie")
pseudo$=GetGadgetText(#s15)
TextGadget(#s16, 20, 60,70,20,"Port :")
StringGadget(#s17, 52, 56, 40, 20, "6842")
TextGadget(#s18, 20, 90,100,20,"Adresse IP :")
IPAddressGadget(#s19, 86,86, 110, 20)
SetGadgetState(#s19, MakeIPAddress(127, 0, 0, 1))  

EditorGadget(#s101, 20, 130, 260, 100, #PB_Editor_ReadOnly|#PB_Editor_WordWrap)
AddGadgetItem(#s101, -1, "HyperCryptChat - Beta 2")
AddGadgetItem(#s101, -1, "SPH(c)2019")
AddGadgetItem(#s101, -1, " ")
SendMessage_(GadgetID(#s101), #EM_SETSEL, -1, 0)

ButtonGadget(#s20, 20,250,260,20, "Démarrer")

;    AddGadgetItem (1, -1, "Chat")
   EditorGadget(#s40, 300, 10, 420, 405, #PB_Editor_ReadOnly)
   StringGadget(#s41, 300, 425, 340, 20, "")
   ButtonGadget(#s42, 650, 425, 80, 20, "Envoyer")



;***************************************************************
;***************************************************************
;***************************************************************

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      End
      
    Case #PB_Event_Gadget

        Select EventGadget()
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
          Case #s8 ;demarrer serveur
            If InitNetwork() = 0
              net=0
              AddGadgetItem(#s100, -1, "Impossible d'initialiser le réseau !")
            Else
              AddGadgetItem(#s100, -1, "Réseau initialisé...")
              Gosub demarrer_serveur
              If net<>0
                Debug net
                Beep_(1500,500)
                ;Goto chat_serveur
              EndIf
            EndIf
            SendMessage_(GadgetID(#s100), #EM_SETSEL, -1, 0)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
          Case #s20 ;demarrer client
            If InitNetwork() = 0
              net=0
              AddGadgetItem(#s101, -1, "Impossible d'initialiser le réseau !")
             Else
              AddGadgetItem(#s101, -1, "Réseau initialisé...")
              Gosub demarrer_client
              If net<>0
                Debug net
                Beep_(1500,500)
                ;Goto chat_client
              EndIf
            EndIf
            SendMessage_(GadgetID(#s101), #EM_SETSEL, -1, 0)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

        EndSelect    

  EndSelect
  
Until Evenement = #PB_Event_CloseWindow
End











demarrer_serveur:
Debug GetGadgetText(#s7)
*Buffer = AllocateMemory(1000)
If CreateNetworkServer(0, Val(GetGadgetText(#s7))) = 0
AddGadgetItem(#s100, -1, "Impossible de créer le serveur !")
SendMessage_(GadgetID(#s100), #EM_SETSEL, -1, 0)
Return
Else
  net=1
  Debug Val(GetGadgetText(#s7))
  AddGadgetItem(#s100,-1,"Serveur créé (Port : "+Val(GetGadgetText(#s7))+" TCP)")
  SendMessage_(GadgetID(#s100), #EM_SETSEL, -1, 0)
Return
EndIf




demarrer_client:
Debug Val(GetGadgetText(#s17))
Debug GetGadgetText(#s19)
*Buffer2 = AllocateMemory(1000)
ConnectionID = OpenNetworkConnection(GetGadgetText(#s19), Val(GetGadgetText(#s17)))
If ConnectionID = 0
AddGadgetItem(#s101, -1, "Impossible de se connecter au serveur !")
SendMessage_(GadgetID(#s101), #EM_SETSEL, -1, 0)
Return
Else
  net=2
  AddGadgetItem(#s101, -1, "Connecté au serveur !")
  SendMessage_(GadgetID(#s101), #EM_SETSEL, -1, 0)
Return  
EndIf

Admin
Admin

Messages : 66
Date d'inscription : 04/09/2015

https://sphforum.kanak.fr

Revenir en haut Aller en bas

Revenir en haut

SPH Forum :: Votre 1ère catégorie :: Votre 1er forum

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum