Private Sub Form_Load()
MSComm1.CommPort = 4 '设定 Com1 用来进行串口通讯
MSComm1.PortOpen = True
MSComm1.Settings = "9600,n,8,1" '9600 波特率,无校验,8 位数据位,1 位停止位
MSComm1.Output = Text1.Text '将 Text1 中的字符串写入传输寄存器
'Text2.Text = MSComm1.Input
End Sub
Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = flse
End Sub
Private Sub Timer1_Timer()
Dim buffer As String '定义 buffer 为字符串
buffer = MSComm1.Input '将接收寄存器中的字符赋值给 buffer
List1.AddItem buffer '将 buffer 的值加入到列表框中显示出来
End Sub
|