- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
Public Class Form1
Dim ns As Double : Dim s As Integer ' Akiva 14/IX-2013
Private Sub b1_Click(sender As Object, e As EventArgs) Handles b1.Click
tm1.Enabled = True
End Sub
Private Sub nums_ValueChanged(sender As Object, e As EventArgs) Handles nums.ValueChanged
s = nums.Value : ns = s
End Sub
Private Sub tm1_Tick(sender As Object, e As EventArgs) Handles tm1.Tick
If ns >= 0.1 Then
ns -= 0.1
l1.Text = Format(ns, "00.0")
End If
End Sub
Private Sub b2_Click(sender As Object, e As EventArgs) Handles b2.Click
tm1.Enabled = False
End Sub
End Class
Stertor 16.09.2013 22:29 # 0
crastinus 17.09.2013 08:41 # +1
TarasB 17.09.2013 10:16 # +3
guest 17.09.2013 12:12 # −6
TarasB 17.09.2013 13:23 # +6
kegdan 17.09.2013 14:02 # 0
eth0 17.09.2013 20:41 # 0
Stertor 17.09.2013 21:42 # −1
Stertor 17.09.2013 21:39 # −1
Да, и без прикуса!!
Stertor 17.09.2013 21:41 # −1
guest 17.09.2013 12:44 # −14
Stertor 17.09.2013 21:53 # −1