Glückwunsch Monitor

Übersicht BlitzBasic Codearchiv

Neue Antwort erstellen

Blatolo

Betreff: Glückwunsch Monitor

 BeitragSo, März 21, 2004 0:38
Antworten mit Zitat
Benutzer-Profile anzeigen
Habe das hier zum Geburtstag meines Vaters heute Abend gecodet.
War bei dem ganzen Bier gar nicht so leicht, aber das Ergebnis will ich euch nicht vorenthalten.

BlitzBasic: [AUSKLAPPEN] 

Graphics 800,600,16,1
SetBuffer BackBuffer()
SeedRnd MilliSecs()

anzahl_gruppen=3
anzahl_partikel=300

arial=LoadFont(\"arial\",50)
SetFont arial

text_x#=400-StringWidth(\"Happy Birthday\")/2
text_y#=300-StringHeight(\"Happy Birthday\")/2

; 0:rgb, 1:x, 2:y, 3:x_bewegung, 4:y_bewegung, 5:zeit
Dim partikel#(anzahl_gruppen-1,anzahl_partikel-1,5)

For i=0 To anzahl_gruppen-1
	r=Rand(0,255)
	g=Rand(0,255)
	b=Rand(0,255)
	x#=Rnd(0,800)
	y#=Rnd(0,600)
	zeit=MilliSecs()+Rand(700,1200)
	For ii=0 To anzahl_partikel-1
		partikel(i,ii,1)=x#
		partikel(i,ii,2)=y#
		partikel(i,ii,5)=zeit
		x_richtung#=Rnd(-1,1)
		y_richtung#=Rnd(-1,1)
		speed#=Rnd(0.5,2.5)
		partikel(i,ii,3)=speed#*x_richtung#/Sqr(y_richtung#^2+x_richtung#^2)
		partikel(i,ii,4)=speed#*y_richtung#/Sqr(x_richtung#^2+y_richtung#^2)
		rgb=r*$10000+g*$100+b
		partikel(i,ii,0)=rgb And $FFFFFF
	Next
Next

While Not KeyDown(1)
	Cls
	For i=0 To anzahl_gruppen-1
		r=Rand(0,255)
		g=Rand(0,255)
		b=Rand(0,255)
		x#=Rnd(0,GraphicsWidth())
		y#=Rnd(0,GraphicsHeight())
		zeit=MilliSecs()+Rand(700,1200)
		For ii=0 To anzahl_partikel-1
			If MilliSecs()>partikel(i,ii,5)
				partikel(i,ii,1)=x#
				partikel(i,ii,2)=y#
				partikel(i,ii,5)=zeit
				x_richtung#=Rnd(-1,1)
				y_richtung#=Rnd(-1,1)
				speed#=Rnd(0.5,2.5)
				partikel(i,ii,3)=speed#*x_richtung#/Sqr(y_richtung#^2+x_richtung#^2)
				partikel(i,ii,4)=speed#*y_richtung#/Sqr(x_richtung#^2+y_richtung#^2)
				rgb=r*$10000+g*$100+b
				partikel(i,ii,0)=rgb And $FFFFFF
			EndIf
			WritePixel partikel#(i,ii,1),partikel#(i,ii,2),partikel#(i,ii,0)
			partikel(i,ii,1)=partikel(i,ii,1)+partikel(i,ii,3)
			partikel(i,ii,2)=partikel(i,ii,2)+partikel(i,ii,4)
		Next
	Next
	Color 255,255,255
	Text text_x#,text_y#,\"Happy Birthday\"
	Flip
Wend
  • Zuletzt bearbeitet von Blatolo am So, März 21, 2004 13:14, insgesamt einmal bearbeitet

Triton

 BeitragSo, März 21, 2004 1:06
Antworten mit Zitat
Benutzer-Profile anzeigen
Erinnert mich an meine Simple-Particle Smile

Wenigstens zentrieren hättest du den Text können...

Blatolo

 BeitragSo, März 21, 2004 1:28
Antworten mit Zitat
Benutzer-Profile anzeigen
Das zentrieren habe ich ja versucht, hat aber irgendwie nicht funktioniert.
Wenn du weißt wieso sag es mir.
BlitzBasic: [AUSKLAPPEN] 
text_x#=400-StringWidth(\"Happy Birthday\")/2 
text_y#=300-StringHeight(\"Happy Birthday\")/2

Damit hab ich versucht den Text zu zentrieren
 

OJay

 BeitragSo, März 21, 2004 1:59
Antworten mit Zitat
Benutzer-Profile anzeigen
BlitzBasic: [AUSKLAPPEN] 
Text 400,300,\"Happy birthday\",True,True
Laughing

Mr.Keks

 BeitragSo, März 21, 2004 10:04
Antworten mit Zitat
Benutzer-Profile anzeigen
Zitat:
text_x#=400-StringWidth("Happy Birthday")/2
text_y#=300-StringHeight("Happy Birthday")/2

arial=LoadFont("arial",50)
SetFont arial
vielleicht hätte man den font ja vor dem stringwidth setzen sollen? Wink)))
MrKeks.net

Blatolo

 BeitragSo, März 21, 2004 11:03
Antworten mit Zitat
Benutzer-Profile anzeigen
Inarie hat Folgendes geschrieben:
Zitat:
text_x#=400-StringWidth("Happy Birthday")/2
text_y#=300-StringHeight("Happy Birthday")/2

arial=LoadFont("arial",50)
SetFont arial
vielleicht hätte man den font ja vor dem stringwidth setzen sollen? Wink)))

Oh wie dumm von mir.
Sowas passiert mir normalerweise nicht aber wenn man etwas angetrunken ist lässt die Konzentration schon mal nach.
Danke für den Hinweis.
Habs geändert.

Neue Antwort erstellen


Übersicht BlitzBasic Codearchiv

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group