Elo TouchSystems 1525L manual Dim RcvdData$, Private Sub btnExitClick If MSComm1.PortOpen Then

MagTek Device Drivers for Windows

'The form needs to contain:

'1) an "MSComm" object named MSComm1

'2) a button named btnStart, should be set to Enabled

'and Visible with the caption "Start"

'3) a button named btnRead, should be set to Disabled

'and Visible with caption "Read"

'4) a button named btnExit, should be set to Enabled

'and Visible with caption "Exit"

'5) a text box named txtInfo, should be set to Visible, Enabled and

'MultiLine containing initial text of "Click the Start button to

'open the port"

‘Note: Lines shown ending in an underscore are continuation line, i.e.

‘its one BASIC statement, split over two or more lines.

‘The underscore MUST be preceded by a space, otherwise BASIC

‘will interpret it as part if the statement and generate an

‘error.

'This is the global buffer we'll use to collect the data

Dim RcvdData$

'+---------------	+
' btnExit_Click
'+---------------	+-----------------------------------	+
' Close the com	port (if open) and exit the program
'+---------------------------------------------------		+

Private Sub btnExit_Click()

If MSComm1.PortOpen Then

MSComm1.PortOpen = False

End If

Unload Me

End Sub

'+---------------	+
' btnRead_Click
'+---------------	+-------------------	+
' This function	does the following:

'	1)	Disable the read button
'	2)	Send	the	read command
'	3)	Wait	for	the read response
'	4)	Display the read data
'	5)	Reenable		the read button
'+	-----------------------------------				+
Private Sub			btnRead_Click()

'Disable the read button so we don't get two read

'commands pending

btnRead.Enabled = False

'Clear the receive buffer

RcvdData$ = ""

'Send the read command

126