Keskustelu: Ohjelmointikysymykset: QB: asteet QB

kuinka tehdä ympyrä ja sen keskelle viisarin joka pyörii 360 astetta?

koetin sitä Sin, Cos jutuilla mutta laskuta antoivat aivan outoja vastauksia esim.

laskimessa
Cos20 = 0.93969
QB
Cos(20) = 0.4080

Mikä on vikana?

QB:llä SIN/COS:lle annetaan luvut väliltä -pi ja +pi (vai onkohan se 0 - 2*pi? :D), EI 0-360

QBasicissa asteet on ilmoitettava radiaaneina, eli tosiaan asteikolla 0 - 2*pii (pii = 3,14159...). Voit muuttaa asteet radiaaneiksi seuraavalla kaavalla:

radiaani = aste * (pii / 180)

Mä sain sellasen käsityksen että wille88 ei osaa CIRCLE käskyy.

Tällä koodipätkällä saa viisarin pyörimään muttei kuitenkaan asteittain, mutta pyörimään kuitenkin:

SCREEN 13
WINDOW (0, 0)-(320, 200)
x = -1
y = -1

DO UNTIL INKEY$ = CHR$(27)
x = x + 1
y = y + 1
LINE (100, 100)-(SIN(x) * 30 + 100, COS(y) * 30 + 100), 2
PLAY "p16"
LOOP