这是我的工控软件系列博客的第二篇，本篇博客中的项目主要是完成对航空仪表进行虚拟测试，此项目只是航空仪表仿真测试软件的一部分，原项目中相关的数据都从工控机的RS232串口传入，然后进行相关的数据分析并在界面上显示各个仪表的实时状态，查看仪表是否能正常工作。但考虑到园友无条件从串口获取正确的实时数据，因此本博客中的工程只对航空仪表的界面进行模拟，这和实际的项目是有很大区别的。
本博客因为对原项目进行了大量精简（其实原项目中的代码也就是在一个定时器内处理串口传来的实时数据，然后分析后在界面上显示），因此主要的任务还是界面的绘制上，下面是相关的运行效果图，感兴趣的朋友可以下载源文件和可执行程序运行看看：
本工程的源代码是用VB写的，感兴趣的园友可以下载源代码运行看看，这里不再单独对源代码进行说明
相关源代码
Const pi = 3.14159265358979
Dim a1 As Long
Dim a2 As Long '计
Dim a3 As Long '计
Dim a4 As Long '计
Dim a5 As Long '计
Dim sk1 As Long '计
Dim b As Long
Dim a6 As Long
Dim a7 As Long
Dim a8 As Long
Dim a9 As Long
Dim a10 As Long
Dim a11 As Long
Dim a12 As Long
Private s As Integer '声明秒
Private m As Integer '声明分
Private h As Integer '声明小时
Private d As Integer '声明日
Private s2 As Integer '声明表
Private s3 As Integer '声明秒
Dim i, Angle
Option Explicit
Private sf As Integer '声明秒
Private s1 As Integer '声明秒
Private Function DtoR(x)
DtoR = x * (3.14159265358979 / 180)
End Function
Private Sub Form_Load() 'Graph1
Label1.ToolTipText = "点击此处运行程序 "
Timer7.Enabled = True
Picture4_Click
Picture1.Visible = True
Picture5_Click
Picture1_Click
Picture6_Click
End Sub
Private Sub Label1_Click()
If Label1 = "飞行启动" Then
Label1.ToolTipText = "点击此处关闭程序"
Label1 = "金杰设计"
Timer1.Enabled = True
Timer4.Enabled = True
Label28 = Label26
Timer7.Enabled = True
Timer3.Enabled = True
Else
If Label1 = "金杰设计" Then
Timer1.Enabled = False
Timer2.Enabled = False
Timer4.Enabled = False
Unload Me
End If
End If
Label47 = "0" & vbCrLf & "1" & vbCrLf & "2" & vbCrLf & "3" & vbCrLf & "4" & vbCrLf & "5" & vbCrLf & "6" & vbCrLf & "7" & vbCrLf & "8" & vbCrLf & "9" & vbCrLf
Label48 = "0" & vbCrLf & "1" & vbCrLf & "2" & vbCrLf & "3" & vbCrLf & "4" & vbCrLf & "5" & vbCrLf & "6" & vbCrLf & "7" & vbCrLf & "8" & vbCrLf & "9" & vbCrLf
Label14 = "0" & vbCrLf & "1" & vbCrLf & "2" & vbCrLf & "3" & vbCrLf & "4" & vbCrLf & "5" & vbCrLf & "6" & vbCrLf & "7" & vbCrLf & "8" & vbCrLf & "9" & vbCrLf
Label15 = "0" & vbCrLf & "1" & vbCrLf & "2" & vbCrLf & "3" & vbCrLf & "4" & vbCrLf & "5" & vbCrLf & "6" & vbCrLf & "7" & vbCrLf & "8" & vbCrLf & "9" & vbCrLf
End Sub
Private Sub Picture1_Click()
Dim i, Angle
Static flag As Boolean
If flag = False Then
flag = True
For i = 0 To 72
If i > 0 Then Load Line181(i)
Line181(i).Visible = True
Line181(i).BorderWidth = 2
Line181(i).BorderColor = RGB(255, 255, 0) '设置LINE的精细和颜色
Next i
For i = 0 To 72
Picture1.Scale (-1, 1)-(1, -1)
'Picture1.Circle (-1, 1), 30 '可删除
'Picture1.FillColor = RGB(250, 0, 0)
Angle = i * 2 * Atn(1) / 18 '画标点
Line181(i).X1 = 0.98 * Cos(Angle)
Line181(i).Y1 = 0.98 * Sin(Angle)
Line181(72).BorderWidth = 4 '设置特殊角线宽
Line181(63).BorderWidth = 4
Line181(54).BorderWidth = 4
Line181(45).BorderWidth = 4
Line181(36).BorderWidth = 4
Line181(27).BorderWidth = 4
Line181(18).BorderWidth = 4
Line181(9).BorderWidth = 4 '设置特殊角线宽
Line181(72).BorderColor = RGB(255, 0, 0) '设置90度的颜色
Line181(63).BorderColor = RGB(255, 0, 0) '设置225度的颜色
Line181(54).BorderColor = RGB(255, 0, 0) '设置180度的颜色
Line181(45).BorderColor = RGB(255, 0, 0) '设置-225度的颜色
Line181(36).BorderColor = RGB(255, 0, 0) '设置-90度的颜色
Line181(27).BorderColor = RGB(255, 0, 0) '设置0度的颜色
Line181(18).BorderColor = RGB(255, 0, 0) '设置0度的颜色
Line181(9).BorderColor = RGB(255, 0, 0) '设置45度的颜色
Line181(i).X2 = Cos(Angle)
Line181(i).Y2 = Sin(Angle)
Next i
s = 15
End If
End Sub
Private Sub Picture4_Click() '时钟
s1 = 0
m = 0
h = 0
d = 0
Dim i, Angle
Static flag As Boolean
If flag = False Then
flag = True
For i = 0 To 65
If i > 0 Then Load Line183(i)
Line183(i).Visible = True
Line183(i).BorderWidth = 2
Line183(i).BorderColor = RGB(255, 255, 0) '设置LINE的精细和颜色
Next i
End If
For i = 0 To 65
Picture4.Scale (-1, 1)-(1, -1)
Picture4.Circle (-1, 1), 30
Angle = i * 2 * Atn(1) / 15
Line183(i).X1 = 0.99 * Cos(Angle) '设置刻度线长
Line183(i).Y1 = 0.99 * Sin(Angle) '设置刻度线长
Line183(0).BorderWidth = 3 '设置12,15,18,21的线宽
Line183(5).BorderWidth = 3
Line183(10).BorderWidth = 3
Line183(15).BorderWidth = 3
Line183(20).BorderWidth = 3 '设置12,15,18,21的线宽
Line183(25).BorderWidth = 3
Line183(30).BorderWidth = 3
Line183(35).BorderWidth = 3
Line183(40).BorderWidth = 3 '设置12,15,18,21的线宽
Line183(45).BorderWidth = 3
Line183(50).BorderWidth = 3
Line183(55).BorderWidth = 3
Line183(0).BorderColor = RGB(255, 0, 0) '设置12,15,18,21的颜色
Line183(5).BorderColor = RGB(255, 0, 0)
Line183(10).BorderColor = RGB(255, 0, 0)
Line183(15).BorderColor = RGB(255, 0, 0)
Line183(20).BorderColor = RGB(255, 0, 0) '设置12,15,18,21的颜色
Line183(25).BorderColor = RGB(255, 0, 0)
Line183(30).BorderColor = RGB(255, 0, 0)
Line183(35).BorderColor = RGB(255, 0, 0)
Line183(40).BorderColor = RGB(255, 0, 0) '设置12,15,18,21的颜色
Line183(45).BorderColor = RGB(255, 0, 0)
Line183(50).BorderColor = RGB(255, 0, 0)
Line183(55).BorderColor = RGB(255, 0, 0)
Line183(i).X2 = Cos(Angle)
Line183(i).Y2 = Sin(Angle)
Next i
End Sub
Private Sub Picture5_Click()
Dim i, Angle
Static flag As Boolean
If flag = False Then
flag = True
For i = 0 To 23
If i > 0 Then Load Line160(i)
Line160(i).Visible = True
Line160(i).BorderWidth = 2
Line160(i).BorderColor = RGB(0, 0, 0) '设置LINE的精细和颜色
Next i
For i = 0 To 23
Picture5.Scale (-1, 1)-(1, -1)
Picture5.Circle (-1, 1), 30
Picture5.FillColor = RGB(250, 0, 0)
Angle = i * 2 * Atn(1) / 5
Line160(i).X1 = 0.95 * Cos(Angle)
Line160(i).Y1 = 0.95 * Sin(Angle)
Line160(12).BorderColor = RGB(255, 0, 0) '设置12,15,18,21的颜色
Line160(11).BorderColor = RGB(255, 0, 0) '设置12,15,18,21的颜色
Line160(10).BorderColor = RGB(255, 0, 0) '设置12,15,18,21的颜色
Line160(9).BorderColor = RGB(255, 255, 0) '设置12,15,18,21的颜色
Line160(8).BorderColor = RGB(255, 255, 0) '设置12,15,18,21的颜色
Line160(7).BorderColor = RGB(255, 255, 0) '设置12,15,18,21的颜色
Line160(6).BorderColor = RGB(255, 255, 0) '设置12,15,18,21的颜色
Line160(5).BorderColor = RGB(255, 255, 0) '设置12,15,18,21的颜色
Line160(4).BorderColor = RGB(255, 255, 0) '设置12,15,18,21的颜色
Line160(3).BorderColor = RGB(0, 255, 0) '设置12,15,18,21的颜色
Line160(2).BorderColor = RGB(0, 255, 0) '设置12,15,18,21的颜色
Line160(1).BorderColor = RGB(0, 255, 0) '设置12,15,18,21的颜色
Line160(18).BorderColor = RGB(0, 255, 0) '设置12,15,18,21的颜色
Line160(19).BorderColor = RGB(0, 255, 0) '设置12,15,18,21的颜色
Line160(20).BorderColor = RGB(0, 255, 0) '设置12,15,18,21的颜色
Line160(i).X2 = Cos(Angle)
Line160(i).Y2 = Sin(Angle)
Next i
s = 15
End If
End Sub
Private Sub Picture6_Click()
Dim i, Angle
Static flag As Boolean
If flag = False Then
flag = True
For i = 0 To 23
If i > 0 Then Load Line162(i)
Line162(i).Visible = True
Line162(i).BorderWidth = 2
Line162(i).BorderColor = RGB(0, 0, 0) '设置LINE的精细和颜色
Next i
For i = 0 To 23
Picture6.Scale (-1, 1)-(1, -1)
Picture6.Circle (-1, 1), 30
Picture6.FillColor = RGB(250, 0, 0)
Angle = i * 2 * Atn(1) / 5
Line162(i).X1 = 0.95 * Cos(Angle)
Line162(i).Y1 = 0.95 * Sin(Angle)
Line162(12).BorderColor = RGB(0, 255, 0) '设置12,15,18,21的颜色
Line162(11).BorderColor = RGB(0, 255, 0) '设置12,15,18,21的颜色
Line162(10).BorderColor = RGB(0, 255, 0) '设置12,15,18,21的颜色
Line162(9).BorderColor = RGB(0, 255, 0) '设置12,15,18,21的颜色
Line162(8).BorderColor = RGB(0, 255, 0) '设置12,15,18,21的颜色
Line162(7).BorderColor = RGB(255, 255, 0) '设置12,15,18,21的颜色
Line162(6).BorderColor = RGB(255, 255, 0) '设置12,15,18,21的颜色
Line162(5).BorderColor = RGB(255, 255, 0) '设置12,15,18,21的颜色
Line162(4).BorderColor = RGB(255, 255, 0) '设置12,15,18,21的颜色
Line162(3).BorderColor = RGB(255, 255, 0) '设置12,15,18,21的颜色
Line162(2).BorderColor = RGB(255, 0, 0) '设置12,15,18,21的颜色
Line162(1).BorderColor = RGB(255, 0, 0) '设置12,15,18,21的颜色
Line162(18).BorderColor = RGB(255, 0, 0) '设置12,15,18,21的颜色
Line162(19).BorderColor = RGB(255, 0, 0) '设置12,15,18,21的颜色
Line162(20).BorderColor = RGB(255, 0, 0) '设置12,15,18,21的颜色
Line162(i).X2 = Cos(Angle)
Line162(i).Y2 = Sin(Angle)
Next i
s = 15
End If
End Sub
Private Sub Timer2_Timer() '时钟
Label26 = Time
s = s + 1 '飞行时间
If s >= 60 Then
s = 0 '重新计算秒
m = m + 1 '逢秒为60则分钟加1
If m >= 60 Then
m = 0 '重新计算分
h = h + 1 '逢分钟为60则小时加1
If h >= 24 Then
h = 0 '重新计算小时
d = d + 1 '逢24小时则天数加1
End If
End If
End If
Label31 = h & "时" & m & "分" & s & "秒"
Const H1 = 61 '时钟
Const M1 = 62
Const s1 = 63
Dim Angle
Static LS
If Second(Now) = LS Then Exit Sub
LS = Second(Now)
Angle = 0.5236 * (75 - Second(Now) / 5) '设置秒针
Line183(s1).BorderColor = RGB(255, 0, 0)
Line183(s1).BorderWidth = 1
Line183(s1).X1 = 0 - 0.18 * Cos(Angle)
Line183(s1).Y1 = 0 - 0.18 * Sin(Angle)
Line183(s1).X2 = 0.995 * Cos(Angle) '设置秒针线长
Line183(s1).Y2 = 0.995 * Sin(Angle) '设置秒针线长
Angle = 0.1047 * (75 - (Minute(Now) + Second(Now) / 60)) '设置分针
Line183(M1).BorderColor = &HF735AE
Line183(M1).BorderWidth = 2
Line183(M1).X1 = 0 - 0.18 * Cos(Angle)
Line183(M1).Y1 = 0 - 0.18 * Sin(Angle)
Line183(M1).X2 = 0.95 * Cos(Angle)
Line183(M1).Y2 = 0.95 * Sin(Angle)
Angle = 0.5236 * (15 - (Hour(Now) + Minute(Now) / 60)) '设置时针
Line183(H1).BorderColor = RGB(0, 255, 255)
Line183(H1).BorderWidth = 3
Line183(H1).X1 = 0 - 0.18 * Cos(Angle)
Line183(H1).Y1 = 0 - 0.18 * Sin(Angle)
Line183(H1).X2 = 0.8 * Cos(Angle)
Line183(H1).Y2 = 0.8 * Sin(Angle)
End Sub
Private Sub Timer1_Timer() '扫描
Static sum As Long
sum = sum + 1
Const s = 15 '时钟
'Label9 = 74.47最小
'Label9 = 76.97中间值
'Label9 = 79.48最大
Static q As Long
q = q + 1
Label9 = 76.97 + q / 100
If Label9 > 79.18 Then
End If
If Label9 < 74.77 Then
End If
Angle = 0.5236 * (360 - Second(Now) / 5)
Line181(s2).BorderColor = RGB(0, 255, 0)
Line181(s2).BorderWidth = 2
Line181(s2).X1 = 0
Line181(s2).Y1 = 0
Line181(s2).X2 = -Cos(Label9)
Line181(s2).Y2 = Sin(Label9)
Exit Sub
End Sub
Private Sub Timer3_Timer()
a3 = a3 - 10
a2 = a2 - 10
a4 = a4 - 10 / 10
a5 = a5 - 10 / 10
Label47.Top = a3
Label48.Top = a2
If a3 = -3930 Then
Label48.Top = 400
a2 = 400
End If
If a2 = -3930 Then
Label47.Top = 400
a3 = 400
End If
Label14.Top = -75 + a4
Label15.Top = -75 + a5
If a4 = -3930 Then
Label15.Top = 400
a5 = 400
End If
If a5 = -3930 Then
Label14.Top = 400
a4 = 400
End If
If a4 = -4330 Then
a10 = a10 + 1
Label10 = a10
End If
If a5 = -4330 Then
a10 = a10 + 1
Label10 = a10
End If
If a9 = 10 Then
a9 = 0
Label10 = "0"
End If
If a10 = 10 Then
a10 = 0
Label10 = "0"
a11 = a11 + 1
Label13 = a11
End If
If a11 = 10 Then
a11 = 0
Label13 = "0"
a12 = a12 + 1
Label11 = a11
End If
If a12 = 10 Then
a12 = 0
Label11 = "0"
End If
End Sub
Private Sub Timer4_Timer()
'Label99 = 74.78最小
'Label99 = 76.97中间值
'Label99 = 79.18最大
Static q As Long
q = q + 1
Label33 = q
Label99 = 79.18 - q / 90
Label6 = q
Label6 = Label6 / 4
Label7 = "100" - Label6 & "%" & vbCrLf
Label4 = "剩余燃油" & vbCrLf & Label7 & vbCrLf
Angle = 0.5236 * (360 - Second(Now) / 5)
Line160(s2).BorderColor = &HFFFF00
Line160(s2).BorderWidth = 1
Line160(s2).X1 = 0
Line160(s2).Y1 = 0
Line160(s2).X2 = 0.95 * -Cos(Label99)
Line160(s2).Y2 = 0.95 * Sin(Label99)
If Label33 >= 85 Then
Label34 = "副油箱已抛弃！"
Label34.Visible = True
Shape4.Visible = True
End If
If Label33 >= 170 Then
Label34 = "注意返航！"
Label34.ForeColor = &HFFFF&
Shape4.BorderColor = &HFFFF&
Shape4.FillColor = &HFFFF&
Timer8.Enabled = True
End If
If Label33 >= 339 Then
Label34 = "剩余燃油够飞行10分钟！"
Label34.ForeColor = &HFF&
Shape4.BorderColor = &HFF&
Shape4.FillColor = &HFF&
Timer8.Enabled = True
Timer8.Interval = 500
End If
If Label33 >= 369 Then
Label34 = "警告！剩余燃油仅够飞行5分钟"
Timer8.Enabled = True
Timer8.Interval = 250
End If
If Label99 = 74.78 Then
Label34 = "燃油耗尽"
Timer4.Enabled = False
Timer8.Enabled = False
End If
End Sub
Private Sub Picture7_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 37 Then '向左
End If
If KeyCode = 39 Then '向右
End If
If KeyCode = 38 Then
Label5.Top = Label5.Top - 10 '向上
Label19.Top = Label19.Top - 10
Label19 = "高度" & (8520 - Label5.Top) & "m"
Label2 = (8520 - Label5.Top) & "m"
Timer7.Enabled = True
If (8520 - Label5.Top) >= 25000 Then
Label3.Visible = True
End If
If (8520 - Label5.Top) <= 25000 Then
Label3.Visible = False
End If
If (8520 - Label5.Top) >= 8420 Then
Label19.Top = 30
Label5.Top = 70
End If
End If
If KeyCode = 40 Then '向下
Label5.Top = Label5.Top + 10 '向上
Label19.Top = Label19.Top + 10
Label19 = "高度" & (8520 - Label5.Top) & "m"
Label2 = (8520 - Label5.Top) & "m"
Timer7.Enabled = True
End If
If (8520 - Label5.Top) <= 25000 Then
Label3.Visible = False
End If
End Sub
Private Sub Timer5_Timer()
'Label99 = 74.77最小
'Label99 = 76.97中间值
'Label99 = 79.18最大 Label3
Label29 = Label32 * 2.42857142857143 / 1000 * 3600
a6 = a6 + 1
Label32 = a6 - 1
Label25 = 74.77 + Label32 / 90
Angle = 0.5236 * (360 - Second(Now) / 5)
Line162(s2).BorderColor = &HFFFF00
Line162(s2).BorderWidth = 1
Line162(s2).X1 = 0
Line162(s2).Y1 = 0
Line162(s2).X2 = 0.95 * -Cos(Label25)
Line162(s2).Y2 = 0.95 * Sin(Label25)
If Label25 >= 79.17 Then '向下
Timer5.Interval = 0
Timer5.Enabled = False
End If
If Label32 >= 325 Then
Label3 = "警告:飞机已超过最大飞行速度!"
Label3.Visible = True
End If
End Sub
Private Sub Timer6_Timer()
Label29 = Label32 * 2.42857142857143 / 1000 * 3600
Label32 = a6 - 1
a6 = a6 - 1
Label25 = 74.77 + Label32 / 90
Angle = 0.5236 * (360 - Second(Now) / 5)
Line162(s2).BorderColor = &HFFFF00
Line162(s2).BorderWidth = 1
Line162(s2).X1 = 0
Line162(s2).Y1 = 0
Line162(s2).X2 = 0.95 * -Cos(Label25)
Line162(s2).Y2 = 0.95 * Sin(Label25)
If Label25 <= 74.78 Then '向下
Timer6.Interval = 0
Timer6.Enabled = False
End If
If Label32 <= 324 Then
Label3.Visible = False
End If
If Label32 <= 0 Then
Label29 = "0"
End If
End Sub
Private Sub Label27_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
Static q1 As Long
Timer5.Enabled = True
Timer6.Interval = 50
Line7.Visible = False
Timer7.Enabled = True
End Sub
Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
Timer5.Enabled = False
Timer6.Enabled = False
End Sub
Private Sub Label21_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
Static q2 As Long
Timer6.Enabled = True
Timer5.Interval = 50
Line7.Visible = False
Timer7.Enabled = True
End Sub
Private Sub Timer7_Timer()
sk1 = sk1 + 1
If sk1 = 1 Then
Label17 = " 本次飞行资料" & vbCrLf & "----------------------" & vbCrLf
Label17 = Label17 & " 起飞时间：" & Label28 & vbCrLf
Label17 = Label17 & " 飞行高度：" & Label2 & vbCrLf
Label17 = Label17 & " 空 速：" & vbCrLf
Label17 = Label17 & " 加力速度：" & vbCrLf
Label17 = Label17 & " 飞行高度：" & vbCrLf
Label17 = Label17 & " 飞行速度：" & vbCrLf
Label17 = Label17 & " 发动机功率：" & vbCrLf
Label17 = Label17 & " 爬升速度：" & vbCrLf
Label17 = Label17 & " 爬升过载：" & vbCrLf
Label17 = Label17 & " 巡航速度：" & vbCrLf
Label17 = Label17 & " 加速度过载：" & vbCrLf
Label17 = Label17 & " 录音保存格式：" & vbCrLf
Label17 = Label17 & " 内部燃油：" & vbCrLf
Label17 = Label17 & " 瞬时转弯速度：" & vbCrLf
Label17 = Label17 & " 持续转弯速度：" & vbCrLf
End If
If sk1 >= 2 Then
Timer7.Enabled = False
sk1 = "0"
End If
End Sub
Private Sub Timer8_Timer()
a7 = a7 + 1
If a7 = 1 Then
Shape4.Visible = True
End If
If a7 = 2 Then
Shape4.Visible = False
a7 = 0
End If
End Sub
Dim a1 As Long
Dim a2 As Long '计
Dim a3 As Long '计
Dim a4 As Long '计
Dim a5 As Long '计
Dim sk1 As Long '计
Dim b As Long
Dim a6 As Long
Dim a7 As Long
Dim a8 As Long
Dim a9 As Long
Dim a10 As Long
Dim a11 As Long
Dim a12 As Long
Private s As Integer '声明秒
Private m As Integer '声明分
Private h As Integer '声明小时
Private d As Integer '声明日
Private s2 As Integer '声明表
Private s3 As Integer '声明秒
Dim i, Angle
Option Explicit
Private sf As Integer '声明秒
Private s1 As Integer '声明秒
Private Function DtoR(x)
DtoR = x * (3.14159265358979 / 180)
End Function
Private Sub Form_Load() 'Graph1
Label1.ToolTipText = "点击此处运行程序 "
Timer7.Enabled = True
Picture4_Click
Picture1.Visible = True
Picture5_Click
Picture1_Click
Picture6_Click
End Sub
Private Sub Label1_Click()
If Label1 = "飞行启动" Then
Label1.ToolTipText = "点击此处关闭程序"
Label1 = "金杰设计"
Timer1.Enabled = True
Timer4.Enabled = True
Label28 = Label26
Timer7.Enabled = True
Timer3.Enabled = True
Else
If Label1 = "金杰设计" Then
Timer1.Enabled = False
Timer2.Enabled = False
Timer4.Enabled = False
Unload Me
End If
End If
Label47 = "0" & vbCrLf & "1" & vbCrLf & "2" & vbCrLf & "3" & vbCrLf & "4" & vbCrLf & "5" & vbCrLf & "6" & vbCrLf & "7" & vbCrLf & "8" & vbCrLf & "9" & vbCrLf
Label48 = "0" & vbCrLf & "1" & vbCrLf & "2" & vbCrLf & "3" & vbCrLf & "4" & vbCrLf & "5" & vbCrLf & "6" & vbCrLf & "7" & vbCrLf & "8" & vbCrLf & "9" & vbCrLf
Label14 = "0" & vbCrLf & "1" & vbCrLf & "2" & vbCrLf & "3" & vbCrLf & "4" & vbCrLf & "5" & vbCrLf & "6" & vbCrLf & "7" & vbCrLf & "8" & vbCrLf & "9" & vbCrLf
Label15 = "0" & vbCrLf & "1" & vbCrLf & "2" & vbCrLf & "3" & vbCrLf & "4" & vbCrLf & "5" & vbCrLf & "6" & vbCrLf & "7" & vbCrLf & "8" & vbCrLf & "9" & vbCrLf
End Sub
Private Sub Picture1_Click()
Dim i, Angle
Static flag As Boolean
If flag = False Then
flag = True
For i = 0 To 72
If i > 0 Then Load Line181(i)
Line181(i).Visible = True
Line181(i).BorderWidth = 2
Line181(i).BorderColor = RGB(255, 255, 0) '设置LINE的精细和颜色
Next i
For i = 0 To 72
Picture1.Scale (-1, 1)-(1, -1)
'Picture1.Circle (-1, 1), 30 '可删除
'Picture1.FillColor = RGB(250, 0, 0)
Angle = i * 2 * Atn(1) / 18 '画标点
Line181(i).X1 = 0.98 * Cos(Angle)
Line181(i).Y1 = 0.98 * Sin(Angle)
Line181(72).BorderWidth = 4 '设置特殊角线宽
Line181(63).BorderWidth = 4
Line181(54).BorderWidth = 4
Line181(45).BorderWidth = 4
Line181(36).BorderWidth = 4
Line181(27).BorderWidth = 4
Line181(18).BorderWidth = 4
Line181(9).BorderWidth = 4 '设置特殊角线宽
Line181(72).BorderColor = RGB(255, 0, 0) '设置90度的颜色
Line181(63).BorderColor = RGB(255, 0, 0) '设置225度的颜色
Line181(54).BorderColor = RGB(255, 0, 0) '设置180度的颜色
Line181(45).BorderColor = RGB(255, 0, 0) '设置-225度的颜色
Line181(36).BorderColor = RGB(255, 0, 0) '设置-90度的颜色
Line181(27).BorderColor = RGB(255, 0, 0) '设置0度的颜色
Line181(18).BorderColor = RGB(255, 0, 0) '设置0度的颜色
Line181(9).BorderColor = RGB(255, 0, 0) '设置45度的颜色
Line181(i).X2 = Cos(Angle)
Line181(i).Y2 = Sin(Angle)
Next i
s = 15
End If
End Sub
Private Sub Picture4_Click() '时钟
s1 = 0
m = 0
h = 0
d = 0
Dim i, Angle
Static flag As Boolean
If flag = False Then
flag = True
For i = 0 To 65
If i > 0 Then Load Line183(i)
Line183(i).Visible = True
Line183(i).BorderWidth = 2
Line183(i).BorderColor = RGB(255, 255, 0) '设置LINE的精细和颜色
Next i
End If
For i = 0 To 65
Picture4.Scale (-1, 1)-(1, -1)
Picture4.Circle (-1, 1), 30
Angle = i * 2 * Atn(1) / 15
Line183(i).X1 = 0.99 * Cos(Angle) '设置刻度线长
Line183(i).Y1 = 0.99 * Sin(Angle) '设置刻度线长
Line183(0).BorderWidth = 3 '设置12,15,18,21的线宽
Line183(5).BorderWidth = 3
Line183(10).BorderWidth = 3
Line183(15).BorderWidth = 3
Line183(20).BorderWidth = 3 '设置12,15,18,21的线宽
Line183(25).BorderWidth = 3
Line183(30).BorderWidth = 3
Line183(35).BorderWidth = 3
Line183(40).BorderWidth = 3 '设置12,15,18,21的线宽
Line183(45).BorderWidth = 3
Line183(50).BorderWidth = 3
Line183(55).BorderWidth = 3
Line183(0).BorderColor = RGB(255, 0, 0) '设置12,15,18,21的颜色
Line183(5).BorderColor = RGB(255, 0, 0)
Line183(10).BorderColor = RGB(255, 0, 0)
Line183(15).BorderColor = RGB(255, 0, 0)
Line183(20).BorderColor = RGB(255, 0, 0) '设置12,15,18,21的颜色
Line183(25).BorderColor = RGB(255, 0, 0)
Line183(30).BorderColor = RGB(255, 0, 0)
Line183(35).BorderColor = RGB(255, 0, 0)
Line183(40).BorderColor = RGB(255, 0, 0) '设置12,15,18,21的颜色
Line183(45).BorderColor = RGB(255, 0, 0)
Line183(50).BorderColor = RGB(255, 0, 0)
Line183(55).BorderColor = RGB(255, 0, 0)
Line183(i).X2 = Cos(Angle)
Line183(i).Y2 = Sin(Angle)
Next i
End Sub
Private Sub Picture5_Click()
Dim i, Angle
Static flag As Boolean
If flag = False Then
flag = True
For i = 0 To 23
If i > 0 Then Load Line160(i)
Line160(i).Visible = True
Line160(i).BorderWidth = 2
Line160(i).BorderColor = RGB(0, 0, 0) '设置LINE的精细和颜色
Next i
For i = 0 To 23
Picture5.Scale (-1, 1)-(1, -1)
Picture5.Circle (-1, 1), 30
Picture5.FillColor = RGB(250, 0, 0)
Angle = i * 2 * Atn(1) / 5
Line160(i).X1 = 0.95 * Cos(Angle)
Line160(i).Y1 = 0.95 * Sin(Angle)
Line160(12).BorderColor = RGB(255, 0, 0) '设置12,15,18,21的颜色
Line160(11).BorderColor = RGB(255, 0, 0) '设置12,15,18,21的颜色
Line160(10).BorderColor = RGB(255, 0, 0) '设置12,15,18,21的颜色
Line160(9).BorderColor = RGB(255, 255, 0) '设置12,15,18,21的颜色
Line160(8).BorderColor = RGB(255, 255, 0) '设置12,15,18,21的颜色
Line160(7).BorderColor = RGB(255, 255, 0) '设置12,15,18,21的颜色
Line160(6).BorderColor = RGB(255, 255, 0) '设置12,15,18,21的颜色
Line160(5).BorderColor = RGB(255, 255, 0) '设置12,15,18,21的颜色
Line160(4).BorderColor = RGB(255, 255, 0) '设置12,15,18,21的颜色
Line160(3).BorderColor = RGB(0, 255, 0) '设置12,15,18,21的颜色
Line160(2).BorderColor = RGB(0, 255, 0) '设置12,15,18,21的颜色
Line160(1).BorderColor = RGB(0, 255, 0) '设置12,15,18,21的颜色
Line160(18).BorderColor = RGB(0, 255, 0) '设置12,15,18,21的颜色
Line160(19).BorderColor = RGB(0, 255, 0) '设置12,15,18,21的颜色
Line160(20).BorderColor = RGB(0, 255, 0) '设置12,15,18,21的颜色
Line160(i).X2 = Cos(Angle)
Line160(i).Y2 = Sin(Angle)
Next i
s = 15
End If
End Sub
Private Sub Picture6_Click()
Dim i, Angle
Static flag As Boolean
If flag = False Then
flag = True
For i = 0 To 23
If i > 0 Then Load Line162(i)
Line162(i).Visible = True
Line162(i).BorderWidth = 2
Line162(i).BorderColor = RGB(0, 0, 0) '设置LINE的精细和颜色
Next i
For i = 0 To 23
Picture6.Scale (-1, 1)-(1, -1)
Picture6.Circle (-1, 1), 30
Picture6.FillColor = RGB(250, 0, 0)
Angle = i * 2 * Atn(1) / 5
Line162(i).X1 = 0.95 * Cos(Angle)
Line162(i).Y1 = 0.95 * Sin(Angle)
Line162(12).BorderColor = RGB(0, 255, 0) '设置12,15,18,21的颜色
Line162(11).BorderColor = RGB(0, 255, 0) '设置12,15,18,21的颜色
Line162(10).BorderColor = RGB(0, 255, 0) '设置12,15,18,21的颜色
Line162(9).BorderColor = RGB(0, 255, 0) '设置12,15,18,21的颜色
Line162(8).BorderColor = RGB(0, 255, 0) '设置12,15,18,21的颜色
Line162(7).BorderColor = RGB(255, 255, 0) '设置12,15,18,21的颜色
Line162(6).BorderColor = RGB(255, 255, 0) '设置12,15,18,21的颜色
Line162(5).BorderColor = RGB(255, 255, 0) '设置12,15,18,21的颜色
Line162(4).BorderColor = RGB(255, 255, 0) '设置12,15,18,21的颜色
Line162(3).BorderColor = RGB(255, 255, 0) '设置12,15,18,21的颜色
Line162(2).BorderColor = RGB(255, 0, 0) '设置12,15,18,21的颜色
Line162(1).BorderColor = RGB(255, 0, 0) '设置12,15,18,21的颜色
Line162(18).BorderColor = RGB(255, 0, 0) '设置12,15,18,21的颜色
Line162(19).BorderColor = RGB(255, 0, 0) '设置12,15,18,21的颜色
Line162(20).BorderColor = RGB(255, 0, 0) '设置12,15,18,21的颜色
Line162(i).X2 = Cos(Angle)
Line162(i).Y2 = Sin(Angle)
Next i
s = 15
End If
End Sub
Private Sub Timer2_Timer() '时钟
Label26 = Time
s = s + 1 '飞行时间
If s >= 60 Then
s = 0 '重新计算秒
m = m + 1 '逢秒为60则分钟加1
If m >= 60 Then
m = 0 '重新计算分
h = h + 1 '逢分钟为60则小时加1
If h >= 24 Then
h = 0 '重新计算小时
d = d + 1 '逢24小时则天数加1
End If
End If
End If
Label31 = h & "时" & m & "分" & s & "秒"
Const H1 = 61 '时钟
Const M1 = 62
Const s1 = 63
Dim Angle
Static LS
If Second(Now) = LS Then Exit Sub
LS = Second(Now)
Angle = 0.5236 * (75 - Second(Now) / 5) '设置秒针
Line183(s1).BorderColor = RGB(255, 0, 0)
Line183(s1).BorderWidth = 1
Line183(s1).X1 = 0 - 0.18 * Cos(Angle)
Line183(s1).Y1 = 0 - 0.18 * Sin(Angle)
Line183(s1).X2 = 0.995 * Cos(Angle) '设置秒针线长
Line183(s1).Y2 = 0.995 * Sin(Angle) '设置秒针线长
Angle = 0.1047 * (75 - (Minute(Now) + Second(Now) / 60)) '设置分针
Line183(M1).BorderColor = &HF735AE
Line183(M1).BorderWidth = 2
Line183(M1).X1 = 0 - 0.18 * Cos(Angle)
Line183(M1).Y1 = 0 - 0.18 * Sin(Angle)
Line183(M1).X2 = 0.95 * Cos(Angle)
Line183(M1).Y2 = 0.95 * Sin(Angle)
Angle = 0.5236 * (15 - (Hour(Now) + Minute(Now) / 60)) '设置时针
Line183(H1).BorderColor = RGB(0, 255, 255)
Line183(H1).BorderWidth = 3
Line183(H1).X1 = 0 - 0.18 * Cos(Angle)
Line183(H1).Y1 = 0 - 0.18 * Sin(Angle)
Line183(H1).X2 = 0.8 * Cos(Angle)
Line183(H1).Y2 = 0.8 * Sin(Angle)
End Sub
Private Sub Timer1_Timer() '扫描
Static sum As Long
sum = sum + 1
Const s = 15 '时钟
'Label9 = 74.47最小
'Label9 = 76.97中间值
'Label9 = 79.48最大
Static q As Long
q = q + 1
Label9 = 76.97 + q / 100
If Label9 > 79.18 Then
End If
If Label9 < 74.77 Then
End If
Angle = 0.5236 * (360 - Second(Now) / 5)
Line181(s2).BorderColor = RGB(0, 255, 0)
Line181(s2).BorderWidth = 2
Line181(s2).X1 = 0
Line181(s2).Y1 = 0
Line181(s2).X2 = -Cos(Label9)
Line181(s2).Y2 = Sin(Label9)
Exit Sub
End Sub
Private Sub Timer3_Timer()
a3 = a3 - 10
a2 = a2 - 10
a4 = a4 - 10 / 10
a5 = a5 - 10 / 10
Label47.Top = a3
Label48.Top = a2
If a3 = -3930 Then
Label48.Top = 400
a2 = 400
End If
If a2 = -3930 Then
Label47.Top = 400
a3 = 400
End If
Label14.Top = -75 + a4
Label15.Top = -75 + a5
If a4 = -3930 Then
Label15.Top = 400
a5 = 400
End If
If a5 = -3930 Then
Label14.Top = 400
a4 = 400
End If
If a4 = -4330 Then
a10 = a10 + 1
Label10 = a10
End If
If a5 = -4330 Then
a10 = a10 + 1
Label10 = a10
End If
If a9 = 10 Then
a9 = 0
Label10 = "0"
End If
If a10 = 10 Then
a10 = 0
Label10 = "0"
a11 = a11 + 1
Label13 = a11
End If
If a11 = 10 Then
a11 = 0
Label13 = "0"
a12 = a12 + 1
Label11 = a11
End If
If a12 = 10 Then
a12 = 0
Label11 = "0"
End If
End Sub
Private Sub Timer4_Timer()
'Label99 = 74.78最小
'Label99 = 76.97中间值
'Label99 = 79.18最大
Static q As Long
q = q + 1
Label33 = q
Label99 = 79.18 - q / 90
Label6 = q
Label6 = Label6 / 4
Label7 = "100" - Label6 & "%" & vbCrLf
Label4 = "剩余燃油" & vbCrLf & Label7 & vbCrLf
Angle = 0.5236 * (360 - Second(Now) / 5)
Line160(s2).BorderColor = &HFFFF00
Line160(s2).BorderWidth = 1
Line160(s2).X1 = 0
Line160(s2).Y1 = 0
Line160(s2).X2 = 0.95 * -Cos(Label99)
Line160(s2).Y2 = 0.95 * Sin(Label99)
If Label33 >= 85 Then
Label34 = "副油箱已抛弃！"
Label34.Visible = True
Shape4.Visible = True
End If
If Label33 >= 170 Then
Label34 = "注意返航！"
Label34.ForeColor = &HFFFF&
Shape4.BorderColor = &HFFFF&
Shape4.FillColor = &HFFFF&
Timer8.Enabled = True
End If
If Label33 >= 339 Then
Label34 = "剩余燃油够飞行10分钟！"
Label34.ForeColor = &HFF&
Shape4.BorderColor = &HFF&
Shape4.FillColor = &HFF&
Timer8.Enabled = True
Timer8.Interval = 500
End If
If Label33 >= 369 Then
Label34 = "警告！剩余燃油仅够飞行5分钟"
Timer8.Enabled = True
Timer8.Interval = 250
End If
If Label99 = 74.78 Then
Label34 = "燃油耗尽"
Timer4.Enabled = False
Timer8.Enabled = False
End If
End Sub
Private Sub Picture7_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 37 Then '向左
End If
If KeyCode = 39 Then '向右
End If
If KeyCode = 38 Then
Label5.Top = Label5.Top - 10 '向上
Label19.Top = Label19.Top - 10
Label19 = "高度" & (8520 - Label5.Top) & "m"
Label2 = (8520 - Label5.Top) & "m"
Timer7.Enabled = True
If (8520 - Label5.Top) >= 25000 Then
Label3.Visible = True
End If
If (8520 - Label5.Top) <= 25000 Then
Label3.Visible = False
End If
If (8520 - Label5.Top) >= 8420 Then
Label19.Top = 30
Label5.Top = 70
End If
End If
If KeyCode = 40 Then '向下
Label5.Top = Label5.Top + 10 '向上
Label19.Top = Label19.Top + 10
Label19 = "高度" & (8520 - Label5.Top) & "m"
Label2 = (8520 - Label5.Top) & "m"
Timer7.Enabled = True
End If
If (8520 - Label5.Top) <= 25000 Then
Label3.Visible = False
End If
End Sub
Private Sub Timer5_Timer()
'Label99 = 74.77最小
'Label99 = 76.97中间值
'Label99 = 79.18最大 Label3
Label29 = Label32 * 2.42857142857143 / 1000 * 3600
a6 = a6 + 1
Label32 = a6 - 1
Label25 = 74.77 + Label32 / 90
Angle = 0.5236 * (360 - Second(Now) / 5)
Line162(s2).BorderColor = &HFFFF00
Line162(s2).BorderWidth = 1
Line162(s2).X1 = 0
Line162(s2).Y1 = 0
Line162(s2).X2 = 0.95 * -Cos(Label25)
Line162(s2).Y2 = 0.95 * Sin(Label25)
If Label25 >= 79.17 Then '向下
Timer5.Interval = 0
Timer5.Enabled = False
End If
If Label32 >= 325 Then
Label3 = "警告:飞机已超过最大飞行速度!"
Label3.Visible = True
End If
End Sub
Private Sub Timer6_Timer()
Label29 = Label32 * 2.42857142857143 / 1000 * 3600
Label32 = a6 - 1
a6 = a6 - 1
Label25 = 74.77 + Label32 / 90
Angle = 0.5236 * (360 - Second(Now) / 5)
Line162(s2).BorderColor = &HFFFF00
Line162(s2).BorderWidth = 1
Line162(s2).X1 = 0
Line162(s2).Y1 = 0
Line162(s2).X2 = 0.95 * -Cos(Label25)
Line162(s2).Y2 = 0.95 * Sin(Label25)
If Label25 <= 74.78 Then '向下
Timer6.Interval = 0
Timer6.Enabled = False
End If
If Label32 <= 324 Then
Label3.Visible = False
End If
If Label32 <= 0 Then
Label29 = "0"
End If
End Sub
Private Sub Label27_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
Static q1 As Long
Timer5.Enabled = True
Timer6.Interval = 50
Line7.Visible = False
Timer7.Enabled = True
End Sub
Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
Timer5.Enabled = False
Timer6.Enabled = False
End Sub
Private Sub Label21_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
Static q2 As Long
Timer6.Enabled = True
Timer5.Interval = 50
Line7.Visible = False
Timer7.Enabled = True
End Sub
Private Sub Timer7_Timer()
sk1 = sk1 + 1
If sk1 = 1 Then
Label17 = " 本次飞行资料" & vbCrLf & "----------------------" & vbCrLf
Label17 = Label17 & " 起飞时间：" & Label28 & vbCrLf
Label17 = Label17 & " 飞行高度：" & Label2 & vbCrLf
Label17 = Label17 & " 空 速：" & vbCrLf
Label17 = Label17 & " 加力速度：" & vbCrLf
Label17 = Label17 & " 飞行高度：" & vbCrLf
Label17 = Label17 & " 飞行速度：" & vbCrLf
Label17 = Label17 & " 发动机功率：" & vbCrLf
Label17 = Label17 & " 爬升速度：" & vbCrLf
Label17 = Label17 & " 爬升过载：" & vbCrLf
Label17 = Label17 & " 巡航速度：" & vbCrLf
Label17 = Label17 & " 加速度过载：" & vbCrLf
Label17 = Label17 & " 录音保存格式：" & vbCrLf
Label17 = Label17 & " 内部燃油：" & vbCrLf
Label17 = Label17 & " 瞬时转弯速度：" & vbCrLf
Label17 = Label17 & " 持续转弯速度：" & vbCrLf
End If
If sk1 >= 2 Then
Timer7.Enabled = False
sk1 = "0"
End If
End Sub
Private Sub Timer8_Timer()
a7 = a7 + 1
If a7 = 1 Then
Shape4.Visible = True
End If
If a7 = 2 Then
Shape4.Visible = False
a7 = 0
End If
End Sub
源代码下载：航空仪表模拟
下一篇：键盘虚拟测试
吕金杰
