Membuat Aplikasi Tebak Suara dengan Visual BASIC

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  Silahkan di download.==> http://www.ziddu.com/download/15453963/Suara.rar.html

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 SubPrivate 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

Oleh Taslim Os di blackcode