Cos() og Sin()

[kyrsjo]

driver og morer meg med å lage et lite klokkeprogram som tegner en analog klokke for å forstå enhetsirkelen bedre.

 

Eneste var at når jeg kallte cos (90) eller sin (90) i imediate vinduet, fikk jeg "litt" rare svar (og riv, rav, ruskende gale visere!!!)

 

begynner å mistenke at VB ikke bruke grader akkurat...

 

noen som vet hvaslags grader VB bruker, og hvordan endre på det eller regne om til "vanlige norske" deg-grader?

 

Endret:

Mer info:

 

print cos(90)

-0,44807361612917

print Sin(90.0)

0,893996663600558

 

slik "skal" det være:

cos (90) = 0

sin (90) = 1

[thorel]

hmm ei stund siden jeg brukte VB nå, men sjekk planetsource.com/vb - var der jeg lærte akkurat dette

[Legion]

tallene du får er riktige, men de er i radianer.

det finnes sikkert en RadToDeg funksjon

[b-urn]

Det er ofte vanlig at trigonometriske funksjoner i dataspråk baserer seg på radianer istf grader.

 

[0 til 360] <==> [ 0 til 2*Pi], der Pi = 3,14...

 

For å omforme fra radianer til grader:

 

xgrad = (180/Pi)*xrad

 

For å omforme fra grader til radianer

 

xrad = (Pi/180)*xgrad

[OCSpro]

Hvis ikke du følger b-urn kyrre, finner du radtodeg på lanetsource...

 

skal vi gjøre ferdig tertris?

[kyrsjo]

Hva er galt med denne koden??

 

'Redraws the hour

Private Sub RedrawHour(cHour As Double)

   shpHour.X2 = RadToDeg(Cos(cHour)) * CircleRad + CenterX

   shpHour.Y2 = RadToDeg(Sin(cHour)) * CircleRad + CenterY

End Sub

 

Intil videre flytter den bare streken til riktig antall grader ifl. cHour.

 

Problemet er bare det at den gir SYKE svar når jeg tester den vha Immediate...

[GeirGrusom]

Da må cHour være gjort om til grader

'Redraws the hour

Private Sub RedrawHour(cHour As Double)

    shpHour.X2 = RadToDeg(Cos(cHour*(360/60))) * CircleRad + CenterX

    shpHour.Y2 = RadToDeg(Sin(cHour*(360/60))) * CircleRad + CenterY

End Sub

[kyrsjo]

kom på det når jeg la meg den dagen...

 

har så egentlig bare glemt det.

 

"liten" tabbe