Aplikasi Tebak Suara dengan Visual Basic

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. Jangan khawatir, saya sudah persiapkan file suaranya disini. Silahkan di download.

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) + 1Elsei = 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

Nah setelah semua listing diketik dengan sempurna, Anda tinggal menekan tombol Run (F5), kemudian tekan tombol Bunyikan, kemudian klik gambar binatang yang cocok dengan suara tersebut. Kalau benar, maka tombol Lanjut akan aktif dan Anda dapat menebak suara berikutnya.

Bagaimana? Gampang bukan? Selamat mencoba ya.

Khusus pembaca yang bukan jurusan TI, jangan pusing dulu, silahkan download disini format exe(executable) untuk mencoba program tersebut.

Sumber: http://sumberinspirasi.com