Laman

Tuesday, March 17, 2015

Home » Membuat Penunjuk Waktu Dengan File Suara Pada Visual Basic 6.0

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
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
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.
Posted by at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)
Blogger Wordpress Gadgets