PureBasic

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

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

merci
et pour ecrire le texte en couleur

Utilises la lib de Progi1984

et où la telecharger?

PureBasic

juste une petite question svp ...

juste une petite question svp ...