PureBasic

Code : Tout sélectionner

Enumeration
  
  #HAUTEUR=80
  #LARGEUR=200
  #PROGRESSION
  #TEXTE
  #STATUS
  
EndEnumeration

Global FermerFenetre,FenetreInitialisee

Procedure Visuel(*ptr)
  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)
  AddWindowTimer(0,123,250)
  FenetreInitialisee=#true
  Repeat
    If WaitWindowEvent()= #PB_Event_Timer
      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

Code : Tout sélectionner

CreateThread(@Visuel(),0)

Code : Tout sélectionner

Procedure exemple(parametre_bidon.l)
; code du thread
EndProcedure

Code : Tout sélectionner

thread_id = CreateThread(@exemple(), 0)

Code : Tout sélectionner

; Auteur : Le Soldat Inconnu
; Version de PB : 4.50
;
; Explication du programme :
; Pour faire des programmes de test rapidement, il ne reste qu'a rajouter les gadgets et la gestion des évènements.

Enumeration
	#Fenetre_Pincipale
	#Fenetre_Chargement
	#Fenetre_Chargement_Gadget_Etape
	#Fenetre_Chargement_Gadget_Progression
EndEnumeration

Procedure Chargement(Parametre)
	Protected Progression, Etape
	
		For Etape = 1 To 3
			SetGadgetText(#Fenetre_Chargement_Gadget_Etape, "Etape " + Str(Etape) + "/3")
			For Progression = 0 To 100
				SetGadgetState(#Fenetre_Chargement_Gadget_Progression, Progression)
				Delay(50)
			Next
			Delay(1000)
		Next
		
EndProcedure

; Création de la fenêtre et de la GadgetList
If OpenWindow(#Fenetre_Pincipale, 0, 0, 500, 300, "Principal", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget) = 0
  End
EndIf

If OpenWindow(#Fenetre_Chargement, 0, 0, 400, 40, "Chargement", #PB_Window_SystemMenu | #PB_Window_WindowCentered, WindowID(#Fenetre_Pincipale)) = 0
	End
EndIf
TextGadget(#Fenetre_Chargement_Gadget_Etape, 0, 0, 400, 16, "")
ProgressBarGadget(#Fenetre_Chargement_Gadget_Progression, 0, 16, 400, 24, 0, 100)
AddWindowTimer(#Fenetre_Chargement, 1, 250)

Chargement_Thread = CreateThread(@Chargement(), 0)

Repeat
  Event = WaitWindowEvent()
  
	Select EventWindow()
		Case #Fenetre_Pincipale
			Select Event
				Case #PB_Event_Gadget
					Select EventGadget() ; Gadgets
							
					EndSelect
				Case #PB_Event_CloseWindow
					Quitter = 1
			EndSelect
		Case #Fenetre_Chargement
			Select Event
				Case #PB_Event_Gadget
					Select EventGadget() ; Gadgets
							
					EndSelect
				Case #PB_Event_CloseWindow
					Quitter = 1
				Case #PB_Event_Timer
					Select EventTimer()
						Case 1
							If IsThread(Chargement_Thread) = 0
								CloseWindow(#Fenetre_Chargement)
							EndIf
					EndSelect
			EndSelect
	EndSelect
  
  
Until Quitter