Flackern

Übersicht

BlitzBasic

Allgemein

	sbrog Betreff: Flackern	Fr, Apr 30, 2004 19:31 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600 Global x=400 ;mittelpunkt der bahn Global y=300 ;mittelpunkt der bahn Global winkel=0;winkel des Kreises Repeat kreis(100) kreis(50) kreis(200) Until KeyHit(1) Function kreis(radius) ;zeichnet eine Kreisbahn um den mittelpunkt Cls winkel =winkel+1 Oval x+radiusCos(winkel),y+radiusSin(winkel),10,10 If winkel>360 Then winkel=0 Flip End Function wieso flackert dieses Programm so ? wenn ich nur einen Kreis zeichnen lasse, dann passiert das nicht[/code]

sbrog

Betreff: Flackern

Fr, Apr 30, 2004 19:31
Antworten mit Zitat

Code: [AUSKLAPPEN]

Graphics 800,600

Global x=400 ;mittelpunkt der bahn
Global y=300 ;mittelpunkt der bahn
Global winkel=0;winkel des Kreises
Repeat
kreis(100)
kreis(50)
kreis(200)
Until KeyHit(1)

Function kreis(radius) ;zeichnet eine Kreisbahn um den mittelpunkt

Cls

winkel =winkel+1
Oval x+radius*Cos(winkel),y+radius*Sin(winkel),10,10
If winkel>360 Then winkel=0
Flip
End Function

wieso flackert dieses Programm so ?
wenn ich nur einen Kreis zeichnen lasse, dann passiert das nicht[/code]

	Holzchopf Meisterpacker	Fr, Apr 30, 2004 19:47 Antworten mit Zitat
Du musst Cls und Flip aus der Funktion rausnehmen und in die Hauptschleife schreiben, sonst wird immer nur ein Kreis dargestellt. Ausserdem musst du noch SetBuffer BackBuffer() schreiben, nach Graphics, sonst wird Double-Buffering nicht initialisiert. MfG
Erledige alles Schritt um Schritt - erledige alles. - Holzchopf CC BY ♫ BinaryBorn - Yogurt ♫ (31.10.2018) Im Kopf da knackt's und knistert's sturm - 's ist kein Gedanke, nur ein Wurm

Holzchopf

Meisterpacker

Fr, Apr 30, 2004 19:47
Antworten mit Zitat

Du musst Cls und Flip aus der Funktion rausnehmen und in die Hauptschleife schreiben, sonst wird immer nur ein Kreis dargestellt. Ausserdem musst du noch SetBuffer BackBuffer() schreiben, nach Graphics, sonst wird Double-Buffering nicht initialisiert.

MfG

Erledige alles Schritt um Schritt - erledige alles. - Holzchopf
CC BY ♫ BinaryBorn - Yogurt ♫ (31.10.2018)
Im Kopf da knackt's und knistert's sturm - 's ist kein Gedanke, nur ein Wurm

	simi	Sa, Mai 01, 2004 11:38 Antworten mit Zitat
Und hier der Code: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600 SetBuffer BackBuffer() Global x=400 ;mittelpunkt der bahn Global y=300 ;mittelpunkt der bahn Global winkel=0;winkel des Kreises Repeat cls kreis(100) kreis(50) kreis(200) flip Until KeyHit(1) Function kreis(radius) ;zeichnet eine Kreisbahn um den mittelpunkt winkel =winkel+1 Oval x+radiusCos(winkel),y+radiusSin(winkel),10,10 If winkel>360 Then winkel=0 End Function

simi

Sa, Mai 01, 2004 11:38
Antworten mit Zitat

Und hier der Code:

Code: [AUSKLAPPEN]

Graphics 800,600
SetBuffer BackBuffer()

Global x=400 ;mittelpunkt der bahn
Global y=300 ;mittelpunkt der bahn
Global winkel=0;winkel des Kreises
Repeat
cls
kreis(100)
kreis(50)
kreis(200)
flip
Until KeyHit(1)

Function kreis(radius) ;zeichnet eine Kreisbahn um den mittelpunkt
winkel =winkel+1
Oval x+radius*Cos(winkel),y+radius*Sin(winkel),10,10
If winkel>360 Then winkel=0
End Function