vb 串口编程

来源：百度知道 编辑：UC知道 时间：2024/05/15 00:36:07
大家好，我是一个电子爱好者，现在有了一点单片机的知识，想学习一点上位机方面的东西，电脑的串口很重要，我想学习一下vb对串口的编程，和与下位机的通讯，请大家想我推荐点资料，或是有的话直接发给我，小弟不胜感激。lwqdlt@163.com
我也不懂vb想学习一下，你们推荐一点资料吧。

LZ:可在BAIDU我的回答中找到实例.较好的参考资料书有"人民邮电出版社"的"VISUAL BASIC 串口通信工程实例导航"一书和"清华大学出版社"的"Visual Basic与RS-232串行通讯控制"
其电子书可在CSDN上下载.

任何利用串口进行收发的程序，都可以利用将单个RS232口自身2与3脚短接，实现自发自收进行代码调试。
新建VB工程,由工程菜单选部件项,在Microsoft Comm Control 6.0部件前打钩确定,VB的工具箱中就有MSCOMM控件,添加到窗体.
Private Sub cmdSend_Click()
Dim strSend As String
strSend = Text2
MSComm1.Output = strSend
End Sub

Private Sub Form_Load()
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputMode = comInputModeText '采用文本接收
MSComm1.InBufferCount = 0 '清空接受缓冲区
MSComm1.OutBufferCount = 0 '清空传输缓冲区
MSComm1.RThreshold = 1 '产生MSComm事件
MSComm1.PortOpen = True
Text1 = ""
End Sub

Private Sub MSComm1_OnComm() '接收数据
Dim strBuff As String
Select Case MSComm1.CommEvent
Case 2
strBuff = MSComm1.Input
Text1 = Text1 & strBuff
End Select
End Su