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

Post a Comment

Popular Post

Makalah Tentang ARRAY

MAKALAH   TENTANG   ARRAY MAKALAH (Array) Makalah ini disusun untuk memenuhi tugas mata kuliah “STRUKTUR DATA” Dosen Pengampu : Bapak Septia Lutfi, S.Kom, M.Kom Disusun oleh : Nama            : Sopyan Tirto Laksono NIM              : 2114R0879 TEKNIK INFORMATIKA STMIK HIMSYA SEMARANG BAB I PENDAHULUAN A. Latar Belakang Dalam pemrogaman ada beberapa macam bahasa pemrogaman. Salah satunya adalah bahasa pemrogaman C++. Dalam bahasa pemrogaman C++ terdapat penggunaan variabel array. Namun penggunaan array tidak hanya pada pemrogaman, array juga banyak digunakan untuk berbagai macam struktur data, seperti database. Selanjutnya kita harus memahami terlebih dulu pengertian struktur. Pada makalah ini kami menuliskan telebih dulu pngertian dari struktur karena hal ini sangat berhubung...
1 comment
Read more

Makalah STRUKTUR DATA

MAKALAH   STRUKTUR   DATA MAKALAH (Struktur Data) Makalah ini disusun untuk memenuhi tugas mata kuliah “STRUKTUR DATA” Dosen Pengampu : Bapak Septia Lutfi, S.Kom, M.Kom Disusun oleh : Nama            : Sopyan Tirto Laksono NIM              : 2114R0879 FAKULTAS TEKNIK INFORMATIKA STMIK HIMSYA SEMARANG BAB I PENDAHULUAN A.          Latar Belakang Pada pembuatan makalah kali ini kami akan membahas tentang Pencarian (Searching), dengan metode Sequential Searching. Sequential Search (pencarian beruntun) menggunakan prinsip sebagai berikut, data yang ada di bandingkan satu persatu secara berurutan dengan yang dicari sampai data tersebut ditemukan atau tidak di temukan. Pencarian (searching) merupakan proses yang sering digunakan dalam pengelolaan d...
Post a Comment
Read more

Cara Membuat Kalkulator Dengan VB 6.0

CARA MEMBUAT KALKULATOR SEDERHANA DENGAN VB 6.0  Langsung saja bro.. Pertama buka terlebih dahulu aplikasi Visual Basic 6.0. Dan nanti setelah sudah masuk akan tampak seperti gambar di bawah ini : Setelah itu pilih Standart EXE, dan open. Kamu akan di bawa   ke lembar kerja seperti gambar dibawah ini : Setelah itu kamu dapat membuat disain kalkulator kamu sendiri sesuai dengan kreasi sendiri-sendiri. Dan sekarang ini saya berikan contoh programnya, usahakan kalau anda mau copas sebaiknya di cek terlebih dahulu script nya dengan nama disain anda sendiri. Kalau tidak di cek terlebih dahulu takutnya nanti ada kesalahan (Error): Private Sub CmdBagi_Click() Txt3.Text = Val(Txt1.Text) / Val(Txt2.Text) End Sub Private Sub CmdResik_Click() Txt1.Text = "" Txt2.Text = "" Txt3.Text = "" Txt1.SetFocus End Sub Private Sub CmdMetu_Click() pesan = MsgBox("Ajeng Medal Nopo Mboten ?", vbYesNo + vbQuestion, "K...
Post a Comment
Read more