bonjour
juste une petite question svp
j'ai appris a ecrire ceci en basic :
DO
ink rgb(20,250,0),0
INPUT " mot de passe : "; a$
If a$="toto"
PRINT " Mot de passe accepté "
PRINT " Patientez un moment svp ... "
wait 5
end
ELSE
ink rgb(202,17,2),0
PRINT " Mot de passe invalide "
endif
LOOP
mais j'arrive pas a le convertir en purebasic
je voudrais le refaire dans une fenetre
qui peux m'aider svp
merci
juste une petite question svp ...
Voilas :
Code : Tout sélectionner
OpenWindow(0, 0, 0, 640, 480, #PB_Window_SystemMenu | #PB_Window_ScreenCentered, "MDP")
CreateGadgetList(WindowID())
EditorGadget(0, 0, 0, 640, 480)
AddGadgetItem(0, -1, "Mot de passe : " + Chr(10))
ActivateGadget(0)
AddKeyboardShortcut(0, #PB_Shortcut_Return, 1)
Repeat
Select WindowEvent()
Case #WM_Close
Quit = #True
Case #PB_Event_Menu
Select EventMenuID()
Case 1
If GetGadgetItemText(0, CountGadgetItems(0) - 1, #NULL) = "toto"
AddGadgetItem(0, -1, "Mot de passe accepté!")
AddGadgetItem(0, -1, "Patientez un moment svp ... ")
WindowEvent()
Delay(5000)
End
Else
AddGadgetItem(0, -1, "Mot de passe invalide!" + Chr(10))
EndIf
EndSelect
EndSelect
Until Quit = #True
