PureBasic

Code : Tout sélectionner

;***** Exemple de Mot de passe*****  
;***** Crée par Jbernard13 *****

; Constantes des Fenêtres 
Enumeration
  #fenetre_Main
 EndEnumeration

;Constantes du menu et des gadgets 
Enumeration
  #Menu_barre
  #Menu_fichier
  #Text_titre 
  #Text_login
  #string_login
  #Text_pass
  #string_pass
  #Bouton_valide 
  #cadre_0
  EndEnumeration

;- Fonts
Global FontID1
FontID1 = LoadFont(1, "Arial", 24)
Global FontID2
FontID2 = LoadFont(2, "Arial", 12, #PB_Font_Bold)
Global FontID3
FontID3 = LoadFont(3, "Arial", 24, #PB_Font_Bold)
 

; procédures pour la fenetre 

Procedure Fenetre_main()
  If OpenWindow(#fenetre_Main,0,0,640,480,"Veuillez entrez le mot de passe " ,#PB_Window_SystemMenu|#PB_Window_TitleBar|#PB_Window_ScreenCentered)
   ;***Creation de la barre de menu qui sera caché au lancement du programme  
    If CreateMenu(#Menu_barre,WindowID(#fenetre_Main))
      MenuTitle("Fichier")
      MenuItem(#Menu_fichier,"Quitter")
    EndIf
    ;*** creation des gadgets 
    Frame3DGadget(#cadre_0,90,80,430,200,"")
    TextGadget(#Text_titre, 250, 100, 180, 40, "Entrez votre login")
    SetGadgetFont(#Text_titre, FontID2)
    TextGadget(#Text_login, 100, 150, 60, 30, "Login :")
    SetGadgetFont(#Text_login, FontID2)
    StringGadget(#string_login, 215, 150, 220, 20, "") 
    TextGadget(#Text_pass, 100, 180, 120, 30, "Mot de passe :")
    SetGadgetFont(#Text_pass, FontID2)
    StringGadget(#string_pass,215, 180, 220, 20, "",#PB_String_Numeric|#PB_String_Password) 
    ButtonGadget(#Bouton_valide,270,220,100,20,"Valider")
    HideMenu(#Menu_barre,1); on cache le menu au lancement du programme , 1 veux dire que le menu est caché .
  EndIf
  
  EndProcedure
; procedure pour le mot de passe  
  Procedure entrer()
    ; vérifie le login et le pass
    If  GetGadgetText(#string_login)="purebasic" And  GetGadgetText(#string_pass)="2010" ; 
      ; si le login et le mot de passe sont bon on cache les gadgets du login et du mot de passe  
      HideGadget(#cadre_0, 1);
      HideGadget(#Text_titre,1)
      HideGadget(#Text_login,1)
      HideGadget(#Text_pass,1)
      HideGadget(#string_login, 1)
      HideGadget(#string_pass, 1)
       HideGadget(#Bouton_valide, 1)
      ; on fait apparaitre la barre de menu et on change le titre de la fenetre 
      SetWindowTitle(#fenetre_Main,"Welcome")
      HideMenu(#Menu_barre,0)
      Else 
      MessageRequester("Alerte", " Mot de passe refuser",#PB_MessageRequester_Ok)
    EndIf
  EndProcedure

;Boucle du programme 

; on appelle la procedure  
Fenetre_main()




Repeat 
  Select WaitWindowEvent()
    Case #PB_Event_Menu
      Select EventMenu()
         Case #Menu_fichier
          MessageRequester("Information"," Bye bye ",#MB_OK)
           CloseWindow(#fenetre_Main)
          EndSelect
      
      Case #PB_Event_Gadget
      Select EventGadget()
        Case #Bouton_valide : entrer()
      EndSelect
 
    Case #PB_Event_CloseWindow
      Fermer =#True
  EndSelect
Until Fermer 
End