Visual Basic programlarında yanıp sönen, kayan yazı yapımı/videolu Anlatım

[Alpi1s]

Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!

selamun aleyküm arkadaşlar bugün sizlere Visual Basic de yaptıgımız programlarda yanıp sönen yazı kodlarını gösteriçem buyrun videosunudan izleyebilirsiniz . Anlamadıgınız yer olursa sorun yardımcı olmaya çalışırım.

Form1’e yapıştırın bu kodu:
Public Class Form1
Dim LL, II, PP As Integer
Dim TXT As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TXT = "TuRkCoDeR Cyber-Warior"
LL = Len(TXT)
II = 1
PP = 1
End Sub
İstediğinizi kırmızı kısım içerisindeki yazıyı değiştirip yazabilirsiniz


Timer1 ’e ekleyeceğiniz kod :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Label1.Text + Mid(TXT, II, 1)
If II > LL Then
II = 0
Label1.Text = ""
End If
II = II + 1
End Sub
Timer2 ’e ekleyeceğiniz kod :
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Label2.Text = TXT
Randomize()
Label2.ForeColor = Color.FromArgb(255, Rnd() * 255, Rnd() * 255, Rnd() * 255)
End Sub
Timer3 ’e ekleyeceğiniz kod :
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Label3.Text = TXT
Label3.Visible = Not (Label3.Visible)
End Sub
Timer4 ’e ekleyeceğiniz kod :
Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
Label4.Text = TXT
Label4.TextAlign = PP
PP = PP * 2
If PP = 8 Then PP = 16
If PP = 128 Then PP = 256
If PP > 1024 Then PP = 1
End Sub
Timer5 ’e ekleyeceğiniz kod :
Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
Label5.Left = Label5.Left + 5
If Label5.Left > Me.Width Then Label5.Left = 0
End Sub
End Class
Hangi yazı sitili hoşunuza gidiyorsa onu yaparsınız ben dördünüde verdim
geliştirmek size kalmış nasıl isterseniz o şekilde kullanın arkadaşlar.


Video izlelemek için Tıklayınız altta buyrun

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.