Membuat Program Tebak Suara Binatang

Pernah lihat acara kuis di TV yang isinya tebak suara kan? Nah kali ini kita gak akan membahas bagaimana membuat acara tersebut, karena akan memakan waktu yang sangat panjang. Yang akan saya bahas disini adalah membuat aplikasi sederhana untuk bermain tebak suara dengan menggunakan Visual BASIC. Buat yang bukan jurusan IT/Ilkom, silahkan baca juga hingga selesai, karena ada kejutan menarik khusus untuk Anda di akhir tulisan. 
Langkah pertama yang kita lakukan adalah tentunya dengan menginstall program Visual BASIC di komputer kita. Kalau sudah terinstall, silahkan buat sebuah project baru dengan sebuah form Enterprise Edition (pilihan form yang komponennya paling lengkap) terlebih dahulu.
Buatlah form dengan tampilan kira2 mirip seperti ini :

Tampilan Form

Kita lanjut ya.. Nah kalau diperhatikan di form tersebut ada gambar binatangnya tuh, nah yang saya tampilkan disitu ada gambar ayam, anjing, kodok, harimau, kucing dan burung. Gambarnya gak harus sama kok, misal disitu ayam jago, bisa aja diganti ayam betina yang penting masih sama-sama ayam. 
Untuk menampilkan gambarnya di dalam form cukup pakai komponen image ya dan jangan lupa properties strechnya diatur menjadi True.
Berikutnya tambahkan komponen MMControl, 3 CommandButton, 1 Textbox dan 1 Label. Atur propertiesnya sesuai dengan tampilan form diatas.
Nah bagian tersulit pastinya ada dibagian listing code. Namun sebelum masuk ke listing code, kita harus persiapkan terlebih dahulu suara yang akan ditampilkan.
Nah setelah suara dan form sudah tersedia, saya akan berikan intipan untuk listing kodenya sebagai berikut:
Option Explicit
Dim soal As Integer
Dim i As String
Private Sub cmdbunyi_Click()
soal = Val(txtsoal.Text)
If soal = 1 Then
MMC1.Command = “Close”
MMC1.FileName = App.Path + “\Suara\chicken.wav”
MMC1.Command = “Open”
MMC1.Command = “Play”
—Copy paste listing diatas dari mulai if sampai elseif yg terakhir seperti dibawah (jangan lupa diganti filename -nya ya, dengan nama file suara binatang yg ada—
ElseIf soal = 6 Then
MMC1.Command = “Close”
MMC1.FileName = App.Path + “\Suara\cat.wav”
MMC1.Command = “Open”
MMC1.Command = “Play”
Else
End If
cmdbunyi.Enabled = False
End Sub
Private Sub cmdlanjut_Click()
If Val(txtsoal.Text) < 6 Then
txtsoal.Text = Val(txtsoal.Text) + 1
Else
i = MsgBox(”Mau mengulang lagi?”, vbYesNo, “Soal Habis”)
If i = vbYes Then
txtsoal.Text = 1
Else
End
End If
End If
cmdbunyi.Enabled = True
cmdlanjut.Enabled = False
End Sub
Private Sub cmdtutup_Click()
End
End Sub
Private Sub Image1_Click()
If soal = 1 Then
Benar
Else
Salah
End If
End Sub
—Copy Paste listing Image1_Click() untuk Image2_Click() dst, sesuaikan nilai soal dengan gambar yang ditampilkan di image, misal : karena pada Image1 saya menampilkan gambar ayam dan pada cmdBunyi_Click saya definisikan soal 1 adalah suara ayam, maka pada image1_click saya definisikan soal=1.—
Private Sub Salah()
MMC1.Command = “Close”
MMC1.FileName = App.Path + “\Suara\salah.wav”
MMC1.Command = “Open”
MMC1.Command = “Play”
End Sub
Private Sub Benar()
MMC1.Command = “Close”
MMC1.FileName = App.Path + “\Suara\yes.wav”
MMC1.Command = “Open”
MMC1.Command = “Play”
cmdlanjut.Enabled = True
End Sub