没有合适的资源?快使用搜索试试~ 我知道了~
经纬度的换算包括制定经纬度、随机经纬度等方面的换算,精细程度较高
资源推荐
资源详情
资源评论
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim c, d, lat, lon, x, y, z As Double
lon = TextBox1.Text
lat = TextBox2.Text
c = 0.008994
d = Int(360 / (40075.36 * Math.Cos(lat * Math.PI / 180)) * 1000000) / 1000000
x = (lon - 113.56) / d
y = (lat - 22.27) / c
z = Math.Sqrt(x ^ 2 + y ^ 2)
TextBox5.Text = Int(z).ToString + "km"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim c, d, lat, lon, x, y, z As Double
lon = TextBox1.Text
lat = TextBox2.Text
c = 0.008994
d = Int(360 / (40075.36 * Math.Cos(lat * Math.PI / 180)) * 1000000) / 1000000
x = (lon - 113.14) / d
y = (lat - 21.834) / c
z = Math.Sqrt(x ^ 2 + y ^ 2)
TextBox5.Text = Int(z).ToString + "km"
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim c, d, lat, lon, x, y, z As Double
lon = TextBox1.Text
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim c, d, lat, lon, x, y, z As Double
lon = TextBox1.Text
lat = TextBox2.Text
c = 0.008994
d = Int(360 / (40075.36 * Math.Cos(lat * Math.PI / 180)) * 1000000) / 1000000
x = (lon - 113.56) / d
y = (lat - 22.27) / c
z = Math.Sqrt(x ^ 2 + y ^ 2)
TextBox5.Text = Int(z).ToString + "km"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim c, d, lat, lon, x, y, z As Double
lon = TextBox1.Text
lat = TextBox2.Text
c = 0.008994
d = Int(360 / (40075.36 * Math.Cos(lat * Math.PI / 180)) * 1000000) / 1000000
x = (lon - 113.14) / d
y = (lat - 21.834) / c
z = Math.Sqrt(x ^ 2 + y ^ 2)
TextBox5.Text = Int(z).ToString + "km"
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim c, d, lat, lon, x, y, z As Double
lon = TextBox1.Text
资源评论
caomeng_sysu
- 粉丝: 7
- 资源: 1
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功