计算机测绘程序设计实验报告,计算机测绘程序及设计实验报告.doc

计算机测绘程序及设计实验报告

计算机测绘程序设计

实验报告

专业：

班级：

姓名：

学号：

实验一角度与弧度的转换

原理

首先获取输入角度的正负号，再取绝对值，通过提取度、分、秒计算出角度总和，利用1度=π/180弧度求出弧度；首先获取输入弧度的正负号，再取绝对值，利用1弧度=180/π度将弧度转换为角度，单位为度，通过提取度、分、秒计算出度.分秒。

(2)属性设置

窗体、控件属性设置

默认控件名设置的控件名(Name)标题(Caption)Form1frm_jdhdzh角度与弧度转换(彭思强)Command1Cmd_jh角度→弧度Command2Cmd_hj弧度→角度Command3Cmd_qk清空Label1Label1角度：Label2Label2弧度：Text1txt_jd无定义Text2txt_hd无定义

(3)程序代码

Private Sub Cmd_jh_Click()

Const pi# = 3.14159265358979 '定义常量pi

Dim d%, f%, m#, fh%, jdzh%

jd = txt_jd.Text

fh = Sgn(jd) '获取输入角度的正负号

jd = Abs(jd) '取输入角度的绝对值

d = Int(jd) '提取度

f = Int((jd - d) * 100) '提取分

m = ((jd - d) * 100 - f) * 100 '提取秒