使用vb编一个读写2进制的数 并在text上显示

PrivateSubCommand2_Click()Dimsendmsg(5)AsByteDimrcvdat()AsByteDimdattmpAsVariantDimiA... Private Sub Command2_Click()
Dim sendmsg(5) As Byte
Dim rcvdat() As Byte
Dim dattmp As Variant
Dim i As Integer
Command2.Enabled = False
For i = 0 To 5
sendmsg(i) = "&h" & Mid(Text2.Text, i * 2 + 1, 2)
Next i
MSComm1.PortOpen = True
MSComm1.Output = sendmsg
Do Until MSComm1.InBufferCount >= 6
DoEvents
Loop
dattmp = MSComm1.Input
rcvdat = dattmp
Text1.Text = " "
For i = 0 To 5
Text1.Text = Text1.Text & Right("0" & Hex(rcvdat(i)), 2)
Next i
MSComm1.PortOpen = False
Command2.Enabled = True
End Sub

这是代码 可是编译有错:类型不匹配 第六行
问题解决追加高分!
希望高手帮我一把 qq 78162776 在线等!
回答1楼:还是实时错误:类型不匹配!
展开
 我来答
帐号已注销
2007-04-08 · 超过18用户采纳过TA的回答
知道答主
回答量:55
采纳率:0%
帮助的人:58.8万
展开全部
这个不匹配
sendmsg(i) = "&h" & Mid(Text2.Text, i * 2 + 1, 2)
右边是字符串类型,左边是字节类型,你强行转换一下就好了
sendmsg(i) =Cbyte("&h" & Mid(Text2.Text, i * 2 + 1, 2))
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式