No.94244
作者：yike5460
邮件：yike5460@163.com
ID：52645
登陆：1次
文章数：6篇
最后登陆IP：222.240.219.133
最后登陆：2006/6/20 9:54:05
注册：2006/5/8 8:03:21
财富：130
发帖时间：2006/6/5 16:23:58
发贴者IP：222.240.219.133
标题：yike5460:请各位帮忙看看vb与单片机的通信问题
摘要：No.94244请各位帮忙看看vb与单片机的通信问题 以下是我的vb程序：
Private Sub send(outstring, n)
Dim instring As String
MSComm1.CommPort = 1
MSComm1.Settings = "1200,n,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
MSComm1.RThreshold = 1
MSComm1.Output = outstring + Chr(&HD)
MSComm1.InputMode = comInputModeText
Do
DoEvents
Loop Until MSComm1.InBufferCount > = 1
Print "inbuffercount="; MSComm1.InBufferCount
instring = MSComm1.Input
Print "OK,get:"; instring
MSComm1.PortOpen = False
End Sub Private Sub Command1_Click()
......
>>返回讨论的主题
| 
导航: 老古网→ 老古论坛→XMOS公共讨论区→XMOS开源项目区→单片机程序设计→嵌入式系统→广告区域→