專題

研究方法:

本專題研究係以單元實習課程所學習之專業為基礎，於熟析常用數位IC的特性與基本知識，

運用電腦控制課認識單晶片為電腦程式控制觀念，啟發組合語言、Ｃ語言、ＶＢ控制ＬＥＤ功能。

研究實施辦法

ＶＢ控制：

已以下程式碼做為ＬＥＤ控制：

Private Sub Command1_Click(Index As Integer)
a = Index
c = 0
End Sub

Private Sub Form_Load()
a = 99
b(0) = 1　　　第１顆綠色ＬＥＤ控制
b(1) = 2         第２顆綠色ＬＥＤ控制
b(2) = 4　　　第３顆綠色ＬＥＤ控制
b(3) = 8　　　第４顆綠色ＬＥＤ控制
b(4) = &H10　第５顆綠色ＬＥＤ控制
b(5) = &H20　第６顆綠色ＬＥＤ控制
b(6) = &H40　第７顆綠色ＬＥＤ控制
End Sub　　　熄滅ＬＥＤ

Private Sub Timer1_Timer()
If c > 14 Then c = 14
Text1.Text = "Current Time:" & Time$
   Out &H378, 0
   Out &H37A, 4
   Out &H37A, 0
If a = 0 Then   'Green LED9~15
   Out &H37A, 8   '先致能，方可送資料喔
   Out &H378, b(c)
End If
If a = 1 Then   'Red LED1~8
   Out &H378, 2 ^ c
   Out &H37A, 4   '先送出資料，再負緣觸發
   Out &H37A, 0
End If
If a = 2 Then End
c = c + 1
End Sub