MEMBUAT TULISAN BERJALAN DENGAN VB6

Gampang kok…
Oke langsung kita mulai.

Kita akan membuat Tulisan berjalan untuk mempercantik tampilan program yang kita buat dengan Visual Basic.

::( Logika Program.
——————————

Logika Program ini yaitu adalah meletakan huruf terakhir pada posisi pertama setiap 0.1 detik (100 milisecond). Efek yang dihasilkan adalah text berjalan dari kiri ke kanan.
Sedangkan untuk text yang berjalan dari Kanan – ke Kiri, dilakukan dengan meletakan huruf pertama pada posisi terakhir,

::( Interface.
———————————

1. Jalankan Program Visual Basic.
2. Pilih Standard EXE.
3. Masukan dua buah Label beri nama Txt_satu dan Txt_dua di properties.
4. Masukan sebuah Timer ganti Interval menjadi 100.
5. Masukan sebuah Cammand Button bari nama cmd_Exit dan Caption EXIT.
6. Untuk Warna atur sesuka anda di bagian Properties.

Gambar 1. Rancangan Tampilan Program.

::( Coding
—————————-

1. Klik dua kali di Tombol EXIT lalu tuliskan kode berikut.Private Sub cmd_exit_Click()
   End
   End Sub
2. Klik timer1 lalu tuliskan kode berikut.Private Sub Timer1_Timer()
   s$ = lbl_satu.Caption
   s$ = Right(s$, 1) & Mid$(s$, 1, Len(s$) – 1)
   lbl_satu.Caption = s$s$ = lbl_dua.Caption
   s$ = Mid$(s$, 2, Len(s$)) & Left$(s$, 1)
   lbl_dua.Caption = s$
   End Sub

Lalu jalankan dengan menekan tombol F5 di keyboard.

Gambar 2. Text berjalan.

Ini bisa anda sisipkan di program yang anda buat agar Tampilan Program lebih asik.