紧急求教
来源:互联网 发布:2017网络加速排行榜 编辑:程序博客网 时间:2024/04/28 05:28
我用VB6做了一个和某个装置进行串口通讯的界面,装置用的是80C196KC的单片机,现在的问题是单片机能收到我的命令,可是我却收不到它的数据,这是为什么呀??下面是我的发送程序
Private Sub Command1_Click(Index As Integer)
MSComm2.OutBufferCount = 0
MSComm2.InBufferCount = 0
Dim send_node(8) As Byte
If MSComm2.PortOpen Then MSComm2.PortOpen = False
Dim d() As Byte
Dim crc() As Byte
For Ind = 0 To 3
If Form2.Option1(Ind) = True Then
MSComm2.CommPort = Ind + 1
End If
Next Ind
MSComm2.RThreshold = 1
MSComm2.PortOpen = True
Select Case Index
Case 0
ReDim d(5) As Byte
ReDim crc(1) As Byte
d(0) = 0
d(1) = 6
d(2) = 0
d(3) = 0
d(4) = (Hex((Text3(7).Text)) Or &HFF00) / 256
d(5) = Hex((Text3(7).Text)) Or &HFF
crc = CRC16(d)
send_node(0) = 0
send_node(1) = 0
send_node(2) = 6
send_node(3) = 0
send_node(4) = 0
send_node(5) = (Hex((Text3(7).Text)) Or &HFF00) / 256
send_node(6) = Hex((Text3(7).Text)) Or &HFF
send_node(7) = crc(1)
send_node(8) = crc(0)
MSComm2.Output = send_node
Case 2
ReDim d(5) As Byte
ReDim crc(1) As Byte
d(0) = Val(Text3(7).Text)
d(1) = 3
d(2) = 0
d(3) = 0
d(4) = 0
d(5) = 36
crc = CRC16(d)
send_node(0) = 0
send_node(1) = Val(Text3(7).Text)
send_node(2) = 3
send_node(3) = 0
send_node(4) = 0
send_node(5) = 0
send_node(6) = 36
send_node(7) = crc(1)
send_node(8) = crc(0)
MSComm2.Output = send_node
End Select
End Sub
MSComm2的其它参数我在属性窗口中设置了,另外我把串口的2,3脚短接,进行自发自收时,一切都是正常的。谢谢
- 紧急求教
- 美女紧急求教!!!
- 紧急求教:关于深圳科皓公司
- 服务器出现5781错误,紧急求教!
- 紧急:求教PB中有关POS的问题
- 求教
- 求教!
- 求教
- 求教
- 求教!
- 求教
- 求教
- 求教
- 求教
- 求教
- 求教
- 求教
- 求教
- ImageViewer
- 防止别人在QueryString中加入delete或其他字符删除你的数据库内容
- 使用PB调用API自动更新(非FTP模式)(七、下载代码)
- 精华代码
- IntelliJ IDEA 4.5中的tomcat plugins改进
- 紧急求教
- 常用Email组件发送函数
- 用asp自动解析网页中的图片地址,并将其保存到本地服务器
- 关于Adodb.Stream 的使用说明
- HE4,HBA,H9A转换成中文
- 快捷键的定义
- 客户端动态处理
- 动态增加表单元素
- 用PEAR::Benchmarking之Timer实现PHP程序计时