第一題程式碼 3

8. Private Sub display(no) //螢幕顯示副程式

9. For i = 0 To 7 //第9 行：因為試題要在表單新增燈號同步顯示，故自行建立display 副程式，該

名稱可自訂， 透過no 變數傳遞資料即可。第7～11 行：用來同步顯示表單對應的 LED，因為每種顏色LED 都有8 顆，所以For 迴圈是0~7，剛好配合G(0)~G(7)、R(0)~R(7) Index 值。

10. If no Mod 2 = 1 And a = 1 Then G(i).FillColor = RGB(0, 255, 0)

11. If no Mod 2 = 1 And a = 2 Then R(i).FillColor = RGB(255, 0, 0)

//第10行：Mod 指令是取餘數，配合第12 行取商數，目的是做『十進制轉二進制』，並從LSB 低位元開始轉換。

若no Mod 2=1 而且綠色按鈕被按下，則對應G(0)~G(7)填滿純綠色，表示該綠色LED 點亮。指令RGB(紅色Red值 , 綠色 Green值,藍色Blue值)，每個顏色的數值介於0~255 之間，所以要顯示純紅色就是RGB(255,0,0)、純綠色就是 RGB (0,255,0)、純藍色就是RGB(0,0,255)，若要顯示較淡顏色就給一半的值，例如：淺綠色為RGB(0,128,0)的值。

12. no = no \ 2 //第11 行：若no Mod 2=1 而且RedLED 紅色按鈕被按下，則對應的R(0)~R(7)填

滿純紅色RGB(255,0,0)，表示對應的紅色LED 點亮。

13. Next i

14. End Sub