VB串口通讯实例

高精度电压表(24bit) VB源程序
Dim PortValue As Integer '端口号选择1-4
Dim value As Double '当前一次取值
Dim value2 As Double '要显示的值
Dim valueSum As Double '和
Dim numCount As Double '算平均值是的计数个数
Dim func As Integer '功能号标志1-4
Dim valueFlag As Integer
Private Sub Check1_Click()
'自动刷新 被选中则 刷新按钮无效
If Check1.value Then
Command1.Enabled = False
Else
Command1.Enabled = True

Command1.SetFocus
End If
End Sub
Private Sub Command1_Click()
'显示
Call display
End Sub
Private Sub Command2_Click()
valueSum = 0 '清计数和
numCount = 1 '清计数个数
Label6.Caption = Str(numCount - 1) '显示复位
value = 0
value2 = 0
valueFlag = 0
Call display
End Sub
Private Sub Form_Activate()
numCount = 1
value = 0
valueSum = 0
PortValue = 1
Text1.Visible = False
Label6.Caption = "0"
Option1(0).value = True

下一页