c6a9cd69c2
* NEW: Add examples again. I hope correctly this time. git-svn-id: svn://localhost/gambas/trunk@6726 867c0c6c-44f3-4631-809d-bfa615b0a4ec
56 lines
832 B
Text
56 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
|