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.htmlNah 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
No comments:
Post a Comment
Silahkan masukkan komentar sobat, komentar sobat sangat berarti buat saya