Statusbalken - Fortschrittsanzeige

daflowjoe

Hallo Leute,

undzwar hab ich mir eine Installationsroutine erstellt in der ausgewählte Programme nacheiander in einer Schleife durchinstalliert werden. Vorher und danach werden auch noch Befehle verarbeit, alles insgesamt ist eine Funktion, welche lautet: "Befehl17_Click()"

Das is mein Installbutton.

Unten is noch eine Statusbar:

Code

$Progress1 = GUICtrlCreateProgress(40, 432, 558, 17, $PBS_SMOOTH)
GUICtrlSetData(-1, 25)

Wie kann ich mir also den Status anzeigen lassen, so dass sich die Statusbar füllt?

Gruss Joe

Aiden

mit GUICtrlSetData...

[autoit]

GUICtrlSetData ( controlID, data [, default] )

[/autoit]

Das Data gibst du die Prozent ein die sind

**Xenobiologist**

Hi,

dafür gibt es doch extra Funktionen wie

ProgressOn
GUICtrlCreateProgress
_GUICtrlStatusBarCreateProgress

oder verstehe ich da was falsch?

So long,

Mega

daflowjoe

ja das is natürlich richtig, ich habs oben nochmal editiert

Ich verstehe allerdings nicht, welche/welcher Wert/Werte bei controlID rein sollen.

Gruss Joe

**Xenobiologist**

Hi,

wenn du es direkt darunter schreibst, dann kannst du -1 verwenden, ansonsten die zugewiesene Varibale : in deinem Fall --> $Progress1

So long,

Mega

daflowjoe

hm na das problem ist ich hab eine schleife. Also müssten bei jedem Durchlauf 9 dazukommen. Das funktioniert allderdings nicht, der werden von Progress wird da dann immer wieder auf 9 gesetzt. Es sollen, aber jeweils 9 addiert werden. Lieber wäre mir auch eine flüssige Anzeige.

Das ist meine Schleife:

Code

For $i = 1 To 11

$file = FileExists(@WindowsDir & "\Temp\installscript\" & $i & ".txt")


If $file = 1 Then
$install = "test" & $i & ".exe"
	Run($install)
Do
		Sleep(1000)
		GUICtrlSetData($Progress1, 9)
			Until Not ProcessExists($install)
			FileDelete(@WindowsDir & "\Temp\" & $i & ".txt")

Else

EndIf

Next

Alles anzeigen

Gruss Joe

daflowjoe

ok das problem mit dem erhöhen habe ich gelöst, aber wie kann man machen, dass sich der Balken flüssig füllt?

gruss joe

Aiden

das kannst du mit dem $PBS_SMOOTH-Stil erreichen

[autoit]

GUICtrlCreateProgress (10, 40, 200, 20, $PBS_SMOOTH)

[/autoit]

daflowjoe

komisch, der wert is bei mir gesetzt, trotzdem verläuft der Progressbalken noch in Sprüngen.

Kann es vielleicht an dem Stil des Progressbalkens liegen?

**Xenobiologist**

Hi,

kannst du etwas mehr vom Skript posten, sodass man es nachstellen kann?

Hast du mal den Sleep rausgenommen?

So long,

Mega

daflowjoe

ok, das ist der Code. Ich hoffe man kommt darin zurecht oO

Code

#include <GUIConstants.au3>


Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\spickert.cadsys\desktop\koda_1.6.0.2\forms\aform1.kxf
$Form1_1 = GUICreate("Installationstool", 633, 477, 193, 115)
GUISetBkColor(0x316AC5)
$Group1 = GUICtrlCreateGroup("Installationsauswahl", 48, 72, 225, 185)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x316AC5)
$box5 = GUICtrlCreateCheckbox("Kunden.cmd", 64, 120, 153, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x316AC5)
GUICtrlSetOnEvent(-1, "box2Click")
$box1 = GUICtrlCreateCheckbox("Kunden.cmd für CAD", 64, 144, 153, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x316AC5)
GUICtrlSetOnEvent(-1, "box3Click")
$box3 = GUICtrlCreateCheckbox("Registry Tuneup", 64, 168, 161, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x316AC5)
GUICtrlSetOnEvent(-1, "box4Click")
$box2 = GUICtrlCreateCheckbox("Copy Tools to D:", 64, 192, 129, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x316AC5)
GUICtrlSetOnEvent(-1, "box5Click")
$box4 = GUICtrlCreateCheckbox("Benchmark Test", 64, 216, 177, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x316AC5)
GUICtrlSetOnEvent(-1, "box6Click")
$box6 = GUICtrlCreateCheckbox("Windows Xp Updates", 64, 96, 145, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x316AC5)
GUICtrlSetOnEvent(-1, "box1Click")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Progress1 = GUICtrlCreateProgress(40, 432, 558, 17, $PBS_SMOOTH)
GUICtrlSetData(-1, 0)
$Label1 = GUICtrlCreateLabel("Fortschrittanzeige", 40, 408, 87, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x316AC5)
GUICtrlSetOnEvent(-1, "ALabel1Click")
$Group2 = GUICtrlCreateGroup("Tools", 312, 72, 249, 185)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x316AC5)
$tool1 = GUICtrlCreateCheckbox("Adope Acrobat Reader", 328, 96, 137, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x316AC5)
GUICtrlSetOnEvent(-1, "tool1Click")
$tool2 = GUICtrlCreateCheckbox("OpenOffice", 328, 120, 97, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x316AC5)
GUICtrlSetOnEvent(-1, "tool2Click")
$tool5 = GUICtrlCreateCheckbox("nvidia Detonator", 328, 192, 97, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x316AC5)
GUICtrlSetOnEvent(-1, "tool5Click")
$tool4 = GUICtrlCreateCheckbox("WinRAR", 328, 168, 97, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x316AC5)
GUICtrlSetOnEvent(-1, "tool4Click")
$tool3 = GUICtrlCreateCheckbox("Specviewperf", 328, 144, 97, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x316AC5)
GUICtrlSetOnEvent(-1, "tool3Click")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label3 = GUICtrlCreateLabel("Status:", 48, 320, 37, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x316AC5)
$Edit1 = GUICtrlCreateEdit("", 112, 320, 441, 81)
GUICtrlSetData(-1, "AEdit1")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x316AC5)
GUICtrlSetOnEvent(-1, "AEdit1Change")
$Button1 = GUICtrlCreateButton("Installation starten", 224, 280, 145, 25, $BS_FLAT)
GUICtrlSetOnEvent(-1, "AButton1Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
	Sleep(100)
WEnd




Func AButton1Click()
FileCopy("readme.txt",@WindowsDir & "\Temp\readme.txt")
FileMove("readme.txt",@WindowsDir & "\Temp\installscript\readme.txt",8)


FileCopy("fortsetzen.exe", @WindowsDir & "\Temp\installscript\fortsetzen.exe")
FileCopy("install1", @WindowsDir & "\Temp\installscript\install1")
FileCopy("install2", @WindowsDir & "\Temp\installscript\install2")
FileCopy("install3", @WindowsDir & "\Temp\installscript\install3")
FileCopy("install4", @WindowsDir & "\Temp\installscript\install4")
FileCopy("install5", @WindowsDir & "\Temp\installscript\install5")
FileCopy("install6", @WindowsDir & "\Temp\installscript\install6")
FileCopy("install7", @WindowsDir & "\Temp\installscript\install7")
FileCopy("install8", @WindowsDir & "\Temp\installscript\install8")
FileCopy("install9", @WindowsDir & "\Temp\installscript\install9")
FileCopy("install10", @WindowsDir & "\Temp\installscript\install10")
FileCopy("install11", @WindowsDir & "\Temp\installscript\install11")
FileCopy("dsysoc.inf", @WindowsDir & "\Temp\installscript\dsysoc.inf")
FileCopy("dinstall.reg", @WindowsDir & "\Temp\installscript\dinstall.reg")
FileCopy("TempverzeichnisseAufD.reg", @WindowsDir & "\Temp\installscript\TempverzeichnisseAufD.reg")


If $box1 = 1 Then
	FileCopy("temps\1.txt",@WindowsDir & "\Temp\installscript\1.txt")
	Endif
If $box2 = 1 Then
	FileCopy("temps\2.txt",@WindowsDir & "\Temp\installscript\2.txt")
	Endif
If $box3 = 1 Then
	FileCopy("temps\3.txt",@WindowsDir & "\Temp\installscript\3.txt")
	Endif

If $box4 = 1 Then
	FileCopy("temps\4.txt",@WindowsDir & "\Temp\installscript\4.txt")
	Endif

If $box5 = 1 Then
	FileCopy("temps\5.txt",@WindowsDir & "\Temp\installscript\5.txt")
	Endif

If $box6 = 1 Then
	FileCopy("temps\6.txt",@WindowsDir & "\Temp\installscript\6.txt")
	Endif

If $tool1 = 1 Then
	FileCopy("temps\7.txt",@WindowsDir & "\Temp\installscript\7.txt")
	Endif

If $tool2 = 1 Then
	FileCopy("temps\8.txt",@WindowsDir & "\Temp\installscript\8.txt")
	Endif

If $tool3 = 1 Then
	FileCopy("temps\9.txt",@WindowsDir & "\Temp\installscript\9.txt")
	Endif

If $tool4 = 1 Then
	FileCopy("temps\10.txt",@WindowsDir & "\Temp\installscript\10.txt")
	Endif

If $tool5 = 1 Then
	FileCopy("temps\11.txt",@WindowsDir & "\Temp\installscript\11.txt")
	Endif


$p = 0
	For $i = 1 To 11

$file = FileExists(@WindowsDir & "\Temp\installscript\" & $i & ".txt")
$p = $p + 8
GUICtrlSetData($Progress1, $p)

If $file = 1 Then
$install = "install" & $i & ".exe"
	Run($install)
Do

		Sleep(1000)

			Until Not ProcessExists($install)
			FileDelete(@WindowsDir & "\Temp\installscript\" & $i & ".txt")

	Else

		EndIf

		Next
$p = 100
GUICtrlSetData($Progress1, $p)
MsgBox(1, "Installation", "Die Installation wurde erfolgreich abgeschlossen")


;~ 	DriveMapDel( "Z:\)	 

EndFunc

Alles anzeigen