MagTek MTMICRImage - Manual (Page 27)

Events
23
LogStatus "These are the Current Switch Settings"
LogStatus " Switch A: " & MICRImage.MicrCommand("SWA", True)
LogStatus " Switch B: " & MICRImage.MicrCommand("SWB", True)
LogStatus " Switch C: " & MICRImage.MicrCommand("SWC", True)
LogStatus " Switch D: " & MICRImage.MicrCommand("SWD", True)
LogStatus " Switch E: " & MICRImage.MicrCommand("SWE", True)
LogStatus " Switch I: " & MICRImage.MicrCommand("SWI", True)
LogStatus " Switch HW: " & MICRImage.MicrCommand("HW", True)
'Sets Switch Settings
'If you use the MICRImage.Save command then these do not need to be sent
'every time you open the device
MICRImage.MicrCommand("SWA 00100010", False)
MICRImage.MicrCommand("SWB 00100010", False)
MICRImage.MicrCommand("SWC 00100000", False)
MICRImage.MicrCommand("HW 00111100", False)
MICRImage.MicrCommand("SWE 00000010", False)
MICRImage.MicrCommand("SWI 00000000", False)
'MICRImage.Save
'Displays New Settings
'If you use the MICRImage.Save command then these do not need to be sent
'every time you open the device
LogStatus "These are the New Switch Settings:"
LogStatus " Switch A: " & MICRImage.MicrCommand("SWA", True)
LogStatus " Switch B: " & MICRImage.MicrCommand("SWB", True)
LogStatus " Switch C: " & MICRImage.MicrCommand("SWC", True)
LogStatus " Switch D: " & MICRImage.MicrCommand("SWD", True)
LogStatus " Switch E: " & MICRImage.MicrCommand("SWE", True)
LogStatus " Switch I: " & MICRImage.MicrCommand("SWI", True)
LogStatus " Switch HW: " & MICRImage.MicrCommand("HW", True)
'The OCX will work with any Micr Format. You just need to know which
'format is being used to parse it using the FindElement Method
LogStatus "Changing Format to 6200 for this Demo"
MICRImage.FormatChange("6200")
LogStatus "Version: " & MICRImage.Version
MICRImage.MicrTimeOut = 5
Else
LogStatus "Device Not Attached"
End If
Else
LogStatus "Port Closed"
cmdPortOpen.Caption = "Open Port"
End If
End Sub