Cómo calcular el curso y distancia en VB

Cree un nuevo proyecto haciendo clic en "Archivo" y "Nuevo proyecto".

Arrastre la etiqueta cuatro del cuadro de herramientas y en el proyecto y organizar en una línea de arriba a abajo. Haga clic en cada ficha y en el cuadro de propiedades es cambiar el cuadro de texto que lea "de partida latitud," "Latitude extremos," "longitud inicial," "terminando de longitud".

Dibujar cuatro cuadros de texto del cuadro de herramientas y colocar uno justo a la derecha de cada etiqueta. Haga clic en cada cuadro de texto y modifique los nombres siguientes en el cuadro de propiedades del campo Nombre: "StartLatTextBox", "endlattextbox", "startlongtextbox", "endlongtextbox".

Arrastre un botón de la barra de herramientas e insertar en la parte inferior del proyecto. Haga doble clic para entrar en el editor de código.

Dentro del método "button1_click", agregue lo siguiente:

Dim listón = Double.Parse(startLatTextBox.Text)

Dim sLong = Double.Parse(startLongTextBox.Text)

Aqaba Dim = Double.Parse(endLatTextBox.Text)

ELong Dim = Double.Parse(endLongTextBox.Text)

Dim dLat = D2R(eLat-sLat)

Dim dLong = D2R (eLong - sLong)

Dim dPhi = math.log (math.Tan (Aqaba/2 + math.PI/4) / Math.Tan (listón/2 + math.PI/4))

Dim Q = new

Si (dPhi = 0), a continuación,

Q = Math.Cos(sLat)

Else

Q = dLat / dPhi

End if

Si (Math.Abs(dLong) > math.PI), a continuación,

IIf (dLong > 0, dLong = (2 * math.PI - dLong) * 1, dLong = 2 * math.PI + dLong)

End if

Dim EarthRadius = 6371 km de REM

Dim distancia = math.sqrt (dLat ^ 2 + Q ^ 2 * dLong ^ 2) * EarthRadius

Dim rodamiento = Math atan2 (dLong, dPhi)

Teniendo el rodamiento = * 180 / math.PI

MessageBox.Show ("distancia =" & distancia & ".") Tasa = (& warehouse)

El código anterior utiliza un "D2R" (grados en radianes) de función que no existe ya lo agregue el código siguiente directamente debajo de la instrucción "end function" para "button1_click".

Public function D2R (ByVal ángulo como doble) como doble

D2R = ángulo * math.PI / 180

End function

Haga clic en la flecha verde para iniciar el programa. Ahora usted puede encontrar cada par de coordenadas de latitud y longitud (en decimal) y la distancia entre ellos (en kilómetros) y teniendo (en grados) en el destino.

Via ehow.com