第一題程式碼 4

15. Private Sub Timer1_Timer() //第15～45 行：定時器Timer1 預設值的Interval=1000，所以每隔1 秒鐘都會去檢查USB 是否

已經插入，若偵測到裝置才送出資料控制LED。

16. b(0) = 1 //第16～23行：&H 表示數字內容為十六進制，該段內容是依照各試題綠色LED9～16 顯示順序所設定的值；

而十道試題僅有該b陣列的宣告內容不同而已。

17. b(1) = 2

18. b(2) = 4

19. b(3) = 8

20. b(4) = &H10

21. b(5) = &H20

22. b(6) = &H40

23. b(7) = &H80

24. Label1.Caption = vbCrLf & "Current Time:" & Time$ //第24 行： 顯示目前系統的時間；vbCrLf 是指移至下一行

第一個位置；『Time』 是內建副程式名稱，目的是顯示系統

時間時間要正確），若忽略錢號『$』則會多顯示上午或下午，會被扣分。

25. For i = 0 To 7

26. G(i).FillStyle = 1 //試題要求若USB 尚未插入，應顯示中空，FillStyle = 1代表'透明'填入。

27. R(i).FillStyle = 1

28. Next i

29. If OpenUsbDevice(&H1234, &H6789) Then //第29～42 行：偵測USB 裝置是否插入?

30. For i = 0 To 7 //第30～33 行：若USB 裝置已插入，則顯示暗紅、暗綠，將表單對應的 G(0)~G(7)、R(0)~R(7) LED燈號全部顯示『不亮』狀態，即RGB 函數只

給一半的128 數值，FillStyle = 0代表'實心'填入。

31. G(i).FillStyle = 0:G(i).FillColor = RGB(0, 128, 0)

32. R(i).FillStyle = 0:R(i).FillColor = RGB(128, 0, 0)

33. Next i