Cara membuat Text Berjalan

Ricky Andes ||  selamat  malam agan- agan semua, pada kesempatan kali ini kita akan membahas bagaimana cara membuat text berjalan pada form visual bassic.
 oke langsung saja membuat tulisan / teks berjalan di vb.net sangatlah mudah, anda hanya memerlukan komponen Timer dan Label. Daripada repot – repot langsung saja saya kasih source code teks berjalan pada vb.net 2010 nya aja ya biar anda langsung mengerti programnya.

Klik Gambar untuk memperbesar

Ok langsung saja tutorial membuat teks berjalan pada VB.Net :

1. Langsung saja buka Microsoft Visual Studio anda.
2. Muncul “Form1”, masukkan Label dan Timer yang terdapat di ToolBox dengan cara double klik ToolBox yang dipilih.
3. Ubah Propertiesnya seperti ini :

Nama Control         Properties     Nilai
Label1                    Text               Text Berjalan
                               Name            Label1
                               Autosize        False
Timer1                    Interval          200

4.  Setelah itu masukkan kode berikut ini :

1:    Public Class Form1

2:     Dim tulisan(2) As String

3:     Dim i, j As Integer

4:     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

5:         If i.Equals(tulisan(j).Length) Then

6:             Me.Label1.Text = “”

7:             If j < tulisan.Length – 1 Then

8:                 j = j + 1

9:                 Me.Label1.Text = tulisan(j)

10:             Else

11:                 j = 0

12:             End If

13:             i = 0

14:         End If

15:         Label1.Text = tulisan(j).Substring(0, i)

16:         i = i + 1

17:     End Sub

18:     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

19:         tulisan(0) = ” mencoba ”

20:         tulisan(1) = ” mencoba ”

21:         tulisan(2) = ” mencoba ”

22:         Label1.Text = tulisan(j)

23:         Timer1.Start()

24:     End Sub

25: End Class



5.  Setelah itu klik “Start Debugging (F5)” Dan lihat apa yang terjadi..