Ohjelma, jonka avulla saat ympyrä kulkemaan ruudussa.
Saat itse määrittää ympyrän lähtökohdan, sen koon ja nopeuden, sekä kuinka monta pikseliä ympyrä liikkuu eteenpäin.
Erittäin hyödyllinen ohjelma. ;)
Älkää olko liian ankaria.. Eka QBasic ohjelmani.
SCREEN 9
CLS
INPUT "Anna lähtökohta x-akselilla: ", x2
INPUT "Anna lähtökohta y-akselilla: ", y2
INPUT "Anna ympyrän säde: ", r2
INPUT "Anna ympyrän nopeus: ", s2
INPUT "Anna lopetuspiste: ", e2
SLEEP 1
DO
x = x2
y = y2
r = r2
s = s2
e = e2 / s2
FOR i = 0 TO e
IF INKEY$ <> "" THEN
END
END IF
CLS
LOCATE 1, 35
PRINT "Paina mitä tahansa nappia lopettaaksesi"
x = x + s
y = y + s
CIRCLE (x, y), r, 4 ' Piirretään ympyrä
DRAW "P4,4" ' Täytetään ympyrä
PCOPY 0, 1 ' Estää välkkymistä
NEXT
LOOP UNTIL INKEY$ <> ""
ENDAihe on jo aika vanha, joten et voi enää vastata siihen.