Cara Membuat Running Text Di VBNet 2008

Hai Sahabat SBB, Pada kesempatan kali ini Saya akan berbagi info seputar pemrograman vbnet. Bagi sahabat SBB yang hobbi atau gemar dalam dunia Pemrograman berikut ini adalah info mengenai Cara Membuat Running Text Di VBNet 2008 yang mungkin info ini dapat bermanfaat dan membantu Sahabat SBB dalam membuat sebuah program.

Langsung Saja, langkah yang harus sahabat lakukan adalah :
- buka Ms.Visual Studio 2008 sahabat
- buat sebuah form baru dengan menambah 1 kontrol timer, 2 buah Button,  dan 1 buah Label.
- sesuaikan atributnya dengan ketentuan seperti dibawah ini :

1. Form1 (Name : Form1 ; Text : Program Running Text ; StartPosition : CenterScreen)
2. Timer1 (Name : Timer1 ; Interval : 100 ; Enable : False)
3. Button1 (Name : Button1 ; Text : Run)
4. Button2 (Name : Button2 ; Text : Stop)
5. Label1 (Name : Label1 ; Text : Membuat Running Text Dengan Menggunakan Visual Basic 2008) 

- Jika sudah, maka hasil desainnya adalah seperti berikut :

- Lalu sekarang kita masuk ketahap pengkodean, berikut ini adalah source codenya :

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub

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

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim abc As String = Microsoft.VisualBasic.Left(Label1.Text, 1)
Dim def As String = Microsoft.VisualBasic.Right(Label1.Text, Len(Label1.Text) - 1)
Label1.Text = def + abc
End Sub

End Class


- Lihat dan sesuaikan dengan atribut masing-masing.
- jika Sudah, maka selanjutnya tahap pengetesan.
- tekan f5 pada keyboard untuk meRunkan programnya.

Catatan :

- untuk text pada label1 dapat kita ganti sesuai dengan kebutuhan sahabat.
- untuk menjalankan running textnya, tekan button RUN pada program. lalu tekan button STOP untuk berhenti.

Sekian dari Saya, semoga info ini bermanfaat buat Sahabat SBB semua. Thank's..