VB和51单片机串口通信讲解.docVIP

专业资料 word完美格式 VB和51单片机串口通信讲解 Commport；设置或返回串口号。SettingS：以字符串的形式设置或返回串口通信参数。Portopen：设置或返回串口状态。InputMode：设置或返回接收数据的类型。Inputlen：设置或返回一次从接收缓冲区中读取字节数。InBufferSize：设置或返回接收缓冲区的大小，缺省值为l 024字节。InBufferCount：设置或返回接收缓冲区中等待计算机接收的字符数。Input：从接收缓冲区中读取数据并清空该缓冲区，该属性设计时无效，运行时只读。OutBufferSize：设置或返回发送缓冲区的大小，缺省值为512字节。OutBufferCount：设置或返回发送缓冲区中等待计算机发送的字符数。Output：向发送缓冲区发送数据，该属性设计时无效，运行时只读。设置好这些属性和方法，程序很容易就可以编出来了，其中要注意的是串口的波特串设置，OnComm事件的程序编写。? ??程序的设计是这样的，计算机向单片机发送一个’S’，表示通信开始。然后紧接着又发送9个字符，其中最后一个字符是前面9个字符（包括’S’）的校验和。单片机正确接收到10个字符后，把10个字符从新又送回来。//---------------------------------------初始化串口设计-----------------------------? ?Private Sub Form_Load()Comm1.Setting＝9600,n,8,1,? ?’设置波特率和发送字符格式Comm1.CommPort＝1? ?? ?? ? ’设置通讯串口Comm1.InputLen＝0? ?? ?? ? ’设置或返回一次从接收缓冲区中读取字节数，0表示一次读取所有数据Comm1.InBuffersize＝512Comm1.InBufferCount＝0Comm1.OutBufferCount=0Comm1.Rthreshold＝1Comm1.PortOpen＝TrueEnd Sub? ?? ?? ?? ?? ?? ?? ? ’打开串口//--------------------------------------给单片机发送’S’，开始通信-----------------------------? ?Private Sub Command1_C1ick()Timer1.Enabled＝TrueEnd SubPrivate Sub Command2_C1ick()Varbuffet＝“S”? ?? ?? ?? ?? ?? ??Comm1.Ouput＝varbuffeTimer2.Enabled＝TrueEnd SubPrivate Sub Form_Unload(Cancel As Integer)Comm1.PortOpen＝FalseEnd Sub//---------------------------------------向单片机发送数据-----------------------------? ?Private Sub Timer2_ Timer()Outputsignal＝Str(Text2.text)? ?? ?? ?? ?? ?? ?? ?? ?? ?’向单片机发送数据Temp(1)＝Cbyte(outputsignal)Varbuffer＝tempComml.Output＝varbufferTimer2.Enabled＝FalseEnd Sub//---------------------------------------接收单片机发送的数据，并显示-----------------------------? ?Private Sub Comm1_OnComm()Select Case Comm1.CommEvent? ?? ?? ? ’设置oncomm事件，读取片机内存的值Case comEvReceiveInputsignal＝comm1.InputText1.Text＝Asc(Inputsignal)? ?? ?? ?? ?? ?’单片机内存的值用textbox显示出Case ElseEnd selectEnd Sub关于MSCOMM控件的一些说明? ? VB5.0/6.的MSComm通信控件提供了一系列标准通信命令的接口，它允许建立串口连接，可以连接到其他通信设备（如Modem）．还可以发送命令、进行数据交换以及监视和响应在通信过程中可能发生的各种错误和事件，从