ddrmodule.bas

这是个跳舞机的源程序

Attribute VB_Name = "DDRmodule"
Public Declare Function GetTickCount Lib "kernel32" () As Long
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Public Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Public Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Public Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long

Public MemDC, MemDCTmp, hBitmap As Long

Public PCN As Integer

Public Dats(0 To 5000, 0 To 1) As Integer

Public DatLen As Integer
Public NRUN As Integer

Public SPEED_SET As Integer

Public keyd1, keyd2, keyd3, keyd4 As Integer

Public KeyDelayTime As Integer
Public MultiKey As Integer

Public KGood, KNGood, KMiss As Integer

Public GoodST As Integer 'タ絋笆礶