论坛 › 仪表综合 › 初学VB，写了个小软件DBM转MW、MV，请大神帮看看有木有问题

x594008 发表于 2014-11-21 01:12:35

初学VB，写了个小软件DBM转MW、MV，请大神帮看看有木有问题

界面：
附件：
程序：Private Sub Command1_Click()
Cls
Dim dbm As Single
Dim ohm As Single
Dim mw As Single
Dim mv As Single

Dim mw_sum1 As Single

dbm = Val(Text1.Text)
ohm = Val(text2.Text)
mw = Val(Text3.Text)
mv = Val(Text4.Text)

mw_sum1 = 10 ^ (dbm / 10)
Text3.Text = mw_sum1
End Sub

Private Sub Command2_Click()
Cls
Dim dbm As Single
Dim ohm As Single
Dim mw As Single
Dim mv As Single

Dim dbm_sum As Single

dbm = Val(Text1.Text)
ohm = Val(text2.Text)
mw = Val(Text3.Text)
mv = Val(Text4.Text)

dbm_sum = 10 * Log(mw) / Log(10)
Text1.Text = dbm_sum
End Sub

Private Sub Command3_Click()
Cls
Dim dbm As Single
Dim ohm As Single
Dim mw As Single
Dim mv As Single

Dim mv_sum As Single

dbm = Val(Text1.Text)
ohm = Val(text2.Text)
mw = Val(Text3.Text)
mv = Val(Text4.Text)

mv_sum = Sqr(mw / 1000 * ohm)
Text4.Text = mv_sum * 1000
End Sub

Private Sub Command4_Click()
Cls
Dim dbm As Single
Dim ohm As Single
Dim mw As Single
Dim mv As Single

Dim mw_sum As Single

dbm = Val(Text1.Text)
ohm = Val(text2.Text)
mw = Val(Text3.Text)
mv = Val(Text4.Text)

mw_sum = mv * mv / ohm
Text3.Text = mw_sum / 1000
End Sub

关于负次方其实不是很理解，即输入0.99xxxmw转dbm的时候就出现了-4.3xxxe-2，有点转不过来，还需要再理解一下。

小松鼠 发表于 2014-11-21 11:37:13

实用的小软件

x594008 发表于 2014-11-21 12:47:46

小松鼠 发表于 2014-11-21 11:37
实用的小软件

谢谢!还请多多指教.

bg7tbl 发表于 2014-12-9 12:18:39

可以用 FORMAT函数 固定显示的小数点。

查看完整版本: 初学VB，写了个小软件DBM转MW、MV，请大神帮看看有木有问题