各位大大好 小弟是刚学习VB6 但就要使用RS232作通讯的新手 想问一下各位大大 为何接收时 会出现多的0的资料 Dim SendCommand(6) As Byte Dim ReceiveCommand() As Byte Dim i As Integer Dim Buf$ Buf = "" SendCommand(0) = 2 SendCommand(1) = 1 SendCommand(2) = 82 SendCommand(3) = 14 SendCommand(4) = 8 SendCommand(5) = SendCommand(1) + SendCommand(2) + SendCommand(3) + SendCommand(4) SendCommand(6) = 3 MSComm1.Output = SendCommand '送资料 ReceiveCommand = MSComm1.Input For i = LBound(ReceiveCommand) To UBound(ReceiveCommand) Buf = Buf + Hex(ReceiveCommand(i)) + Chr(32) Next i List1.AddItem Buf 这是我的部分程式码 上面的SEND 是在写传输格式 在接收时 每笔资料的中间都会多出现一个0 想问一下大大 这样的问题是出现在哪? 还有就是在作RS232通讯时 有没有什麽要特别注意的地方 或是有什麽小撇步可以参考使用的 以上~~ 麻烦大大帮我检查一下了~~ 感恩 -- 有一个香锦囊，是从一个神话般的守军的血屍顶上剥下的，那一次我们部队 遭受了从未有过的顽强抵抗，我们牺牲了三个舰队，一个装甲师和无以数计小组 推进的敢死排，才摧毁了那处隘口的碉堡。但是竟然发现，使我们遭受如此惨烈 伤亡的守军，总数只有一人。士兵们起哄地在他胸前发现这枚香袋，大家都相信 这是一枚具有神奇力量的护身符。我们把他的头颅砍断，取下香袋，剥开，里面 一张被血浸红的宣纸竟用汉字娟娟秀秀四个整齐的楷书写着，[盼君早归。] --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 140.117.165.235 ※ 编辑: ujm8ik 来自: 140.117.165.235 (03/08 10:46) 不是这样子吗? 还有就是字串阿 怎麽分解成数值阿 像我16进位的 D24 要转换成 0D 跟24 两个BYTE放进去作传送 可是都会出现错误@@ 对於变数的型态跟传送的状态实在是很弱>"< 可以指导一下吗? 感恩~~ value1 = Val(Text9.Text) * 100 value2 = Hex(value1) If Len(value2) > 0 Then value4 = Right(value2, 2) value3 = Left(value2, Len(value2) - 2) End If value3跟4都宣告成整数 不能存@@ 他说资料型态不符 可是不是都是存数字吗? 对不起>"< 不是我不看 是因为我版本的问题 MSDN不存在...冏 ※ 编辑: ujm8ik 来自: 140.117.165.235 (03/12 09:57)