module1.bas

浴馆管理软件（包括IC卡的操作、动态库的调用等内容）

Attribute VB_Name = "Module1"
'通用函数声明

Public Declare Function MCS_InitComm Lib "MCS_SR" (ByVal bPort As Byte, ByVal dwCommBaudRate As Long) As Integer


Public Declare Function MCS_ExitComm Lib "MCS_SR" () As Integer


Public Declare Function MCS_GetVersion Lib "MCS_SR" (ByVal bVersion As String) As Integer


Public Declare Function MCS_TestDevice Lib "MCS_SR" () As Integer


Public Declare Function MCS_TestDoor Lib "MCS_SR" () As Integer


Public Declare Function MCS_GetCapacity Lib "MCS_SR" (ByRef bCapacity As Byte) As Integer


Public Declare Function MCS_AutoTest Lib "MCS_SR" (ByRef bCardType As Byte) As Integer


Public Declare Function MCS_ErrorMsg Lib "MCS_SR" (ByVal wErrNo As Integer, ByVal bErrMsg As String) As Integer


Public Declare Function MCS_PushCard Lib "MCS_SR" () As Integer


Public Declare Function MCS_LED Lib "MCS_SR" (ByVal bOnOff As Byte) As Integer


Public Declare Function MCS_Buzzer Lib "MCS_SR" (ByVal bOnOff As Byte) As Integer


Public Declare Function MCS_SetStringMode Lib "MCS_SR" (ByVal bStringMode As Byte) As Integer


Public Declare Function MCS_GetStringMode Lib "MCS_SR" (ByRef bStringMode As Byte) As Integer


Public Declare Function IsCommOpened Lib "MCS_SR" () As Integer

 
'SLE4432/SLE4442专用函数声明

Public Declare Function SLE4442_OpenCard Lib "MCS_SR" (ByVal bATR As String) As Integer


Public Declare Function SLE4442_CloseCard Lib "MCS_SR" () As Integer


Public Declare Function SLE4442_ReadChar Lib "MCS_SR" (ByVal wAddr As Integer, ByVal wLength As Integer, ByVal bReadData As String) As Integer


Public Declare Function SLE4442_WriteChar Lib "MCS_SR" (ByVal wAddr As Integer, ByVal wLength As Integer, ByVal bWriteData As String) As Integer


Public Declare Function SLE4442_VerifyPWD Lib "MCS_SR" (ByVal bPassWord1 As Byte, ByVal bPassWord2 As Byte, ByVal bPassWord3 As Byte) As Integer


Public Declare Function SLE4442_ReadValue Lib "MCS_SR" (ByVal wAddr As Byte, ByRef dwValue As Long) As Integer


Public Declare Function SLE4442_WriteValue Lib "MCS_SR" (ByVal wAddr As Byte, ByVal dwValue As Long) As Integer


Public Declare Function SLE4442_PReadChar Lib "MCS_SR" (ByVal bPReadData As String) As Integer


Public Declare Function SLE4442_PWriteChar Lib "MCS_SR" (ByVal wAddr As Integer, ByVal wLength As Integer, ByVal bWriteData As String) As Integer


Public Declare Function SLE4442_ReadPAC Lib "MCS_SR" (ByRef bPAC As Byte) As Integer


Public Declare Function SLE4442_ReadPWD Lib "MCS_SR" (ByVal bPWD As String) As Integer


Public Declare Function SLE4442_WritePWD Lib "MCS_SR" (ByVal bPWD As String) As Integer