我用vb编了一个串行发送的协议,用RS232和dsp通信的,我发出去,怎莫没有响应,dsp是没有错误的,波特率和校验也没有错误我用串口调试工具调试过DSP ,可以发送和接收。和DSP用RS232的2,3,5脚通信
但是相同的数据用我下面的程序dsp那边显示没有接收 ,
我将RS232的2和3脚短接,自己能接收到数据,但是dsp那边显示没有接收 ,这到底是怎摸回事。麻烦高手帮我看一下:
Private Sub Command1_Click()Dim dictate(15) As Byte
dictate(0) = &H68
dictate(1) = &HA
dictate(2) = &HA
dictate(3) = &H68
dictate(4) = &H4D
dictate(5) = &HFF
dictate(6) = &H77
dictate(7) = &H5
dictate(8) = 5
dictate(9) = &HFF
dictate(10) = &H5
dictate(11) = &H64
dictate(12) = 48
dictate(13) = 0
dictate(14) = 65H
dictate(15) = &H16If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
Else
End If
MSComm1.Output = dictate ' 发送数据
End Sub‘----------------------------------------------------
Private Sub Form_Load() '初始化控件的属性
MSComm1.CommPort = 1MSComm1.Settings = "2400,E,8,1"MSComm1.InputLen = 0 MSComm1.RThreshold = 1 MSComm1.InBufferCount = 0 MSComm1.OutBufferCount = 0
End Sub
’--------------------------------------------------
但是相同的数据用我下面的程序dsp那边显示没有接收 ,
我将RS232的2和3脚短接,自己能接收到数据,但是dsp那边显示没有接收 ,这到底是怎摸回事。麻烦高手帮我看一下:
Private Sub Command1_Click()Dim dictate(15) As Byte
dictate(0) = &H68
dictate(1) = &HA
dictate(2) = &HA
dictate(3) = &H68
dictate(4) = &H4D
dictate(5) = &HFF
dictate(6) = &H77
dictate(7) = &H5
dictate(8) = 5
dictate(9) = &HFF
dictate(10) = &H5
dictate(11) = &H64
dictate(12) = 48
dictate(13) = 0
dictate(14) = 65H
dictate(15) = &H16If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
Else
End If
MSComm1.Output = dictate ' 发送数据
End Sub‘----------------------------------------------------
Private Sub Form_Load() '初始化控件的属性
MSComm1.CommPort = 1MSComm1.Settings = "2400,E,8,1"MSComm1.InputLen = 0 MSComm1.RThreshold = 1 MSComm1.InBufferCount = 0 MSComm1.OutBufferCount = 0
End Sub
’--------------------------------------------------
解决方案 »
- 如何在修改ListView时用TextBox
- 不装sqlserver 客户端连接sql server数据库服务器需要那些组件?
- socket.send data 将数据送到基础缓冲区后 用TCPView监控 发现有时要延缓 1到3秒才能发送到网络中。
- 着急问一个问题:[ä](就是a上面有两个点的)这样特殊字符存入数据库是乱码,如何解决?
- VB中的LONG类型最长是多少?
- 现在有两个窗体,要怎么拖动窗体一时,窗体二也一起移动?
- 在document的close事件中如何屏蔽Word退出时系统默认的文件是否保存对话框?
- 请问怎么给我得程序加壳
- 怎样为VB编的程序加上命令行参数
- chr(12)和chr(32)有什么区别吗?
- 水晶报表怎么样传参数?
- VB编程中控件随窗体变化自动适应功能是怎么实现的?最好有实例做参考
MSComm1.InputLen = 0 MSComm1.RThreshold = 1 MSComm1.InBufferCount = 0 MSComm1.OutBufferCount = 0