Kamis, 30 Desember 2010

Membuat Penunjuk Waktu Dengan File Suara Pada Visual Basic 6.0

Iseng-iseng buat project penunjuk waktu yuk.... tapi dilengkapi dengan suara yang akan mengucapkan jam dan menit dari waktu yang berjalan.

Pengembangan lanjut dari project seperti ini bisa kita lihat pada bank-bank umum atau rumah sakit yang menerapkan sistem antrian yang terkomputerisasi, dimana customer atau pasien akan diberi no. urut dan akan dipanggil berdasarkan no. urut tersebut, tentu anda pernah melihat hal seperti ini bukan.

Sekarang kita kembali ke project penunjuk waktu, Sebelum memulai pembuatan project anda harus mempersiapkan file-file suara yang mengucapkan kata-kata berikut ini :
LEBIH
MENIT
PUKUL

1...59

Setelah anda selesai merekam file-file pendukung yang diperlukan, kita bisa lanjutkan dengan membuat projectnya, buat sebuah project baru (Standard.exe), tempatkan sebuah label dengan ukuran font : 24 style : Bold, command button dengan caption : "Bicara", dan sebuah Timer dengan nilai Interval : 1000

Klik menu View -> Code dan masukkan kode dibawah ini
Private Declare Function SndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Dim p As String
Dim suara(1 To 59) As String
Dim pukul As String
Dim menit As String
Dim lebih As String

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim index As Integer

SndPlaySound pukul, 0

a = Val(Mid$(Time$, 1, 2))
b = Val(Mid$(Time$, 4, 2))

If b = 0 Then
    If a > 0 And a <= 12 Then
        SndPlaySound suara(a), 0
    Else
        SndPlaySound suara(a - 12), 0
    End If
    Exit Sub
End If

SndPlaySound suara(a), 0
SndPlaySound lebih, 0
SndPlaySound suara(b), 0
SndPlaySound menit, 0
End Sub

Private Sub Timer1_Timer()
Label1 = Time$
End Sub

Private Sub Form_Load()
Label1 = Time$
p = App.Path + "\Sound\"
Bicara
End Sub

Private Sub Bicara()
pukul = p + "pukul.wav"
lebih = p + "lebih.wav"
menit = p + "menit.wav"
suara(1) = p + "1.wav"
suara(2) = p + "2.wav"
suara(3) = p + "3.wav"
suara(4) = p + "4.wav"
suara(5) = p + "5.wav"
suara(6) = p + "6.wav"
suara(7) = p + "7.wav"
suara(8) = p + "8.wav"
suara(9) = p + "9.wav"
suara(10) = p + "10.wav"
suara(11) = p + "11.wav"
suara(12) = p + "12.wav"
suara(13) = p + "13.wav"
suara(14) = p + "14.wav"
suara(15) = p + "15.wav"
suara(16) = p + "16.wav"
suara(17) = p + "17.wav"
suara(18) = p + "18.wav"
suara(19) = p + "19.wav"
suara(20) = p + "20.wav"
suara(21) = p + "21.wav"
suara(22) = p + "22.wav"
suara(23) = p + "23.wav"
suara(24) = p + "24.wav"
suara(25) = p + "25.wav"
suara(26) = p + "26.wav"
suara(27) = p + "27.wav"
suara(28) = p + "28.wav"
suara(29) = p + "29.wav"
suara(30) = p + "30.wav"
suara(31) = p + "31.wav"
suara(32) = p + "32.wav"
suara(33) = p + "33.wav"
suara(34) = p + "34.wav"
suara(35) = p + "35.wav"
suara(36) = p + "36.wav"
suara(37) = p + "37.wav"
suara(38) = p + "38.wav"
suara(39) = p + "39.wav"
suara(40) = p + "40.wav"
suara(41) = p + "41.wav"
suara(42) = p + "42.wav"
suara(43) = p + "43.wav"
suara(44) = p + "44.wav"
suara(45) = p + "45.wav"
suara(46) = p + "46.wav"
suara(47) = p + "47.wav"
suara(48) = p + "48.wav"
suara(49) = p + "49.wav"
suara(50) = p + "50.wav"
suara(51) = p + "51.wav"
suara(52) = p + "52.wav"
suara(53) = p + "53.wav"
suara(54) = p + "54.wav"
suara(55) = p + "55.wav"
suara(56) = p + "56.wav"
suara(57) = p + "57.wav"
suara(58) = p + "58.wav"
suara(59) = p + "59.wav"
End Sub

Perhatikan pada procedure Form_Load pada baris p = App.Path + "\Sound\" pada contoh tersebut saya meletakkan seluruh file-file suara kedalam folder Sound anda bisa menggunakan folder dengan nama yang lain dan sesuaikan baris kode p = App.Path + "\Sesuai nama folder anda\"

Jalankan project (tekan F5), dan lihat hasil nya, jika anda belum sempat merekam suara untuk file-file pendukung tersebut, silahkan anda klik disini untuk mendownload project beserta file-file suara pendukungnya, tapi harap maklum file-file suara tersebut adalah suara saya sendiri yang saya rekam tentu saja hasilnya kurang memuaskan hehehe...

Selamat mencoba.

8 komentar:

  1. Wah thanks ya! :D Akan saya coba.

    BalasHapus
  2. asik . . lumayan buat iseng2, thx u sob

    BalasHapus
  3. makasih buat pencerahannya gan, :D coba juga berkunjung ke blog saya

    http://mediausul.blogspot.com
    http://pokeronlinein.blogspot.com

    siapa tau bisa saling share dan berbagi informasi, tks..salam blogger indonesia

    BalasHapus
  4. Mas, Kalau mau menyimpan file suara pada database access melalui vb gmn ya??

    BalasHapus
  5. Gan, kalau mau nyimpan file suarany apada database access gmn ya???

    BalasHapus
  6. artikel ini sangat menginspirasi,, butuh projectnya tapi sudah tidak bisa di download,, kalau berkenan apakah bisa di kirim ke email idrisc6@gmail.com, terimakasih..

    BalasHapus