a天堂国产 I 久久图片 I 91精品高清 I 亚洲人人玩人人添人人 I 婷婷伊人五月色噜噜精品一区 I 亚洲第一页夜 I 91日韩精品视频 I 无码人妻在线一区二区三区免费 I www.五月婷婷.com I 国产精品久久久久亚洲影视 I 91久久精品一二三 I 国产ts一区 I 91精品乱码久久蜜桃 I 成人免费观看高清 I 久久久久久国产精品免费无码 I 久久免费少妇高潮99精品 I 国产探花在线免费观看 I 亚洲精品少妇 I 亚洲综合成人亚洲 I 欧美区一区二区 I 手机福利视频 I 亚洲欧美综合另类自拍 I 久久精品视频免费播放 I 亚洲精品久久 I av免费在线免费观看 I 亚洲热综合 I 中文字幕无码专区人妻制服 I 午夜免费一区二区 I 在线亚洲精品国产一区麻豆 I 久久精品免费在线观看 I 全国最大成人网 I 亚洲欧美经典视频 I 手机av在线看 I 偷拍视频一区二区三区 I 吃奶摸下激烈视频学生软件

以文本方式查看主題

-  曙海教育集團(tuán)論壇  (http://www.022-oo.cn/bbs/index.asp)
--  VB語言  (http://www.022-oo.cn/bbs/list.asp?boardid=77)
----  開發(fā)語言中的VB串口通訊實(shí)例  (http://www.022-oo.cn/bbs/dispbbs.asp?boardid=77&id=2606)

--  作者：wangxinxin
--  發(fā)布時(shí)間：2010-12-14 14:36:19
--  開發(fā)語言中的VB串口通訊實(shí)例
高精度電壓表(24bit) VB源程序
Dim PortValue As Integer `端口號(hào)選擇1-4
Dim value As Double `當(dāng)前一次取值
Dim value2 As Double `要顯示的值
Dim valueSum As Double `和
Dim numCount As Double `算平均值是的計(jì)數(shù)個(gè)數(shù)
Dim func As Integer `功能號(hào)標(biāo)志1-4
Dim valueFlag As Integer
Private Sub Check1_Click()
`自動(dòng)刷新被選中則刷新按鈕無效
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 `清計(jì)數(shù)和
numCount = 1 `清計(jì)數(shù)個(gè)數(shù)
Label6.Caption = Str(numCount - 1) `顯示復(fù)位
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
Command1.SetFocus
Label1.Caption = Format(value2 0.000000)
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 = 9600N81 `設(shè)置通信口參數(shù)
.InBufferSize = 40
`設(shè)置MSComm1接收緩沖區(qū)為40字節(jié)
`.OutBufferSize = 2
`設(shè)置MSComm1發(fā)送緩沖區(qū)為2字節(jié)
.InputMode = comInputModeBinary
`設(shè)置接收數(shù)據(jù)模式為二進(jìn)制形式
.InputLen = 1
`設(shè)置Input 一次從接收緩沖讀取字節(jié)數(shù)為1
`.SThreshold = 1
`設(shè)置Output 一次從發(fā)送緩沖讀取字節(jié)數(shù)為1
.InBufferCount = 0 `清除接收緩沖區(qū)
`.OutBufferCount = 0 `清除發(fā)送緩沖區(qū)
`MaxW = -99
`最大值賦初值
`MinW = 99 `最小值賦初值
`w = 0
`數(shù)據(jù)個(gè)數(shù)計(jì)數(shù)器清零
.RThreshold = 1
On Error Resume Next
`設(shè)置接收一個(gè)字節(jié)產(chǎn)生OnComm事件
If .PortOpen = False Then
`判斷通信口是否打開
.PortOpen = True `打開通信口
If Err Then `錯(cuò)誤處理
msg = MsgBox( 串口 COM PortValue 無效！ vbOKOnly 警告)
Exit Sub
End If
End If
End With
`MsgBox 端口已打開
End Sub
Public Sub ComPortClose() `關(guān)串口
MSComm1.PortOpen = False
` MsgBox 端口已關(guān)閉
End Sub
Private Sub MSComm1_OnComm()
Call recive
End Sub
Private Sub Option1_Click(Index As Integer)
If MSComm1.PortOpen = True Then
Call ComPortClose
End If
PortValue = Index + 1
Call ComPortOpen
End Sub
Private Sub recive() `檢測起始位并接收數(shù)據(jù)
Dim Buffer As Variant
Dim Arr() As Byte
Dim inData(5) As Byte
Dim count As Integer
Dim temp As Byte

` MsgBox OnComm
With MSComm1

Select Case .CommEvent
`判斷MSComm1通信事件
Case comEvReceive
`收到Rthreshold個(gè)字節(jié)產(chǎn)生的接收事件
Buffer = .Input
Arr = Buffer

`讀取一個(gè)接收字節(jié)
` Text1.Text = Arr(0)
If Arr(0) = H1B Then
.RThreshold = 0
Do
DoEvents
Loop Until .InBufferCount >= 4

For i = 1 To 4
`count = .InBufferCount
Buffer = .Input
Arr = Buffer
inData(i) = Arr(0)
Next i
If inData(4) = HA Then
If (inData(1) Mod 64) >= 32 Then
.RThreshold = 1
Exit Sub
End If
valueFlag = 1
`0.000003814697265625
temp = inData(1) Mod 16
If temp <= 7 Then
value = inData(1) Mod 8
value = value * 256 * 256
value = value + Val(inData(2)) * 256
value = value + Val(inData(3))
value = value * 3.814697265625E-06
`Text1.Text = Format(value 0.000000)
Else
value = inData(1) Mod 8
value = value * 256 * 256
value = value + Val(inData(2)) * 256
value = value + Val(inData(3))
value = value * 3.814697265625E-06
value = 0 - value
End If
temp = inData(1) Mod 128
` test OF
If temp >= 64 Then
If value < 0 Then
value = value - 0.000004
Else
value = value + 0.000004
End If
End If
`檢測自動(dòng)刷新
If Check1.value Then
`valueFlag = 1
Call display
End If