MagTek 99875125 - Manual (Page 48)

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
40