RS232 缓冲区操作实例

'打开串口函数，初始化
Private Sub Command1_Click()
= 1        '设置串口号com1
MSComm1.PortOpen = True     '打开串口
MSComm1.InputMode = comInputModeText '字符输入方式
MSComm1.InputLen = 0  'MSComm控件读取输入缓冲区中全部的内容
Shape1.FillColor = RGB(0, 255, 0) '串口打开提示灯为绿色
Shape2.FillColor = RGB(255, 0, 0)
End Sub
'发送数据
Private Sub Command2_Click()
MSComm1.Output = Text1.Text '将数据送到输出缓冲区
End Sub
'接受数据
Private Sub Command3_Click()
Text2.Text = MSComm1.Input '读出缓冲区数据
End Sub
'关闭串口函数
Private Sub Command4_Click()
MSComm1.PortOpen = False  '关串口
Shape2.FillColor = RGB(0, 255, 0) '提示灯
Shape1.FillColor = RGB(255, 0, 0)
End Sub
'初始化提示灯为红
Private Sub Form_Load()
Shape1.FillColor = RGB(255, 0, 0)
Shape2.FillColor = RGB(255, 0, 0)
End Sub
//多多挑毛病，找缺陷。