Cara Membuat Gambar Bergerak di Visual Basic 6.0

Hai gaes, disini gw akan ngasi tau cara membuat gambar di program vb lo itu bergerak dan semakin menarik, berikut cara-caranya :
1. lu harus memasukkan 1 buah timer kedalam form dan gambar yang lo mau buat bergerak.
-contohnya seperti gambar dibawah ini.

2.setelah itu, lu klik 2 kali di object timer untuk memasukkan codingan/Code nya, berikut codingannya :
image1.Move  image1.Left - 80, image1.Top
If image1.Left + image1.Width < ScaleLeft Then
    image1.Left = ScaleWidth
End If
(Jangan budayakan budaya copas, supaya lo ingat apa yang lo tulis)
supaya lebih jelas seperti gambar dibawah ini.

3. klik image/ gambar yang tadi lu masukkan ke form supaya properties nya terbuka, di properties nya lo ubah Strecth menjadi "True", supaya saat lo memperbesar atau memperkecil gambar nya tidak terpotong.

4.klik object Timer dan masuk ke properties nya, dan ubah Interval Menjadi 100, interval itu adalah kecepatan gerak gambar lo, jadi terserah lo mau buat berapa asal jangan 'NOL'.

5.Silahkan Run program lo, kalo belum jalan berarti masih terdapat kesalahan atau debug, ulangi langkah 1-4 dan jika masih belum bisa, silahkan Comment dibawah pasti akan segera gw bantu.

*Bukan hanya gambar yang bisa kita buat bergerak tetapi juga label, cukup lo ganti image menjadi label berapa yang ingin lo buat bergerak.

oke, cukup sekian dari gua, Semoga Bermanfaat, Gue Ray, CABUT!!!

PROGRAM VISUAL BASIC 6.0

WEDDING ORGANIZER

FORM 1

Code Program 

Private Sub Command1_Click()

Form2.Show

Unload Me

End Sub

Private Sub Command5_Click()

Form7.Show

Unload Me

End Sub

Private Sub Command6_Click()

Dim PESAN As Integer

PESAN = MsgBox("APAKAH ANDA YAKIN??", vbInformation + vbYesNo, "PERINGATAN!!!")

If PESAN = vbYes Then

End

Else

'tambahkan kondisi yang diinginkan"

End If

End Sub

Private Sub Image1_Click()

End Sub

Private Sub Timer1_Timer()

Label1.Move Label1.Left - 80, Label1.Top

If Label1.Left + Label1.Width < ScaleLeft Then

    Label1.Left = ScaleWidth

End If

End Sub

FORM 2

Code Program

Private Sub Command1_Click()

Form3.Show

Unload Me

End Sub

Private Sub Command2_Click()

Form1.Show

Unload Me

End Sub

Private Sub Command7_Click()

Form5.Show

Unload Me

End Sub

Private Sub Image1_Click()

End Sub

FORM 3

Code Program

Private Sub Combo2_Change()

If Combo2.Text = "Nusa Dua(Bali)" Then

Picture2.Picture = LoadPicture(App.Path & "\ Nusa1.jpg")

End If

End Sub

Private Sub Command1_Click()

Form4.Label5 = Combo1.Text

Form4.Label6 = Combo2.Text

Form4.Label8 = TxtHarga.Text

Form4.Label7 = DTPicker1

If Combo1.ListIndex = 0 And Combo2.ListIndex = 0 Then

ElseIf Combo1.ListIndex = 1 And Combo2.ListIndex = 1 Then

ElseIf Combo1.ListIndex = 2 And Combo2.ListIndex = 2 Then

ElseIf Combo1.ListIndex = 1 And Combo2.ListIndex = 2 Then

ElseIf Combo1.ListIndex = 0 And Combo2.ListIndex = 1 Then

ElseIf Combo1.ListIndex = 2 And Combo2.ListIndex = 1 Then

ElseIf Combo1.ListIndex = 1 And Combo2.ListIndex = 0 Then

ElseIf Combo1.ListIndex = 2 And Combo2.ListIndex = 0 Then

ElseIf Combo1.ListIndex = 0 And Combo2.ListIndex = 2 Then

Else

'tambahkan kondisi yang anda inginkan'

End If

If Combo1.Text = "" Or Combo2.Text = "" Or (Option1.Value = False And Option2.Value = False) Then

MsgBox ("ANDA HARUS MENGISI DATA!!!"), vbInformation, "INFORMASI!!"

Else

Form4.Show

Unload Me

End If

End Sub

Private Sub Command2_Click()

Form2.Show

Unload Me

End Sub

Private Sub Command3_Click()

Dim PESAN As Integer

PESAN = MsgBox("APAKAH ANDA YAKIN?!", vbInformation + vbYesNo, "PERINGATAN!!!")

If PESAN = vbYes Then

End

Else

'TAMBAHKAN KONDISI YANG DIINGINKAN'

End If

End Sub

Private Sub Command4_Click()

If Combo1.Text = "" Then

MsgBox ("ANDA HARUS MEMILIH SALAH SATU VENDOR!!!"), vbInformation, "INFORMASI!!"

Else

'tambahkan kondisi yang diinginkan'

End If

If Combo1.Text = "Camio Pictures" Then

Picture1.Picture = LoadPicture(App.Path & "\Camio0.jpg")

ElseIf Combo1.Text = "King Photo" Then

Picture1.Picture = LoadPicture(App.Path & "\King0.jpg")

ElseIf Combo1.Text = "Einni Mini" Then

Picture1.Picture = LoadPicture(App.Path & "\Enni0.jpg")

End If

End Sub

Private Sub Command5_Click()

If Combo2.Text = "" Then

MsgBox ("ANDA HARUS MEMILIH SALAH SATU LOKASI!!!"), vbInformation, "INFORMASI!!"

Else

'tambahkan kondisi yang diinginkan'

End If

If Combo2.Text = "Nusa Dua(Bali)" Then

Picture2.Picture = LoadPicture(App.Path & "\Nusa1.jpg")

ElseIf Combo2.Text = "Pulau Bidadari(Jakarta)" Then

Picture2.Picture = LoadPicture(App.Path & "\Bidadari1.jpg")

ElseIf Combo2.Text = "Kali Biru(Kulonprogo)" Then

Picture2.Picture = LoadPicture(App.Path & "\Kali1.jpg")

End If

End Sub

Private Sub Form_Load()

Combo1.List(0) = "Einni Mini"

Combo1.List(1) = "King Photo"

Combo1.List(2) = "Camio Pictures"

Combo2.List(0) = "Nusa Dua(Bali)"

Combo2.List(1) = "Pulau Bidadari(Jakarta)"

Combo2.List(2) = "Kali Biru(Kulonprogo)"

 End Sub

 Private Sub form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)

Me.Label1.ForeColor = vbBlack

Me.Label2.ForeColor = vbBlack

Me.Label3.ForeColor = vbBlack

Me.Label4.ForeColor = vbBlack

Me.Label5.ForeColor = vbBlack

End Sub

Private Sub Image1_Click()

End Sub

Private Sub label1_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)

 Me.Label1.ForeColor = vbWhite

End Sub

Private Sub label2_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)

Me.Label2.ForeColor = vbWhite

End Sub

Private Sub label4_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)

Me.Label4.ForeColor = vbRed

End Sub

Private Sub label3_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)

Me.Label3.ForeColor = vbWhite

End Sub

Private Sub label5_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)

Me.Label5.ForeColor = vbWhite

End Sub

Private Sub Text1_Change()

Private Sub Option1_Click()

If Combo1.ListIndex = 0 And Combo2.ListIndex = 0 Then

TxtHarga.Text = 2500000

ElseIf Combo1.ListIndex = 1 And Combo2.ListIndex = 1 Then

TxtHarga.Text = 3000000

ElseIf Combo1.ListIndex = 1 And Combo2.ListIndex = 2 Then

TxtHarga.Text = 3000000

ElseIf Combo1.ListIndex = 2 And Combo2.ListIndex = 2 Then

TxtHarga.Text = 4000000

ElseIf Combo1.ListIndex = 2 And Combo2.ListIndex = 1 Then

TxtHarga.Text = 4000000

ElseIf Combo1.ListIndex = 0 And Combo2.ListIndex = 1 Then

TxtHarga.Text = 4500000

ElseIf Combo1.ListIndex = 1 And Combo2.ListIndex = 0 Then

TxtHarga.Text = 3000000

ElseIf Combo1.ListIndex = 2 And Combo2.ListIndex = 0 Then

TxtHarga.Text = 5000000

ElseIf Combo1.ListIndex = 0 And Combo2.ListIndex = 2 Then

TxtHarga.Text = 4500000

Else

MsgBox "DATA HARUS LENGKAP!!", vbInformation, "INFORMASI!!"

End If

End Sub

Private Sub Option2_Click()

If Combo1.ListIndex = 0 And Combo2.ListIndex = 0 Then

TxtHarga.Text = 2000000

ElseIf Combo1.ListIndex = 1 And Combo2.ListIndex = 1 Then

TxtHarga.Text = 2500000

ElseIf Combo1.ListIndex = 1 And Combo2.ListIndex = 2 Then

TxtHarga.Text = 2500000

ElseIf Combo1.ListIndex = 2 And Combo2.ListIndex = 2 Then

TxtHarga.Text = 3000000

ElseIf Combo1.ListIndex = 2 And Combo2.ListIndex = 1 Then

TxtHarga.Text = 3500000

ElseIf Combo1.ListIndex = 0 And Combo2.ListIndex = 1 Then

TxtHarga.Text = 3000000

ElseIf Combo1.ListIndex = 1 And Combo2.ListIndex = 0 Then

TxtHarga.Text = 2000000

ElseIf Combo1.ListIndex = 2 And Combo2.ListIndex = 0 Then

TxtHarga.Text = 2500000

ElseIf Combo1.ListIndex = 0 And Combo2.ListIndex = 2 Then

TxtHarga.Text = 3000000

Else

MsgBox "DATA HARUS LENGKAP!!", vbInformation, "INFORMASI!!"

End If

End Sub

Private Sub Timer1_Timer()

Label4.Move Label4.Left - 80, Label4.Top

If Label4.Left + Label4.Width < ScaleLeft Then

    Label4.Left = ScaleWidth

End If

End Sub

FORM 4

Code Program 

Private Sub Command1_Click()

MsgBox ("PESANAN TELAH DIPROSES!!"), vbInformation, "INFORMASI!!"

Form2.Show

Unload Me

End Sub

Private Sub Form_Load()

End Sub

FORM 5

Code Program

Private Sub Command1_Click()

If Combo1.Text = "" Then

MsgBox ("ANDA HARUS MEMILIH SALAH SATU VENDOR!!!"), vbInformation, "INFORMASI!!"

Else

'tambahkan kondisi yang diinginkan'

End If

If Combo1.Text = "Rina Gunawan" Then

Picture1.Picture = LoadPicture(App.Path & "\Rina1.jpg")

ElseIf Combo1.Text = "Gita Salon" Then

Picture1.Picture = LoadPicture(App.Path & "\Gita1.jpg")

ElseIf Combo1.Text = "Nana Rias" Then

Picture1.Picture = LoadPicture(App.Path & "\Nana1.jpg")

End If

End Sub

Private Sub Command2_Click()

If Combo1.Text = "" Then

MsgBox ("ANDA HARUS MEMILIH SALAH SATU VENDOR!!!"), vbInformation, "INFORMASI!!"

Else

'tambahkan kondisi yang diinginkan'

End If

If Combo1.Text = "Rina Gunawan" Then

Picture2.Picture = LoadPicture(App.Path & "\Rina0.jpg")

ElseIf Combo1.Text = "Gita Salon" Then

Picture2.Picture = LoadPicture(App.Path & "\Gita0.jpg")

ElseIf Combo1.Text = "Nana Rias" Then

Picture2.Picture = LoadPicture(App.Path & "\Nana0.jpg")

End If

End Sub

Private Sub Command3_Click()

Form6.Label4 = Combo1.Text

Form6.Label5 = DTPicker1

Form6.Label6 = TxtHarga.Text

If Combo1.ListIndex = 0 Then

ElseIf Combo1.ListIndex = 1 Then

ElseIf Combo1.ListIndex = 2 Then

Else

'TAMBAHKAN KONDISI YANG DIINGINKAN'

End If

If Combo1.Text = "" Then

MsgBox ("ANDA HARUS MENGISI DATA!!!"), vbInformation, "INFORMASI!!"

Else

Form6.Show

Unload Me

End If

End Sub

Private Sub Command4_Click()

Form2.Show

Unload Me

End Sub

Private Sub Form_Load()

Combo1.List(0) = "Rina Gunawan"

Combo1.List(1) = "Gita Salon"

Combo1.List(2) = "Nana Rias"

End Sub

Private Sub Image1_Click()

End Sub

Private Sub Option1_Click()

If Combo1.ListIndex = 0 Then

TxtHarga.Text = 2500000

ElseIf Combo1.ListIndex = 1 Then

TxtHarga.Text = 3000000

ElseIf Combo1.ListIndex = 2 Then

TxtHarga.Text = 1500000

End If

If Combo1.Text = "" Then

MsgBox "ANDA HARUS MEMILIH VENDOR!!", vbInformation, "INFORMASI!!"

Else

End If

End Sub

Private Sub Option2_Click()

If Combo1.ListIndex = 0 Then

TxtHarga.Text = 3000000

ElseIf Combo1.ListIndex = 1 Then

TxtHarga.Text = 35000000

ElseIf Combo1.ListIndex = 2 Then

TxtHarga.Text = 20000000

End If

If Combo1.Text = "" Then

MsgBox "ANDA HARUS MEMILIH VENDOR!!", vbInformation, "INFORMASI!!"

Else

End If

End Sub

FORM 6

Code Program

Private Sub Command1_Click()

MsgBox ("PESANAN TELAH DIPROSES!!"), vbInformation, "INFORMASI!!"

Form2.Show

Unload Me

End Sub

Private Sub Form_Load()

End Sub

FORM 7

Code Program

Private Sub Command1_Click()

Form8.Show

Unload Me

End Sub

Private Sub Image1_Click()

End Sub

FORM 8

Code Program

Private Sub CmdBack_Click()

Form7.Show

Unload Me

End Sub

Private Sub CmdOk_Click()

Form9.Label7 = Combo1.Text

Form9.Label8 = Combo2.Text

Form9.Label9 = Combo3.Text

Form9.Label11 = DTPicker1

Form9.Label12 = Text4.Text

Form9.Label14 = Text1.Text

Form9.Label16 = Text2.Text

If Option1.Enabled = True Then

Form9.Label10 = "Reguler"

ElseIf Option2.Enabled = True Then

Form9.Label10 = "Deluxe"

End If

If Combo1.Text = "" Then

MsgBox ("ANDA HARUS MENGISI DATA!!!"), vbInformation, "INFORMASI!!" '

Else

Form9.Show

Unload Me

End If

End Sub

Private Sub Command1_Click()

If Combo2.Text = "Gec Rinjani Golf And Resort" Then

Picture1.Picture = LoadPicture(App.Path & "\Gec0.jpg")

ElseIf Combo2.Text = "DnD Family Guest House" Then

Picture1.Picture = LoadPicture(App.Path & "\DnD0.jpg")

ElseIf Combo2.Text = "Bale Kekeri" Then

Picture1.Picture = LoadPicture(App.Path & "\Bale1.jpg")

End If

End Sub

Private Sub Command2_Click()

If Combo2.Text = "Gec Rinjani Golf And Resort" Then

Picture1.Picture = LoadPicture(App.Path & "\Gec1.jpg")

ElseIf Combo2.Text = "DnD Family Guest House" Then

Picture1.Picture = LoadPicture(App.Path & "\DnD1.jpg")

ElseIf Combo2.Text = "Bale Kekeri" Then

Picture1.Picture = LoadPicture(App.Path & "\Bale0.jpg")

End If

End Sub

Private Sub Form_Load()

Combo1.List(0) = "LOMBOK"

Combo2.List(0) = "Gec Rinjani Golf And Resort"

Combo2.List(1) = "DnD Family Guest House"

Combo2.List(2) = "Bale Kekeri"

Combo3.List(0) = "Single Bed"

Combo3.List(1) = "Double Bed"

End Sub

Private Sub Image1_Click()

End Sub

Private Sub Option1_Click()

If Combo1.ListIndex = 0 And Combo2.ListIndex = 0 Then

Text3.Text = 6000000

ElseIf Combo1.ListIndex = 0 And Combo2.ListIndex = 1 Then

Text3.Text = 8000000

ElseIf Combo1.ListIndex = 0 And Combo2.ListIndex = 2 Then

Text3.Text = 7000000

End If

End Sub

Private Sub Option2_Click()

If Combo1.ListIndex = 0 And Combo2.ListIndex = 0 Then

Text3.Text = 7000000

ElseIf Combo1.ListIndex = 0 And Combo2.ListIndex = 1 Then

Text3.Text = 90000000

ElseIf Combo1.ListIndex = 0 And Combo2.ListIndex = 2 Then

Text3.Text = 80000000

End If

End Sub

Private Sub Option3_Click()

inap = Text1.Text

kamar = Text2.Text

harga = Text3.Text

Fasilitas = 150000

subtotal = (inap * harga * kamar)

Total = subtotal + Fasilitas

Text4.Text = Total

End Sub

Private Sub Option4_Click()

inap = Text1.Text

kamar = Text2.Text

harga = Text3.Text

Fasilitas = 200000

subtotal = (inap * harga * kamar)

Total = subtotal + Fasilitas

Text4.Text = Total

End Sub

FORM 9

Code Program

Private Sub Command1_Click()

MsgBox ("PESANAN TELAH DIPROSES!!"), vbInformation, "INFORMASI!!"

Form1.Show

Unload Me

End Sub

Private Sub Form_Load()

End Sub

Itulah Program Yang saya buat, dan pasti masih banyak kekurangan tetapi saya ankan terus belajar dan membuat yang lebih bagus lagi.

Terima kasih Bu ITO RIRIS IMMASARI  selaku dosen Algoritma & Pemograman 2B di kelas saya  dan yang telah membingbing saya untuk belajar mandiri.