VB串口常用代码

Private Sub Form_Load() MSComm1.RThreshold = 1 '自动接收数据 MSComm1.CommPort = 1 '使用串行口1 MSComm1.Settings = "4800,N,8,1" '波特率4800，无校验，8个数据位，1个停止位。 MSComm1.InputLen = 1 '当使用MSComm1.Input时，每次从接收缓冲区取一个字节。 TestTimer.Interval = 20 '定时器的中断间隔为20ms，用于更新显示时间。 End Sub