bblxx.txt

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

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

If Frame2.Visible = True Then
Text2.Text = "?"
Dim a, d, t, f, er, lp, ctg, b As Double

a = Text1.Text
d = Text5.Text
t = Text13.Text
f = Text14.Text
er = Text7.Text
lp = 300 / (f * Sqr(er))
ctg = pi * (d - t) / (2 * a)
b = (-lp / a) * ctg ^ 2
 Text2.Text = Format(b, "##########.0000000000")
End If

If Frame3.Visible = True Then
Text3.Text = "?"
Dim a1, d1, f1, er1, lp1, ct, b1 As Double
a1 = Text11.Text
d1 = Text4.Text
f1 = Text6.Text
er1 = Text12.Text
lp1 = 300 / (f1 * Sqr(er1))
ct = 4 * a1 / (pi * d1 * Exp(1) * Exp(1))
b1 = -2 * lp1 / (a1 * Log(ct))
Text3.Text = Format(b1, "##########.0000000000")
End If
End Sub