www.pudn.com > HEX2BIN_VB.zip > modCBill.bas

Attribute VB_Name = "modCBill" 
Option Explicit 
Public set_chkSTS_flag, clear_PayOut_Flag, disPlay_flag, tempPayWon, oldTempPayWon, totPayWon As Integer 
 
Public nCmdCmd As Integer, nCmdBak As Integer 
Public bMainPoll As Boolean, sCmdSub As String 
Public nStsWtm As Integer 
Public bRejected As Boolean 
Public bVended As Boolean 
Public bReject00 As Boolean, bReject01 As Boolean 
Public bReject02 As Boolean 
 
Type type_MST 
 
    MCMD As Byte 
    FndWon(1) As Long 
    PayIn(6) As Long 
    PayOutAble(6) As Long 
    PayOuted(6) As Long 
    MSTS As Byte 
    MERR(1) As Byte 
     
End Type 
 
Public MST As type_MST 
 
Public Const STX = &H2 
Public Const ETX = &H3 
Public Const EOT = &H4 
Public Const ENQ = &H5 
Public Const ACK = &H6 
Public Const NAK = &H15 
 
Public Const POL = &H4F 
Public Const SEL = &H3F 
Public Const MUA = &H85 
 
Public Const SI_WTM = 10  '1รส 
 
Public bPolling As Boolean 
Public bSelecting As Boolean 
 
Public nSiMod As Integer 
Public nSiLen As Integer 
Public nSiSum As Integer 
Public nSiWtm As Integer 
Public nRetCnt As Integer 
Public caSci(40) As Byte 
Public caSco() As Byte 
 
Public Const CMD_POL = &H40 
Public Const CMD_RST = &H41 
Public Const CMD_SET = &H42 
Public Const CMD_REJ = &H43 
Public Const CMD_FND = &H44 
 
Public Const STS_WTM = 5 
Public Const WTM_WTM = 5 
 
Public Const CFE600 = 600 
Public Const CFE300 = 300 
Public Const CFE150 = 150 
Public Const CFE100 = 100