salam aval 1 string yek 1 int va 2ta timer be project ezaf mikonim be ghesmate desinger rafte va yek label be project ezaf mikonim mirim vase cod dadan
- Code:
Sub Globals
dim mtn As String
dim count As Int
Dim timer1 as timer
Dim timer2 as timer
End Sub
- Code:
Label1.Text = ""
count = 1
mtn = "I love U :P Plz Kiss Me:$ iranian Team Programmer :) "
timer1.Initialize("timer1",100)
timer2.Initialize("timer2",10000)
timer1.Enabled = True
timer2.Enabled = True
- Code:
Sub timer1_Tick
If Label1.Text.Length = mtn.Length Then
timer1.Enabled = False
Else
count = count + 1
Label1.Text = mtn.Substring2(0, count)
End If
End Sub
Sub timer2_Tick
Label1.Text = ""
count = 1
mtn= "I love U :P Plz Kiss Me:$ iranian Team Programmer :) "
timer1.Enabled = True
End Sub