按圖添加控件,可以加壹個按扭!加按扭了就把From_Load()的代碼放在按鈕的代碼下。可以修改波特率等.
Private?Sub?Form_Load()
MSComm1.Settings?=?"9600,N,8,1"?'波特率9600bit/s,無校驗,8位數據,1位停止位
MSComm1.CommPort?=?1?'設定串口,為1為comm1
MSComm1.InBufferSize?=?8?'設置返回接收緩沖區的大小,以字符為單位。
MSComm1.OutBufferSize?=?2
If?MSComm1.PortOpen?=?True?Then?MSComm1.PortOpen?=?False?'關串口
MSComm1.RThreshold?=?4?'設置並返回產生oncomm事件的字符數,以字符為單位.?Rthreshold?為?1,接收緩沖區收到每壹個字符都會使?MSComm?控件產生?OnComm?事件。
MSComm1.SThreshold?=?1?'
MSComm1.InputLen?=?0?'設置從接收緩沖區讀取的字數,為0讀取整個緩沖區
MSComm1.InputMode?=?comInputModeText?'以文本方度接收
If?MSComm1.PortOpen?=?False?Then?MSComm1.PortOpen?=?True
MSComm1.InBufferCount?=?0?'清空接收緩沖區
Text1.Text?=?""
End?Sub
Private?Sub?MSComm1_OnComm()
Dim?rec?As?String
Select?Case?MSComm1.CommEvent
Case?comEvReceive
rec?=?MSComm1.Input
Text1.Text?=?rec
MSComm1.InBufferCount?=?0?'清空接收緩沖區
End?Select
End?Sub