发表于：2007/2/5 16:03:00
#0楼
如發送 *RST 到機子的話是不是直接：
MSComm1.Settings = "9600,n,7,1"
If MSComm1.PortOpen <> True Then
MSComm1.PortOpen = True
End If
MSComm1.Output ="*RST"
strinput = MSComm1.Input
Text2.Text = strinput
End Sub
MSComm1.Settings = "9600,n,7,1"
If MSComm1.PortOpen <> True Then
MSComm1.PortOpen = True
End If
MSComm1.Output ="*RST"
strinput = MSComm1.Input
Text2.Text = strinput
End Sub