Cara Membuat Teks Berjalan Maju Mundur di Visual Basic

  Membuat Teks Berjalan Maju Mundur di Visual Basic

sebelumnya silahkan baca terlebih dahulu Tutorial sebelumnya yaitu Membuat Teks Berjalan Lurus. karena kode di dalam tutorial ini adalah kelanjutan dari Tutorial tersebut, dalam tutorial ini, kita akan membuat teks yang berjalan maju-mundur atau bolak-balik ke kanan dan ke kiri, atau bisa juga di sebut "kanan-kiri oke" hehe :D .
berikut langkah-langkahnya:

1. buat new project, standard EXE
2. masukan 1 buah Label dan 2 buah Timer, ingat!!! 2 buah Timer,, hehe.

3. ganti interval Timer1 dan Timer2 menjadi 100.
4. Masukan code programnya : double klik pada form

Private Sub Form_Load()

Timer1.Enabled = True

Timer2.Enabled = False

End Sub
Private Sub Timer1_Timer()

If Label1.Left >=  +Label1.Width Then   

Label1.Left = +Label1.Width   

Timer1.Enabled = False   

Timer2.Enabled = True 

Else   

Label1.Left = Label1.Left + 100 

End If 

End Sub
Private Sub Timer2_Timer()   

If Label1.Left <= -Label1.Width Then   

Label1.Left = -Label1.Width   

Timer2.Enabled = False   

Timer1.Enabled = True

Else   

Label1.Left = Label1.Left - 100 

End If 

End Sub

5. Jalankan Programnya !!
cara kerja kode :

·                     Timer1 bertugas mengatur Label1 berjalan ke kanan

·                     Timer2 bertugas mengatur Label1 berjalan ke kiri

·                     ketika program baru berjalan (Sub Form_load) yang aktif adalah Timer1(True) dan Timer2 tidak aktif(False)

·                     Lihat pada code "Private Sub Timer1_Timer()" . ketika tugas Timer1 sudah kelar, Timer1 akan menonaktifkan dirinya (Timer1.Enabled=False) dan Timer2 menjadi aktif (Timer2.Enabled=True).

·                     begitu juga sebaliknya yang terjadi pada "Private Sub Timer2_Timer()" sehingga kondisi ini terus terjadi berulang-ulang.

·                     ,,, begitulah kira-kira, selesai sudah. :D

Terimakasih ! Selamat Mencoba Kawan :-)