Minggu, 15 April 2012

Membuat Teks Berjalan Dengan VB 6.0

Mungkin lo suka liat di program TA temen lo ada tekx berjalan. Gimana sih cara bikinnya ? Hem..kita bahas bareng-bareng yuk..

1. Jalankan aplikasi Visual Basic anda
2. Pada jendela New Project, pilih standard exe
3. Tambahkan object Label dan Timer kedalam form


4. Klik pada label,ketikan "Teks berjalan pada vb 6.0" di Caption-nya
5. Beri interval 100 pada properties Timer1
6. Klik 2x pada object Timer1,tambahkan listing berikut :
    Private Sub Timer1_Timer()
       Label1.Caption = Right(Label1.Caption, Len(Label1.Caption) - 1) & Left(Label1.Caption, 1)
    End Sub
7. Tekan F5 untuk menjalankan program