jbx.txt

某大学开发的一个用于对微波传输线状态进行模拟的软件

VERSION 5.00
Private Sub cmdOK_Click()
Dim pi As Double
pi = 4 * Atn(1)

If Frame1.Visible = True Then
Dim zo1, zo2, lg1, t1, l1, a As Double
zo1 = Text1.Text
zo2 = Text2.Text
l1 = Text3.Text
t1 = Text4.Text
a = Log(0.5 * Log(zo2 / zo1) / t1 + Sqr((0.5 * Log(zo2 / zo1) / t1) ^ 2 - 1))
lg1 = l1 * 2 * pi / a
Text5.Text = Format(lg1, "##########.0000000000")
Command1.Enabled = True
End If

If Frame2.Visible = True Then
Dim zo3, zo4, lg2, t2, l2, b As Double
zo3 = Text6.Text
zo4 = Text8.Text
lg2 = Text9.Text
t2 = Text10.Text
b = Log(0.5 * Log(zo4 / zo3) / t2 + Sqr((0.5 * Log(zo4 / zo3) / t2) ^ 2 - 1))
l2 = b * lg2 / (2 * pi)
Text7.Text = Format(l2, "##########.0000000000")
Command2.Enabled = True
End If

If Frame3.Visible = True Then
Dim zo5, zo6, lg3, t3, l3, a2 As Double
zo5 = Text11.Text
zo6 = Text13.Text
l3 = Text14.Text
t3 = Text15.Text
a2 = Log(0.5 * Log(zo6 / zo5) / t3 + Sqr((0.5 * Log(zo6 / zo5) / t3) ^ 2 - 1))
lg3 = l3 * 2 * pi / a2
Text12.Text = Format(lg3, "##########.0000000000")
Command3.Enabled = True
End If

If Frame4.Visible = True Then
Dim zo7, zo8, lg4, t4, l4, b2 As Double
zo7 = Text16.Text
zo8 = Text18.Text
lg4 = Text19.Text
t4 = Text20.Text
b2 = Log(0.5 * Log(zo8 / zo7) / t4 + Sqr((0.5 * Log(zo8 / zo7) / t4) ^ 2 - 1))
l4 = b2 * lg4 / (2 * pi)
Text17.Text = Format(l4, "##########.0000000000")
Command4.Enabled = True
End If

If Frame5.Visible = True Then
Dim zo9, zo10, lg5, t5, l5, a3 As Double
zo9 = Text21.Text
zo10 = Text23.Text
l5 = Text24.Text
t5 = Text25.Text
a3 = Log(0.5 * Log(zo10 / zo9) / t5 + Sqr((0.5 * Log(zo10 / zo9) / t5) ^ 2 - 1))
lg5 = l5 * 2 * pi / a3
Text22.Text = Format(lg5, "##########.0000000000")
Command5.Enabled = True
End If

If Frame6.Visible = True Then
Dim zo11, zo12, lg6, t6, l6, b3 As Double
zo11 = Text26.Text
zo12 = Text28.Text
lg6 = Text29.Text
t6 = Text30.Text
b3 = Log(0.5 * Log(zo12 / zo11) / t6 + Sqr((0.5 * Log(zo12 / zo11) / t6) ^ 2 - 1))
l6 = b3 * lg6 / (2 * pi)
Text27.Text = Format(l6, "##########.0000000000")
Command6.Enabled = True
End If
End Sub