Tips Membuat Text Berjalan Dengan VB

Dalam dunia pemrograman membuat text berjalan adalah salah satu hal yang sangat mudah. Mungkin kita yang tidak mengenal pemrograman akan bertanya-tanya. "Kenapa text tersebut bisa berjalan?". Bagi pembuat program, itu hal yang mudah untuk menjawab pertanyaan tersebut karena dengan program aplikasi seperti Visual Basic, Borland Delphi, Turbo Pascal, HTML maupun yang lainnya. Kita bisa menjawab pertanyaan tersebut.


Tanpa panjang lebar kita akan mencoba membuat program text berjalan dengan aplikasi Visual basic. Caranya adalah sebagai berikut.

1. Pada pembuatan program ini, kita hanya membutuhkan Label dan Timer. Label untuk textnya itu sendiri dan Timer untuk menjalankan text tersebut. Sehingga tampak seperti pada gambar disamping.

2. Ketikkan listing program berikut pada kode editor.

Private Sub Form_Load()
Label1.Caption = "Text Berjalan"
Timer1.Interval = "1"
End Sub

Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 20
If Label1.Left<-3000 Then
Label1.Left = 5000
End If
End Sub

3. Simpan Form dan Project tersebut.

4. Jalankan program tersebut dengan cara kli menu Run pada MenuBar pilih Start atau tekan F5 pada keyboard.

Program sederhana ini sudah bisa menjawabpertanyaan tadi. Bila anda kurang suka dengan tampilan program diatas, anda bisa tambah atau rubah sendiri sesuai dengan keinginan anda.

Catatan :
a). Text atau angka diatas yang berwarna biru bisa diubah sesuai dengan keinginan anda.
b). Semakin besar interval timer, maka akan semakin lambat text yang berjalan. Begitu juga sebaliknya.
c). Semakin besar pengurangannya (Label1.Left = Label1.Left - 20), maka akan semakin cepat text yang berjalan dan begitu juga sebaliknya.

Semoga Sukses...!