網路城邦
上一篇 回創作列表 下一篇   字體:
電腦硬體裝修乙級第一站程式碼及EXE檔圖示
2009/02/20 22:16:25瀏覽4796|回應1|推薦0


Private Sub ComGreenLED_Click()
G n                                                                n=題目綠燈的數值 
.    
.
.
.
.
.
.
G 0
R 0
End Sub

Private Sub ComRedLED_Click()
R 1
R 2
R 4
R 8
R 16
R 32
R 64
R 128
R 0
G 0
End Sub

Private Sub ComEXIT_Click()
End
End Sub

Private Sub Form_Load()
R 0
G 0
End Sub

Private Sub Timer1_Timer()
Text1 = vbCrLf & "Current Time:" & Time$
End Sub

Private Sub RedLED(D As Byte)
out &H37A, 0
out &H378, D
out &H37A, 4
W 1
End Sub

Private Sub GreenLED(D As Byte)
out &H378, D
out &H37A, 12
W 1
End Sub

Public Sub Wait(S As Single)
T = Timer
Do While Timer < T + S
  DoEvents
Loop
End Sub

( 知識學習考試升學 )
回應 推薦文章 列印 加入我的文摘
上一篇 回創作列表 下一篇

引用
引用網址:https://classic-blog.udn.com/article/trackback.jsp?uid=jim5h&aid=2669258

 回應文章

222
問題
2010/10/03 10:07
請問用vb 2005的那要怎麼新增程序??