atm.bas

A.T.M自动取款机原理,一个利用VBA模拟ATM的取款原理

Attribute VB_Name = "modATM"
'
'*************************************************
'* 仿A.T.M.自动取款机的程序代码，                *
'*在WIN98，VB5企业版调试通过                     *
'*有任何建议请访问：http://yingjies.yeah.net     *
'*或给我E-mail：[e-mail]                  *
'*************************************************
'
'-------------------------------------------------------
' 偏移量变量
Public i As Integer

' 从 USD 到其它货币的转换表
Public ConversionTable As Variant

' 高级声音支持 API
#If Win32 Then
    Declare Function sndPlaySound Lib "WINMM.DLL" Alias "sndPlaySoundA" _
        (ByVal lpszSoundName As Any, ByVal uFlags As Long) As Long
#Else
    Declare Function sndPlaySound Lib "MMSYSTEM.DLL" _
        (ByVal lpszSoundName As Any, ByVal wFlags As Integer) As Integer
#End If

Global Const SND_ASYNC = &H1     ' 异步播放
Global Const SND_NODEFAULT = &H2 ' 不使用缺省声音
Global Const SND_MEMORY = &H4    ' lpszSoundName 指向一内存文件

Global SoundBuffer As String

' command button 的 Mousepointer 属性
Dim curSelect As StdPicture

Sub ConversionTable_Initialize()
    '注意：本地化时，要注意修改汇率表！！！
    ConversionTable = Array(1@, 4.8635@, 1.3978@, 1614@, 119.07@, 8.675@)
End Sub

Sub BeginPlaySound(ByVal ResourceId As Integer)
    Dim Ret As Variant
    #If Win32 Then
        ' 注意：返回的字符串被转换成 Unicode
        SoundBuffer = StrConv(LoadResData(ResourceId, "ATM_SOUND"), vbUnicode)
    #Else
        SoundBuffer = LoadResData(ResourceId, "ATM_SOUND")
    #End If
    Ret = sndPlaySound(SoundBuffer, SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY)
    ' 注意：异步播放声音必须使用该函数
    DoEvents
End Sub

Sub EndPlaySound()
    Dim Ret As Variant
    Ret = sndPlaySound(0&, 0&)
End Sub

Sub Cursor_Initialize()
    Set curSelect = LoadResPicture(1, vbResCursor)
End Sub

Sub SetCursor(Button As CommandButton)
    Button.MousePointer = 99
    Button.MouseIcon = curSelect
End Sub