很实用的帖子!VB和51单片机串口通信讲解.docVIP

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＝512 Comm1.InBufferCount＝0 Comm1.OutBufferCount=0 Comm1.Rthreshold＝1 Comm1.PortOpen＝True End?Sub??????????????????????’打开串口 //--------------------------------------给单片机发送’S’，开始通信-----------------------------??? Private?Sub?Command1_C1ick() Timer1.Enabled＝True End?Sub Private?Sub?Command2_C1ick() Varbuffet＝“S”??????????????????? Comm1.Ouput＝varbuffe Timer2.Enabled＝True End?Sub Private?Sub?Form_Unload(Cancel?As?Integer) Comm1.PortOpen＝False End?Sub //---------------------------------------向单片机发送数据-----------------------------??? Private?Sub?Timer2_?Timer() Outputsignal＝Str(Text2.text)???????????????????????????’向单片机发送数据 Temp(1)＝Cbyte(outputsignal) Varbuffer＝temp Comml.Output＝varbuffer Timer2.Enabled＝False End?Sub //---------------------------------------接收单片机发送的数据，并显示-----------------------------??? Private?Sub?Comm1_OnComm() Select?Case?Comm1.CommEvent??????????’设置oncomm事件，读取片机内存的值 Case?comEvReceive Inputsignal＝comm1.Input Text1.Text＝Asc(Inputsignal)???????????????’单片机内存的值用textbox显示出 Case?Else End?select End?Sub ? 关于MSCOMM控件的一些说明 ???VB5.0/6.的MSComm通信控件提供了一系列标准通信命令的接口，它允许建立串口连接，可以连接到其他通信设备（如Modem）． 还可以发送命令、进行数据交换以及监视和响应在通信过程中可能发生的各种错误和事件，从而可以用它创建全双工?、事件驱