Public Class Form1
dim Step as integer = 1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Label1.Text = 0
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
label1.text = val(label1.text) + step
If Label1.Text = 100 Then
step = -1
else if Label1.Text = 0 then
timer.enabled = false
End If
End Sub
End Class
Sir, salamat sa code at sa advise... tama nga sir parehas naka enable yung timer napapagana ko na ulit siya salamat po ng marami.
dim Step as integer = 1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Label1.Text = 0
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
label1.text = val(label1.text) + step
If Label1.Text = 100 Then
step = -1
else if Label1.Text = 0 then
timer.enabled = false
End If
End Sub
End Class
Sir, salamat sa code at sa advise... tama nga sir parehas naka enable yung timer napapagana ko na ulit siya salamat po ng marami.