voici un exemple de mot de passe pour faire apparaitre la barre du menu
login = purebasic
pass = 2010
si le login et le mot de passe sont bon la barre de de menu apparait
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