Printable View
I have problem,
I have 3 textbox for input degree, minutes and Second.
I want to calculate the 'dipat' and 'latit'. How to input the degree minutes and second from the textbox into the Sin and Cos?
Code:Dim jarak As Double
Dim Degree As Integer
Dim Min As Integer
Dim Sec As Integer
Dim latit As Double
Dim dipat As Double
Degree = Val(Text1.Text)
Min = Val(Text2.Text)
Sec = Val(Text3.Text)
jarak = Val(Text4.Text)
dipat = jarak * Sin(Degree, Min, Sec)
latit = jarak * Cos(Degree, Min, Sec)
Sin and Cos take an angle(in radians) as input. So you have to compute your angle(degrees) out of "Degree", "Min" and "Sec", convert it to a Radian and then use it in Sin or Cos
BTW A whole cirlce in Degree in 360° in Radians 2*Pi
Matrick
Building on Opus's post, you'll need to define Pi.
From MSDN
You might find that using 3.1415927 is sufficientlyQuote:
To convert degrees to radians, multiply degrees by pi/180.
accurate for your purposes. If so, then you can then
use the built-in Sin and Cos functions as follows
SpooCode:nPI = 3.1415927
nDeg = Degree + Min / 60 + Sec / 3600
nRad = nDeg * (nPI / 180)
'
dipat = jarak * Sin(nRad)
latit = jarak * Cos(nRad)
Just curiosity: are you trying to get azimuth/distance from some given points on earth?
If it's not then: PI = 4 * Atn(1) is a reasonable approximationQuote:
Originally Posted by Spoo
Try This:
PI = 3.14159265358979
TRIG = PI / 180
AD = Val(Text1.Text)
AM = Val(Text2.Text)
ASEC = Val(Text3.Text)
Jarak=Val(text4.text)
L = AD + AM / 60 + ASEC / 3600
dipat=jarak*sin(L)*trig
Best Regards
Sunil
Note that Pi (the ratio of the circumference of a circle to its diameter) can be approximated very accurately by just dividing 355 by 113. For most applications, that works very well. One has to wonder why we learned 22/7 in grammar school, when 355/113 was always available and far more accurate. Any ideas why 22/7 is still being taught? :confused:
On the other hand, I've been using Doogle's VB6 solution for years.