Script Jam Yang Dapat Bersuara
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 dana kan 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 :
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
|
PrivateDeclareFunctionSndPlaySound
Lib"winmm.dll"Alias"sndPlaySoundA"_
(ByVallpszSoundName
AsString, ByValuFlags AsLong) AsLong
Dimp AsString
Dimsuara(1 To59)
AsString
Dimpukul AsString
Dimmenit AsString
Dimlebih AsString
PrivateSubCommand1_Click()
Dima AsInteger
Dimb AsInteger
Dimindex AsInteger
SndPlaySoundpukul, 0
a = Val(Mid$(Time$,
1, 2))
b = Val(Mid$(Time$,
4, 2))
Ifb = 0 Then
Ifa
> 0 Anda <= 12 Then
SndPlaySoundsuara(a),
0
Else
SndPlaySoundsuara(a
- 12), 0
EndIf
ExitSub
EndIf
SndPlaySoundsuara(a),
0
SndPlaySoundlebih, 0
SndPlaySoundsuara(b),
0
SndPlaySoundmenit, 0
EndSub
PrivateSubTimer1_Timer()
Label1 = Time$
EndSub
PrivateSubForm_Load()
Label1 = Time$
p = App.Path +
"\Sound\"
Bicara
EndSub
PrivateSubBicara()
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"
EndSub
|
Perhatikan pada procedure
Form_Load pada baris p = App.Path + "\Sound\"pada contoh tersebut saya meletakkan seluruh file-file suara ke dalam
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 hasilnyaa... Maaf apabila ada kesalahan & kekurangan dalam penulisan. Selamat Mencoba! :)
Comments
Post a Comment