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
沒有標題
影片分享(1)

Sealed (Jul 22)








1樓
1樓搶頭香
眼花~眼花~眼花~ 眼花~眼花~眼花~
眼花~ 眼花~ 眼花~ 眼花~
眼花~ 眼花~ 眼花~眼花~眼花~
眼花~眼花~眼花~ 眼花~ 眼花~
眼花~ 眼花~ 眼花~眼花~眼花~
眼花~ 眼花~ 眼花~
眼花~眼花~眼花~ 眼花~ 眼花~
眼花~ 眼花~ 眼花~ 眼花~眼花~
眼花~ 眼花~ 眼花~ 眼花~眼花~
眼花~眼花~眼花~ 眼花~眼花~ 眼花~
眼花~
眼花~ 眼花~
眼花~ 眼花~
眼花~眼花~眼花~ 眼花~眼花~眼花~
眼花~ 眼花~
眼花~ 眼花~
眼花~ 眼花~
眼花~ 眼花~
眼花~ 眼花~
眼花~眼花~ 眼花~眼花~眼花~
眼花~ 眼花~ 眼花~
眼花~ 眼花~ 眼花~
眼花~ 眼花~ 眼花~
眼花~ 眼花~ 眼花~
眼花~ 眼花~眼花~眼花~
當然,,