Visual Basic
-----------------------------
Kod;
Bu islem cok kolay. Yapmaniz gereken formunuza iki tane timer eklemek ve isimlerini Timer1 ve Timer2 koymak. Bir tanede label tabi. Onun adida label1 olacak. Sonra asagidaki kodu formunuzun gerekli yerlerine yerle?tirin.
Private Sub Timer1_Timer()
Static b
Static i
Label1.FontBold = False
Dim x(14) As String
strBaslik = "SEKRETER 2003"
x(0) = ""
For A = 1 To 13
x(A) = Mid(strBaslik, A, 1)
Next A
x(14) = ""
If b = 14 Then
b = 0
Timer1.Enabled = False
Timer2.Enabled = True
End If
i = i + 1
If i Mod 5 = 0 Then
Label1.Caption = Label1.Caption + x(b)
b = b + 1
End If
End Sub
Private Sub Timer2_Timer()
Static i
i = i + 1
If i Mod 50 = 0 Then
Label1.Caption = ""
Timer2.Enabled = False
Timer1.Enabled = True
End If
Label1.FontBold = True
End Sub
Kolay Gelsin
-----------------------------
Kod;
Bu islem cok kolay. Yapmaniz gereken formunuza iki tane timer eklemek ve isimlerini Timer1 ve Timer2 koymak. Bir tanede label tabi. Onun adida label1 olacak. Sonra asagidaki kodu formunuzun gerekli yerlerine yerle?tirin.
Private Sub Timer1_Timer()
Static b
Static i
Label1.FontBold = False
Dim x(14) As String
strBaslik = "SEKRETER 2003"
x(0) = ""
For A = 1 To 13
x(A) = Mid(strBaslik, A, 1)
Next A
x(14) = ""
If b = 14 Then
b = 0
Timer1.Enabled = False
Timer2.Enabled = True
End If
i = i + 1
If i Mod 5 = 0 Then
Label1.Caption = Label1.Caption + x(b)
b = b + 1
End If
End Sub
Private Sub Timer2_Timer()
Static i
i = i + 1
If i Mod 50 = 0 Then
Label1.Caption = ""
Timer2.Enabled = False
Timer1.Enabled = True
End If
Label1.FontBold = True
End Sub
Kolay Gelsin