急要..pascal 既 timer 和 sound(x) 既 example..急急急!!

Pascal 好像並不如 C++或 VB那樣，有build in 的 Timer Function。
圖片參考：http://hk.yimg.com/i/icon/16/2.gif

你只可以用delay(integer) 這一個function去把程式暫停，暫停多久則要取決於傳入的integer參數。
透過程式的停頓，可以做出所謂的計時器或倒數器。

例如:
uses crt;

delay(2000);

應該就等於倒數二十秒。
但這一種 Timer 的方式相當於 VC 的 SLEEP Function，並不是太好，因為在進行 delay 時所有程式的運作都會停止。


圖片參考：http://hk.yimg.com/i/icon/16/1.gif
至於Pascal 的 Sound() function，可參看下面的例子看看怎樣寫。
uses crt;
begin
Sound(440); Delay(100); NoSound;
Sound(550); Delay(100); NoSound;
end


Sound accepts frequency number and it's a word. It is the value of frequency you want to play. Delay accepts value of words. It reflects how many milliseconds (1/100th of a second) you want to delay. NoSound tells the PC to stop playing the note. If you omit Delay, you may not hear any voices. Try it and figure it out !



2006-12-19 11:39:12 補充：
可能 sound(x) 這個 function 還要 include 一ｄ野入去先用到。這個要看看pascal 的書才知道。