December 23, 2008

WoW,,術科程式耶!!





還動了一個小小的手腳,,不然另外一台電腦還要去抓dll(( 麻煩


終於把程式全部背下來,,腦容量這下子又爆滿了

術科我真的要加油嗄嗄嗄嗄嗄~~~~

推甄加的%數真的很誘人,,像我就被誘拐去考了XDD

加油加油~~有考的各位


程式碼:

Dim a As Integer     ' 這裡是宣告
Dim led(7) As Integer   ' 宣告too

 

Private Sub command1_Click()
Timer1.Enabled = True
a = 0
led(1) = 1
led(2) = 2
led(3) = 4
led(4) = 8
led(5) = 16
led(6) = 32
led(7) = 64
End Sub

Private Sub Command2_Click()
Timer2.Enabled = True
a = 0
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
***********http://www.badongo.com/file/12607492"   ' 要下載的複製這段網址
End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()
Out &H37A, 8
If a <= 7 Then
Out &H378, led(a)
a = a + 1
Else
Out &H378, 0
Timer1.Enabled = False
End If
End Sub

Private Sub Timer2_Timer()
If a <= 7 Then
Out &H378, 2 ^ a
a = a + 1
Out &H37A, 4
Out &H37A, 0
Else
Out &H378, 0
Out &H37A, 4
Out &H37A, 0
Timer2.Enabled = False
End If
End Sub

Private Sub Timer3_Timer()
Label1.Caption = "Current Time:" & Mid(Str(Time), 4, 8)
End Sub




當天考試打完這段,,

我看都天黑了拔







End

 

0推薦此文章
Today's Visitors: 1 Total Visitors: 47
Personal Category: ♤心情點滴♤ Topic: creation / design / industrial design
Previous in This Category: 過了過了...學科   Next in This Category: 60週年的校慶
[Trackback URL]

Reply
  • 1樓

    1樓搶頭香

    眼花~眼花~眼花~ 眼花~眼花~眼花~
    眼花~ 眼花~ 眼花~ 眼花~
    眼花~ 眼花~ 眼花~眼花~眼花~
    眼花~眼花~眼花~ 眼花~ 眼花~
    眼花~ 眼花~ 眼花~眼花~眼花~
    眼花~ 眼花~ 眼花~
    眼花~眼花~眼花~ 眼花~ 眼花~
    眼花~ 眼花~ 眼花~ 眼花~眼花~
    眼花~ 眼花~ 眼花~ 眼花~眼花~
    眼花~眼花~眼花~ 眼花~眼花~ 眼花~
    眼花~


    眼花~ 眼花~
    眼花~ 眼花~
    眼花~眼花~眼花~ 眼花~眼花~眼花~
    眼花~ 眼花~
    眼花~ 眼花~

    眼花~ 眼花~
    眼花~ 眼花~
    眼花~ 眼花~
    眼花~眼花~ 眼花~眼花~眼花~
    眼花~ 眼花~ 眼花~
    眼花~ 眼花~ 眼花~
    眼花~ 眼花~ 眼花~
    眼花~ 眼花~ 眼花~
    眼花~ 眼花~眼花~眼花~

  • 施大哥 at December 27, 2008 04:00 PM comment
  • 當然,,

  • Blog Owner at December 27, 2008 10:51 PM Reply
Post A Comment









Yes No





誰來收藏
Loading ...
unlog_NVPO 0