编程论坛 → VB6论坛

数据类型不匹配问题

guomanjie 发布于 2013-12-25 20:40， 427 次点击

numbuf(0) = Buffer(0)
numbuf是string型，Buffer是Variant

8 回复

vbvcr512013-12-25 21:30

知道了不匹配，那就改过来啊。=两边数据类型要相同.

[ 本帖最后由 vbvcr51 于 2013-12-25 21:50 编辑 ]

guomanjie2013-12-25 21:41

回复 2楼 vbvcr51

要怎么改，好像怎么改都不对

vbvcr512013-12-25 21:51

dim numbuf(0) , Buffer(0) as string

guomanjie2013-12-25 21:58

回复 4楼 vbvcr51

Dim Buffer As Variant '存储数据的缓冲区
Dim numbuf(24) As String '数据数组
Buffer = MSComm1.Input '清理接收缓冲区，此时，接收的字节数已经为0

numbuf(0) = Buffer(0)
    numbuf(1) = Buffer(1)
    numbuf(2) = Buffer(2)
    numbuf(3) = Buffer(3)
    numbuf(4) = Buffer(4)
    numbuf(5) = Buffer(5)
    numbuf(6) = Buffer(6)
    numbuf(7) = Buffer(7)
这个要怎么改

鬼小美2013-12-27 16:31

Dim Buffer As Variant '存储数据的缓冲区
Dim ReadData() As String '数据数组
Dim str as String
Buffer = MSComm1.Input '清理接收缓冲区，此时，接收的字节数已经为0
ReadData()=buffer '将变体赋值给一个字节型数组
For i = LBound(ReadData) To UBound(ReadData)
Str = Str & ChrB(ReadData(i))
Next i
MsgBox "数据：" & vbCrLf & Str
前段时间写过这样的程序，可以运行，仅供参考

guomanjie2013-12-27 16:44

回复 6楼鬼小美

能解释下Str = Str & ChrB(ReadData(i))是什么意思吗

guomanjie2013-12-27 16:47

回复 6楼鬼小美

请问你做的是什么，是和单片机通信吗

Artless2013-12-27 20:55

以下是引用vbvcr51在2013-12-25 21:51:33的发言：

dim numbuf(0) , Buffer(0) as string