字體:小 中 大 | |
|
|
2011/01/12 18:48:24瀏覽2315|回應1|推薦1 | |
(),內請直接由物件點擊進入,我就不打了! 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 |
|
( 知識學習|考試升學 ) |