📄 对流层精密模型.frm
字号:
VERSION 5.00
Begin VB.Form 对流层精密模型
BackColor = &H80000004&
Caption = "Form1"
ClientHeight = 6675
ClientLeft = 60
ClientTop = 450
ClientWidth = 10380
LinkTopic = "Form1"
ScaleHeight = 6675
ScaleWidth = 10380
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command3
Caption = "CLEAR"
Height = 510
Left = 6960
TabIndex = 24
Top = 5640
Width = 1095
End
Begin VB.CommandButton Command2
Caption = "OUT"
Height = 495
Left = 8400
TabIndex = 23
Top = 5640
Width = 1095
End
Begin VB.TextBox Text7
Height = 495
Left = 8160
TabIndex = 20
Top = 4560
Width = 1455
End
Begin VB.CommandButton Command1
BackColor = &H00FFFFFF&
Caption = "时延计算"
Height = 975
Left = 7800
TabIndex = 19
Top = 2985
Width = 1815
End
Begin VB.TextBox Text6
Height = 495
Left = 1920
TabIndex = 6
Top = 5400
Width = 1335
End
Begin VB.TextBox Text5
Height = 495
Left = 1920
TabIndex = 5
Top = 4680
Width = 1335
End
Begin VB.TextBox Text4
Height = 495
Left = 1920
TabIndex = 4
Top = 3960
Width = 1335
End
Begin VB.TextBox Text3
Height = 495
Left = 1920
TabIndex = 3
Top = 3240
Width = 1335
End
Begin VB.TextBox Text2
Height = 495
Left = 1920
TabIndex = 2
Top = 2520
Width = 1335
End
Begin VB.TextBox Text1
Height = 495
Left = 1920
TabIndex = 1
Top = 1800
Width = 1335
End
Begin VB.Label Label5
BackColor = &H00FFFFFF&
Caption = "(m)"
Height = 255
Left = 9720
TabIndex = 22
Top = 4680
Width = 255
End
Begin VB.Label Label4
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "改正数="
Height = 180
Left = 7200
TabIndex = 21
Top = 4680
Width = 630
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "mbar"
Height = 180
Index = 5
Left = 3360
TabIndex = 18
Top = 5520
Width = 360
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "%"
Height = 180
Index = 4
Left = 3360
TabIndex = 17
Top = 4800
Width = 90
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "摄氏温度"
Height = 180
Index = 3
Left = 3360
TabIndex = 16
Top = 4080
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "mbar"
Height = 180
Index = 2
Left = 3360
TabIndex = 15
Top = 3360
Width = 360
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "米"
Height = 180
Index = 1
Left = 3360
TabIndex = 14
Top = 2640
Width = 180
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "水汽压="
Height = 180
Index = 5
Left = 960
TabIndex = 13
Top = 5520
Width = 630
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "湿度比="
Height = 180
Index = 4
Left = 960
TabIndex = 12
Top = 4800
Width = 630
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "绝对温度="
Height = 180
Index = 3
Left = 840
TabIndex = 11
Top = 4080
Width = 810
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "大气压="
Height = 180
Index = 2
Left = 960
TabIndex = 10
Top = 3360
Width = 630
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "测站高程="
Height = 180
Index = 1
Left = 840
TabIndex = 9
Top = 2640
Width = 810
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "度"
Height = 180
Index = 0
Left = 3360
TabIndex = 8
Top = 1920
Width = 180
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "高度角E="
Height = 180
Index = 0
Left = 960
TabIndex = 7
Top = 1920
Width = 720
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = "霍普菲尔德对流层折射改正模型"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 960
TabIndex = 0
Top = 480
Width = 4695
End
End
Attribute VB_Name = "对流层精密模型"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim e, e1, pai, hs, ps, es, ts, hw, sd, hd, kd, kw, jm, a1d, a2d, a3d, a1w, a2w, a3w, β, i, md, mw As Double
e = Text1.Text: hs = Text2.Text: ps = Text3.Text
ts = Text4.Text: sd = Text5.Text: es = Text6.Text
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Then
Exit Sub
End If
hw = 11000
es = ps * sd / 100
hd = 40136 + 148.72 * (ts - 273.16)
kd = 155.2 * 10 ^ (-7) * ps * (hd - hs) / ts
kw = 155.2 * 10 ^ (-7) * 4810 * es * (hw - hs) / (ts ^ 2)
pai = 3.141592653589
e1 = e * pai / 180
a1d = 0.001185 * (1 + 0.00006071 * (ps - 1000) - 0.0001471 * es + 0.003072 * (ts - 20) + 0.005645 * hd)
a2d = 0.001144 * (1 + 0.00001164 * (ps - 1000) + 0.0002795 * es + 0.003109 * (ts - 20) + 0.01217 * hd)
a3d = -0.009
a1w = 0.001185 * (1 + 0.00006071 * (ps - 1000) - 0.0001471 * es + 0.003072 * (ts - 20) + 0.005645 * hw)
a2w = 0.001144 * (1 + 0.00001164 * (ps - 1000) + 0.0002795 * es + 0.003109 * (ts - 20) + 0.01217 * hw)
a3w = -0.009
md = 1 / (Sin(e1) + a1d / (Tan(e1) + a2d / (Sin(e1) + a3d)))
mw = 1 / (Sin(e1) + a1w / (Tan(e1) + a2w / (Sin(e1) + a3w)))
jm = kd * md + kw * mw
Text6.Text = es
Text7.Text = jm
Print , "kd="; kd, "md="; md, "kw="; kw, "mw="; mw
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Text1.Text = "": Text2.Text = "": Text3.Text = "": Text4.Text = "": Text5.Text = "": Text6.Text = "": Text7.Text = ""
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -