 |
Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
AndT
Anmeldungsdatum: 02.04.2007
Beiträge: 481
|
 Verfasst am: 12.07.2007, 15:49 Titel: Statusanzeige in Freebasic programmieren |
 |
|
Wie kann ich eine Statusanzeige in Freebasic Programmieren??
Es soll inetwa wie hier
http://www.asajia.com/index.php?section=t1
aussehen.
_________________
Bis irgendwann...  |
|
| Nach oben |
|
 |
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 12.07.2007, 16:15 Titel: |
|
|
naja, im grunde ist das nur ein Line-Befehl:
| Code: |
dim as integer prozent
screen 19,32
for prozent = 1 to 100
Line(0,0)-(prozent * 2, 15), rgb(0,200,0),bf
if prozent < 100 then Line(prozent*2+1,0)-(200, 15), rgb(200,0,0),bf
draw string (90,1), Prozent & "%", rgb(255,255,255)
sleep 50
next
sleep
|
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
 |
|
| Nach oben |
|
|
csde_rats
Anmeldungsdatum: 07.01.2007
Beiträge: 2292
Wohnort: Zwischen Sessel und Tastatur
|
| Verfasst am: 12.07.2007, 16:37 Titel: |
|
|
Er wollte es aber mit WinAPI machen 
@AndT:
Wenn du das mit WinAPI machen möchtest, muss dein ganzes Fenster mit WinAPI erstellt worden sein. Machs besser mit Jojos vorschlag.
_________________
If hilfreicher_Beitrag then klick(location.here)
Klick |
|
| Nach oben |
|
|
AndT
Anmeldungsdatum: 02.04.2007
Beiträge: 481
|
| Verfasst am: 12.07.2007, 16:44 Titel: |
|
|
| Zitat: | Wenn du das mit WinAPI machen möchtest, muss dein ganzes Fenster mit WinAPI erstellt worden sein.
|
Durchaus Sinnvoll
thx
_________________
Bis irgendwann... |
|
| Nach oben |
|
|
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 12.07.2007, 17:13 Titel: |
|
|
| csderats hat Folgendes geschrieben: | | Er wollte es aber mit WinAPI machen |
davon stand NIX im post... und da er es in "freeBasic" programmieren will, stimmt auch mein code  das andere wäre nämlich mit der winAPI programmiert
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
|
|
| Nach oben |
|
|
csde_rats
Anmeldungsdatum: 07.01.2007
Beiträge: 2292
Wohnort: Zwischen Sessel und Tastatur
|
|
| Nach oben |
|
|
AndT
Anmeldungsdatum: 02.04.2007
Beiträge: 481
|
| Verfasst am: 12.07.2007, 17:44 Titel: |
|
|
Naja eigl wollt ich per API, aber egal ich finde diese Lösung besser.
Für die ganze Muhe hab ich eine Sub gecoded
| Code: | sub Statusanzeige (Acktuellerwert as integer, Endwert as integer, PosX as integer,PosY as integer)
dim as integer prozent
Prozent=Acktuellerwert*100/Endwert
Line(PosX,PosY)-(PosX+prozent * 2,PosY +30), rgb(0,200,0),bf
if prozent < 100 then Line(PosX+prozent*2+1,PosY)-(PosX+200,Posy+ 30), rgb(200,0,0),bf
draw string (PosX+90,PosY+10 ), Prozent & "%", rgb(255,255,255)
end sub
screen 19,32
Statusanzeige (27,100,100,100)
sleep
|
Ist da noch irgendwas zu bemängeln?
_________________
Bis irgendwann... |
|
| Nach oben |
|
|
csde_rats
Anmeldungsdatum: 07.01.2007
Beiträge: 2292
Wohnort: Zwischen Sessel und Tastatur
|
| Verfasst am: 12.07.2007, 17:47 Titel: |
|
|
| AndT hat Folgendes geschrieben: | | Ist da noch irgendwas zu bemängeln? |
JA!!!
Die Einrückungen  
büdde nicht ernstnehmen
€dit|
| Code: |
sub Statusanzeige (Acktuellerwert as integer, Endwert as integer, PosX as integer,PosY as integer)
dim as integer prozent
Prozent=Acktuellerwert*100/Endwert
screenlock
Line(PosX+1,PosY+1)-(PosX+prozent * 2,PosY +30), rgb(0,0,255),bf
if prozent < 100 then
Line(PosX+prozent*2+1,PosY+1)-(PosX+200,Posy+ 30), rgb(0,0,0),bf
end if
draw string (PosX+90,PosY+10 ), Prozent & "%", rgb(255,255,255)
line(PosX, PosY)-(PosX+200,PosY +30), rgb(255,255,255),b
screenunlock
end sub
|
Ein bisschen an schwarzen Hintergrund angepasst 
_________________
If hilfreicher_Beitrag then klick(location.here)
Klick
Zuletzt bearbeitet von csde_rats am 12.07.2007, 17:56, insgesamt einmal bearbeitet |
|
| Nach oben |
|
|
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 12.07.2007, 17:56 Titel: |
|
|
doch doch, einrückungen sind wichtig... sonst erkennt man nach nem monat seinen code nicht mehr...
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
|
|
| Nach oben |
|
|
PMedia
Anmeldungsdatum: 14.08.2006
Beiträge: 2847
|
| Verfasst am: 12.07.2007, 19:37 Titel: |
|
|
| Übrigens, ich glaub es ist angebracht, bei großen Codes Sprungmarken zu verwenden (aber ohne GoTo's), durch den Doppelpunkt ist der Text ohne Kommentare hervorhebbar, und bei korrekter Formatierung in FBide auch problemlos einklappbar |
|
| Nach oben |
|
|
csde_rats
Anmeldungsdatum: 07.01.2007
Beiträge: 2292
Wohnort: Zwischen Sessel und Tastatur
|
| Verfasst am: 12.07.2007, 20:36 Titel: |
|
|
Ich verwende gerne "Zeilenbrecher":
In PHP:
| Code: |
///////////////////////////////////////////////////////////////////////////////
///////////////Name-von-sonstewas///////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
|
In FB&QB&usw.:
| Code: |
'***************************************************************
'*******Blaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa*****************
'***************************************************************
|
_________________
If hilfreicher_Beitrag then klick(location.here)
Klick |
|
| Nach oben |
|
|
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 12.07.2007, 21:34 Titel: |
|
|
mit kommentaren kannst du aber nicht gezielt hin- und herspringen, es sei dem, du vergibst kommentar-ids und suchst nach denen. da hat pmedia nicht ganz unrecht mit seiner methode. ich benutze für sowas dummy-funktionen, die ich im funktions-explorer leicht finde.
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
|
|
| Nach oben |
|
|
PMedia
Anmeldungsdatum: 14.08.2006
Beiträge: 2847
|
| Verfasst am: 12.07.2007, 22:21 Titel: |
|
|
[firewall=off]
Hehe, der Chef hat immer Recht
[firewall=on]
War nat. ein Scherz, für all die die das an den Tags nicht erkannt haben. |
|
| Nach oben |
|
|
Eternal_pain
Anmeldungsdatum: 08.08.2006
Beiträge: 1783
Wohnort: BW/KA
|
| Verfasst am: 12.07.2007, 23:11 Titel: |
|
|
Strg+F und eindeutige kommentare
_________________
 |
|
| Nach oben |
|
|
|
|
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
