PureBasic

NewList Personne.s()

Procedure inscription()
If OpenWindow (1,0,0,280,105, #PB_Window_SystemMenu|#PB_Window_WindowCentered , "inscription" , WindowID (0))
CreateGadgetList ( WindowID (1))
TextGadget (11,10,12,60,20, "Identifiant :" )
TextGadget (12,10,42,70,20, "Mot de passe :" )
StringGadget (6,90,10,180,20, "" )
StringGadget (7,90,40,180,20, "" , #PB_String_Password )
ButtonGadget (8,10,70,250/2,25, "valider" )
ButtonGadget (13,20+250/2,70,250/2,25, "Annuler" )
Repeat
Select WaitWindowEvent ()
Case #PB_EventGadget
Select EventGadgetID ()
Case 13
quit=1
Case 8
a=0
ForEach Personne()
If GetGadgetText (6)= StringField (Personne(),1, "|" )
a=1
EndIf
Next
If a=0
AddGadgetItem (1,-1, GetGadgetText (6))
AddElement (personne()) : personne()= GetGadgetText (6)+ "|" + GetGadgetText (7)
DisableGadget (1,0)
SetGadgetState (1, CountGadgetItems (1)-1)
Quit=1
Else
MessageRequester ( "Information" , "Un autre utilisateur porte déjà ce nom, merci de changer d'identifiant ; )" , #MB_ICONEXCLAMATION )
SetGadgetText (6, "" )
SetGadgetText (7, "" )
EndIf
EndSelect
Case #PB_Event_CloseWindow
quit=1
EndSelect
Until quit=1
CloseWindow (1)
EndIf
EndProcedure

Procedure identification()
ForEach personne()
If StringField (personne(),1, "|" )= GetGadgetText (1) And StringField (personne(),2, "|" )= GetGadgetText (2)
a=1
EndIf
Next
If a=1
MessageRequester ( "Bienvenue!" , "Code bon" , #MB_ICONINFORMATION )
Else
MessageRequester ( "Erreur" , "Code faux" , #MB_ICONERROR )
EndIf
EndProcedure


la=260
ha=105
OpenWindow (0,0,0,la,ha, #PB_Window_SystemMenu|#PB_Window_ScreenCentered , "page perso" )
CreateGadgetList ( WindowID (0))
ComboBoxGadget (1,90,10,la-100,2000)
DisableGadget (1,1)
StringGadget (2,90,40,la-100,20, "" , #PB_String_Password )
ButtonGadget (3,10,70,(la-30)/2,25, "valider" )
ButtonGadget (4,(la-30)/2+20,70,(la-30)/2,25, "inscription" )
TextGadget (9,10,12,60,20, "Identifiant :" )
TextGadget (10,10,42,70,20, "Mot de passe :" )
Repeat
Select WaitWindowEvent ()
Case #PB_EventGadget
Select EventGadgetID ()
Case 3
identification()
Case 4
inscription()
EndSelect
Case #PB_Event_CloseWindow
quit=1
EndSelect
Until quit=1
End