Visual Basic - Membuat Animasi Loading


Selamat Pagi !
Selamat berhari selasa kawan.
Kali ini saya share sedikit tentang Pembuatan Animasi (Gambar Berjalan) di Visual Basic 6.0.




Pertama, Buat layout seperti gambar dibawah ini :




Kedua, isi layout tadi dengan koding dibawah ini :

Dim kec As Integer, menit As Integer, detik As Integer, i As Integer

Private Sub cmdclose_Click()
Unload Me
End Sub

Private Sub cmdgerak_Click()
Timer.Enabled = True
End Sub

Private Sub cmdinput_Click()
kec = InputBox("Input kecepatan", "Input kecepatan")
Timer.Interval = kec
End Sub

Private Sub cmdstop_Click()
Timer.Enabled = False
End Sub

Private Sub Form_Load()
Timer.Enabled = False
Shape1(0).Visible = True
Shape1(1).Visible = False
Shape1(2).Visible = False
Shape1(3).Visible = False
End Sub

Private Sub Timer_Timer()
Static i
detik = detik + 1
If detik = 2 Then
Shape1(0).Visible = False
Shape1(1).Visible = True
ElseIf detik = 3 Then
Shape1(1).Visible = False
Shape1(2).Visible = True
ElseIf detik = 4 Then
Shape1(2).Visible = False
Shape1(3).Visible = True
ElseIf detik = 5 Then
Shape1(0).Visible = True
Shape1(3).Visible = False
detik = 0
End If
End Sub

Jalankan.

Penjelasan Program intinya adalah penggunaan Visible dan Kondisi.
Terimakasih untuk Mozart-Notes yang telah membantu menyempurnakan program ini :)

Semoga Bermanfaat, Salam LEAF-CODER!



Belum ada Komentar untuk "Visual Basic - Membuat Animasi Loading"

Posting Komentar

Iklan Atas Artikel



Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel