I'm trying to communicate with Durant Ambassador counter through serial
port. All I have is an old piece of BASIC code. I have managed to
convert a portion of this old BASIC code to VB6 and I can send commands
to the counter but I don't get any response from counter and I don't
know why. Does anybody have any idea what I am doing wrong? Below you
can find original BASIC code and my VB6 code. I would appreciate any
suggestions, samples, anything...
--- BASIC CODE ---
100 REM *** INITIALIZE INPUT ***
110 DEFINT A - Z
120 DEF SEG = &HO40
130 CB = PEEK(1) * &H100 + PEEK(0)
135 DEF SEG
140 MSR = CB + 6
150 LSR = CB + 5
160 MCR = CB + 4
170 RSTON = 8 + 2 + 1 : RTSOFF = 8 + 1
180 OPEN "COM1:19200,N,8 ,1,RS" AS #1
190 ON TIMER(1) GOSUB 450
200 INPUT "ENTER COMMAND >", A$
210 REM *** CALC CHECKSUM ***
220 CS = 0
230 R$ = ""
240 FOR X = 1 TO LEN(A$)
250 CS = CS + ASC(MID$(A$, X, 1))
260 NEXT X
270 CS = CS AND 255
280 C$ = HEX$(CS)
290 IF CS < 16 THEN CS$ = "0" + CS$
300 T$ = ">" + A$ + CS$ : PRINT T$
310 REM *** RTS CONTROL AND SEND ***
320 OUT MCR, RSTON
330 PRINT #1, T$
340 IF INP(LSR) <&H60 THEN 340
350 OUT MCR, RTSOFF
360 REM *** GET RESPONSE ***
370 TIMER ON
380 IF LOC(1) = 0 THEN 380
390 R$ = R$ + INPUT$(LOC(1), #1)
400 TIMER OFF
410 IF RIGHT$(R$, 1) <CHR$(13) THEN 370
420 PRINT R$
430 GOTO 200
440 REM *** NO RESPONSE ROUTINE ***
450 PRINT "NO RESPONSE" : PRINT
460 TIMER OFF : RETURN 200
--- VB6 CODE ---
Sub InitConn()
With MSComm1
'make sure the serial port is not open (by this program)
If .PortOpen Then .PortOpen = False
'set the active serial port
.CommPort = 1
'set the badurate,parity ,databits,stopb its for the connection
.Settings = "1200,N,8,1 "
'set the DRT and RTS flags
'.DTREnable = True
'.RTSEnable = True
'.DTREnable = False
'.Handshaking = comNone
'enable the oncomm event for every reveived character
'.RThreshold = 1
'disable the oncomm event for send characters
'.SThreshold = 0
'open the serial port
.PortOpen = True
Text2.Text = "Connected to COM port."
End With 'MSComm1
End Sub
Function CalcSum(strComm and As String) As String
Dim btCount As Byte
Dim intChSum As Integer
For btCount = 1 To Len(strCommand)
intChSum = intChSum + Asc(Mid(strComm and, btCount, 1))
Next btCount
intChSum = intChSum And 255
CalcSum = Hex(intChSum)
End Function
Private Sub Command1_Click( )
Dim strOutput As String
strOutput = ">" & Text1.Text & CalcSum(Text1.T ext) & vbCr
Label1.Caption = CalcSum(Text1.T ext)
With MSComm1
'make sure the serial port is open
If .PortOpen = False Then .PortOpen = True
'send the data (including a tailing carriage return as often
needed)
.Output = strOutput
Text2.Text = strOutput
End With 'MSComm1
End Sub
Private Sub Form_Load()
InitConn
End Sub
Private Sub MSComm1_OnComm( )
With MSComm1
'test for incoming event
Select Case .CommEvent
Case comEvReceive
'display incoming event data to displaying textbox
Text2.Text = ""
Text2.Text = .Input
End Select
End With 'MSComm1
End Sub
port. All I have is an old piece of BASIC code. I have managed to
convert a portion of this old BASIC code to VB6 and I can send commands
to the counter but I don't get any response from counter and I don't
know why. Does anybody have any idea what I am doing wrong? Below you
can find original BASIC code and my VB6 code. I would appreciate any
suggestions, samples, anything...
--- BASIC CODE ---
100 REM *** INITIALIZE INPUT ***
110 DEFINT A - Z
120 DEF SEG = &HO40
130 CB = PEEK(1) * &H100 + PEEK(0)
135 DEF SEG
140 MSR = CB + 6
150 LSR = CB + 5
160 MCR = CB + 4
170 RSTON = 8 + 2 + 1 : RTSOFF = 8 + 1
180 OPEN "COM1:19200,N,8 ,1,RS" AS #1
190 ON TIMER(1) GOSUB 450
200 INPUT "ENTER COMMAND >", A$
210 REM *** CALC CHECKSUM ***
220 CS = 0
230 R$ = ""
240 FOR X = 1 TO LEN(A$)
250 CS = CS + ASC(MID$(A$, X, 1))
260 NEXT X
270 CS = CS AND 255
280 C$ = HEX$(CS)
290 IF CS < 16 THEN CS$ = "0" + CS$
300 T$ = ">" + A$ + CS$ : PRINT T$
310 REM *** RTS CONTROL AND SEND ***
320 OUT MCR, RSTON
330 PRINT #1, T$
340 IF INP(LSR) <&H60 THEN 340
350 OUT MCR, RTSOFF
360 REM *** GET RESPONSE ***
370 TIMER ON
380 IF LOC(1) = 0 THEN 380
390 R$ = R$ + INPUT$(LOC(1), #1)
400 TIMER OFF
410 IF RIGHT$(R$, 1) <CHR$(13) THEN 370
420 PRINT R$
430 GOTO 200
440 REM *** NO RESPONSE ROUTINE ***
450 PRINT "NO RESPONSE" : PRINT
460 TIMER OFF : RETURN 200
--- VB6 CODE ---
Sub InitConn()
With MSComm1
'make sure the serial port is not open (by this program)
If .PortOpen Then .PortOpen = False
'set the active serial port
.CommPort = 1
'set the badurate,parity ,databits,stopb its for the connection
.Settings = "1200,N,8,1 "
'set the DRT and RTS flags
'.DTREnable = True
'.RTSEnable = True
'.DTREnable = False
'.Handshaking = comNone
'enable the oncomm event for every reveived character
'.RThreshold = 1
'disable the oncomm event for send characters
'.SThreshold = 0
'open the serial port
.PortOpen = True
Text2.Text = "Connected to COM port."
End With 'MSComm1
End Sub
Function CalcSum(strComm and As String) As String
Dim btCount As Byte
Dim intChSum As Integer
For btCount = 1 To Len(strCommand)
intChSum = intChSum + Asc(Mid(strComm and, btCount, 1))
Next btCount
intChSum = intChSum And 255
CalcSum = Hex(intChSum)
End Function
Private Sub Command1_Click( )
Dim strOutput As String
strOutput = ">" & Text1.Text & CalcSum(Text1.T ext) & vbCr
Label1.Caption = CalcSum(Text1.T ext)
With MSComm1
'make sure the serial port is open
If .PortOpen = False Then .PortOpen = True
'send the data (including a tailing carriage return as often
needed)
.Output = strOutput
Text2.Text = strOutput
End With 'MSComm1
End Sub
Private Sub Form_Load()
InitConn
End Sub
Private Sub MSComm1_OnComm( )
With MSComm1
'test for incoming event
Select Case .CommEvent
Case comEvReceive
'display incoming event data to displaying textbox
Text2.Text = ""
Text2.Text = .Input
End Select
End With 'MSComm1
End Sub
Comment