Yah, saya tahu, ini program lama. Membunyikan speaker memang sudah tidak jamannya lagi. Sekarang sudah ada sound system. Tetapi ada kalanya kita membuat program di minimum system. Saya pribadi masih memakainya untuk menandakan user salah memasukkan user dan/atau password.
Membunyikan speaker dapat memakai salah satu fungsi bawaan Delphi, fungsi itu adalah Beep. Ada di unit Windows dengan sintak:
Beep( frekuensi, lama_bunyi )
Frekuensi dapat berkisar antara 37 s.d. 32.767 hertz sedangkan lama_bunyi dalam hitungan milidetik.
Perlu diingat, bahwa fungsi beep tidak hanya ada di Windows, tetapi juga di SysUtils. Agar Delphi tidak salah terka, kita sertakan unit-nya sekalian.
Dibawah ini, saya akan membunyikan frekuensi random antara 100 sampai 5000 dengan panjang bunyi selama 50 milidetik
Contoh Program:
var
frek, i : integer;
begin
i := 1
while i < 5 do begin
frek := 100 + random(5000);
Windows.Beep(frek, 50);
end;
end;
Jangan terlalu lama membunyikan memakai Windows.Beep, karena fungsi ini tidak dapat dikontrol. Ia akan menjalankan suara sampai selesai.
sumber gambar: http://www.clipartpanda.com
0 comments:
Posting Komentar