第一題程式碼 2

1. Private Declare Function OpenUsbDevice Lib "USBIO.dll" (ByVal a As Integer, ByVal b As Integer) As Boolean

2. Private Declare Sub OutDataCtrl Lib "USBIO.dll" (ByVal a As Byte, ByVal b As Byte) //模組程式

3. Dim a, b(99), c As Integer //第3行：變數 a 是用來記錄哪個按鈕被選擇；陣列b() 用來儲存綠色LED 9～16的資料

變數c是用來計數

4.Private Sub Command1_Click(Index As Integer)

5.a = Index //第5 行：當按下Command1 陣列其中一個按鈕，它會利用『Index』變數傳回副程式，告知哪個

按鈕被使用，所以要趕快利用變數a將目前的Index變數儲存，以便在副程式Sub Timer1_Timer( )裡面判斷。

6. c = 0 // 將計數變數c 設為0，每當按下Command1 陣列其中一個按鈕，均從b 陣的第一個狀態開始顯示。同時為了配合第38~40行的2^c資料輸出，所以將初值設為0，因為2⁰=1₍₁₀₎=00000001(2)，使僅有第1顆紅色LED1點亮而已

7. End Sub