VB接收和发送大于７E的１６进制数

ywk41 2008-01-16 03:17:41
我刚从事软件,现写一个串口测试程序,现在能发送和接收十六制数,但发送８０以上的数,接收到为００,我接收和发送程序如下：
请高手指点.
Private Sub Command1_Click()
For byteloop = 1 To Len(Text1.Text) Step 2
strsend = Mid$(Text1.Text, byteloop, 2)
MSComm1.Output = Chr$("&h" + strsend)

Next
End Sub

Private Sub Mscomm1_Oncomm()

'...通讯事件发生

Dim indata As Variant

Dim bte(0) As Byte

Dim intInputLen As Integer

Dim i As Integer

Select Case MSComm1.CommEvent

Case comEvReceive '...有接受事件发生

bytInput = MSComm1.Input
For i = LBound(bytInput) To UBound(bytInput)
If Len(Hex(bytInput(i))) = 1 Then
strData = strData & "0" & Hex(bytInput(i)) & Chr(32)
Else
strData = strData & Hex(bytInput(i)) & Chr(32)
End If
Next
Text2 = strData

End Select
MSComm1.InBufferCount = 0
MSComm1.OutBufferCount = 0

End Sub

...全文
283 23 打赏 收藏 转发到动态 举报
写回复
用AI写文章
23 条回复
切换为时间正序
请发表友善的回复…
发表回复
guyehanxinlei 2008-01-18
  • 打赏
  • 举报
 回复
学习
zdingyun 2008-01-17
  • 打赏
  • 举报
 回复
又出来了！哈哈！
zdingyun 2008-01-17
  • 打赏
  • 举报
 回复
12:40回贴不见了？？
zdingyun 2008-01-17
  • 打赏
  • 举报
 回复
To ywk41:
你这样设置没解决发送大于&H80(Byte值>128)数据的正确发送。
Option Explicit

    Dim strData As String

Private Sub Command1_Click() '16进制发送，不出现发送80以上的数,接收到为00的错误

    Dim sj() As Byte

    Dim sj_Txt As String

    Dim i As Integer

    sj_Txt = Text1

    ReDim sj(Len(sj_Txt) / 2 - 1)

    For i = 0 To Len(sj_Txt) - 1 Step 2

       sj(i / 2) = Val("&H" & Mid(sj_Txt, i + 1, 2))

    Next

    If MSComm1.PortOpen = True Then

        MSComm1.Output = sj

    Else

        MSComm1.PortOpen = True

        MSComm1.Output = sj

    End If

End Sub

'执行Command2_Click代码，出现８０以上的数,接收到为00错误

Private Sub Command2_Click()

    Dim byteloop As Integer

    Dim strSend As String

    For byteloop = 1 To Len(Text1.Text) Step 2

        strSend = Mid$(Text1.Text, byteloop, 2)

        MSComm1.Output = Chr$("&h" + strSend)

    Next

End Sub



Private Sub Form_Load()

    Text1 = "808182838400123456"

    MSComm1.RThreshold = 1

    MSComm1.NullDiscard = False

    MSComm1.InputMode = comInputModeBinary

    MSComm1.PortOpen = True

End Sub



Private Sub Mscomm1_Oncomm()

    '通讯事件发生

    Dim indata As Variant

    Dim bytInput() As Byte

    Dim intInputLen As Integer

    Dim i As Integer

    Select Case MSComm1.CommEvent

        Case comEvReceive     '...有接受事件发生

        bytInput = MSComm1.Input

        For i = 0 To UBound(bytInput)

            If Len(Hex(bytInput(i))) = 1 Then

                strData = strData & "0" & Hex(bytInput(i)) '& Chr(32)

            Else

                strData = strData & Hex(bytInput(i)) '& Chr(32)

            End If

        Next

        Text2 = strData

    End Select

    MSComm1.InBufferCount = 0

    MSComm1.OutBufferCount = 0

End Sub
ywk41 2008-01-17
  • 打赏
  • 举报
 回复
(1)设置MSComm控件的属性NullDiscard=False；

(2)使用二进制接收，即用MSComm1.InputMode=comInputModeBinary便可以解决问题；

按这个设置的,
ywk41 2008-01-17
  • 打赏
  • 举报
 回复
那怎样接收００字！还没搞定！
zdingyun 2008-01-17
  • 打赏
  • 举报
 回复
To ywk41:
你发表于：2008-01-17 16:05:37的贴子中的代码存在错误,不能接收.
1. bte(0)是何变量名,接收代码中用的是bytInput()BYTE动态数组
2. MSComm1属性RThreshold必需>0,方能产生Oncomm事件
3. 必需注意程序中变量的准确定义
代码修改如下: 


Option Explicit

    Dim sj() As Byte

    Dim strData As String

Private Sub Command1_Click() '发送数据

    Dim buffer As Variant

    Dim strsend As String

    Dim i As Integer

    ReDim sj(Len(Text1.Text) / 2 - 1)

    For i = 0 To Len(Text1.Text) - 1 Step 2

        sj(i / 2) = Val("&H" & Mid(Text1.Text, i + 1, 2))

    Next

    MSComm1.Output = sj

    strData = ""

End Sub



Private Sub Form_Load()

    MSComm1.Settings = "9600,n,8,1"

    MSComm1.RThreshold = 1

    MSComm1.PortOpen = True

    Text1 = "001234567890FF00"

End Sub



Private Sub Mscomm1_Oncomm()

'通讯事件发生

    Dim indata As Variant

    Dim bytInput() As Byte

    Dim intInputLen As Integer

    Dim i As Integer

    Select Case MSComm1.CommEvent

        Case comEvReceive        '...有接受事件发生

            '此处添加处理接收的代码

            MSComm1.InputMode = comInputModeBinary    '二进制接收

            intInputLen = MSComm1.InBufferCount

            ReDim bytInput(intInputLen)

            bytInput = MSComm1.Input

            'jieshou

            For i = 0 To UBound(bytInput)

                If Len(Hex(bytInput(i))) = 1 Then

                    strData = strData & "0" & Hex(bytInput(i))

                Else

                    strData = strData & Hex(bytInput(i))

                End If

            Next

            Text2.Text = strData

    End Select

    MSComm1.InBufferCount = 0

    MSComm1.OutBufferCount = 0

End Sub
xaobao 2008-01-17
  • 打赏
  • 举报
 回复
oh yeah~
ywk41 2008-01-17
  • 打赏
  • 举报
 回复
这个我已改过了,
是发送和接收十六进数.发００H接收不到！
代码如下：
Private Sub Command1_Click()　'发送数据
Dim buffer As Variant
Dim strsend As String
Dim sj() As Byte
Dim i As Integer
ReDim sj(Len(Text1.Text) / 2 - 1)
For i = 0 To Len(Text1.Text) - 1 Step 2
sj(i / 2) = Val("&H" & Mid(Text1.Text, i + 1, 2))
Next
MSComm1.Output = sj

strData = ""

End Sub


Private Sub Mscomm1_Oncomm()

'...通讯事件发生

Dim indata As Variant

Dim bte(0) As Byte

Dim intInputLen As Integer

Dim i As Integer


Select Case MSComm1.CommEvent

Case comEvReceive '...有接受事件发生

'此处添加处理接收的代码
Me.MSComm1.InputMode = comInputModeBinary '二进制接收
intInputLen = Me.MSComm1.InBufferCount
ReDim bytInput(intInputLen)
bytInput = Me.MSComm1.Input
'jieshou
For i = 0 To UBound(bytInput)
If Len(Hex(bytInput(i))) = 1 Then
strData = strData & "0" & Hex(bytInput(i)) '& " " '建议 & " " 不要用
Else
strData = strData & Hex(bytInput(i)) '& " " '建议 & " " 不要用
End If
Next
Text2.Text = strData


End Select
MSComm1.InBufferCount = 0
MSComm1.OutBufferCount = 0

End Sub
zdingyun 2008-01-17
  • 打赏
  • 举报
 回复
TO ywk41:
你发表于：2008-01-16 15:17:41的原贴是：
我刚从事软件,现写一个串口测试程序,现在能发送和接收十六制数,但发送８０以上的数,接收到为００,我接收和发送程序如下：
请高手指点.
你发表于：2008-01-17 13:50:55的贴子：
谢谢zdingyun,我可以发送８０以上的数,但我不能接收００H,
我被你搞糊涂了！！！

一般MSComm控件的属性NullDiscard缺省设置就为False，除非你刻意设置为True
但你发表于：2008-01-16 15:17:41的原贴中代码：


Private Sub Command1_Click() 

    For byteloop = 1 To Len(Text1.Text) Step 2 

        strsend = Mid$(Text1.Text, byteloop, 2) 

        MSComm1.Output = Chr$("&h" + strsend) 

    Next 

End Sub

是８０以上的数,会接收到为00错误
ywk41 2008-01-17
  • 打赏
  • 举报
 回复
谢谢zdingyun,我可以发送８０以上的数,但我不能接收００H,
ywk41 2008-01-16
  • 打赏
  • 举报
 回复

可以发,我的接收有问题
ywk41 2008-01-16
  • 打赏
  • 举报
 回复
但不能传送００？
ywk41 2008-01-16
  • 打赏
  • 举报
 回复
任道甚远,还有好多要做,
嗷嗷叫的老马 2008-01-16
  • 打赏
  • 举报
 回复
....................
ywk41 2008-01-16
  • 打赏
  • 举报
 回复
ok了,谢谢zdingyun 和alifriend
zdingyun 2008-01-16
  • 打赏
  • 举报
 回复 
Private Sub cmdSendHex_Click() '16进制发送

    Dim sj() As Byte

    Dim sj_Txt As String

    Dim i As Integer

    TxtSend = "800A00113135323634389794"

    sj_Txt = TxtSend

    ReDim sj(Len(sj_Txt) / 2 - 1)

    For i = 0 To Len(sj_Txt) - 1 Step 2

       sj(i / 2) = Val("&H" & Mid(sj_Txt, i + 1, 2))

    Next

    MSComm1.Output = sj

End Sub

Private Sub Form_Load()

    MSComm1.CommPort = 1                  'COM端口

    MSComm1.Settings = "9600,n,8,1"

    MSComm1.InputMode = comInputModeBinary      '采用二进制传输

    MSComm1.InBufferCount = 0   '清空接受缓冲区

    MSComm1.OutBufferCount = 0  '清空传输缓冲区

    MSComm1.RThreshold = 1      '产生MSComm事件

    MSComm1.InBufferSize = 1024

    MSComm1.PortOpen = True

    TxtSend = ""

End Sub
ywk41 2008-01-16
  • 打赏
  • 举报
 回复
明白了,谢谢,那怎样改？我是初手！
zdingyun 2008-01-16
  • 打赏
  • 举报
 回复 
Private Sub cmdSendHex_Click() '16进制发送

    Dim sj() As Byte

    Dim sj_Txt As String

    Dim i As Integer

    TxtSend = "800A00113135323634389794"

    sj_Txt = TxtSend

    ReDim sj(Len(sj_Txt) / 2 - 1)

    For i = 0 To Len(sj_Txt) - 1 Step 2

       sj(i / 2) = Val("&H" & Mid(sj_Txt, i + 1, 2))

    Next

    If MSComm1.PortOpen = True Then

        MSComm1.Output = sj

    Else

        MSComm1.PortOpen = True

        Shape1.FillColor = vbGreen

        Label5.Caption = "打开"

        MSComm1.Output = sj

    End If

End Sub

Private Sub Form_Load()

    MSComm1.CommPort = 1                  'COM端口

    MSComm1.Settings = "9600,n,8,1"

    MSComm1.InputMode = comInputModeBinary      '采用二进制传输

    MSComm1.InBufferCount = 0   '清空接受缓冲区

    MSComm1.OutBufferCount = 0  '清空传输缓冲区

    MSComm1.RThreshold = 1      '产生MSComm事件

    MSComm1.InBufferSize = 1024

    MSComm1.PortOpen = True

    TxtSend = ""

End Sub
波导终结者 2008-01-16
  • 打赏
  • 举报
 回复
MSComm1.Output = Chr$("&h" + strsend)
加载更多回复（3）
大学计算机基础第五版习题和课后题答案
将二进制数1111011转换成八进制数是 （ ）。 A. 123 B. 164 C. 173 D. 182 正确答案是：173 【单选题】(1分) 假定某台计算机的字长为8位，则十进制数87的补码为（ ）。 A. 01101101 B. 01100110
VB函数大全
VB函数大全  Calendar 常数 可在代码中的任何地方用下列常数代替实际值： 常数 值 描述 vbCalGreg 0 指出使用的是阳历。 vbCalHijri 1 指出使用的是伊斯兰历法。 -----------------------------------...
【译】WebSocket协议第五章——数据帧(Data Framing)
概述 本文为WebSocket协议的第五章，本文翻译的主要内容为WebSocket传输...为了避免由于网络中介（例如一些拦截代理）或者一些在第10.3节讨论的安全原因，客户端必须在它发送到服务器的所有帧中添加掩码（Mask）（具...
CTF逆向总结（二）
指解题中遇到考察特定位数系统中特定的数的真实值的时候，需要辨认出对应的值才能继续解题。如：32位系统中100000000就是0了 冗余中锁定关键代码： 从后往前看，就是确定比较关键对象，从该对象开始排除其他无关...
python面试
1.简述解释型和编译型编程语言？ 解释型语言编写的程序不需要编译，在执行的时候，专门有一个解释器能够将VB语言翻译成机器语言，每个语句都是执行的时候才翻译。这样解释型语言每执行一次就要翻译一次，效率...
VB基础类

7,763

社区成员

197,609

社区内容

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章