No.94571
作者：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/12 14:56:17
发贴者IP：222.240.219.133
标题：yike5460:vb通信问题，很急，请各位帮帮忙
摘要：No.94571vb通信问题，很急，请各位帮帮忙 以下是我的vb程序：
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "600 ,n ,8 ,1"
MSComm1.InputMode = comInputModeBinary
MSComm1.InputLen = 0
MSComm1.PortOpen = True
MSComm1.RThreshold = 1
End Sub Private Sub Command1_Click()
Dim outstring As String
Dim n As Long
outstring = Text1.Text
n = Len(outstring)
Call send(outstring, n)
End Sub Private Sub send(outstring As String, n As Long)
Dim instring As String
MSComm1.InputLen = 0
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
MSComm1.RThreshold = 1
MSComm1.Output = outstring + Chr(&HD)
End Sub Priv ......
>>返回讨论的主题
| 
导航: 老古网→ 老古论坛→XMOS公共讨论区→XMOS开源项目区→单片机程序设计→嵌入式系统→广告区域→