测量程序第五章的.pptVIP

测量程序设计 ;§5-1 奇进偶舍 ;Select Case BNM Case Is 0.5 NNN = Fix(NM * 10 ^ BB + 1) / 10 ^ BB Case Is 0.5 NNN = Fix(NM * 10 ^ BB) / 10 ^ BB Case Is = 0.5 If (Fix(NM * 10 ^ BB) - 10 * Fix(NM * 10 ^ (BB - 1))) Mod 2 = 0 Then NNN = Fix(NM * 10 ^ BB) / 10 ^ BB Else: NNN = Fix(NM * 10 ^ BB + 1) / 10 ^ BB End If End Selec NNN = C * NNN End Function;§5-2 DEGREE与RADIAN的互化 ;二、RADIAN化DEGREE程序 ;§5-3 坐标方位角推算 ;二、坐标反算程序 ;A = Atn(DY / DX) If DX 0 Then A = A + PI: Exit Function If DY 0 And DX 0 Then A = A + 2 * PI End Function;测量程序设计 ;§6-1 Visual Basic6.0 绘图基本技术 ;一、通过变换，在屏幕（窗体）上直接建立绘图的测量坐标系; DrawMode: 13-Copy Pen DrawStyle: 0-Solid DrawWidth: 1 Enabled: True FillColor: FillStyle: 1-Transparent Font: 宋体 FontTransparent: True ForeColor: HasDC: True Height: 9000 HelpContextID: 0 Icon: (Icon);KeyPreview: False Left: 105 LinkMode: 0-None LinkTopic: Form2(即设菜单所在窗体为第二个窗体) MaxButton: False MDIChild: False MinButton: False MouseIcon: (None) MousePointer: 0-Default Moveable: True 以下各属性均使用缺省值，此略。;Form2.Height = Screen.Height: ‘***** 设置窗体高占整个屏幕高Form2.Width = Screen.Width: ’***** 设置窗体宽占整个屏幕宽Form2.Left = 0: ‘***** 设置窗体位置距离屏幕左端的距离值Form2.Top = 0: ’***** 设置窗体位置距离屏幕上端的距离值Form2.ScaleMode = 0: ‘***** 通常先设为零（即对窗体坐标系进行初始化） Form2.ScaleMode = 6: ‘***** 设置窗体坐标系的单位是毫米 Dim ASP As Single ASP = ScaleHeight / ScaleWidth: *** 设置新的绘图区坐标系纵横比Rem ***** 当设置窗体坐标系的单位是毫米时，ASP值约为0.72 ScaleWidth = 200: *** 设置新的绘图区坐标系宽为200 ScaleHeight = -Int(ScaleWidth * ASP): *** 设置新的绘图区坐标系高 ScaleLeft = -0: *** 设置新的绘图区坐标系坐标原点横坐标值 ScaleTop = -ScaleHeight: -ScaleHeight: ** 设置新的绘图区坐标系坐标原点纵???标值 Rem ***** 通过以上的设定，将VB语言系统默认的屏幕绘图区坐标系设为与数学坐标系相同 End Sub;二、与绘图相关的一些属性 ;2、ForeColor（前景色）属性 ;⑵ RGB函数 使用格式：对象名.ForeColor = RGB(red,green,blue) red: 红色，取值范围：0-255 green:绿色，取值范围：0-255 blue:蓝色，取值范围：0-25