Xter Statusbalken

Übersicht

BlitzBasic

Codearchiv

	Blitzcoder Newsposter Betreff: Xter Statusbalken	Do, Apr 07, 2005 18:49 Antworten mit Zitat
Hallo! Ich habe gerade mal einen Statusbalken gecodet! Ist ne Funktion! Sollte selbsterklaerend sein! Code: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Function statusbar(prozent#,xposition,yposition,breite,hoehe) ;Rahmen zeichnen Color 255,255,255 Rect xposition,yposition,breite,hoehe,0 ;Balken zeichnen balkenbreite=(breite/100) balkenbreite=balkenbreiteprozent# Color 0,0,255 For i=1 To balkenbreite Line xposition+i,yposition+1,xposition+i,yposition+hoehe-2 Next End Function Fuer alle, die zu Faul sind, sich selbt ein Prog zum testen zu schreiben: BlitzBasic:* [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,0,2 brei=200 hoch=200 proz=15 SetBuffer BackBuffer() Repeat If KeyDown(200) Then proz=proz+1 If KeyDown(208) Then proz=proz-1 If KeyDown(203) Then brei=brei-1 If KeyDown(205) Then brei=brei+1 If KeyDown(209) Then hoch=hoch-1 If KeyDown(201) Then hoch=hoch+1 statusbar(proz,MouseX(),MouseY(),brei,hoch) Color 255,0,0 frames=MilliSecs()-a frames=1000/frames Text 0,0,\"FPS: \"+frames a=MilliSecs() Flip Cls Until KeyDown(1) End Function statusbar(prozent#,xposition,yposition,breite,hoehe) ;Rahmen zeichnen Color 255,255,255 Rect xposition,yposition,breite,hoehe,0 ;Balken zeichnen balkenbreite=(breite/100) balkenbreite=balkenbreite*prozent# Color 0,0,255 For i=1 To balkenbreite Line xposition+i,yposition+1,xposition+i,yposition+hoehe-2 Next End Function

Blitzcoder

Newsposter

Betreff: Xter Statusbalken

Do, Apr 07, 2005 18:49
Antworten mit Zitat

Hallo!

Ich habe gerade mal einen Statusbalken gecodet!

Ist ne Funktion!

Sollte selbsterklaerend sein!

Code:

BlitzBasic: [AUSKLAPPEN]



Function statusbar(prozent#,xposition,yposition,breite,hoehe)

;Rahmen zeichnen
Color 255,255,255
Rect xposition,yposition,breite,hoehe,0

;Balken zeichnen

balkenbreite=(breite/100)
balkenbreite=balkenbreite*prozent#
Color 0,0,255
For i=1 To balkenbreite
Line xposition+i,yposition+1,xposition+i,yposition+hoehe-2
Next



End Function

Fuer alle, die zu Faul sind, sich selbt ein Prog zum testen zu schreiben:

BlitzBasic: [AUSKLAPPEN]



Graphics 800,600,0,2



brei=200
hoch=200
proz=15

SetBuffer BackBuffer()

Repeat

If KeyDown(200) Then proz=proz+1
If KeyDown(208) Then proz=proz-1

If KeyDown(203) Then brei=brei-1
If KeyDown(205) Then brei=brei+1

If KeyDown(209) Then hoch=hoch-1
If KeyDown(201) Then hoch=hoch+1

statusbar(proz,MouseX(),MouseY(),brei,hoch)


Color 255,0,0

frames=MilliSecs()-a

frames=1000/frames



Text 0,0,\"FPS: \"+frames


a=MilliSecs()

Flip
Cls
Until KeyDown(1)




End









Function statusbar(prozent#,xposition,yposition,breite,hoehe)

;Rahmen zeichnen
Color 255,255,255
Rect xposition,yposition,breite,hoehe,0

;Balken zeichnen

balkenbreite=(breite/100)
balkenbreite=balkenbreite*prozent#
Color 0,0,255
For i=1 To balkenbreite
Line xposition+i,yposition+1,xposition+i,yposition+hoehe-2
Next



End Function

	Mr.Keks	Do, Apr 07, 2005 18:59 Antworten mit Zitat
Zitat: Color 0,0,255 For i=1 To balkenbreite Line xposition+i,yposition+1,xposition+i,yposition+hoehe-2 Next OMG!! Du kannst das auch ganz simpel mit Rect machen! So ist das verdammt umständlich und noch dazu unglaublich lahm... BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Function statusbar(prozent#,xposition,yposition,breite,hoehe) ;Rahmen zeichnen Color 255,255,255 Rect xposition,yposition,breite,hoehe,0 ;Balken zeichnen balkenbreite=Float(breite)*prozent# /100.00 Color 0,0,255 Rect xposition,yposition,balkenbreite,hoehe End Function
MrKeks.net

Mr.Keks

Do, Apr 07, 2005 18:59
Antworten mit Zitat

Zitat:

Color 0,0,255
For i=1 To balkenbreite
Line xposition+i,yposition+1,xposition+i,yposition+hoehe-2
Next

OMG!! Du kannst das auch ganz simpel mit Rect machen! So ist das verdammt umständlich und noch dazu unglaublich lahm...

BlitzBasic: [AUSKLAPPEN]

Function statusbar(prozent#,xposition,yposition,breite,hoehe) 

;Rahmen zeichnen 
Color 255,255,255 
Rect xposition,yposition,breite,hoehe,0 

;Balken zeichnen 

balkenbreite=Float(breite)*prozent# /100.00 
Color 0,0,255 
Rect xposition,yposition,balkenbreite,hoehe


End Function

MrKeks.net

	Blitzcoder Newsposter	Do, Apr 07, 2005 19:06 Antworten mit Zitat
Stimmt! Ist mir gar nicht eingefallen! Uebrigens verdeckt dein Code den wießen Rahmen! Code: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,0,2 brei=200 hoch=200 proz=15 SetBuffer BackBuffer() Repeat If KeyDown(200) Then proz=proz+1 If KeyDown(208) Then proz=proz-1 If KeyDown(203) Then brei=brei-1 If KeyDown(205) Then brei=brei+1 If KeyDown(209) Then hoch=hoch-1 If KeyDown(201) Then hoch=hoch+1 statusbar(proz,MouseX(),MouseY(),brei,hoch) Color 255,0,0 frames=MilliSecs()-a frames=1000/frames Text 0,0,\"FPS: \"+frames a=MilliSecs() Flip Cls Until KeyDown(1) End Function statusbar(prozent#,xposition,yposition,breite,hoehe) ;Rahmen zeichnen Color 255,255,255 Rect xposition,yposition,breite,hoehe,0 ;Balken zeichnen balkenbreite=(breite/100) balkenbreite=balkenbreite*prozent# Color 0,0,255 For i=1 To balkenbreite Rect xposition+1,yposition+1,i,hoehe-2 Next End Function

Blitzcoder

Newsposter

Do, Apr 07, 2005 19:06
Antworten mit Zitat

Stimmt!

Ist mir gar nicht eingefallen!

Uebrigens verdeckt dein Code den wießen Rahmen!

Code:

BlitzBasic: [AUSKLAPPEN]



Graphics 800,600,0,2



brei=200
hoch=200
proz=15

SetBuffer BackBuffer()

Repeat

If KeyDown(200) Then proz=proz+1
If KeyDown(208) Then proz=proz-1

If KeyDown(203) Then brei=brei-1
If KeyDown(205) Then brei=brei+1

If KeyDown(209) Then hoch=hoch-1
If KeyDown(201) Then hoch=hoch+1

statusbar(proz,MouseX(),MouseY(),brei,hoch)


Color 255,0,0

frames=MilliSecs()-a

frames=1000/frames



Text 0,0,\"FPS: \"+frames


a=MilliSecs()

Flip
Cls
Until KeyDown(1)




End









Function statusbar(prozent#,xposition,yposition,breite,hoehe)

;Rahmen zeichnen
Color 255,255,255
Rect xposition,yposition,breite,hoehe,0

;Balken zeichnen

balkenbreite=(breite/100)
balkenbreite=balkenbreite*prozent#
Color 0,0,255
For i=1 To balkenbreite
Rect xposition+1,yposition+1,i,hoehe-2
Next



End Function

	noir	Di, Mai 03, 2005 16:10 Antworten mit Zitat
Ideenlos hat Folgendes geschrieben: Ich hätte auch noch was: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] SetGfx() Function SetGfx() Graphics 500,100 SetBuffer BackBuffer() x=30 While Not KeyHit(1) Text 0,30,\"Lade...\",True,True Rect x,40,20,20,1 If x<470 Then x=x+1 Else Goto ende Wend Flip .ende End Function sry, da kann ich nur sagen: .. HILFE
Fragt und man wird euch helfen Das Alternativ BlitzBasic-Forum: FreeCoder Einfach chatten: BlitzChat Code&Text schnell und einfach pasten: FreePasting

noir

Di, Mai 03, 2005 16:10
Antworten mit Zitat

Ideenlos hat Folgendes geschrieben:

Ich hätte auch noch was:
BlitzBasic: [AUSKLAPPEN]


SetGfx()
Function SetGfx()
Graphics 500,100
SetBuffer BackBuffer()
x=30
While Not KeyHit(1)
Text 0,30,\"Lade...\",True,True
Rect x,40,20,20,1
If x<470 Then x=x+1
Else Goto ende
Wend
Flip
.ende
End Function

sry, da kann ich nur sagen: .. HILFE Rolling Eyes

Fragt und man wird euch helfen

Das Alternativ BlitzBasic-Forum: FreeCoder
Einfach chatten: BlitzChat
Code&Text schnell und einfach pasten: FreePasting

	Artemis	Di, Mai 03, 2005 16:26 Antworten mit Zitat
@ ideenlos dein name pastt! fg denke erst mal nach bevor du solch einen "kot" schreibst!

Artemis

Di, Mai 03, 2005 16:26
Antworten mit Zitat

@ ideenlos
dein name pastt! *fg*
denke erst mal nach bevor du solch einen "kot" schreibst!

	Ideenlos	Di, Mai 03, 2005 16:41 Antworten mit Zitat
1. Was meinst du, warum ich diesen Namen genommen habe????
Programmieren ja, aber Ideen haben, nein, das kann ich wirklich nicht!

Ideenlos

Di, Mai 03, 2005 16:41
Antworten mit Zitat

1. Was meinst du, warum ich diesen Namen genommen habe???? Very Happy

Programmieren ja, aber Ideen haben, nein, das kann ich wirklich nicht!

Zuletzt bearbeitet von Ideenlos am Di, Mai 03, 2005 18:41, insgesamt einmal bearbeitet

	noir	Di, Mai 03, 2005 16:47 Antworten mit Zitat
wenn du es hören willst: Der code ist teilweise einfach nur falsch, der Rest ist schlecht und sinnlos...
Fragt und man wird euch helfen Das Alternativ BlitzBasic-Forum: FreeCoder Einfach chatten: BlitzChat Code&Text schnell und einfach pasten: FreePasting

noir

Di, Mai 03, 2005 16:47
Antworten mit Zitat

wenn du es hören willst:
Der code ist teilweise einfach nur falsch, der Rest ist schlecht und sinnlos... Confused

Fragt und man wird euch helfen

Das Alternativ BlitzBasic-Forum: FreeCoder
Einfach chatten: BlitzChat
Code&Text schnell und einfach pasten: FreePasting

Übersicht

BlitzBasic

Codearchiv

Nach Oben

BlitzBasic Portal

Xter Statusbalken

Blitzcoder

Betreff: Xter Statusbalken

Mr.Keks

Blitzcoder

noir

Artemis

Ideenlos

noir