Teks Berjalan di VB.Net 2010

Sedikit gw coba tuangkan kedalam blog ini tentang pembelajaran gw mengerjakan tugas akhir semester V. Pa Heri Herianto dosen di Kampus gw yang selalu memberikan tugas setiap akhir semester . Langsung aja nih langkah-langkahnya : 

1. Loe siapkan form kosong atau from kosog yang terdiri label dan timer seperti ini :

      2. Di Properteis Intervalnya loe buat 200

     3. Klik View Code dan buat Deklarasi Variabel

    Public Class Form1

    Dim tulisan(2) As String

    Dim i, j As Integer

4. Double Klik pada form1 Design lalu ketik koding sebagai berikut :

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

        tulisan(0) = "Sodikin Saputra"

        tulisan(1) = "Sodikin Saputra"

        tulisan(2) = "Sodikin Saputra"

        Label1.Text = tulisan(j)

        Timer1.Start()

    End Sub

5. Dan Double Klik pada Timer1

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

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

            Me.Label1.Text = ""

            If j < tulisan.Length - 1 Then

                j = j + 1

            Else

                j = 0

            End If

            i = 0

        End If

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

        i = i + 1

    End Sub

Atau lebih jelasnya seperti ini.

Selamat Mencoba dan pasti berhasil Mudah sekalikan. Terima Kasih