Keine Anzeige
Übersicht
BlitzBasic Beginners-Corner
|
PummelieBetreff: Keine Anzeige |
 So, Jun 15, 2008 11:23Antworten mit Zitat 
|
|---|---|---|
|
Hi,
ich habe eine progbar, nur so zum üben gemacht. Darunter hab ich ein Textarea. Den Ladebalken habe ich aus 100 updates gemacht, und dazwischen jeweils Code: [AUSKLAPPEN] delay(200) .
Nun kam mir der Gedanke mit was ich das Textarea füllen könnte, nehmlich habe ich immer nach jeden update geschrieben das die textzeile eine zahl und prozentzeichen enthalten soll. Gut bei den Proben läuft alles glat, aber als ich die exe gemacht habe kommt folgendes: 
Sprich: die Textanzeige in der mitte bleibt grau, warum? Bei dem Test sah es so aus: 
|
||
DjDETE |
So, Jun 15, 2008 11:38 Antworten mit Zitat
|
|
|---|---|---|
| Zeig mal bitte deinen Code... | ||
|
Aktuelles Projekt: XXX |XXX | 3% der v1b fertig
www.emu-soft.de.vu Für die Homepage suche ich noch Linktauschpartner, bei Interesse einfach melden. |
||
|
|
Pummelie |
So, Jun 15, 2008 11:44 Antworten mit Zitat
|
|---|---|---|
|
Das ist der Code, der das fenster mit der progbar, und der Textarea öffnet:
Code: [AUSKLAPPEN] window = CreateWindow("Lade Fortschritt", 350, 250, 300, 120, 0, 1) x = ClientWidth(window) progbar = CreateProgBar(10, 7, x - 20, 20, window) progbar2 = CreateProgBar(10, 50, x - 20, 20, window) UpdateProgBar progbar, (0) textarea = CreateTextArea(10, 28, 273, 20, window) SetTextAreaText textarea, "Lade Programm: 0%" Delay(3000) UpdateProgBar progbar, (0.01) SetTextAreaText textarea, "Lade Programm: 1%" Delay(200) UpdateProgBar progbar, (0.02) SetTextAreaText textarea, "Lade Programm: 2%" Delay(200) UpdateProgBar progbar, (0.03) SetTextAreaText textarea, "Lade Programm: 3%" Delay(200) UpdateProgBar progbar, (0.04) SetTextAreaText textarea, "Lade Programm: 4%" Delay(200) UpdateProgBar progbar, (0.05) SetTextAreaText textarea, "Lade Programm: 5%" Delay(200) UpdateProgBar progbar, (0.06) SetTextAreaText textarea, "Lade Programm: 6%" Delay(200) UpdateProgBar progbar, (0.07) SetTextAreaText textarea, "Lade Programm: 7%" Delay(200) UpdateProgBar progbar, (0.08) SetTextAreaText textarea, "Lade Programm: 8%" Delay(200) UpdateProgBar progbar, (0.09) SetTextAreaText textarea, "Lade Programm: 9%" Delay(200) UpdateProgBar progbar, (0.1) m1 = LoadSound("Data\Music\m_1.wav") SetTextAreaText textarea, "Lade Programm: 10%" UpdateProgBar progbar, (0.11) SetTextAreaText textarea, "Lade Programm: 11%" Delay(200) UpdateProgBar progbar, (0.12) SetTextAreaText textarea, "Lade Programm: 12%" Delay(200) UpdateProgBar progbar, (0.13) SetTextAreaText textarea, "Lade Programm: 13%" Delay(200) UpdateProgBar progbar, (0.14) SetTextAreaText textarea, "Lade Programm: 14%" Delay(200) UpdateProgBar progbar, (0.15) SetTextAreaText textarea, "Lade Programm: 15%" Delay(200) UpdateProgBar progbar, (0.16) SetTextAreaText textarea, "Lade Programm: 16%" Delay(200) UpdateProgBar progbar, (0.17) SetTextAreaText textarea, "Lade Programm: 17%" Delay(200) UpdateProgBar progbar, (0.18) SetTextAreaText textarea, "Lade Programm: 18%" Delay(200) UpdateProgBar progbar, (0.19) SetTextAreaText textarea, "Lade Programm: 19%" Delay(200) UpdateProgBar progbar, (0.2) SetTextAreaText textarea, "Lade Programm: 20%" m2 = LoadSound("Data\Music\m_2.wav") UpdateProgBar progbar, (0.21) SetTextAreaText textarea, "Lade Programm: 21%" Delay(200) UpdateProgBar progbar, (0.22) SetTextAreaText textarea, "Lade Programm: 22%" Delay(200) UpdateProgBar progbar, (0.23) SetTextAreaText textarea, "Lade Programm: 23%" Delay(200) UpdateProgBar progbar, (0.24) SetTextAreaText textarea, "Lade Programm: 24%" Delay(200) UpdateProgBar progbar, (0.25) SetTextAreaText textarea, "Lade Programm: 25%" Delay(200) UpdateProgBar progbar, (0.26) SetTextAreaText textarea, "Lade Programm: 26%" Delay(200) UpdateProgBar progbar, (0.27) SetTextAreaText textarea, "Lade Programm: 27%" Delay(200) UpdateProgBar progbar, (0.28) SetTextAreaText textarea, "Lade Programm: 28%" Delay(200) UpdateProgBar progbar, (0.29) SetTextAreaText textarea, "Lade Programm: 29%" Delay(200) UpdateProgBar progbar, (0.3) SetTextAreaText textarea, "Lade Programm: 30%" m3 = LoadSound("Data\Music\m_3.wav") UpdateProgBar progbar, (0.31) SetTextAreaText textarea, "Lade Programm: 31%" Delay(200) UpdateProgBar progbar, (0.32) SetTextAreaText textarea, "Lade Programm: 32%" Delay(200) UpdateProgBar progbar, (0.33) SetTextAreaText textarea, "Lade Programm: 33%" Delay(200) UpdateProgBar progbar, (0.34) SetTextAreaText textarea, "Lade Programm: 34%" Delay(200) UpdateProgBar progbar, (0.35) SetTextAreaText textarea, "Lade Programm: 35%" Delay(200) UpdateProgBar progbar, (0.36) SetTextAreaText textarea, "Lade Programm: 36%" Delay(200) UpdateProgBar progbar, (0.37) SetTextAreaText textarea, "Lade Programm: 37%" Delay(200) UpdateProgBar progbar, (0.38) SetTextAreaText textarea, "Lade Programm: 38%" Delay(200) UpdateProgBar progbar, (0.39) SetTextAreaText textarea, "Lade Programm: 39%" Delay(200) UpdateProgBar progbar, (0.4) SetTextAreaText textarea, "Lade Programm: 40%" m4 = LoadSound("Data\Music\m_4.wav") UpdateProgBar progbar, (0.41) SetTextAreaText textarea, "Lade Programm: 41%" Delay(200) UpdateProgBar progbar, (0.42) SetTextAreaText textarea, "Lade Programm: 42%" Delay(200) UpdateProgBar progbar, (0.43) SetTextAreaText textarea, "Lade Programm: 43%" Delay(200) UpdateProgBar progbar, (0.44) SetTextAreaText textarea, "Lade Programm: 44%" Delay(200) UpdateProgBar progbar, (0.45) SetTextAreaText textarea, "Lade Programm: 45%" Delay(200) UpdateProgBar progbar, (0.46) SetTextAreaText textarea, "Lade Programm: 46%" Delay(200) UpdateProgBar progbar, (0.47) SetTextAreaText textarea, "Lade Programm: 47%" Delay(200) UpdateProgBar progbar, (0.48) SetTextAreaText textarea, "Lade Programm: 48%" Delay(200) UpdateProgBar progbar, (0.49) SetTextAreaText textarea, "Lade Programm: 49%" Delay(200) UpdateProgBar progbar, (0.5) SetTextAreaText textarea, "Lade Programm: 50%" Delay(200) UpdateProgBar progbar, (0.51) SetTextAreaText textarea, "Lade Programm: 51% Delay(200) UpdateProgBar progbar, (0.52) SetTextAreaText textarea, "Lade Programm: 52% Delay(200) UpdateProgBar progbar, (0.53) SetTextAreaText textarea, "Lade Programm: 53% Delay(200) UpdateProgBar progbar, (0.54) SetTextAreaText textarea, "Lade Programm: 54% Delay(200) UpdateProgBar progbar, (0.55) SetTextAreaText textarea, "Lade Programm: 55% Delay(200) UpdateProgBar progbar, (0.56) SetTextAreaText textarea, "Lade Programm: 56% Delay(200) UpdateProgBar progbar, (0.57) SetTextAreaText textarea, "Lade Programm: 57% Delay(200) UpdateProgBar progbar, (0.58) SetTextAreaText textarea, "Lade Programm: 58%" Delay(200) UpdateProgBar progbar, (0.59) SetTextAreaText textarea, "Lade Programm: 59%" Delay(200) UpdateProgBar progbar, (0.6) SetTextAreaText textarea, "Lade Programm: 60%" Delay(200) UpdateProgBar progbar, (0.61) SetTextAreaText textarea, "Lade Programm: 61%" Delay(200) UpdateProgBar progbar, (0.62) SetTextAreaText textarea, "Lade Programm: 62%" Delay(200) UpdateProgBar progbar, (0.63) SetTextAreaText textarea, "Lade Programm: 63%" Delay(200) UpdateProgBar progbar, (0.64) SetTextAreaText textarea, "Lade Programm: 64%" Delay(200) UpdateProgBar progbar, (0.65) SetTextAreaText textarea, "Lade Programm: 65%" Delay(200) UpdateProgBar progbar, (0.66) SetTextAreaText textarea, "Lade Programm: 66%" Delay(200) UpdateProgBar progbar, (0.67) SetTextAreaText textarea, "Lade Programm: 67%" Delay(200) UpdateProgBar progbar, (0.68) SetTextAreaText textarea, "Lade Programm: 68%" Delay(200) UpdateProgBar progbar, (0.69) SetTextAreaText textarea, "Lade Programm: 69%" Delay(200) UpdateProgBar progbar, (0.7) SetTextAreaText textarea, "Lade Programm: 70%" Delay(200) UpdateProgBar progbar, (0.71) SetTextAreaText textarea, "Lade Programm: 71%" Delay(200) UpdateProgBar progbar, (0.72) SetTextAreaText textarea, "Lade Programm: 72%" Delay(200) UpdateProgBar progbar, (0.73) SetTextAreaText textarea, "Lade Programm: 73%" Delay(200) UpdateProgBar progbar, (0.74) SetTextAreaText textarea, "Lade Programm: 74%" Delay(200) UpdateProgBar progbar, (0.75) SetTextAreaText textarea, "Lade Programm: 75%" Delay(200) UpdateProgBar progbar, (0.76) SetTextAreaText textarea, "Lade Programm: 76%" Delay(200) UpdateProgBar progbar, (0.77) SetTextAreaText textarea, "Lade Programm: 77%" Delay(200) UpdateProgBar progbar, (0.78) SetTextAreaText textarea, "Lade Programm: 78%" Delay(200) UpdateProgBar progbar, (0.79) SetTextAreaText textarea, "Lade Programm: 79%" Delay(200) UpdateProgBar progbar, (0.8) SetTextAreaText textarea, "Lade Programm: 80%" Delay(200) UpdateProgBar progbar, (0.81) SetTextAreaText textarea, "Lade Programm: 81%" Delay(200) UpdateProgBar progbar, (0.82) SetTextAreaText textarea, "Lade Programm: 82%" Delay(200) UpdateProgBar progbar, (0.83) SetTextAreaText textarea, "Lade Programm: 83%" Delay(200) UpdateProgBar progbar, (0.84) SetTextAreaText textarea, "Lade Programm: 84%" Delay(200) UpdateProgBar progbar, (0.85) SetTextAreaText textarea, "Lade Programm: 85%" Delay(200) UpdateProgBar progbar, (0.86) SetTextAreaText textarea, "Lade Programm: 86%" Delay(200) UpdateProgBar progbar, (0.87) SetTextAreaText textarea, "Lade Programm: 87%" Delay(200) UpdateProgBar progbar, (0.88) SetTextAreaText textarea, "Lade Programm: 88% Delay(200) UpdateProgBar progbar, (0.89) SetTextAreaText textarea, "Lade Programm: 89%" Delay(200) UpdateProgBar progbar, (0.9) SetTextAreaText textarea, "Lade Programm: 90%" Delay(200) UpdateProgBar progbar, (0.91) SetTextAreaText textarea, "Lade Programm: 91%" Delay(200) UpdateProgBar progbar, (0.92) SetTextAreaText textarea, "Lade Programm: 92%" Delay(200) UpdateProgBar progbar, (0.93) SetTextAreaText textarea, "Lade Programm: 93%" Delay(200) UpdateProgBar progbar, (0.94) SetTextAreaText textarea, "Lade Programm: 94%" Delay(200) UpdateProgBar progbar, (0.95) SetTextAreaText textarea, "Lade Programm: 95%" Delay(200) UpdateProgBar progbar, (0.96) SetTextAreaText textarea, "Lade Programm: 96%" Delay(200) UpdateProgBar progbar, (0.97) SetTextAreaText textarea, "Lade Programm: 97%" Delay(200) UpdateProgBar progbar, (0.98) SetTextAreaText textarea, "Lade Programm: 98%" Delay(200) UpdateProgBar progbar, (0.99) SetTextAreaText textarea, "Lade Programm: 99% Delay(200) UpdateProgBar progbar, (1) SetTextAreaText textarea, "Lade Programm: 100% Delay(200) FreeGadget window Hoffe er ist nicht zu lang  [/list]
|
||
|
|
Pummelie |
So, Jun 15, 2008 11:44 Antworten mit Zitat
|
|---|---|---|
sry doppelposting 
|
||
ChristianK |
So, Jun 15, 2008 12:13 Antworten mit Zitat
|
|
|---|---|---|
|
Pummelie,
Den Fortschritt beim Laden kannst / solltest du mit einer Schleife machen und nicht für jedes % den Wert einzeln schreiben. 
Und verwende besser TextField statt TextArea. |
||
|
AdvanceLcd
Intel Core 2 Duo 3.2 GHz, 4 GB RAM, GeForce 8800 GTX | MacBook Pro 15,4″ Intel Core 2 Duo 2.4 GHz, 2 GB RAM, GeForce 8600M GT |
||
DjDETE |
So, Jun 15, 2008 12:14 Antworten mit Zitat
|
|
|---|---|---|
|
Also erstmal kannst du den ganzen Code um einiges verkürzen:
Code: [AUSKLAPPEN] window = CreateWindow("Lade Fortschritt", 350, 250, 300, 120, 0, 1) x = ClientWidth(window) progbar = CreateProgBar(10, 7, x - 20, 20, window) progbar2 = CreateProgBar(10, 50, x - 20, 20, window) UpdateProgBar progbar, (0) textarea = CreateTextArea(10, 28, 273, 20, window) SetTextAreaText textarea, "Lade Programm: 0%" timer1=CreateTimer(0.3) timer2=CreateTimer(5) WaitTimer timer1 For i#=0 To 1 Step 0.01 WaitTimer timer2 UpdateProgBar progbar,i SetTextAreaText textarea,"Lade Programm: "+i+"%" Next FreeGadget window Und wenn du anstelle des Delays auf den Timer wartest, funzt es auch als exe, zumindest bei mir. MfG DjDETE |
||
|
Aktuelles Projekt: XXX |XXX | 3% der v1b fertig
www.emu-soft.de.vu Für die Homepage suche ich noch Linktauschpartner, bei Interesse einfach melden. |
||
|
|
Pummelie |
So, Jun 15, 2008 12:17 Antworten mit Zitat
|
|---|---|---|
|
Also danke erstmal für die schnellen Antworten, werde es gleich mal ausprobieren, und mit textfield ist mir bei probe und exe der pc abgestürzt
|
||
|
|
Pummelie |
So, Jun 15, 2008 12:25 Antworten mit Zitat
|
|---|---|---|
|
DjDETE hat Folgendes geschrieben: Also erstmal kannst du den ganzen Code um einiges verkürzen:
Code: [AUSKLAPPEN] window = CreateWindow("Lade Fortschritt", 350, 250, 300, 120, 0, 1) x = ClientWidth(window) progbar = CreateProgBar(10, 7, x - 20, 20, window) progbar2 = CreateProgBar(10, 50, x - 20, 20, window) UpdateProgBar progbar, (0) textarea = CreateTextArea(10, 28, 273, 20, window) SetTextAreaText textarea, "Lade Programm: 0%" timer1=CreateTimer(0.3) timer2=CreateTimer(5) WaitTimer timer1 For i#=0 To 1 Step 0.01 WaitTimer timer2 UpdateProgBar progbar,i SetTextAreaText textarea,"Lade Programm: "+i+"%" Next FreeGadget window Und wenn du anstelle des Delays auf den Timer wartest, funzt es auch als exe, zumindest bei mir. MfG DjDETE So, hab mir das ganze mal genauer angeguckt, und es ist übersichtlich ohne zweifel besser, und es geht auch in der exe, das Problem ist das ich (auch wenn das sicher nicht aufgefallen ist) 4 Dateien geladen hab in der alten progbar, und egal was ich tue, ich bekomm es net hin das er auf 100 mit der progbar mit läuft. |
||
DjDETE |
So, Jun 15, 2008 12:30 Antworten mit Zitat
|
|
|---|---|---|
|
Wie meinst du das "das er auf 100 mit der Progbar mitläuft"
Wenn du Dateien bei bestimmten Prozentteilen laden willst, pack das einfach in die for...next schleife mit rein: Code: [AUSKLAPPEN] Select i Case 0.01 ;1. Datei laden Case 0.02 ;2. Dateil laden Case 0.03 ;... End Select Alles klar? oder hab ich deine Frage falsch verstanden? MfG DjDETE |
||
|
Aktuelles Projekt: XXX |XXX | 3% der v1b fertig
www.emu-soft.de.vu Für die Homepage suche ich noch Linktauschpartner, bei Interesse einfach melden. |
||
|
|
Pummelie |
So, Jun 15, 2008 12:37 Antworten mit Zitat
|
|---|---|---|
|
Ok, danke erstmal wegen der schleife.
Und jezt wegen der Progbar: Das sript was du geschrieben hast läuft mit kommer stelle auf 1. Mein undurchsichtiges 1. sript läuft aber auf 100. Ich habe dein sript umgeschrieben, so das es auch von 1 auf 100 läuft allerdings macht die progbar da nicht mit, und ist entweder in 2 sekunden voll, oder von anfangan, oder bewegt sich überhaupt nicht. |
||
DjDETE |
So, Jun 15, 2008 12:42 Antworten mit Zitat
|
|
|---|---|---|
|
Also: dein Problem versteh ich immer noch nicht ganz, aber:
1. Blitzbasic ist keine Script sondern eine Programmiersprache 
2. falls ich mit meiner Vermutung richtig liege, was dein Problem ist: bei einer Progbar entspricht der Wert 0 0%; 0.01 1%; 0.02 2%;...;0.1 10%;...;1 100% Liege ich richtig? MfG DjDETE |
||
|
Aktuelles Projekt: XXX |XXX | 3% der v1b fertig
www.emu-soft.de.vu Für die Homepage suche ich noch Linktauschpartner, bei Interesse einfach melden. |
||
|
|
Pummelie |
So, Jun 15, 2008 12:47 Antworten mit Zitat
|
|---|---|---|
| Jup, aber es kommt mir ja darauf an das das 100% am ende steht und nicht das die progbar bei 1 voll ist und er weiter läuft | ||
DjDETE |
So, Jun 15, 2008 12:56 Antworten mit Zitat
|
|
|---|---|---|
|
ich glaub ich weiß was du meinst:
Dann muss das in die Schleife: Code: [AUSKLAPPEN] j=i*100 settextareatext textarea,"Lade Programm: "+j+"%" das andere settextareatext muss dann natürlich weg. MfG DjDETE |
||
|
Aktuelles Projekt: XXX |XXX | 3% der v1b fertig
www.emu-soft.de.vu Für die Homepage suche ich noch Linktauschpartner, bei Interesse einfach melden. |
||
|
|
Pummelie |
So, Jun 15, 2008 13:23 Antworten mit Zitat
|
|---|---|---|
|
Super, das geht, aber dein vorschlag das ich das einfügen soll:
Code: [AUSKLAPPEN] Select i Case 0.01 ;1. Datei laden Case 0.02 ;2. Dateil laden Case 0.03 ;... End Select Geht nicht, er läd nix |
||
DjDETE |
So, Jun 15, 2008 13:32 Antworten mit Zitat
|
|
|---|---|---|
|
Komisch, ich habs getestet, indem ich immer Notifys reingemacht hab, und da hats funktioniert...
Probiers mal mit Code: [AUSKLAPPEN] Select j case 1 notify "HI" end select Gib bescheid obs funktioniert... MfG DjDETE Edit: Also im Endeeffekt dann so: Code: [AUSKLAPPEN] window = CreateWindow("Lade Fortschritt", 350, 250, 300, 120, 0, 1) x = ClientWidth(window) progbar = CreateProgBar(10, 7, x - 20, 20, window) progbar2 = CreateProgBar(10, 50, x - 20, 20, window) UpdateProgBar progbar, (0) textarea = CreateTextArea(10, 28, 273, 20, window) SetTextAreaText textarea, "Lade Programm: 0%" timer1=CreateTimer(0.3) timer2=CreateTimer(5) WaitTimer timer1 For i#=0 To 1 Step 0.01 WaitTimer timer2 j=i*100 UpdateProgBar progbar,i SetTextAreaText textarea,"Lade Programm: "+j+"%" Select j Case 1 Notify "HI" Case 2 Notify "BAUM" End Select Next FreeGadget window |
||
|
Aktuelles Projekt: XXX |XXX | 3% der v1b fertig
www.emu-soft.de.vu Für die Homepage suche ich noch Linktauschpartner, bei Interesse einfach melden. |
||
|
|
Pummelie |
So, Jun 15, 2008 13:56 Antworten mit Zitat
|
|---|---|---|
| Es funktioniert!!! | ||
DjDETE |
So, Jun 15, 2008 14:22 Antworten mit Zitat
|
|
|---|---|---|
| gut =) | ||
|
Aktuelles Projekt: XXX |XXX | 3% der v1b fertig
www.emu-soft.de.vu Für die Homepage suche ich noch Linktauschpartner, bei Interesse einfach melden. |
||
Übersicht
BlitzBasic Beginners-Corner
Powered by phpBB © 2001 - 2006, phpBB Group