Salut.
Correction du code de Droopy pour que celui-ci fonctionne comme il le souhaitait avec le debugger activé ou pas.
Code : Tout sélectionner
Enumeration
#HAUTEUR=80
#LARGEUR=200
#PROGRESSION
#TEXTE
#STATUS
EndEnumeration
;CallDebugger
Global FermerFenetre,FenetreInitialisee
Procedure Visuel(*valeur) ; -------> Il manquait effectivement ça
OpenWindow(0,0,0,#LARGEUR,#HAUTEUR,"Titre",#PB_Window_ScreenCentered)
TextGadget(#TEXTE,10,10,#LARGEUR-20,20,"",#PB_Text_Center)
ProgressBarGadget(#PROGRESSION,10,30,#LARGEUR-20,20,0,100,#PB_ProgressBar_Smooth)
CreateStatusBar(#STATUS, WindowID(0))
AddStatusBarField(#LARGEUR) ; ------------------------> Ça qui manquait aussi.
AddWindowTimer(0,123,250)
FenetreInitialisee=#True
Repeat
If WaitWindowEvent()= #PB_Event_Timer ;And EventTimer() = 123 ;--> Et peut-être ça comme dans la doc.
Value = (Value + 5) % 100
SetGadgetState(#PROGRESSION,Value)
EndIf
Until FermerFenetre=#True
EndProcedure
Procedure ConsoleText(StatusText.s,Text.s,Delai)
PrintN(Text)
StatusBarText(#STATUS, 0, " "+ StatusText)
SetGadgetText(#TEXTE, " "+ Text)
Delay(Delai)
EndProcedure
OpenConsole()
ConsoleTitle("Progression")
CreateThread(@Visuel(),0)
Repeat
Delay(1)
Until FenetreInitialisee=#True
ConsoleText("Veuillez patienter (étape 1/3)","Initialisation",2000)
ConsoleText("Veuillez patienter (étape 2/3)","Décompression",2000)
ConsoleText("Veuillez patienter (étape 3/3)","installation",4000)
HideGadget(#PROGRESSION,#True)
ConsoleText("Merci d'avoir patienté","Installation terminée",2000)
FermerFenetre=#True
For n=1 To 80
Delay(100)
Print(".")
Next
Il manquait donc : Procedure Visuel(
*valeur)
Et d'après le message d'erreur du debugger (Quand celui-ci est activé) : The specified 'Field' is not valid, c'était simplement l'oublie de la création
AddStatusBarField(#LARGEUR) juste après le CreateStatusBar.
Zut! quand je pense qu'il y a 1 an c'est ce type de code qu'il m'aurait fallu.
Kwai chang caine a écrit :Le code a DOBRO marche niquel
Ben non, il ne fonctionne pas comme celui de Droopy, puisqu'il ouvre 4 ou 5 fenêtres avec simplement une ProgressBar, sans texte dans la fenêtre ni dans la barre de status.
Et au final, la console met 3 jours à se fermer.
Mais c'est normal, il a dû développer ça dans un IDE pourri
.
Bye.
