[R] ProgressBar avec une base autre que les pourcents

[Nagroxx]

Bonjour,

Je ne sais pas trop comment m'expliquer mais je souhait faire une ProgressBar sur l'installation de mes imprimantes.

Je m'explique, mon script récupère une liste d'imprimante à installé et lance l'installe par Rundll32. Ensuite j'effectue une boucle dans la quelle je fait une liste des imprimantes installées et je compare avec la liste à installées. Ceci fonctionne mais j'aimerai ajouter une ProgressBar pour que l'utilisateur final puisse voir que le poste travail et surtout où il en est.
Voici ma boucle :

► Afficher le texte

;==== Creation d'une liste des imprimantes installées sur le poste INSERER DANS UNE BOUCLE JUSQU'A 2 LISTE = / ou TEMPS DEPASSé
Local $nb_ligne = _FileCountLines($fichuser & "\" & $Imparch)
;MsgBox(0,"","nombre de ligne : " & $nb_ligne)
Local $starttime = _Timer_Init()
Do
sleep(300)
Local $var3 = 0
If FileExists($fichuser & '\' & $ImpInst) Then
FileDelete($fichuser & '\' & $ImpInst)
EndIf
$i = 0
While 1
$i += 1
$val = RegEnumVal ("HKCU\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts", $i )
If @error Then ExitLoop
FileWriteLine($fichuser & '\' & $ImpInst,$val)
WEnd
;Run(@ComSpec & " /c " & 'wmic printer list instance > ' & $fichuser & '\' & $ImpInst, "", @SW_HIDE)
;Run("C:\WINDOWS\system32\cmd.exe")
;WinWaitActive("C:\WINDOWS\system32\cmd.exe")
;$message = "wmic printer list instance > " & $fichuser & "\" & $ImpInst
;send($message & "{ENTER}")
;$message = " exit"
;Send($message & "{ENTER}" & "{END}")
;MsgBox(0,"test","test apres creation de " & $ImpInst)

;==== Lecture des deux listes

;MsgBox(0,"","Lancement de supprespaces.exe")
;RunWait("supprespaces.exe")
;MsgBox(0,"","Après supprespaces.exe")
Local $file=FileOpen($FileImp,0)
Local $FileImpInst=$fichuser & "\" & $ImpInst
Local $file1=FileOpen($FileImpInst,0)

;===== Lecture et comparaison ligne par ligne des listes

;MsgBox(0,"","Verrification des listes")
$line=FileReadLine($file) ; $line1 comprend le contenu ligne par ligne du fichier
While @error <> -1
;MsgBox(0,"line",$line)exit

$line1=FileReadLine($file1) ; $line comprend le contenu ligne par ligne du fichier
While @error <> -1
;MsgBox(0,"line1",$line1)
If $line=$line1 Then
MsgBox(64, "Imprimante", "L'imprimante : " & $line1 & " est installée.",1)
$var3 = $var3 + 1
EndIf
$line1=FileReadLine($file1) ; $line comprend le contenu ligne par ligne du fichier
WEnd
FileClose($file1)
$file1=FileOpen($FileImpInst,0)
$line=FileReadLine($file) ; $line comprend le contenu ligne par ligne du fichier Installées.txt
WEnd
;MsgBox(0,"test","Test après verrification d'installation des imprimantes")
FileClose($file)
FileClose($file1)
Until (($var3 = $nb_ligne) or (_Timer_Diff($starttime) >= 30000))

J'ai regardé quelque tuto mais je n'y comprend pas grand chose et je crois que je suis pas le seul au vu des différents messages rencontrés.

J'avais pensé à rajouter un "ProgressOn" puis un "For $var3 = 0 to $nb_ligne" avant ma boucle "Do" mais logiquement ça ne fonctionne pas et je ne sais pas comment faire.

Désolé pour le dérangement et merci d'avance

[Nagroxx]

C'est bon j'ai trouvé :O

Voici mon code

► Afficher le texte

;==== Creation d'une liste des imprimantes installée sur le poste INSERER DANS UNE BOUCLE JUSQU'A 2 LISTE = / ou TEMPS DEPASSé
Local $nb_ligne = _FileCountLines($fichuser & "\" & $Imparch)
;MsgBox(0,"","nombre de ligne : " & $nb_ligne)
Local $starttime = _Timer_Init()
;Local $var3 = 0
ProgressOn("Progress Meter", "Increments every second", "0 percent")
For $var3 = 0 to $nb_ligne
Do
sleep(300)
Local $var3 = 0
If FileExists($fichuser & '\' & $ImpInst) Then
FileDelete($fichuser & '\' & $ImpInst)
EndIf
$i = 0
While 1
$i += 1
$val = RegEnumVal ("HKCU\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts", $i )
If @error Then ExitLoop
FileWriteLine($fichuser & '\' & $ImpInst,$val)
WEnd
;Run(@ComSpec & " /c " & 'wmic printer list instance > ' & $fichuser & '\' & $ImpInst, "", @SW_HIDE)
;Run("C:\WINDOWS\system32\cmd.exe")
;WinWaitActive("C:\WINDOWS\system32\cmd.exe")
;$message = "wmic printer list instance > " & $fichuser & "\" & $ImpInst
;send($message & "{ENTER}")
;$message = " exit"
;Send($message & "{ENTER}" & "{END}")
;MsgBox(0,"test","test apres creation de " & $ImpInst)

;==== Lecture des deux listes

;MsgBox(0,"","Lancement de supprespaces.exe")
;RunWait("supprespaces.exe")
;MsgBox(0,"","Après supprespaces.exe")
Local $file=FileOpen($FileImp,0)
Local $FileImpInst=$fichuser & "\" & $ImpInst
Local $file1=FileOpen($FileImpInst,0)

;===== Lecture et comparaison ligne par ligne des listes

;MsgBox(0,"","Verrification des listes")
$line=FileReadLine($file) ; $line1 comprend le contenu ligne par ligne du fichier
While @error <> -1
;MsgBox(0,"line",$line)exit

$line1=FileReadLine($file1) ; $line comprend le contenu ligne par ligne du fichier
While @error <> -1
;MsgBox(0,"line1",$line1)
If $line=$line1 Then
MsgBox(64, "Imprimante", "L'imprimante : " & $line1 & " est installée.",1)
$var3 = $var3 + 1
ProgressSet($var3,$var3 & "/" & $nb_ligne, "Installation des imprimantes")
EndIf
$line1=FileReadLine($file1) ; $line comprend le contenu ligne par ligne du fichier
WEnd
FileClose($file1)
$file1=FileOpen($FileImpInst,0)
$line=FileReadLine($file) ; $line comprend le contenu ligne par ligne du fichierInstallées.txt
WEnd
;MsgBox(0,"test","Test après verrification d'installation des imprimantes")
FileClose($file)
FileClose($file1)
Until (($var3 = $nb_ligne) or (_Timer_Diff($starttime) >= 30000))
Next

Maintenant que j'ai ma ProgressBar je voudrai qu'elle ne soit pas en pour cent mais qu'elle soit par exemple en pour 10 ou pour 4 ou pour 1000... Ceci en fonction de ma variable donc jamais la même base...

[lesolutionneur]

Il suffit de faire une simple division/multiplication et un arrondi.

Par exemple si ta variable va de 0 à 4:

Code : Tout sélectionner

$mavariable = 3
$progression = int(3/4*100) ; ici c'est 75

[mikell]

Hum la mise en pourcentage c'est du cours de CM2 ça

[Nagroxx]

Oui je confirme mdr, excusez moi de ne pas avoir mis à jour mais j'avais effectivement trouvé la méthode extrêmement difficile de diviser 100 par le nombre ligne de mon fichier texte juste avant d'aller manger...

Comme je dis, ma première logique c'est "pourquoi faire simple quand on peut faire compliqué" et au bout de 30 minutes de réflexion j'y ai pensé.

Désolé pour ma question qui ma fois nous à fait penser à de bons souvenirs pas si lointains (faudrait que j'y retourne pour mon orthographe moi).

Question hors sujet (je suis lourd je sais :$), Il y a un moyen de faire en sorte qu'un tableau ne s'affiche que 10sec? j'utilise actuellement _arraydisplay mais il n'y a pas d'option pour ceci et elle stop le script jusqu’à la fermeture donc un winclose ne fonctionne pas

[mikell]

_ArrayDisplay c'est une gui avec une listview et une boucle While, elle est donc bloquante
2 solutions : faire une fonction _ArrayDisplay2 modifiée pour intégrer un timeout, ou faire ta propre listview

[Nagroxx]

C'est bien ce qu'il me semblait. Merci je vais modifier ça surtout qu'un timeout c'est pas bien compliqué à faire