網路城邦
上一篇 回創作列表 下一篇   字體:
VB2005乙級硬體裝修程式碼第一站第一題。
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

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

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

 回應文章


等級:
留言加入好友
熟能生巧
2011/02/09 06:09
求學三要素:
「志向要堅定,思想要靈敏,行為要笨拙」。