作者ujm8ik (随遇而安)
看板Visual_Basic
标题[VB6 ] 想问一下RS232的接收
时间Wed Mar 7 13:10:34 2012
各位大大好 小弟是刚学习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)
1F:→ asneo:建议你用.net写~ 03/08 22:26
2F:→ ujm8ik:痾 .NET是什麽东西@@? 03/09 10:15
3F:推 serhgrt:一楼的大大是希望你用VB.NET去写~另侦错数值看看吧! 03/09 17:21
4F:推 troylee:SendCommand 你指宣告 6, 但是你用了7个? 03/09 22:36
不是这样子吗? 还有就是字串阿 怎麽分解成数值阿 像我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都宣告成整数 不能存@@ 他说资料型态不符 可是不是都是存数字吗?
5F:→ MOONRAKER:left() right()输出什麽时候是整数了 03/11 17:06
6F:→ MOONRAKER:你就算help不看 MSDN好歹也看一看吧 03/11 17:07
对不起>"< 不是我不看 是因为我版本的问题 MSDN不存在...冏
※ 编辑: ujm8ik 来自: 140.117.165.235 (03/12 09:57)
7F:→ MOONRAKER:可以上线看。 03/12 16:15