Membuat Runing Text Pada Vb.Net
Bismillah....
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, mudah kan? gak pake ribet-ribet, nah berikutnya....
Wassalaaaam.
Alhamdulillah, kita masih sanggup dipertemukan meski hanya di dunia maya.
Setelah beberapa hari yang kemudian aku memposting perihal split tanggal pada date timepicker, maka kali ini aku akan menyebarkan perihal bahan yang berdasarkan aku cukup menarik, bahkan dulu dikala pertama kali aku berguru perihal vb dot net, bahan ini yang aku cari di mbah google, meski dengan hasil yang sangat minim pada waktu itu, namun Alhamdulillah sanggup juga akhirnya.
Maka dari itu aku akan coba menyebarkan kepada para agan yang mungkin sedang mencari-cari perihal postingan ini. Yang mungkin juga sempat galau.... (seperti aku 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 aku akan coba menyebarkan bahan vb.net perihal runing text (red: teks berjalan), pernah denger kan? Atau mungkin pernah lihat. Atauuuuu mungkin juga pernah nyoba bikin dan gak pernah jadi-jadi....(pengalaman aku itu mah) disitulah kadang aku merasa vb.net itu sangat kejam.
Nah..... kini kuy kita coba buat di vb.net.
Emang bisa?
Ya sanggup 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 yakni mendesai form sesuai selera, dan boleh nyontek menyerupai form di bawah ini...
2. Setting Properties
Sebetulnya setting properties boleh sesuai selera, tapi kalo butuh contekan monggo lihat tabel di bawah ini....
Cuman gini aja settingan propertiesnya, mudah 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 perihal 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 rujukan aplikasinya, agan sanggup lihat exe nya di tahapan selanjutnya....monggo di unduh.....
4. Contoh Aplikasinya
Berikut ini rujukan aplikasi runing text dalam bentuk exe, silahkan di unduh....
Alhamdulillah, kita dah sampe tahap simpulan dengan selamat, agar bermanfaat, postingan perihal runing text ini. Banyak kekurangan dan kesalahan, pasti. Sudah sanggup menyebarkan dengan para agan sudah menciptakan aku bahagia, agar bermanfaat.
InsyaAllah bertemu di lain kesempatan, masih di gelombang dan frekwensi yang sama tentunya, dengan postingan-postingan lainnya....