Ladebalken beim Programmstart laden

xEr0r · 09/12/2011, 00:30

Wie es oben schon steht, will ich dass wenn das Programm geöffnet wird, der Ladebalken von selbst lädt. Irgendwie bekomme ich das nicht hin bzw. der Ladebalken fängt einfach nicht an zu laden.

butter123 · 09/12/2011, 09:11

du musst mit
GUICtrlSetData($progressbar1, $i)
dem balken sagen, bis wohin er grade grün sein soll

guck dir mal

das skript unten an

omer36 · 09/12/2011, 09:12

PHP Code:



ProgressOn("wird gestartet", "", "Vorbereitung...")

For $i = 0 To 150
    ProgressSet($i)
    Sleep(50)
Next

ProgressSet(100, "Ready!")
Sleep(1000)
ProgressOff()

xEr0r · 09/13/2011, 13:40

So hat jz gefunkt
So wenn ich jetzt aber GuiSetState() einbaue, um den Ladebildschirm zu schließen und das eigentliche Programm erscheinen zu lassen, kommt ein Error, bzw. schließt sich der Ladebildschirm bevor er vollgeladen ist.

(GuiSetState() nicht eingebaut.) Wo muss ich es nun richtig einbauen

Code:

$Form0 = GUICreate("F5-Klicker wird geladen...", 610, 422, 540, 197)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Lapper\LoadinScreen.jpg", 0, 0, 617, 393, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Progress1 = GUICtrlCreateProgress(0, 390, 617, 33)
GUISetState(@SW_SHOW)
For $i = 0 To 300
	GUICtrlSetData($Progress1, $i)
Next

FichteFoll · 09/13/2011, 17:47

Eine Progressbar funktioniert in ganzzahligen Prozentzahlen, ergo ist der minimale Wert 0 und der maximale 100.

Ich vermute mal, dass du unter Windows 7 operierst. Die Progressbar von Windows 7 hat die Eigenschaft, dass sich der Fortschritt der Bar von selbst "smooth" erhöht. Dadurch ist der wirkliche Status der Bar, wie du ihn setzt, höher und schneller als die Anzeige davon.

Ein Sleep(2000) danach sollte dir zeigen, was ich meine.

PS: Auch ein Sleep(10) o.ä. in der Schleife wäre nicht ganz verkehrt, das spart Ressourcen.

xEr0r · 09/14/2011, 14:12

Ja aber mein Problem ist, das sich der Ladebildscirm durch GuiSetState($Form0, @SW_HIDE) nicht verstecken bzw. das eigentliche Programm durch GuiSetState($Form1, @SW_SHOW) nicht zeigen lässt

irrenhaus · 09/15/2011, 16:28

Probier es mal mit

PHP Code:



GUICtrlSetState(@SW_HIDE,$Form0)
GUICtrlSetState(@SW_SHOW,$Form1)

xEr0r · 09/15/2011, 16:42

Das weiß ich auch -,-*
Aber wohin soll ich das setzen? Wenn ichs in die For-Schleife mache passiert nichts
Habs auch schon so versucht:

Code:

If $i = 100 Then
GUISetState($Form0, @SW_HIDE)
GUISetState($Form1, @SW_SHOW)
EndIf

Klappt aba trotzdem nicht

FichteFoll · 09/15/2011, 17:24

Code:

GUI[B]Ctrl[/B]SetState($Progess1, [B]$GUI_HIDE[/B])
GUI[B]Ctrl[/B]SetState($Progess1, [B]$GUI_SHOW[/B])

Mehr in der Dokumentation.

xEr0r · 09/15/2011, 19:57

Geht iwie trotzdem nicht -,-^^

Ganzer Code:

Code:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ProgressConstants.au3>
#Region ### START Koda GUI section ### Form=

$iniread1 = IniRead(@ScriptDir & "\Key-Einstellungen.ini", "Start-Key", "", 0)
$iniread2 = IniRead(@ScriptDir & "\Key-Einstellungen.ini", "Exit-Key", "", 0)

HotKeySet($iniread1, "_start")
HotKeySet($iniread2, "_Exit")

;-----------------------------------------------------------------------------

$Form1 = GUICreate("Youtube F5-Klicker By xEr0r", 373, 235, 540, 197)
$Label1 = GUICtrlCreateLabel("Start Taste:", 16, 40, 109, 20)
$Input1 = GUICtrlCreateInput($iniread1, 168, 32, 145, 24)
$Label2 = GUICtrlCreateLabel("Beenden Taste:", 16, 96, 109, 20)
$Input2 = GUICtrlCreateInput($iniread2, 168, 96, 145, 24)
$Button1 = GUICtrlCreateButton("Einstellungen übernehmen", 64, 152, 249, 49, $WS_GROUP)
$Label3 = GUICtrlCreateLabel("Version 1.0", 290, 210)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

$Form0 = GUICreate("F5-Klicker wird geladen...", 610, 422, 540, 197)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Lapper\LoadinScreen.jpg", 0, 0, 617, 393, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Progress1 = GUICtrlCreateProgress(0, 390, 617, 33)
GUISetState(@SW_SHOW)
For $i = 0 To 100
GUICtrlSetData($Progress1, $i)
Sleep(10)
GUICtrlSetState($Form0, $GUI_HIDE)
GUICtrlSetState($Form1, $GUI_SHOW)
Next



While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			_save()
	EndSwitch
WEnd


Func _save()
	$read1 = GUICtrlRead($Input1)
	$read2 = GUICtrlRead($Input2)
	IniWrite(@ScriptDir & "\Key-Einstellungen.ini", "Start-Key", "", $read1)
	IniWrite(@ScriptDir & "\Key-Einstellungen.ini", "Exit-Key", "", $read2)
	Sleep(500)
	MsgBox(0, "Erfolgreich", "Die Einstellungen wurden erfolgreich übernommen")
EndFunc

Func _start()
	While 1
	Send("{F5}")
	Sleep(3000)
	WEnd
EndFunc

Func _Exit()
	Exit
EndFunc

omer36 · 09/15/2011, 20:37

Spoiler

xEr0r · 09/17/2011, 12:31

ty klappt