je vous explique je cherche a crée un petit projet( histoire de codé) ce que j'essaye de faire c'est d'avoir un fichier.txt( crée avec le bloc note) avec une liste de mots quand on lance le petit programme on charge le fichier.txt et on clique sur start pour afficher un mot au hasard , petit problème je me rappelle plus tres bien comment on fait en PB .
Bonne journée
Code : Tout sélectionner
;--- Word random
EnableExplicit
;- Constantes
Enumeration WINDOWS
#MainForm
#Form_Ajouter
EndEnumeration
Enumeration Gadgets
#Button_start
#Button_efface
#String_Affiche
EndEnumeration
;- Quitter
Procedure quit()
End
EndProcedure
;-- Main
Procedure Main()
If OpenWindow( #MainForm ,0,0,300,180,"Word random ",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
StringGadget(#String_Affiche,40,45,220,20,"")
ButtonGadget( #Button_start,10,130,80,30,"START")
ButtonGadget( #Button_efface,210,130,80,30,"EFFACER")
BindEvent(#PB_Event_CloseWindow,@quit(),#MainForm)
Repeat
WaitWindowEvent()
ForEver
EndIf
EndProcedure
;-- Start
Main()