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

view plainprint?

1. Private Declare Function SndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long  
2.   
3. Dim p As String  
4. Dim suara(1 To 59) As String  
5. Dim pukul As String  
6. Dim menit As String  
7. Dim lebih As String  
8.   
9. Private Sub Command1_Click()  
10. Dim a As Integer  
11. Dim b As Integer  
12. Dim index As Integer  
13.   
14. SndPlaySound pukul, 0  
15.   
16. a = Val(Mid$(Time$, 1, 2))  
17. b = Val(Mid$(Time$, 4, 2))  
18.   
19. If b = 0 Then  
20.     If a > 0 And a <= 12 Then  
21.         SndPlaySound suara(a), 0  
22.     Else  
23.         SndPlaySound suara(a - 12), 0  
24.     End If  
25.     Exit Sub  
26. End If  
27.   
28. SndPlaySound suara(a), 0  
29. SndPlaySound lebih, 0  
30. SndPlaySound suara(b), 0  
31. SndPlaySound menit, 0  
32. End Sub  
33.   
34. Private Sub Timer1_Timer()  
35. Label1 = Time$  
36. End Sub  
37.   
38. Private Sub Form_Load()  
39. Label1 = Time$  
40. p = App.Path + "\Sound\"  
41. Bicara  
42. End Sub  
43.   
44. Private Sub Bicara()  
45. pukul = p + "pukul.wav"  
46. lebih = p + "lebih.wav"  
47. menit = p + "menit.wav"  
48. suara(1) = p + "1.wav"  
49. suara(2) = p + "2.wav"  
50. suara(3) = p + "3.wav"  
51. suara(4) = p + "4.wav"  
52. suara(5) = p + "5.wav"  
53. suara(6) = p + "6.wav"  
54. suara(7) = p + "7.wav"  
55. suara(8) = p + "8.wav"  
56. suara(9) = p + "9.wav"  
57. suara(10) = p + "10.wav"  
58. suara(11) = p + "11.wav"  
59. suara(12) = p + "12.wav"  
60. suara(13) = p + "13.wav"  
61. suara(14) = p + "14.wav"  
62. suara(15) = p + "15.wav"  
63. suara(16) = p + "16.wav"  
64. suara(17) = p + "17.wav"  
65. suara(18) = p + "18.wav"  
66. suara(19) = p + "19.wav"  
67. suara(20) = p + "20.wav"  
68. suara(21) = p + "21.wav"  
69. suara(22) = p + "22.wav"  
70. suara(23) = p + "23.wav"  
71. suara(24) = p + "24.wav"  
72. suara(25) = p + "25.wav"  
73. suara(26) = p + "26.wav"  
74. suara(27) = p + "27.wav"  
75. suara(28) = p + "28.wav"  
76. suara(29) = p + "29.wav"  
77. suara(30) = p + "30.wav"  
78. suara(31) = p + "31.wav"  
79. suara(32) = p + "32.wav"  
80. suara(33) = p + "33.wav"  
81. suara(34) = p + "34.wav"  
82. suara(35) = p + "35.wav"  
83. suara(36) = p + "36.wav"  
84. suara(37) = p + "37.wav"  
85. suara(38) = p + "38.wav"  
86. suara(39) = p + "39.wav"  
87. suara(40) = p + "40.wav"  
88. suara(41) = p + "41.wav"  
89. suara(42) = p + "42.wav"  
90. suara(43) = p + "43.wav"  
91. suara(44) = p + "44.wav"  
92. suara(45) = p + "45.wav"  
93. suara(46) = p + "46.wav"  
94. suara(47) = p + "47.wav"  
95. suara(48) = p + "48.wav"  
96. suara(49) = p + "49.wav"  
97. suara(50) = p + "50.wav"  
98. suara(51) = p + "51.wav"  
99. suara(52) = p + "52.wav"  
100. suara(53) = p + "53.wav"  
101. suara(54) = p + "54.wav"  
102. suara(55) = p + "55.wav"  
103. suara(56) = p + "56.wav"  
104. suara(57) = p + "57.wav"  
105. suara(58) = p + "58.wav"  
106. suara(59) = p + "59.wav"  
107. 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.