Skip to main content

Script JAM yang Dapat Bersuara




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