Hi,
also find des echt toll von dir das du da so mitmachst, ein SUPER DANKE
Mein Code momentan, da ich den deinen nicht hinbekommen hab ![Traurig](http://www.roboternetz.de/phpBB2/images/smiles/icon_sad.gif)
bin halt doch noch nicht so fit in VB wie ich dachte oder eher in Mathe!
Code:
Private Sub Command1_Click()
Dim difflat, difflon, sina, cosa, winkelR, alf, diff, radi
'Dezimal Umrechnung
Lat1 = Text1.Text + (Text2.Text / 60) + (Text3.Text / 3600)
Lon1 = Text4.Text + (Text5.Text / 60) + (Text6.Text / 3600)
Lat2 = Text7.Text + (Text8.Text / 60) + (Text9.Text / 3600)
Lon2 = Text10.Text + (Text11.Text / 60) + (Text12.Text / 3600)
'----------------------------------------------------------------------
difflat = Lat1 - Lat2
difflon = Lon1 - Lon2
Label20.Caption = "difflat :" & difflat
Label21.Caption = "difflon :" & difflon
'----------------------------------------------------------------------
radi = Sqr(difflat ^ 2 + difflon ^ 2)
sina = (difflat / radi)
cosa = difflon / radi
If sina And cosa = 0 Then Exit Sub
alf = Abs(Atn(sina / cosa))
winkelR = alf
If difflat < 0 And difflon < 0 Then winkelR = pi + winkelR
If difflat >= 0 And difflon < 0 Then winkelR = pi - winkelR
If difflat < 0 And difflon >= 0 Then winkelR = 2 * pi - winkelR
Dim test
test = ((180 / pi) * winkelR)
Text14.Text = test]
Rechnungen zeigen nicht immer den richtigen Wert!
immer wenns zwischen nord und west und west und süd liegt ???
by Ulli
Lesezeichen