[程序?qū)毜鋆vb串口通訊實例

1、[程序?qū)毜?程序?qū)毜鋆VB VB 串口通訊實例 串口通訊實例 程序匠人 2005-9-22 14:23:00 閱讀全文(3939) | 回復(fù)(0) | 引用(0) | 查看《匠人的百寶箱》代理商品 VB 串口通訊實例 作者：liwenzhao 高精度電壓表(24bit) VB 源程序 Dim PortValue As Integer '端口號選擇 1-4 Dim value As Double

2、 '當(dāng)前一次取值 Dim value2 As Double '要顯示的值 Dim valueSum As Double '和 Dim numCount As Double '算平均值是的計數(shù)個數(shù) Dim func As Integer '功能號標(biāo)志 1-4 Dim valueFlag As Integer /********

3、************************************** ' Check1_Click()為控制 Command1 是否 Enabled Private Sub Check1_Click() '自動刷新 被選中則 刷新按鈕無效 If Check1.value Then Command1.Enabled = False Else Command1.Enabled = True Command1.Se

4、tFocus End If End Sub *********************************************/ /********************************************** Private Sub Command1_Click() '顯示 Call display End Sub *****************************************

5、****/ Private Sub Command2_Click() '復(fù)位 valueSum = 0 '清計數(shù)和 numCount = 1 '清計數(shù)個數(shù) Label6.Caption = Str(numCount - 1) '顯示復(fù)位 value = 0 '當(dāng)前一次取值 value2 = 0 '要顯示的值 valueFlag = 0 'VB 中 SThreshold 單位是

6、字符數(shù) '設(shè)置 Output 一次從發(fā)送緩沖讀取字節(jié)數(shù)為 1 .InBufferCount = 0 '清除接收緩沖區(qū) '.OutBufferCount = 0 '清除發(fā)送緩沖區(qū) 'MaxW = -99 '最大值賦初值 ？？？？ 'MinW = 99 '最小值賦初值 ？？？？ 'w = 0 '數(shù)據(jù)個數(shù)計數(shù)器清零

7、.RThreshold = 1 On Error Resume Next '？？？？ '設(shè)置接收一個字節(jié)產(chǎn)生 OnComm 事件 /********************************************** '打開串口，如打不開，則 Err，出現(xiàn) msg?? If .PortOpen = False Then '判斷通信口是否打開 .PortOpen = True '

8、;打開通信口 If Err Then '錯誤處理 msg = MsgBox(“ 串口 COM“ & PortValue &“ 無效！ “, vbOKOnly, “警告“) 'vbOKOnly 顯示確定按鈕 Exit Sub End If End If **********************************************/ End With 'MsgBox “端