Custom Search
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
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.
