57 lines
832 B
Text
57 lines
832 B
Text
|
' Gambas class file
|
||
|
|
|
||
|
|
Public Sub Form_Open()
|
||
|
|
|
||
|
|
FOtherTimer.Show
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub Button1_Click()
|
||
|
|
|
||
|
|
Timer1.Delay = CInt(TextBox1.Text)
|
||
|
|
Timer1.Enabled = True
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub Timer1_Timer()
|
||
|
|
|
||
|
|
Label1.Background = &HFF0000&
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub Button2_Click()
|
||
|
|
|
||
|
|
Timer1.Enabled = False 'try without this line
|
||
|
|
Label1.Background = &HDCDCDC&
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub ToggleButton1_Click()
|
||
|
|
|
||
|
|
If ToggleButton1.Value = True Then
|
||
|
|
Timer2.Delay = CInt(TextBox2.Text) 'low
|
||
|
|
Timer3.Delay = CInt(TextBox3.Text) 'high
|
||
|
|
Timer2.Enabled = True
|
||
|
|
Else
|
||
|
|
Timer2.Enabled = False
|
||
|
|
Timer3.Enabled = False
|
||
|
|
Endif
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub Timer2_Timer()
|
||
|
|
|
||
|
|
Label5.Background = &HFF0000&
|
||
|
|
Timer3.Enabled = True
|
||
|
|
Timer2.Enabled = False
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub Timer3_Timer()
|
||
|
|
|
||
|
|
Label5.Background = &H00FF00&
|
||
|
|
Timer2.Enabled = True
|
||
|
|
Timer3.Enabled = False
|
||
|
|
|
||
|
|
End
|