文章數:83 | |
VB2005乙級硬體裝修程式碼第一站第一題。 |
知識學習|考試升學 2011/01/12 18:48:24 |
(),內請直接由物件點擊進入,我就不打了! Public Class Form1 Dim a,b(99),c As Integer Private Sub Button1_Click() a = 0 : c = 0 End Sub Private Sub Button2_Click() a = 1 : c = 0 End Sub Private Sub Button3_Click() a = 2 End Sub Private Sub Form1_Load a=99 b()=1 b()=2 b()=4 b()=8 b()=&H10 b()=&H20 b()=&H40 End Sub Private Sub Timer_Tick() If c>14 Then c=14 Text1.Text="Current time:" & timeOfDay() '注意!此行與VB6.0不同(time$)變為(timeOfDay) Out (&H378,0) Out (&H37A,4) Out (&H37A,0) End If If a = 0 Then Out (&H37A8,) Out (&H378,b(c)) End If If a = 1 Then Out (&H378,2^c) Out (&H37A,4) Out (&H37A,0) End If If a = 2 Then End c=c+1 End Sub End Class |
最新影像 | 5 本 129 張 |
|
|
|
|||||||||
精選創作 |
|
||||
|
||||
|
||||
|
||||
|
||||
最新創作 |
|
||||
|
||||
|
||||
|
||||
|
||||