第二章 角度转换与坐标正反算.docVIP

一、角度转换 在工程实际中我们是用角度（60进制）来记录观测数据，但是在计算中计算机（计算器）所能接受的往往是百分制的弧度，因此就有必要将度分秒表示的观测值转换为百分制的弧度以计算机所能接受的方式进行计算。 1、度分秒转换弧度计算 计算的关键是要将度分秒分离出来，在这里要用到VB的Int函数。 1）函数的定义形式如下： 语法： Int(number) 必要的 number HYPERLINK JavaScript:hhobj_4.Click() 参数是 HYPERLINK JavaScript:hhobj_5.Click() Double 或任何有效的 HYPERLINK JavaScript:hhobj_6.Click() 数值表达式。如果 number 包含 HYPERLINK JavaScript:hhobj_7.Click() Null，则返回 Null。 说明： Int删除 number 的小数部份而返回剩下的整数。如果 number 为负数，则 Int 返回小于或等于 number 的第一个负整数，例如，Int 将 -8.4 转换成 -9。 示例： Dim dfm dfm = Int(124.3425) 返回 124。返回参数的整数部分。 2）程序实现步骤 ① 新建“教学程序”工程 图1：新建工程 新建窗体的属性设置如下： 名称：FrmJD Caption：角度转换 在窗体FrmJD上放置三个标签Label1、Label2、Label3，三个文本框Text1、Text2、Text3，两个命令按钮Command1、Command2，各控件对象的属性设置如下表所示。 2.1 控件对象属性设置 对象 属性 值 对象 属性 值 Label1 Caption 角度 Text2 Text Label2 Caption 小数度 Text3 Text Label3 Caption 弧度 Command1 Caption 计算 Text1 Text Command2 Caption 退出 2.2 角度转换程序设计界面 代码如下： Option Explicit 强制变量定义 Const PI = 3.1415926535 定义常量 Private Sub Command1_Click() Dim m_dfm As Double 输入的数值，6进制度分秒 Dim m_d As Double 定义变量度 Dim m_f As Double 定义变量分 Dim m_xsd As Double 小数度 m_dfm = Val(Text1.Text) 将字符串常量转换为数字常量 m_d = Int(m_dfm) 利用int()函数将度取出 m_dfm = (m_dfm - m_d) * 100 m_f = Int(m_dfm) 取出分 m_dfm = m_dfm * 100 得到秒 m_xsd = m_d + m_f / 60 + m_dfm / 3600 转换为小数度 Text2.Text = Str(m_xsd) 输出小数度 Text3.Text = Str(m_xsd * PI / 180) 输出弧度值 End Sub Private Sub Command2_Click() Unload Me End Sub 2、弧度转换度分秒计算 在“教学程序”工程中新建一窗体，窗体属性设置如下： 名称：Frmhd Caption：转换弧度 在窗体Frmhd上放置两个标签Label1、Label2，两个文本框Text1、Text2，两个命令按钮Command1、Command2，各控件对象的属性设置如下表所示。 2.2 控件对象属性设置 对象 属性 值 对象 属性 值 Label1 Caption 弧度 Text2 Text Label2 Caption 角度 Command1 Caption 计算 Text1 Text Command2 Caption 退出 2.3 转换弧度程序设计界面 Private Sub Command1_Click() Dim hd As Double 定义接收的弧度值 Dim xsd As Double 定义变量存储小数度 Dim dfm As Double 定义转换得到的度分秒表示的数值 Dim d As Double 定义变量度 Dim f As Double 定义变量分 hd = Val(Text1.Text) 由文本框得到要转换的弧度值 xsd = hd * 180 / 3.1415926535 转换为小数度 d = Int(xsd)