Membuat Runing Text pada VB.Net

Bismillah....

Alhamdulillah, kita masih bisa dipertemukan meski hanya di dunia maya. 

Setelah beberapa hari yang lalu saya memposting tentang split tanggal pada date timepicker, maka kali ini saya akan berbagi tentang materi yang menurut saya cukup menarik, bahkan dulu ketika pertama kali saya belajar tentang vb dot net, materi ini yang saya cari di mbah google, meski dengan hasil yang sangat minim pada waktu itu, namun Alhamdulillah bisa juga akhirnya. 

Maka dari itu saya akan coba berbagi kepada para agan yang mungkin sedang mencari-cari tentang postingan ini. Yang mungkin juga sempat galau.... (seperti saya waktu dulu.....)

Mau posting apaan sih? Lama bangeuuuut....

Sabar gan....

Ingeeeet, sabar itu temennya subur....taukan sabar subur... nah ntu dari nama mereka berdua. Eeeeh... maaf malah nglantur.

Kuy kita mulai.....

Kali ini saya akan coba berbagi materi vb.net tentang runing text (red: teks berjalan), pernah denger kan? Atau mungkin pernah lihat. Atauuuuu mungkin juga pernah nyoba bikin dan gak pernah jadi-jadi....(pengalaman saya itu mah) disitulah kadang saya merasa vb.net itu sangat kejam.

Nah..... sekarang kuy kita coba buat di vb.net.

Emang bisa?

Ya bisa lah..... masa basi....emang sayur kemaren.

Gimana sih tahapannya?

Kuy kita lihat pase demi pase, tahap demi tahap, dan step by step bagaimana cara membuatnya.

Early (red: yang paling awal) jangan lupa para agan masuk dulu ke dalam Microsoft Visual Studionya (vb.net yang ada di PC masing-masing)

Sudaaaah...?

Oke kita lanjut....

1. Design Form

Setelah vb.net tampil, maka tahap selanjutnya adalah mendesai form sesuai selera, dan boleh nyontek seperti form di bawah ini...

 Kalo sudah di design formnya maka selanjutnya....

2. Setting Properties
Sebetulnya setting properties boleh sesuai selera, tapi kalo butuh contekan monggo lihat tabel di bawah ini....

Cuman gini aja settingan propertiesnya, simpel kan? gak pake ribet-ribet, nah berikutnya....

3. Ketik Coding

Codingnya sambil di pahami ya, jangan asal copas saja, soalnya coding runing text ini agak panjangan sedikit dari postingan tentang split tanggal pada date timepicker, bisa-bisa malah BUG nanti. (aaaaaahhh tidaaaaak)... nah repot (bukan report) ya kan?

Public Class Form5

    Dim kalimat As String

    Dim panjang As Integer

    Dim jalan As Boolean

    Private Sub Form1_Leave(ByVal sender As Object, ByVal e As System.EventArgs)

        jalan = False

    End Sub

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

        If jalan Then

            kalimat = Microsoft.VisualBasic.Right(kalimat, panjang - 1) & _

                Microsoft.VisualBasic.Left(kalimat, 2)

            Label1.Text = kalimat

            Label1.Refresh()

        Else

            Timer1.Enabled = False

        End If

        Me.Text = Microsoft.VisualBasic.Right$(Me.Text, Len(Me.Text) - 1) + Microsoft.VisualBasic.Left$(Me.Text, 1)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If Button1.Text = "&Stop" Then

            Button1.Text = "&Run"

            Timer1.Enabled = False

        Else

            Button1.Text = "&Stop"

            Timer1.Enabled = True

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If Button2.Text = "&Text 1" Then

            Button2.Text = "&Text 2"

            kalimat = "  hEBAT eUY                             "

        Else

            Button2.Text = "&Text 1"

            kalimat = "  kEUREEEEEEN                            "

        End If

    End Sub

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

        jalan = True

        kalimat = "  Anda Sedang Belajar VB Net                             "

        panjang = Len(kalimat)

        Label1.Text = kalimat

        Label1.Refresh()

        Timer1.Enabled = True

    End Sub

End Class

Segini sudah cukup codingnya, kalo mau contoh aplikasinya, agan bisa lihat exe nya di tahapan selanjutnya....monggo di unduh.....

4. Contoh Aplikasinya

Berikut ini contoh aplikasi runing text dalam bentuk exe, silahkan di unduh....

disini aja...

Alhamdulillah, kita dah sampe tahap akhir dengan selamat, semoga bermanfaat,  postingan tentang runing text ini. Banyak kekurangan dan kesalahan, pasti. Sudah dapat berbagi dengan para agan sudah membuat saya bahagia, semoga bermanfaat. 

InsyaAllah bertemu di lain kesempatan, masih di gelombang dan frekwensi yang sama tentunya, dengan postingan-postingan lainnya....

Wassalaaaam.