Animasi Sederhana pk timer di VB6

'setting di properties form_load()
'form1.width=6210
'form1.height=5010
'bikin dulu timer 4 buah setting masing2 interval = 500 dan enabled = false
'baten 1 buah

Private Sub Command1_Click()
If Command1.Caption = "&play" Then
Command1.Caption = "&stop"
Timer1.Enabled = True
Else
If Command1.Caption = "&stop" Then
Command1.Caption = "&play"
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
'Text3.Text = ""
Shape1.Left = 0
Shape1.Top = 0
End If
End If
Text1.Text = Shape1.Left
Text2.Text = Shape1.Top
End Sub

Private Sub Command2_Click()
End Sub

Private Sub Form_Activate()
Text1.Text = Shape1.Left
Text2.Text = Shape1.Top
End Sub

Private Sub Form_Load()
Timer1.Interval = 500
Timer2.Interval = 500
Timer3.Interval = 500
Timer4.Interval = 500
End Sub

Private Sub Timer1_Timer()
Shape1.Left = Shape1.Left + 1000
If Shape1.Left = 5000 Then
'Shape1.Left = 5000
Timer1.Enabled = False
Timer2.Enabled = True
End If
Text1.Text = Shape1.Left
End Sub

Private Sub Timer2_Timer()
Shape1.Top = Shape1.Top + 1000
If Shape1.Top = 4000 Then
Timer2.Enabled = False
Timer3.Enabled = True
End If
Text2.Text = Shape1.Top
End Sub

Private Sub Timer3_Timer()
Shape1.Left = Shape1.Left - 1000
If Shape1.Left = 0 Then
Timer3.Enabled = False
Timer4.Enabled = True
End If
Text1.Text = Shape1.Left
End Sub

Private Sub Timer4_Timer()
Shape1.Top = Shape1.Top - 1000
If Shape1.Top = 0 Then
Timer4.Enabled = False
Timer1.Enabled = True
End If
Text2.Text = Shape1.Top
End Sub

memindahkan data antar listbox di visual basic 6.0

Langkah-langkahnya:

1. buat listbox 2 buah
2. buat button 2 buah

Running ke-1 :



Running ke-2 :


di koding ketikan sbb :

Private Sub Form_Load()
List1.AddItem "data ke-1"
List1.AddItem "data ke-2"
List1.AddItem "data ke-3"
List1.AddItem "data ke-4"
List1.AddItem "data ke-5"
End Sub

command1_click()
'buat seleksi disini apakah listbox1 udah kosong
'----------------------------------------------
'buat lagi seleksi disini untuk apakah data di listbox1 udah di sorot blom
list2.additem list1.text
Dim A as string
A= list1.listindex
list1.removeitem(A)
list1.refresh
end sub

command2_click()
'buat seleksi disini apakah listbox2 udah kosong
'----------------------------------------------
'buat lagi seleksi disini untuk apakah data di listbox2 udah di sorot blom
list1.additem list2.text
Dim B as string
B= list2.listindex
list2.removeitem(B)
list2.refresh
end sub

NB:
1. program masih error jika button1 dan button2 d klik tanpa mensorot data pada listboxnya dan jika data udah kosong di listboxnya
2. untuk menanganinya buatlah seleksi menggunakan IF-THEN untuk mengecek data udah disorot belom...( pikirin lagi ya..)