Private Sub Command1_Click()
MSComm1.Output = "#0F0\r" & vbCr
End Sub
Private Sub Command2_Click()
MSComm1.PortOpen = False
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
End Sub
Private Sub MSComm1_OnComm()
Text1.Text = MSComm1.Input
End Sub
请教哪有错误吗?为什么采集不上来数据?