[程序宝典]VB串口通讯实例.pdf

[程序宝典]VB 串口通讯实例 VB 串口通讯实例 作者：liwenzhao 高精度电压表(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 /********************************************** Check1_Click()为控制 Command1 是否 Enabled 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 Option2(0).value = True 为什么两个都是 True Command1.SetFocus SetFocus 是什么？ Label1.Caption = Format(value2, 0.000,000) Format 为格式输出函数 For i = 0 To 3 If Option2(i).value = True Then func = i + 1 End If Next i Check1.value = 1 Call ComPortOpen End Sub Public Sub ComPortOpen() 开串口 With MSComm1 .CommPort = PortValue 使用 COM1 .Settings = 9