Keskustelu: Ohjelmointikysymykset: VB6: radiaanit asteiksi (VB)

Tossa ajattelin tehdä biljdripelin VB:llä ja ajatus tyssäsi heti kun huomasin että kone käyttää asteiden sijaan radiaaneja (joita en ole vielä opiskellut yhtään).
Kysýmys kuuluu onko VB:ssä omaa funktiota joka hoitaa radiaanit asteiksi tai pitääkö sellanen ite tehdä?(Ja jos pitää tehdä ite niin mitenkäs se menee?)
kiitos jo etukäteen vastauksista

Eli radiaanihan kulman yksikkönä tarkoittaa ympyrän kaaren pituutta jaettuna säteellä.

r-säteisessä ympyrässä 180 asteen keskuskulmaa vastaavan kaaren pituus on pii * r, joten

180 astetta = pii (rad) | : 180
1 aste = pii / 180 (rad)

toisaalta:

pii (rad) = 180 astetta | : pii
1 (rad) = 180 / pii astetta

jaa... tosta sitten vielä pitäisi tehdä se funktio.. en nyt tänä ammuna jaksa vääntää sitä mutta jo iltapäivällä...

No se on perus yhtälön ratkaisua:

Asteet radiaaneiksi:

to_rad(a) = pii / 180 * a

Radiaanit asteiksi:

to_deg(x) = 180 / pii * x

:D kiitos... vaikka kyllä toi olisi mullakin mennyt ;)

Voi olla pilkun viilausta, mutta jos muunnoksia tehdään paljon ja nopeasti kannattaa tehdä näin:

Dim kr As Double 'Single jos tarkkuus riittää
Dim ka As Double

Form_Load tapahtumaan:

kr = Atn(1) / 45 'radiaanit = kr * asteet
ka = 45 / Atn(1) 'asteet = ka * radiaanit

Valmiita kertoimia käytetään sitten siellä missä tarvitaan.