Elo TouchSystems 1525L User Manual
Page 129
MagTek Device Drivers for Windows
126
' 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