Dim ReadMsg As String
Dim BytReceived() As Byte
Dim strBuff As String
Dim i As Integer
Select Case MSComm.CommEvent
Case comEvReceive
strBuff = MSComm.Input
BytReceived() = strBuff
For i = 0 To UBound(BytReceived)
If Len(Hex(BytReceived(i))) = 1 Then
ReadMsg = ReadMsg & "0" & Hex(BytReceived(i))
Else
ReadMsg = " " & ReadMsg & Hex(BytReceived(i))
End If
Next
CurrPressure = Val(Mid(ReadMsg, 3, 3))
CurrVolume = Val(Mid(ReadMsg, 6, 6))
end select
Dim BytReceived() As Byte
Dim strBuff As String
Dim i As Integer
Select Case MSComm.CommEvent
Case comEvReceive
strBuff = MSComm.Input
BytReceived() = strBuff
For i = 0 To UBound(BytReceived)
If Len(Hex(BytReceived(i))) = 1 Then
ReadMsg = ReadMsg & "0" & Hex(BytReceived(i))
Else
ReadMsg = " " & ReadMsg & Hex(BytReceived(i))
End If
Next
CurrPressure = Val(Mid(ReadMsg, 3, 3))
CurrVolume = Val(Mid(ReadMsg, 6, 6))
end select
解决方案 »
- 急急~~~如何用winsock4控件 将图片发给对方
- WiseInstall 安装程序谁有呀,提供一份!谢谢!
- 如何改变系统默认的音频设备?(如果你是第一个可以做的,这一百分是你的!)
- 给分啦!!来看看呀
- 一个关于SQL的问题!!
- 谁能讲讲vb的package&deployment的一些原理,比如,他会自动假如那些文件,安装的时候安装到什么位置,出现文件同名冲突的时候怎么去解决
- 自认为是高手的请进~!!!有问题?
- 请问如何用shell调用有参数的EXE文件?
- 修改程序——如何用vb画虚线和点划线
- 今天加班的vb版友们:都在做些什么项目啊??
- VB下写程序判断VF的一个项目中是否有某一数据库或某一数据表?
- vb6如果新建excel文件?不是open
如:MSComm1.RThreshold = 1