Code: Select all
Dim ComPort As Byte
Dim Baud As Long
ComPort = Command(1)
Baud = Command(2)
Open Com "ComPort:Baud,n,8,1,CS0,DS0" As #1
Code: Select all
Dim ComPort As Byte
Dim Baud As Long
ComPort = Command(1)
Baud = Command(2)
Open Com "ComPort:Baud,n,8,1,CS0,DS0" As #1
Code: Select all
Dim ComPort As String
Dim Baud As String
ComPort = Command(1)
Baud = Command(2)
Open Com Comport & ":" & Baud & ",n,8,1,CS0,DS0" As #1