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.
Comentarios
Publicar un comentario