No.55760
作者：guest
邮件：guest@guest.com
ID：6
登陆：16560次
文章数：7648篇
最后登陆IP：219.68.9.43
最后登陆：2005/5/20 1:37:44
注册：2003/3/10 16:21:00
财富：35062
发帖时间：2004/6/1 12:37:42
发贴者IP：218.7.43.252
标题：guest:求救!vb和单片机通信问题!
摘要：No.55760求救!vb和单片机通信问题! 我用vb和51单片机通信,从vb往单片机送数据,但是51接收到的数据总不对!用max232通信.
下面是我的程序!望指教!
Dim head_data(0) As Byte ' Byte Private Sub Form_Load() '端口设置
MSComm1.CommPort = 3
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
MSComm1.InputLen = 1
MSComm1.OutBufferCount = 0
MSComm1.SThreshold = 1
MSComm1.InBufferCount = 0
MSComm1.RThreshold = 1
MSComm1.InputMode = comInputModeBinary
call send(220)
End Sub Private Sub sendcommand(n) '发送命令子程序
head_data(0) = CByte(n)
MSComm1.Output = head_data
For x = 0 To 10000 Step -1
Next
End Sub 单片机程序
ORG ......
>>返回讨论的主题
| 
导航: 老古网→ 老古论坛→XMOS公共讨论区→XMOS开源项目区→单片机程序设计→嵌入式系统→广告区域→