Hardware Reference
In-Depth Information
Timer1.Interval = 10000
Timer2.Interval = 10000
Timer3.Interval = 10000
Timer4.Interval = 10000
Timer5.Interval = 10000
Timer6.Interval = 10000
Timer7.Interval = 10000
Timer8.Interval = 10000
ETime = 0
End Sub
Private Sub HScroll1_Change()
Timer1.Interval = HScroll1.Value
SetTime1.Caption = Int(Timer1.Interval / 1000)
End Sub
Private Sub HScroll2_Change()
Timer2.Interval = HScroll2.Value
SetTime2.Caption = Int(Timer2.Interval / 1000)
End Sub
Private Sub HScroll3_Change()
Timer3.Interval = HScroll3.Value
SetTime3.Caption = Int(Timer3.Interval / 1000)
End Sub
Private Sub HScroll4_Change()
Timer4.Interval = HScroll4.Value
SetTime4.Caption = Int(Timer4.Interval / 1000)
End Sub
Private Sub HScroll5_Change()
Timer5.Interval = HScroll5.Value
SetTime5.Caption = Int(Timer5.Interval / 1000)
End Sub
Private Sub HScroll6_Change()
Timer6.Interval = HScroll6.Value
SetTime6.Caption = Int(Timer6.Interval / 1000)
End Sub
Private Sub HScroll7_Change()
Timer7.Interval = HScroll7.Value
SetTime7.Caption = Int(Timer7.Interval / 1000)
End Sub
Private Sub HScroll8_Change()
Timer8.Interval = HScroll8.Value
SetTime8.Caption = Int(Timer8.Interval / 1000)
End Sub
Private Sub Timer1_Timer()
Shape1.FillColor = "&H000000FF"
OutData = Inp(Port1)
Out Port1, (OutData Or 1)
End Sub
Search WWH ::




Custom Search