home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / PGUIDE / ATM / ATM.BAS next >
Encoding:
BASIC Source File  |  1997-02-03  |  1.6 KB  |  57 lines
  1. Attribute VB_Name = "modATM"
  2. ' ╞½╥╞┴┐▒Σ┴┐
  3. Public i As Integer
  4.  
  5. ' ┤╙ USD ╡╜╞Σ╦ⁿ╗⌡▒╥╡─╫¬╗╗▒φ
  6. Public ConversionTable As Variant
  7.  
  8. ' ╕▀╝╢╔∙╥⌠╓º│╓ API
  9. #If Win32 Then
  10.     Declare Function sndPlaySound Lib "WINMM.DLL" Alias "sndPlaySoundA" _
  11.         (ByVal lpszSoundName As Any, ByVal uFlags As Long) As Long
  12. #Else
  13.     Declare Function sndPlaySound Lib "MMSYSTEM.DLL" _
  14.         (ByVal lpszSoundName As Any, ByVal wFlags As Integer) As Integer
  15. #End If
  16.  
  17. Global Const SND_ASYNC = &H1     ' ╥∞▓╜▓Ñ╖┼
  18. Global Const SND_NODEFAULT = &H2 ' ▓╗╩╣╙├╚▒╩í╔∙╥⌠
  19. Global Const SND_MEMORY = &H4    ' lpszSoundName ╓╕╧≥╥╗─┌┤µ╬─╝■
  20.  
  21. Global SoundBuffer As String
  22.  
  23. ' command button ╡─ Mousepointer ╩⌠╨╘
  24. Dim curSelect As StdPicture
  25.  
  26. Sub ConversionTable_Initialize()
  27.     '╫ó╥Γú║▒╛╡╪╗»╩▒ú¼╥¬╫ó╥Γ╨▐╕─╗π┬╩▒φúíúíúí
  28.     ConversionTable = Array(1@, 4.8635@, 1.3978@, 1614@, 119.07@, 8.675@)
  29. End Sub
  30.  
  31. Sub BeginPlaySound(ByVal ResourceId As Integer)
  32.     Dim Ret As Variant
  33.     #If Win32 Then
  34.         ' ╫ó╥Γú║╖╡╗╪╡─╫╓╖√┤«▒╗╫¬╗╗│╔ Unicode
  35.         SoundBuffer = StrConv(LoadResData(ResourceId, "ATM_SOUND"), vbUnicode)
  36.     #Else
  37.         SoundBuffer = LoadResData(ResourceId, "ATM_SOUND")
  38.     #End If
  39.     Ret = sndPlaySound(SoundBuffer, SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY)
  40.     ' ╫ó╥Γú║╥∞▓╜▓Ñ╖┼╔∙╥⌠▒╪╨δ╩╣╙├╕├║»╩²
  41.     DoEvents
  42. End Sub
  43.  
  44. Sub EndPlaySound()
  45.     Dim Ret As Variant
  46.     Ret = sndPlaySound(0&, 0&)
  47. End Sub
  48.  
  49. Sub Cursor_Initialize()
  50.     Set curSelect = LoadResPicture(1, vbResCursor)
  51. End Sub
  52.  
  53. Sub SetCursor(Button As CommandButton)
  54.     Button.MousePointer = 99
  55.     Button.MouseIcon = curSelect
  56. End Sub
  57.