membuat animasi dengan Visual Basic 6.0

Membuat Animasi dengan Visual Basic 6.0 – 

Windows atau jendela form pada Vb 6 adalah daerah kerja utama, dimana anda akan membuat program-program dengan visual basic 6. Anda akan meletakan berbagai macam objeck interaktif seperti misalnya : Teks, gambar dan tombol tombol perintah, scrollbar dan sebagainya.

1.    Desain interpace sangat penting khsusus untuk belajar Visual Basic 6.0 bagi pengguna / user dalam menggunakan perangkat aplikasi yang kita akan buat.maka dengan itu buatlah sebuah desain interpace yang mudah di mengerti, mudah di gunakan, mudah di pahami, user priendly

Namun disini kita akan membuat sebuah animasi form dengan visual basic pada saat form itu mendapat perintah keluar, misalkan : pada saat menekan tombol keluar maka form akan melakukan animasi penutupan yang menarik. Seperti :

Animasi Form ke Kanan

 Source code

Private Sub Form_Unload(Cancel As Integer)

Do

Me.Left = Me.Left + 40

Me.Move Me.Left, Me.Top

DoEvents

Loop Until Me.Left > Screen.Width

End Sub

Animasi Form Ke Kiri

Animasi Form Kekiri

Source Code

Private Sub Form_Unload(Cancel As Integer)

Do

Me.Top = Me.Top + 40

Me.Move Me.Left, Me.Top

DoEvents

Loop Until Me.Top > Screen.Height - 500

End Sub

2.  Cara membuat animasi text seperti diketik di visual basic 6.0

Berikut adalah tutorial membuat label atau text dalam vb 6 menjadi seolah diketik

1.       Pertama buka visual basic 6.0

2.       Pilih standar.exe

3.       Masukan 3 buah komponen berikut

a.       Label

b.      Timer dgn property è enabled = false, interval = 300

c.       Command buton dgn property è caption = mainkan

4.       Masukkan listing berikut

Private Sub Command1_Click()

If Command1.Caption = "mainkan" Then

    Timer1.Enabled = True

    Command1.Caption = "Stop"

Else

    Timer1.Enabled = False

    Command1.Caption = "mainkan"

End If

End Sub

Private Sub Form_Load()

Label1.Caption = "A"

End Sub

Private Sub Timer1_Timer()

Select Case Label1

    Case "A"

    Label1.Caption = "AN"

    Case "AN"

    Label1.Caption = "ANI"

    Case "ANI"

    Label1.Caption = "ANIM"

    Case "ANIM"

    Label1.Caption = "ANIMA"

    Case "ANIMA"

    Label1.Caption = "ANIMAS"

    Case "ANIMAS"

    Label1.Caption = "ANIMASI"

    Case "ANIMASI"

    Label1.Caption = "A"

   

End Select

End Sub

Lalu jalankan dengan menekan tombol F5 pada keyboard, pelajari setiap logika yang di pakai pada program orang lain, maka anda akan mempunyai banyak penyelesaian masalah dalam pembuatan program.

3.   TUTORIAL SEDERHANA MEMBUAT PROGRAM JADWAL KULIA BESERTA ALERT PENGINGAT MENGGUNAKAN VB 6.0

Diprogram kali ini juga saya lengkapi dengan system alert atau alarm yang berfungsi mengingatkan apabila waktu kulia sudah habis atau selesai, program ini sebenarnya  terinsfirasi dari dosen saya yang hobi “nyolong waktu” pada saat mata kulia berlangsung. hehe

Langsung aja ya,

Langkah pertama buka Microsoft visual basic 6.0 >> Pilih standard exe

Buat tampilan  form seperti gambar

Dengan keterangan property sebagai berikut:

NO	OBJECK	PROPERTY	NILAI
1	form	Caption Startup position	Jadwal Kulia V.02 center
2	combobox	Text	PILIH HARI
3	Command button	caption	GO
4	Command button2	caption	Aktifkan Alarm
5	Command button3	caption	EXIT
6	Label1	Caption Fotnsize	Jadwal Kulia 20
7	Label5	Autosize	True
8	Label2	Caption alignment	Nama Mata Kulia 2-center
9	Label3	Caption alignment	SKS 2-center
10	Label4	Caption Alignment	Waktu Mulai 2-center
11	Label6	Caption Alignment	Waktu Selesai 2-center
12	Lable7	Name Caption Alignment	labmatkul (kosongkan) 2-center
13	Label8	Name Caption Alignment	sks (kosongkan) 2-center
14	Label9	Name Caption Alignment	waktu (kosongkan) 2-center
15	Label10	Name Caption Alignment	waksel (kosongkan) 2-center
16	Label11	Name Caption Alignment	labmatkul2 (kosongkan) 2-center
17	Label12	Name Caption Alignment	sks2 (kosongkan) 2-center
18	Label13	Name Caption Alignment	waktu2 (kosongkan) 2-center
19	Label14	Name Caption Alignment	waksel2 (kosongkan) 2-center
20	Timmer1	Interval Enabled	100 True
21	Timmer2	Interval Enabled	100 false

Kemudian ketik kode/listing/koding berikut pada jendela kode

Dim alarm As Boolean

Private Sub Command1_Click()

If Combo1.Text = "SELASA" Then

labmatkul.Caption = "AGAMA"

sks.Caption = "2"

waktu.Caption = "10:45:00 AM"

waksel.Caption = "12:15:00 PM"

labmatkul2.Caption = "PERANCANGAN DATABASE"

sks2.Caption = "4"

waktu2.Caption = "1:45:00 PM"

waksel2.Caption = "16:45:00 PM"

ElseIf Combo1.Text = "KAMIS" Then

labmatkul.Caption = "B.Inggris"

sks.Caption = "2"

waktu.Caption = "12:15:00 PM"

waksel.Caption = "1:45:00 PM"

labmatkul2.Caption = "STRUKTUR DATA"

sks2.Caption = "4"

waktu2.Caption = "1:45:00 PM"

waksel2.Caption = "16:45:00 PM"

ElseIf Combo1.Text = "JUM'AT" Then

labmatkul.Caption = "DASAR MANAJEMEN BISNIS"

sks.Caption = "2"

waktu.Caption = "7:45:00 AM"

waksel.Caption = "9:15:00 AM"

labmatkul2.Caption = "CARAKTER BUILDING"

sks2.Caption = "3"

waktu2.Caption = "9:15:00 AM"

waksel2.Caption = "11:15:00 AM"

ElseIf Combo1.Text = "SABTU" Then

labmatkul.Caption = "PRAKTIKUM PERANCANGAN DATABASE"

sks.Caption = "2"

waktu.Caption = "7:45:00 AM"

waksel.Caption = "9:15:00 aM"

labmatkul2.Caption = ""

sks2.Caption = ""

waktu2.Caption = ""

waksel2.Caption = ""

Else

MsgBox "Tidak Ada Kelas"

End If

End Sub

Private Sub Command2_Click()

If alarm = True Then

Timer2.Enabled = False

Command2.Caption = "Aktifkan Alarm"

alarm = False

Else

Command2.Caption = "Nonaktifkan Alarm"

alarm = True

End If

End Sub

Private Sub Form_Load()

alarm = False

Combo1.AddItem "SENIN"

Combo1.AddItem "SELASA"

Combo1.AddItem "RABU"

Combo1.AddItem "KAMIS"

Combo1.AddItem "JUM'AT"

Combo1.AddItem "SABTU"

End Sub

Private Sub Timer1_Timer()

Label5.Caption = Time

If waksel.Caption = Label5.Caption And alarm = True Then

    Timer2.Enabled = True

    waksel.Caption = "WAKTU HABIS"

End If

If waksel2.Caption = Label5.Caption And alarm = True Then

    Timer2.Enabled = True

    waksel2.Caption = "WAKTU HABIS"

End If

End Sub

Private Sub Timer2_Timer()

Beep

End Sub

Setelah selesai coba tekan tombol F5 atau klik ikon Play pada jendela editor, dan lihat hasilnya

Catatan

                Pastikan format waktu(time) pada computer anda sama dengan listing, seperti penggunaan  AM PM, atau sesuaikan listing/coding dengan format jam pada computer anda.

selamat mencoba