home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 January / Chip_2003-01_cd2.bin / editors / songs / SoundEngine / vbmp31615.lzh / sample.LZH / mdlCallBack.bas < prev    next >
BASIC Source File  |  2000-06-20  |  4KB  |  113 lines
  1. Attribute VB_Name = "mdlCallBack"
  2. Option Explicit
  3.  
  4. Global nonProc As Boolean
  5. Global pos As Long
  6. Global rWave(256) As Long
  7. Global lWave(256) As Long
  8. Global rv As Long
  9. Global lv As Long
  10. Global spec(255) As Long
  11. Global spec2(255) As Long
  12. Global tm As Long
  13. Global geVal(9) As Long
  14. Global stopFlag As Boolean
  15. Global openFlag As Boolean
  16.  
  17. Global lyricsData As String
  18.  
  19. Public Type LYRICS_WORK
  20.     sec As Long                             'â~âèòb
  21.     lineno As Long              'ìsö╘ìå 0ü`
  22.     point As Long               'ìsê╩Æu 0ü`(0é═ë╠Äîɵô╟ùp)
  23.     lyrics As String            'ë╠Äî
  24. End Type
  25.  
  26. Global lyricsData2(1000) As LYRICS_WORK
  27. Global maxLineNo As Long
  28. Global maxLyNo As Long
  29.  
  30. '---------------------------------------------------------
  31. 'è╓ÉöüFvbmp3_Proc()
  32. 'ï@ö\üFVBMP3 âRü[âïâoâbâNè╓Éö
  33. 'ê°ÉöüFid    MSG_EROOR      = âGâëü[
  34. 'ü@ü@ü@      MSG_PLAYING    = ì─É╢Æå
  35. 'ü@ü@ü@      MSG_PAUSING    = êΩÄ₧ÆΓÄ~
  36. 'ü@ü@ü@      MSG_STOPING    = ÆΓÄ~
  37. 'ü@ü@ü@      MSG_PLAYDONE   = ì─É╢ÅIù╣
  38. 'ü@ü@ü@param ëëætÄ₧è╘(id = MSG_PLAYING)
  39. 'ü@ü@ü@      WAVEâfü[â^(id = MSG_WAVE_LEFT,MSG_WAVE_RIGHT)
  40. 'û▀éΦÆlüFû│é╡
  41. 'ö⌡ìlüFâüâbâZü[âWâ{âbâNâXé╚é╟é╠Åêù¥é≡Ä~é▀éΘè╓Éöé═Ägùpé┼é½é▄é╣é±üB
  42. 'ü@ü@üFWAVEâfü[â^é═0ü`32767,-32768ü`-1é╠Åçé┼èiö[é│éΩé─éóé▄é╖üB
  43. '---------------------------------------------------------
  44. Public Sub vbmp3_Proc(ByVal id As Long, ByVal param As Long)
  45.     Dim y As Long
  46.     Dim v As Long
  47.     
  48.     If nonProc = False Then Exit Sub
  49.     
  50.     Select Case id
  51.     Case MSG_ERROR
  52.         'âGâëü[Ä₧é╠Åêù¥
  53.     
  54.     Case MSG_PLAYING
  55.         'ëëætÄ₧è╘ò╧ìXÄ₧é╠Åêù¥
  56.         frmPLAY.lbPlayTime2.Caption = Format(Int(param / 60), "00") & _
  57.                                 ":" & Format((param Mod 60), "00")
  58.     Case MSG_PAUSING
  59.         'êΩÄ₧ÆΓÄ~Ä₧é╠Åêù¥
  60.         frmPLAY.lbPlayTime2.Caption = "PAUSE"
  61.     
  62.     Case MSG_STOPING
  63.         'ÆΓÄ~Ä₧é╠Åêù¥
  64.         frmPLAY.lbPlayTime2.Caption = "STOP"
  65.     
  66.     Case MSG_PLAYDONE
  67.         'ì─É╢ÅIù╣Ä₧é╠Åêù¥
  68.         frmPLAY.lbPlayTime2.Caption = "DONE"
  69.     
  70.     End Select
  71. End Sub
  72.  
  73. '---------------------------------------------------------
  74. 'è╓ÉöüFvbmp3_TimerProc()
  75. 'ï@ö\üFâ}âïâ`âüâfâBâAâ^âCâ}ü[âRü[âïâoâbâNè╓Éö
  76. 'ê°ÉöüFstate    Å≤æ╘
  77. 'ü@ü@ü@bitrat   ârâbâgâîü[âg
  78. 'ü@ü@ü@sec      ëëætÄ₧è╘
  79. 'ü@ü@ü@userData âåü[âUÆΦï`âfü[â^
  80. 'û▀éΦÆlüFû│é╡
  81. 'ö⌡ìlüF
  82. '---------------------------------------------------------
  83. 'Public Sub vbmp3_TimerProc(ByVal state As Long, ByVal bitrate As Long, ByVal sec As Long, ByVal userData As Long)
  84. '    frmPLAY.lbPlayTime2.Caption = Format(Int(sec / 60), "00") & _
  85. '                                ":" & Format((sec Mod 60), "00")
  86. 'End Sub
  87.  
  88.  
  89. '---------------------------------------------------------
  90. 'è╓ÉöüFvbmp3_getLyricsDataProc()
  91. 'ï@ö\üFVBMP3 ë╠ÄîÅεò±Äµô╛ùpâRü[âïâoâbâNè╓Éö
  92. 'ê°ÉöüFlyData ë╠ÄîÅεò±
  93. 'û▀éΦÆlüFû│é╡
  94. 'ö⌡ìlüFî╗ì▌âeâXâgÄ└æòÆåé╠ê╫üAÄdùlò╧ìXé╖éΘé▒é╞é¬éáéΦé▄é╖
  95. '---------------------------------------------------------
  96. Public Sub vbmp3_getLyricsDataProc(lyData As LYRICS_DATA)
  97.     lyricsData2(lyData.no).sec = lyData.sec
  98.     lyricsData2(lyData.no).lineno = lyData.lineno
  99.     lyricsData2(lyData.no).point = lyData.point
  100.     
  101.     If lyData.point = 1 And lyricsData <> "" Then lyricsData = lyricsData & vbCrLf
  102.     If lyData.textSize <> 0 Then
  103.         lyricsData = lyricsData & NTrim2(StrConv(lyData.lyrics, vbUnicode))
  104.         lyricsData2(lyData.no).lyrics = NTrim2(StrConv(lyData.lyrics, vbUnicode))
  105.     Else
  106.         lyricsData2(lyData.no).lyrics = ""
  107.     End If
  108.     maxLineNo = lyData.lineno
  109.     maxLyNo = lyData.no
  110. End Sub
  111.  
  112.  
  113.