Beiträge von Ilse

Hallo Misterspeed,

merci für die Erläuterungen.
Ganz so komplex ist der Ablauf nicht!
Es gibt je Seite 2 Schritte

1. Form (aufruf der Formseite) sagen wir 0-50% (das ist halt unterschiedlich)
2. _IEFormSubmit ($oForm) 51-100% (das ebenfalls, bis es übertragen wurde)

dann die nächste...

Das Problem ist, daß manche Seiten wirklich
Zeit brauchen (und das muß ich sichtbar machen)

Wenn 3 Seiten gewählt wurden, sollte man das zur Laufzeit verfolgen können.
Das mit der Marquee Progressbar klingt interessant.
Habe halt jetzt alles mit normalen Progressbars aufgebaut.

Ich lese mir das mal durch.

Liebe Grüße
Ilse
...und danke auch an RR04

huh...
wie soll ich's sagen.

Beispiel:
Checkbox 1 soll z.B. http://www.eBay.de starten
das dauert.... bis alles geladen ist.
Checkbox 3 startet http://www.Google.de
das geht flott!
Checkbox 4 startet http://www.t-online.de
....das dauert

Jede dieser Progressbars benötigt doch unterschiedlich lang bis 100% erreicht sind!
Ich weiß, man muß abfragen wann die Seite kpl. geladen wurde....
Die Frage ist die Geschwindigkeit v. 0 bis 100% für jede Seite
Bei Google sind die 100% in 3 Sekunden erreicht (Progressbarzeit)
Bei T-online jedoch in 6 Sekunden (Progressbarzeit) gleichmäßige Geschwindigkeit der Fortschrittanzeige!

Hoffe ich konnte das irgendwie verständlich machen

Ilse

Hallo Misterspeed,

hab das schon verstanden.
Was mir unklar ist, ist ganz einfach der Zeitliche Ablauf der Progressbar.

Beispiel:

Checkbox 1 ist an: (langsame Progressbar)
hier wird umfangreicher Code abgearbeitet z.B. Dauer 15 Sekunden
d.h. die Progressbar soll ganz langsam laufen, bis der Code am Ende ist!

Checkbox 2 ist an: (schnelleProgressbar)
hier wird kurzer Code abgearbeitet z.B. Dauer 3 Sekunden
d.h. die Progressbar soll schneller laufen, bis der Code am Ende ist!

Muß ich dann für jeden Codeablauf eine eigene Progressbar einbauen?
Am Anfang 10% und am Ende 100%

Wie kann man darauf reagieren?
Das versteh ich noch nicht so richtig!

Grüße Ilse

...
habe Sleep eingebaut!
Kommt jetzt nacheinander,
aber immer noch zu schnell

[autoit]

;i so sind keine Include nötig!
Dim $arControl[5]
Dim $arControlProg[5]
GUICreate("Form1", 615, 440, 391, 202)
For $i = 0 To 4 ;i erstellt 0 bis 4 = 5 Checkbox
$arControl[$i] = GUICtrlCreateCheckbox("Checkbox" & $i, 64, 64+$i*36, 97, 17)
$arControlProg[$i] = GUICtrlCreateProgress(164, 64+$i*36, 150, 17)
Next
$Go = GUICtrlCreateButton("Start", 448, 164, 75, 25)

[/autoit][autoit][/autoit][autoit]

GUISetState(@SW_SHOW)

[/autoit][autoit][/autoit][autoit]

While 1
Switch GUIGetMsg()
Case -3
Exit
Case $Go
For $i = 0 To UBound($arControl) - 1
If GUICtrlRead($arControl[$i]) = 1 Then
GUICtrlSetData($arControlProg[$i], 100)
Else
GUICtrlSetData($arControlProg[$i], 0)
EndIf
Sleep(2000)
Next
EndSwitch
WEnd
; Ende

[/autoit]

Hallo RR04,

das Problem:
die Progressbars sollten nacheinander starten

Danke für die Hilfe

Ilse

Hallo BadBunny,

merci für deine Hilfe.

Es sollte eigentlich so sein:
1 startet, dann 3 startet
also nacheinander

hm...wie kann man die Geschwindigkeit der Progressbar bestimmen?

Liebe Grüße
Ilse

Hallo BadBunny,

merci für die Hilfe.
In deinem Code läuft die Anzeige zusammen los.

Es war folgerdermaßen gedacht:

1 Startet....fertig, erst dann.... 3 startet beendet!
Also die Progressbar sollte nacheinander langsam starten.

kann man die Geschwindigkeit der Progressbar beinflussen?
Sollte viel langsamer laufen.

Liebe Grüße
Ilse

Hallo,

...kurze Info:
Auf meiner Form sind einige Checkboxen und dazugehörige Progressbars!
Ich möchte nun die Checkboxen abfragen
und wenn diese gesetzt sind, die jeweilieg Progressbar starten.

Beispiel:
chk 1 und chk3 sind wahr

Dann sollte die Progressbar von chk1 starten
wenn diese dann fertig ist, dann sollte die Progressbar v. chk3 starten

Das Abfragen bereitet mir Probleme

Mein Code:

[autoit][/autoit][autoit][/autoit][autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

[/autoit][autoit][/autoit][autoit]

Dim $arControl[5]
Dim $arControlProg[5]
$Form1 = GUICreate("Form1", 615, 440, 391, 202)
$arControl[1] = GUICtrlCreateCheckbox("Checkbox1", 64, 64, 97, 17)
$arControl[2] = GUICtrlCreateCheckbox("Checkbox2", 64, 100, 97, 17)
$arControl[3] = GUICtrlCreateCheckbox("Checkbox3", 64, 136, 97, 17)
$arControl[4] = GUICtrlCreateCheckbox("Checkbox4", 64, 168, 97, 17)
$arControlProg[1] = GUICtrlCreateProgress(164, 64, 150, 17)
$arControlProg[2] = GUICtrlCreateProgress(164, 100, 150, 17)
$arControlProg[3] = GUICtrlCreateProgress(164, 136, 150, 17)
$arControlProg[4] = GUICtrlCreateProgress(164, 168, 150, 17)
$Go = GUICtrlCreateButton("Start", 448, 164, 75, 25)
GUISetState(@SW_SHOW)

[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Go
For $i = 0 To UBound($arControl) - 1
;if GUICtrlgetState($arControl[$i], $gui_checked) then
;MsgBox(0,"an","ok")
;endif

[/autoit][autoit][/autoit][autoit]

next

[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

EndSwitch
WEnd

[/autoit]

komm da einfach nicht weiter....

Grüße Ilse

...Super!
Ich habe alles mögliche mit GuiCtrlGetFocus probiert!

GuiCtrlSetState, das war's!

vielen Dank für die schnelle Hilfe

Viele Grüße Ilse

Hallo,

ich fass mich kurz:
Wie kann ich ein Control ansprechen
also den Focus auf das Control setzen, damit der Text markiert wird?

Beispiel:

[autoit]

#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1)
$Gui = GUICreate("Namen", 811, 628, 559, 111)
GUISetOnEvent($GUI_EVENT_CLOSE, "_End")
$Search = GUICtrlCreateInput("Search", 288, 208, 405, 32)
GUICtrlSetFont(-1, 16, 400, 0, "Arial")
GUISetState(@SW_SHOW)
$Go = GUICtrlCreateButton("Go", 712, 212, 63, 25)

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

While Sleep(1000)
WEnd

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

Func _End()
Exit
EndFunc ;==>_End

[/autoit]

Wenn gestartet wird, ist der Text markiert. ...wenn die Markierung aufgehoben wird....
Wie kann ich den Focus auf das Feld setzen und erneut markieren?

Grüße Ilse

Hallo zusammen,

ich hoffe das Oscar das ganze liest.
Ich habe noch ein Problem mit der Schriftgröße bei den Zeilen:
Wenn ich die Größe ändere (8 ist wirklich sehr klein)
z.B. GUICtrlSetFont(-1, 9, 500, 0, "Arial")
dann wird ein Zeilenumbruch gemacht!

Beispiel:

[autoit]

;Schriftgröße 8 = ok!
; United States
;Schriftgröße 9 sieht so aus
;United
;States
;States ist nichtmehr sichbar!

[/autoit]

...obwohl noch genügen Platz bis zur Progressbar ist.
Hier nochmal der Code mit der Schriftgröße

[autoit]

For $i = 0 To UBound($arControl) - 1
$arControl[$i][0] = GUICtrlCreateCheckbox('', $Links + Int($i / $Zeilen) * $Abstand, $Oben + Mod($i, $Zeilen) * $Zwischen, 13, 13)
$arControl[$i][1] = GUICtrlCreateLabel($var[$i][1], $Links + 20 + Int($i / $Zeilen) * $Abstand, $Oben + Mod($i, $Zeilen) * $Zwischen)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetFont(-1, 9, 500, 0, "Arial") ; hier habe ich die Schriftgröße geändert
GUICtrlSetOnEvent(-1, "_CheckboxSelect")
$arProgress[$i] = GUICtrlCreateProgress($Links + 130 + Int($i / $Zeilen) * $Abstand, $Oben + Mod($i, $Zeilen) * $Zwischen, 70, 14)
Next

[/autoit]

Liebe Grüße
Ilse

1000 Dank Oscar
Bin echt begeistert!
Ich konnte mich nicht früher melden
meine Internetverbindung ist gruselig (1000 er Leitung)
manchmal keine Verbindung...Absturz
Beneide alle anderen mit einer 16000 er Leitung

Auf jedenfall freue ich mich sehr daß das so toll klappt.
Nochmal vielen vielen Dank

Liebe Grüße
Ilse

Ja das hat geklappt.
eine Frage noch:
Kann man irgendwie für alle Spalten
den Abstand von Oben bestimmen?
Ich meine daß alles etwas runterrutschen kann.

Wenn ich andere Inis einlese sieht das immer etwas komisch aus.

Das wäre super.

Ilse

Hallo Oscar,
super, hm aber
da ist noch irgendwo was nicht in Ordnung.

Wenn ich die ini einlese,
dann bleibt die erste Checkbox leer.
Die Zweite Checkbox darunter erhält aber den ersten Eintrag.

[ ]
[ ] erster Ini Eintrag

Wenn ich
For $i = 1 To UBound($arControl) - 1

stimmt es, nur die erste Spalte hängt zu tief!
Die Zweite und die dritte Spalte ist normal!
Eine Idee woran das liegen kann?

Ilse

Hallo Oscar,

ich kann die kpl. Ini nicht einlesen.
Die Spalten werden nach rechts verschoben....
Hier mal eine Beispiel-Ini mit Ländern

Spoiler anzeigen

[Titel]
1=United States
2=Argentina
3=Austria
4=Australia
5=Belgium
6=Brazil
7=Canada
8=China
9=Czech Republic
10=Denmark
11=Finnland
12=Germany
13=Greece
14=France
15=Hungary
16=Hong Kong
17=Ireland
18=India
19=Italy
20=Korea

Ich müße irgendwie am Anfang bestimmen können:
Wieviele Spalten ich ungefähr brauche damit alle Einträge der jeweiligen ini
da hinein passen.
Die inis sind immer unterschiedlich groß

z.B. 20 Länder oder 50 Namen...

huh ...
Grüße Ilse

@ Oscar,

das klappt soweit prima Oscar.
arbeite mal weiter.

Danke auch an Misterspeed

Grüße
Ilse

das habe ich hinbekommen....
Nur die Transparenz der Controls auf der Grafik nicht!!!!

Checkboxen: (Bezeichner auf der Grafik sind weiß) sollen aber Transparent sein!
Progressbars: sind im Hintergrund. (Werden von der Hintergrundgrafik verdeckt!)

sonst läuft alles
Ilse

noch ein Problem....
wie schaffe ich es die Progressbars zu sehen.
Die werden ja in der Schleife erstellt.
Die Controls und die Buttons sind jetzt oben
aber meine Progressbars nicht!

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

$Gui = GUICreate("Namen", 701, 571, 208, 178)

[/autoit][autoit][/autoit][autoit]

$Pic1 = GUICtrlCreatePic("C:\Users\Ilse\Desktop\Backbild.jpg", -4, -4, 805, 629)
GUICtrlSetState(-1, $GUI_DISABLE)
$SelectAll = GUICtrlCreateButton("Select all", 568, 424, 75, 25)
GUICtrlSetBkColor(-1, -2)
$None = GUICtrlCreateButton("None", 556, 528, 75, 25)
;$Alle = GUICtrlCreateButton("Alle", 304, 232, 75, 25)
GUISetState(@SW_SHOW)

[/autoit][autoit][/autoit][autoit]

$var = IniReadSection(@ScriptDir & '\meineIni.ini',"Titel")

[/autoit][autoit][/autoit][autoit]

If @error Then
MsgBox(4096, "", "Error occurred, probably no INI file.")
EndIf

[/autoit][autoit][/autoit][autoit]

;Local $aktiv = True
Local $arControl[15]
Local $arprogbar[15]
#region Ausrichtung Controls
$Startoben = 50
$Startlinks = 70
$progbarLinks = 170
$oben = $Startoben
$ctrlLinks = $Startlinks
#endregion Ausrichtung Controls
For $i = 1 to 14
$oben += "25"
$arControl[$i] = GUICtrlCreateCheckbox($var[$i][1],$ctrlLinks,$oben)
$arprogbar[$i]= GUICtrlCreateProgress($progbarLinks, $oben, 70, 20)
next

[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit][autoit][/autoit][autoit]

Case $SelectAll
for $i = 1 to UBound($arControl)-1
;$Test = Guictrlread($arControl[$i])
GUICtrlSetState ($arControl[$i],$gui_checked)
;MsgBox(0,$i,$arControl[$i])
next

[/autoit][autoit][/autoit][autoit]

Case $None
for $i = 1 to UBound($arControl)-1
;$Test = Guictrlread($arControl[$i])
GUICtrlSetState ($arControl[$i],$gui_unchecked)
;MsgBox(0,$i,$arControl[$i])
next
EndSwitch
WEnd

[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit]

Grüße
Ilse

@ Misterspeed
das mit dem Button klappt, nur die Transparenz der Controls noch nicht!

Hallo Oscar,
da hatte ich auch schon daran gedacht
hm das Problem bei uBound ist
ich wollte mehrere Spalten machen
also 3 Spalten mit je 10 Einträgen! Auch mehrere Schleifen
For $i = 1 to 10....
For $i = 11 to 20...

nur die Transparenz macht mir noch Probleme!

Grüße
Ilse

Hallo Misterspeed,

es klappt nun, dank dir.

Habe noch ein kleines Problem mit der Hintergrundgrafik!
Wenn eine Grafik dahinter ist habe ich folgende Probleme:

1. Wenn ich auf die Checkbox klicke erscheint erst der Button (vorher nicht sichbar)
2. Wie kann ich die Checkboxbezeichner transparent machen?

Hier nochmal der Code

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

$Gui = GUICreate("Namen", 701, 571, 208, 178)
$SelectAll = GUICtrlCreateButton("Select all", 568, 424, 75, 25)
$Pic1 = GUICtrlCreatePic("C:\Users\Ilse\Desktop\Backbild.jpg", -4, -4, 805, 629)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetBkColor(-1, -2)
;$Alle = GUICtrlCreateButton("Alle", 304, 232, 75, 25)
GUISetState(@SW_SHOW)

[/autoit][autoit][/autoit][autoit]

$var = IniReadSection(@ScriptDir & '\meineIni.ini',"Titel")

[/autoit][autoit][/autoit][autoit]

If @error Then
MsgBox(4096, "", "Error occurred, probably no INI file.")
EndIf

[/autoit][autoit][/autoit][autoit]

;Local $aktiv = True
Local $arControl[15]
Local $arprogbar[15]
#region Ausrichtung Controls
$Startoben = 50
$Startlinks = 70
$progbarLinks = 170
$oben = $Startoben
$ctrlLinks = $Startlinks
#endregion Ausrichtung Controls
For $i = 1 to 14
$oben += "25"
$arControl[$i] = GUICtrlCreateCheckbox($var[$i][1],$ctrlLinks,$oben)
$arprogbar[$i]= GUICtrlCreateProgress($progbarLinks, $oben, 70, 20)
next

[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit][autoit][/autoit][autoit]

Case $SelectAll
for $i = 1 to UBound($arControl)-1
;$Test = Guictrlread($arControl[$i])
GUICtrlSetState ($arControl[$i],$gui_checked)
;MsgBox(0,$i,$arControl[$i])
next
EndSwitch
WEnd

[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit]

Habe es mit GUICtrlSetBkColor(-1, -2) nicht geschafft!

Liebe Grüße
Ilse