Kurs:FreeBASIC/Forum/Graphik
< Kurs:FreeBASIC | Forum
Einfache Graphik-Spielerei (Kreis bewegen.bas)
BearbeitenVersion 0001
BearbeitenSCREEN 18
Print "Steuerung mit 1 (links), 2 (hoch), 3 (runter) und 4 (rechts)."
Dim AS Integer a, b, c, schritt
Dim AS String eingabe
a = 320
b = 240
schritt = 10
Do
Locate 1,1
eingabe = Inkey
Select Case eingabe
case "1"
a = a - schritt
c = c + 1
case "2"
b = b - schritt
c = c + 1
case "3"
b = b + schritt
c = c + 1
case "4"
a = a + schritt
c = c + 1
End Select
CIRCLE (a, b), 10, c ' Zeichnet einen Kreis wechselnder Farbe (c!)
If c = 255 Then c = 1 End If
Loop Until Inkey = "x"
SLEEP