module1.bas

通用数据采集系统成品,带论文的.

Attribute VB_Name = "Module1"
Public Sub Login()
Dim kil() As Byte
Dim s As Variant
On Error GoTo err:
Select Case frmTycjmain.CmbCxk.Text
Case "COM1"
frmTycjmain.MSComm1.CommPort = 1
Case "COM2"
frmTycjmain.MSComm1.CommPort = 2
Case "COM3"
frmTycjmain.MSComm1.CommPort = 3
End Select
Debug.Print frmTycjmain.MSComm1.CommPort
If frmTycjmain.MSComm1.PortOpen = False Then
frmTycjmain.MSComm1.PortOpen = True
kil() = frmTycjmain.MSComm1.Input
s = kil()
Debug.Print s
Else
kil() = frmTycjmain.MSComm1.Input
s = kil()
Debug.Print s
End If
frmTycjmain.MSComm1.InputLen = 1
frmTycjmain.MSComm1.RThreshold = 1

Exit Sub
err:
MsgBox err.Description
End Sub
Public Sub Chongxincaiji()
Dim i(0) As Byte
i(0) = 32
frmTycjmain.MSComm1.Output = i()
Debug.Print i(0)
End Sub