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

Read More

link ebook visual basic 2010 beginning

link ebook visual basic 2010 pemula

Untuk mendownload silakan klik saja tulisan yang berwarna biru di atas dengan tulisan link ebook visual basic 2010 pemula.jika link rusak,silakan coment biar kami bisa langsung memperbaiki :D jika copy paste sertakan sumber aljinet bumiayu ya,kawan!!!

Read More

PEMOGRAMAN VISUAL 1 biliing bioskop

                                                TUGAS PEMOGRAMAN VISUAL  1

Project saat running:

Project saat diinput:

Listing program:

Sub bersih()                                        

tnotik = ""

ttgl = ""

tkofi = ""

tjudi = ""

tharga = ""

tstudio = ""

tjumbel = ""

tsubtot = 0

tdisc = 0

ttotbay = 0

texe.Value = 0

tvip.Value = 0

tbias.Value = 0

tbike = 0

tbon = ""

tubay = ""

tukem = ""

End Sub

Sub nonaktif()

tnotik.Enabled = False

ttgltik.Enabled = False

tkofi.Enabled = False

tjudi.Enabled = False

tharga.Enabled = False

tstudio.Enabled = False

tjumbel.Enabled = False

tsubtot.Enabled = False

tdisc.Enabled = False

ttotbay.Enabled = False

tubay.Enabled = False

tukem.Enabled = False

texe.Enabled = False

tvip.Enabled = False

tbias.Enabled = False

tbike.Enabled = False

tbon.Enabled = False

End Sub

Sub aktif()

tnotik.Enabled = True

ttgltik.Enabled = True

tkofi.Enabled = True

tjudi.Enabled = True

tharga.Enabled = True

tstudio.Enabled = True

tjumbel.Enabled = True

tsubtot.Enabled = True

tdisc.Enabled = True

ttotbay.Enabled = True

tubay.Enabled = True

tukem.Enabled = True

texe.Enabled = True

tvip.Enabled = True

tbias.Enabled = True

tbike.Enabled = True

tbon.Enabled = True

End Sub

Private Sub cexit_Click()

p = MsgBox("Sudah Jalan Belum Programnya!! Kalau Sudah boleh Keluar", vbInformation + vbYesNo, "pesan")

If p = vbYes Then

Unload Me

End If

End Sub

Private Sub clagi_Click()

aktif

bersih

cexit.Enabled = True

End Sub

Private Sub Form_Activate()

cexit.Enabled = False

nonaktif

bersih

End Sub

Private Sub Form_Load()

tkofi.AddItem "SPD01"

tkofi.AddItem "HRR02"

tkofi.AddItem "ACC03"

End Sub

Private Sub tbias_Click()

tbike = "7500"

tbon = "Pop Corn"

End Sub

Private Sub texe_Click()

tbike = "15000"

tbon = "Brownies"

End Sub

Private Sub tvip_Click()

tbike = "10000"

tbon = "Pepsi cola"

End Sub

Private Sub tjumbel_Change()

tsubtot = Val(tharga) * Val(tjumbel) + Val(tbike)

If tjumbel > 6 Then

tdisc = 0.1 * Val(tsubtot)

ElseIf tjumbel < 6 Then

tdisc = 0

End If

ttotbay = Val(tsubtot) - Val(tdisc)

End Sub

Private Sub tkofi_Click()

Select Case tkofi

Case "SPD01"

tjudi = "Spiderman"

tharga = "17500"

tstudio = " Studio 1"

Case "HRR02"

tjudi = "Harry Potter"

tharga = "20000"

tstudio = "studio 1"

Case Else

tjudi = "Ayat Ayat Cinta"

tharga = "22500"

tstudio = "Studio 1"

End Select

End Sub

Private Sub tnotik_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

ttgltik.Text = Format(Date, "dd/mmmm/yyyy")

End If

End Sub

Private Sub tubay_Change()

tukem = Val(tubay) - Val(ttotbay)

End Sub

Read More