Hallo
Wie kann ich bei QBasic einen kleinen Kreis Programmieren, der
sich bei jedem Tastendruck an einem anderen ort des Bildschirms
befindet???
Gruss Beni
Zuerst SCREEN 12
Dann machst Du eine Schleife, die in dieser Reihenfolge
- Zufällige Koordinaten bestimmt (x,y)
- Den Kreis zeichnet (circle (x,y), radius, farbe)
- Auf einen Tastendruck wartet
- Den Kreis bei (x,y) mit der Hintergrundfarbe nocheinmal zeichnet, sodass er verschwindet
- wieder an den Anfang springt
Bei 3. käme dann noch die Abbruchbedingung dazu, damit man das auch beenden kann.
Falls Du noch konkretere Fragen hast: Frag!
Sven.
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Lösung
screen 12
randomize timer
do
x=rnd*640
y=rnd*480
circle(x,y),30,15
do
a$=inkey$
loop while a$=""
circle(x,y),30,0
loop until a$=chr$(27)
Habs nicht ausprobiert, müsste aber gehen.
Wenn Du ausgefüllte Kreise willst, musst Du den Befehl PAINT benutzen.
Viel Erfolg
Sven.