Grelle Farben als Scherz- oder Discoprogramm

Übersicht

BlitzBasic

Allgemein

Gehe zu Seite 1, 2 Weiter

	Hallosager Betreff: Grelle Farben als Scherz- oder Discoprogramm	Mi, Jul 06, 2005 20:49 Antworten mit Zitat
Ich habe folgende Progs: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Delay 500 ClsColor 255,0,0:Cls Delay 2000 ClsColor 0,255,0:Cls Delay 2000 ClsColor 0,0,255:Cls Delay 2000 Delay 1000 ClsColor 255,0,0 Cls Delay 1000 ClsColor 0,255,0 Cls Delay 1000 ClsColor 0,0,255 Cls Delay 1000 Delay 750 ClsColor 255,0,0 Cls Delay 750 ClsColor 0,255,0 Cls Delay 750 ClsColor 0,0,255 Cls Delay 750 Delay 500 ClsColor 255,0,0 Cls Delay 500 ClsColor 0,255,0 Cls Delay 500 ClsColor 0,0,255 Cls Delay 500 Delay 250 ClsColor 255,0,0 Cls Delay 250 ClsColor 0,255,0 Cls Delay 250 ClsColor 0,0,255 Cls Delay 250 Delay 200 ClsColor 255,0,0 Cls Delay 200 ClsColor 0,255,0 Cls Delay 200 ClsColor 0,0,255 Cls Delay 200 Delay 100 ClsColor 255,0,0 Cls Delay 100 ClsColor 0,255,0 Cls Delay 100 ClsColor 0,0,255 Cls Delay 100 Delay 75 ClsColor 255,0,0 Cls Delay 75 ClsColor 0,255,0 Cls Delay 75 ClsColor 0,0,255 Cls Delay 75 Delay 50 ClsColor 255,0,0:Cls Delay 50 ClsColor 0,255,0:Cls Delay 50 ClsColor 0,0,255:Cls Delay 50 BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 300,300,16,3 AppTitle\"Die größe des Fensters ist veränderbar.\" .Start Delay 150 ClsColor 255,0,0 Cls Delay 150 ClsColor 0,255,0 Cls Delay 150 ClsColor 0,0,255 Cls Delay 150 ClsColor 255,255,0 Cls Delay 150 ClsColor 0,2555,255 Cls Delay 150 ClsColor 255,0,255 Cls Delay 150 ClsColor 255,255,255 Cls Delay 150 Goto Start Was glaubt ihr, sind Farben, die den Augen wehtun oder so?

Hallosager

Betreff: Grelle Farben als Scherz- oder Discoprogramm

Mi, Jul 06, 2005 20:49
Antworten mit Zitat

Ich habe folgende Progs:
BlitzBasic: [AUSKLAPPEN]

Delay 500
ClsColor 255,0,0:Cls
Delay 2000
ClsColor 0,255,0:Cls
Delay 2000
ClsColor 0,0,255:Cls
Delay 2000

Delay 1000
ClsColor 255,0,0
Cls
Delay 1000
ClsColor 0,255,0
Cls
Delay 1000
ClsColor 0,0,255
Cls
Delay 1000

Delay 750
ClsColor 255,0,0
Cls
Delay 750
ClsColor 0,255,0
Cls
Delay 750
ClsColor 0,0,255
Cls
Delay 750

Delay 500
ClsColor 255,0,0
Cls
Delay 500
ClsColor 0,255,0
Cls
Delay 500
ClsColor 0,0,255
Cls
Delay 500

Delay 250
ClsColor 255,0,0
Cls
Delay 250
ClsColor 0,255,0
Cls
Delay 250
ClsColor 0,0,255
Cls
Delay 250

Delay 200
ClsColor 255,0,0
Cls
Delay 200
ClsColor 0,255,0
Cls
Delay 200
ClsColor 0,0,255
Cls
Delay 200

Delay 100
ClsColor 255,0,0
Cls
Delay 100
ClsColor 0,255,0
Cls
Delay 100
ClsColor 0,0,255
Cls
Delay 100

Delay 75
ClsColor 255,0,0
Cls
Delay 75
ClsColor 0,255,0
Cls
Delay 75
ClsColor 0,0,255
Cls
Delay 75

Delay 50
ClsColor 255,0,0:Cls
Delay 50
ClsColor 0,255,0:Cls
Delay 50
ClsColor 0,0,255:Cls
Delay 50

BlitzBasic: [AUSKLAPPEN]

Graphics 300,300,16,3
AppTitle\"Die größe des Fensters ist veränderbar.\"
.Start
Delay 150
ClsColor 255,0,0
Cls
Delay 150
ClsColor 0,255,0
Cls
Delay 150
ClsColor 0,0,255
Cls
Delay 150
ClsColor 255,255,0
Cls
Delay 150
ClsColor 0,2555,255
Cls
Delay 150
ClsColor 255,0,255
Cls
Delay 150
ClsColor 255,255,255
Cls
Delay 150
Goto Start

Was glaubt ihr, sind Farben, die den Augen wehtun oder so?

	Artemis	Do, Jul 07, 2005 8:28 Antworten mit Zitat
Ich weiß es nicht und möchte es nit testen. Aber zu deinem CodeStil möchte ich etas sagen: Benutze DoubleBuffering( ql:Backbuffer, ql:Flip ) Benutze Schleifen( ql:For, ql:to, ql:next, ql:repeat, ql:until, ql:forever, ql:while, ql:wend ) Vor allem deinen ersten Code kann man damit viel kürzer machen. Dem zweiten kann man dadurch das goto entziehen. Mfg Jonas

Artemis

Do, Jul 07, 2005 8:28
Antworten mit Zitat

Ich weiß es nicht und möchte es nit testen.
Aber zu deinem CodeStil möchte ich etas sagen:

Benutze DoubleBuffering( ql:Backbuffer, ql:Flip )

Benutze Schleifen( ql:For, ql:to, ql:next, ql:repeat, ql:until, ql:forever, ql:while, ql:wend )
Vor allem deinen ersten Code kann man damit viel kürzer machen.
Dem zweiten kann man dadurch das goto entziehen.

Mfg Jonas

	Alfadur	Do, Jul 07, 2005 12:35 Antworten mit Zitat
damit hier niemand dumm sterben muß, schau dir mal das an : BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600 SetBuffer BackBuffer() timer=CreateTimer(10) c=1 While Not KeyHit(1) If c=3 Then c=1 Else c=c+1 Select c Case 1 ClsColor(255,0,0) Case 2 ClsColor(0,255,0) Case 3 ClsColor(0,0,255) End Select Cls Flip 0 WaitTimer(timer) Wend
A Cray is the only computer that runs an endless loop in less than four hours.

Alfadur

Do, Jul 07, 2005 12:35
Antworten mit Zitat

damit hier niemand dumm sterben muß, schau dir mal das an :

BlitzBasic: [AUSKLAPPEN]


Graphics 800,600
SetBuffer BackBuffer()
timer=CreateTimer(10)

c=1
While Not KeyHit(1)

	If c=3 Then c=1 Else c=c+1

	Select c
		Case 1
			ClsColor(255,0,0)
		Case 2
			ClsColor(0,255,0)
		Case 3
			ClsColor(0,0,255)
	End Select

	Cls 

	Flip 0
	WaitTimer(timer)
	
Wend

A Cray is the only computer that runs an endless loop in less than four hours.

	Jack	Do, Jul 07, 2005 15:06 Antworten mit Zitat
1. Alfadur hat Folgendes geschrieben: Flip 0 Warum das 2. Ich finde Alfadur's Programm besser sry
Wer kein HTML kann und lernen will, der ist wirklich dumm... MFG Dennerlein

Jack

Do, Jul 07, 2005 15:06
Antworten mit Zitat

1.
Alfadur hat Folgendes geschrieben:

Flip 0

Warum das

2.
Ich finde Alfadur's Programm besser Exclamation

sry

Wer kein HTML kann und lernen will, der ist wirklich dumm... MFG Dennerlein

	Artemis	Fr, Jul 08, 2005 10:36 Antworten mit Zitat
@ Jack bitte les das hier: ql:flip

Artemis

Fr, Jul 08, 2005 10:36
Antworten mit Zitat

@ Jack bitte les das hier: ql:flip

	Devils Child	Mo, Jul 11, 2005 17:17 Antworten mit Zitat
das kann man wunderfoll mit datanbanken machen(data, read, restore)
X-Ware Member Mission to Hell[Ego-Shooter] Hier Vollversion runterladen: http://patrick-sch.de/spiele/m...ersion.zip ich antworte auf jede PN

Devils Child

Mo, Jul 11, 2005 17:17
Antworten mit Zitat

das kann man wunderfoll mit datanbanken machen(data, read, restore)

*X-Ware Member*

Mission to Hell[Ego-Shooter]
Hier Vollversion runterladen:
http://patrick-sch.de/spiele/m...ersion.zip

ich antworte auf jede PN

	TheProgrammer	Mo, Jul 11, 2005 19:05 Antworten mit Zitat
...oder einfach so: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480,32,1 SetBuffer BackBuffer() While Not KeyHit(1) Cls ClsColor Rand(0,255),Rand(0,255),Rand(0,255) Flip Wend End PS.: Wenn du ne null hinter Flip machst, siehst du, was es bewirkt...
aktuelles Projekt: The last day of human being

TheProgrammer

Mo, Jul 11, 2005 19:05
Antworten mit Zitat

...oder einfach so:

BlitzBasic: [AUSKLAPPEN]


Graphics 640,480,32,1
SetBuffer BackBuffer()

While Not KeyHit(1)
 Cls

 ClsColor Rand(0,255),Rand(0,255),Rand(0,255)

 Flip
Wend
End

PS.: Wenn du ne null hinter Flip machst, siehst du, was es bewirkt...

aktuelles Projekt: The last day of human being

	BlackTermi	Mo, Jul 11, 2005 20:21 Antworten mit Zitat
ich kriegs noch kürzer BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480,32,1 While Not KeyHit(1) Cls ClsColor Rand(0,255),Rand(0,255),Rand(0,255) Flip Wend End

BlackTermi

Mo, Jul 11, 2005 20:21
Antworten mit Zitat

ich kriegs noch kürzer
BlitzBasic: [AUSKLAPPEN]


Graphics 640,480,32,1 

While Not KeyHit(1) 

 Cls 
 ClsColor Rand(0,255),Rand(0,255),Rand(0,255) 

Flip

Wend 
End

	Hallosager	Mo, Jul 11, 2005 20:34 Antworten mit Zitat
Noch kürzer. BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480,32,1:While Not KeyHit(1) Cls:ClsColor Rand(255),Rand(255),Rand(255) Flip:Wend:End

Hallosager

Mo, Jul 11, 2005 20:34
Antworten mit Zitat

Noch kürzer. Razz

BlitzBasic: [AUSKLAPPEN]

Graphics 640,480,32,1:While Not KeyHit(1)
Cls:ClsColor Rand(255),Rand(255),Rand(255)
Flip:Wend:End

	BlackTermi	Mo, Jul 11, 2005 20:39 Antworten mit Zitat
immer wird hier alles zugespammt is ja nicht zum aushalten

BlackTermi

Mo, Jul 11, 2005 20:39
Antworten mit Zitat

immer wird hier alles zugespammt is ja nicht zum aushalten Rolling Eyes

	Alfadur	Mo, Jul 11, 2005 21:06 Antworten mit Zitat
@hallosager ... soso, du kannst es also noch kürzer!? ich vermute du hast keine ahnung was für befehle du aneinandergereiht hast, hm? ich schätze mal du hast das vorgängerposting genommen und einfach ein ":" zwischen die einzelnen befehle geklatscht. anders kann ich mir den post mit dem du diesen thread ins leben riefst nicht erklären ... er hätte sich ja sonst erübrigt. erklär uns doch mal was der code BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480,32,1:While Not KeyHit(1) Cls:ClsColor Rand(255),Rand(255),Rand(255) Flip:Wend:End macht...
A Cray is the only computer that runs an endless loop in less than four hours.

Alfadur

Mo, Jul 11, 2005 21:06
Antworten mit Zitat

@hallosager ...

soso, du kannst es also noch kürzer!? ich vermute du hast keine ahnung was für befehle du aneinandergereiht hast, hm? ich schätze mal du hast das vorgängerposting genommen und einfach ein ":" zwischen die einzelnen befehle geklatscht. anders kann ich mir den post mit dem du diesen thread ins leben riefst nicht erklären ... er hätte sich ja sonst erübrigt. erklär uns doch mal was der code

BlitzBasic: [AUSKLAPPEN]


Graphics 640,480,32,1:While Not KeyHit(1) 
Cls:ClsColor Rand(255),Rand(255),Rand(255) 
Flip:Wend:End

macht...

A Cray is the only computer that runs an endless loop in less than four hours.

	MCWulf	Mo, Jul 11, 2005 22:21 Antworten mit Zitat
immerhin hat ers versucht und die Rand() noch n bisschen gekürzt... also seid doch nicht so gemain zu ihm 8)

MCWulf

Mo, Jul 11, 2005 22:21
Antworten mit Zitat

immerhin hat ers versucht und die Rand() noch n bisschen gekürzt... also seid doch nicht so gemain zu ihm 8)

	Hallosager	Di, Jul 12, 2005 7:27 Antworten mit Zitat
Graphics 640,480,32,1:While Not KeyHit(1); Bildschirm ist Auflösung 640 Pixel mal 480 Pixel, Farbtiefe ist viel(32) und die Bildschirmgröße ist Vollbild. Whileschleife solange, bis Keyhit1(Escape) gedrückt worden ist. Cls:ClsColor Rand(255),Rand(255),Rand(255);Nach jedem Durchganz wird der Bildschirm gelöscht, um die Hintergrundfarbe, bei der jede Werte zufällig kommen, anzuzeigen. Flip:Wend:End;Es wiederholt sich lange. Wenn man die Schleife unterbricht, beendet sich das Programm ohne Fehlermeldung. Ich konnte aber nicht testen, ob dieser Code überhaupt gut funktioniert.

Hallosager

Di, Jul 12, 2005 7:27
Antworten mit Zitat

Graphics 640,480,32,1:While Not KeyHit(1); Bildschirm ist Auflösung 640 Pixel mal 480 Pixel, Farbtiefe ist viel(32) und die Bildschirmgröße ist Vollbild. Whileschleife solange, bis Keyhit1(Escape) gedrückt worden ist.
Cls:ClsColor Rand(255),Rand(255),Rand(255);Nach jedem Durchganz wird der Bildschirm gelöscht, um die Hintergrundfarbe, bei der jede Werte zufällig kommen, anzuzeigen.
Flip:Wend:End;Es wiederholt sich lange. Wenn man die Schleife unterbricht, beendet sich das Programm ohne Fehlermeldung.

Ich konnte aber nicht testen, ob dieser Code überhaupt gut funktioniert.

	Jan_ Ehemaliger Admin	Di, Jul 12, 2005 10:54 Antworten mit Zitat
hm, ihr wollt fette Disco effekte für euren Computer? BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480:While KeyHit(1)=0:ClsColor Rnd(255),Rnd(255),Rnd(255):Cls:Flip:Wend (84 Zeichen) so, noch kürzer So, nutzt euren PC als Taschenlampe! BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480:ClsColor 255,255,255:Cls:WaitKey() (51 Zeichen) So, das gibts im Sparabo für nur 4.99
between angels and insects

Jan_

Ehemaliger Admin

Di, Jul 12, 2005 10:54
Antworten mit Zitat

hm, ihr wollt fette Disco effekte für euren Computer?
BlitzBasic: [AUSKLAPPEN]

Graphics 640,480:While KeyHit(1)=0:ClsColor Rnd(255),Rnd(255),Rnd(255):Cls:Flip:Wend

(84 Zeichen)
so, noch kürzer Smile

So, nutzt euren PC als Taschenlampe!
BlitzBasic: [AUSKLAPPEN]

Graphics 640,480:ClsColor 255,255,255:Cls:WaitKey()

(51 Zeichen)

So, das gibts im Sparabo für nur 4.99

between angels and insects

	Alfadur	Di, Jul 12, 2005 12:06 Antworten mit Zitat
warum flippt ihr alle wenn ihr keinen backbuffer benutzt?
A Cray is the only computer that runs an endless loop in less than four hours.

Alfadur

Di, Jul 12, 2005 12:06
Antworten mit Zitat

warum flippt ihr alle wenn ihr keinen backbuffer benutzt? Smile

A Cray is the only computer that runs an endless loop in less than four hours.

	Artemis	Di, Jul 12, 2005 12:23 Antworten mit Zitat
Weil Blitz+ den Backbuffer automatisch setzt (Trifft nur auf die BlitzPlusler zu)

Artemis

Di, Jul 12, 2005 12:23
Antworten mit Zitat

Weil Blitz+ den Backbuffer automatisch setzt (Trifft nur auf die BlitzPlusler zu)

	Jan_ Ehemaliger Admin	Di, Jul 12, 2005 12:25 Antworten mit Zitat
@Alfadur, vwait ist 1 Zeichen länger. aber, wenn man auf den Frontbuffer malt, ist CLs viel schneller --> Streifen Darum Flip.
between angels and insects

Jan_

Ehemaliger Admin

Di, Jul 12, 2005 12:25
Antworten mit Zitat

@Alfadur,
vwait ist 1 Zeichen länger.
aber, wenn man auf den Frontbuffer malt, ist CLs viel schneller --> Streifen
Darum Flip.

between angels and insects

	Hallosager	Di, Jul 12, 2005 13:56 Antworten mit Zitat
While Keyhit(1)=0:ClsColor Rnd(255),Rnd(255),Rnd(255):Cls:Wend Ganz kurz.

Hallosager

Di, Jul 12, 2005 13:56
Antworten mit Zitat

While Keyhit(1)=0:ClsColor Rnd(255),Rnd(255),Rnd(255):Cls:Wend

Ganz kurz.

	Jan_ Ehemaliger Admin	Di, Jul 12, 2005 14:23 Antworten mit Zitat
noch Kürzer BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] .b:ClsColor Rnd(255),Rnd(255),Rnd(255):Flip:Cls:Goto b
between angels and insects

Jan_

Ehemaliger Admin

Di, Jul 12, 2005 14:23
Antworten mit Zitat

noch Kürzer Smile

BlitzBasic: [AUSKLAPPEN]

.b:ClsColor Rnd(255),Rnd(255),Rnd(255):Flip:Cls:Goto b

between angels and insects

	Alfadur	Di, Jul 12, 2005 15:21 Antworten mit Zitat
so, das ihr das jetzt alle könnt, schreibt doch mal das längste mögliche programm das genau das gleiche macht ...
A Cray is the only computer that runs an endless loop in less than four hours.

Alfadur

Di, Jul 12, 2005 15:21
Antworten mit Zitat

so, das ihr das jetzt alle könnt, schreibt doch mal das längste mögliche programm das genau das gleiche macht ...

Smile

A Cray is the only computer that runs an endless loop in less than four hours.

Gehe zu Seite 1, 2 Weiter

Übersicht

BlitzBasic

Allgemein

Nach Oben

BlitzBasic Portal

Grelle Farben als Scherz- oder Discoprogramm

Betreff: Grelle Farben als Scherz- oder Discoprogramm