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 :
Private Sub Form_Load()
Timer1.Enabled = True
Timer2.Enabled = False
End Sub
Private Sub Timer1_Timer()
If Label1.Left >= Form1.Width Then
Label1.Left = Form1.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.
- yupp,,, begitulah kira-kira, selesai sudah. :D
Silahkan Baca Juga :
Thanks for reading Membuat Teks Berjalan Maju Mundur di Visual Basic
makasi infonya gan...
ReplyDeleteTANYA : apa fungsi interval = 1000 dan interval = 100 atau sejenis nya...
mohon penjelasanya