Menghitung jarak dan sudut 2 buah koordinat longitude latitude dengan basic4android

Beberapa waktu lalu saya sempat ngoprek perhitungan jarak dua titik koordinat (longitude latitude dengan basic4android)untuk sekedar menghitung jarak antara 2 titik pada goole map dan hasil nya sangat memuaskan menurut saya , kode perhitungan jarak dan sudut nya adalah sebagai berikut

    Dim titikasal As Location
    Dim jarak As Double
    Dim titiktarget As Location
    titiktarget.Initialize2(LabelLatTarget.Text,LabelLongTarget.Text)
    titikasal.Initialize2(LabelLatAsal.Text,LabelLongAsal.Text)
    jarak = titikasal.DistanceTo(titiktarget)
    LabelJarak.Text=jarak
    Dim sudut As Double
    sudut=titikasal.BearingTo(titiktarget)
    LabelSudut.Text=sudut   
    

dan kita akan mendapati berapa jarak dalam meter serta sudut antara dua titik koordinat dengan menggunakan android. dalam perhitungan tersebut, saya menggunakan lokasi saya di bantul dan target adalah koordinat ka'bah di mekah saudi arabia, diperoleh jarak 8355195.5 meter (8355,1955 kilometer) dan sudut -65 derajat dengan acuan arah utara titik koordinat awal sebagai titik 0

Berikut ini adalah screen shoot aplikasi Menghitung jarak 2 buah koordinat longitude latitude dengan basic4android

untuk download source code Menghitung jarak 2 buah koordinat longitude latitude dengan basic4android KLIK DI SINI