Bài thực hành Tin học ('Âm nhạc')

Bài đọc thêm 4:
Khi được bật, loa máy tính sẽ phát ra âm thanh ở một tần số nào đó cho đến khi được tắt. Để khai thác khả năng này, thư viện crt có:

Thủ tục phát ra một âm thanh có tần số (cao độ) là h (tính theo đơn vị héc –Hz) :
procedure Sound (h: word);
Thủ tục tắt âm thanh đang được phát ra loa:
procedure NoSound;
Bài đọc thêm 4:
Thủ tục sau phát một âm thanh với cao độ h và trường độ t:
procedure CreateSound(h,t: word);
begin
Sound(h);
Delay(t);
NoSound;
end;
Cụ thể hơn, sau đây chúng ta sẽ tìm hiểu về: MÔ PHỎNG NỐT NHẠC
Một nốt nhạc cao độ h, trường độ t sẽ được thực hiện bởi lệnh gọi:

CreatSound(h,t);
Một nốt nhạc cao độ h, trường độ t sẽ được thực hiện bởi lệnh gọi:

CreatSound(h,t);
Một nốt nhạc cao độ h, trường độ t sẽ được thực hiện bởi lệnh gọi:

CreatSound(h,t);
Theo âm luật, từ một quãng 8 đến quãng 8 kế tiếp , thừa số nhân của cao độ là 2. Trong một quãng 8, có 12 khoảng nửa cung, vì thế thừa số nhân giữa 2 khoảng này là căn bậc 12 của 2 .
Vì vậy chỉ cần biết cao độ của một nốt làm gốc, ta có thể tính cao độ của các nốt khác. Chẳng hạn, xuất phát từ cao độ của nốt đô trung là 512, cao độ của các nốt trong quãng 8 trung lần lượt là (sau khi đã làm tròn):
Về trường độ, lấy nốt móc đơn làm đơn vị là 150, ta tính được các trường độ khác:
Ví dụ:
Chương trình dưới đây thể hiện một bản nhạc ngắn của đồng hồ, tất cả các nốt đều ở quãng 8 trung:
Trình bày những nốt của bản nhac
Việc khai thác âm thanh thường được sử dụng để xây dựng các chương trình trò chơi hoặc mô phỏng. Vì thế, nếu thường xuyên phải phát triển những ứng dụng loại này thì nên tổ chức một thư viện chứa một số âm thanh mẫu như :
TIẾNG CÒI
TIẾNG NỔ
TIẾNG VA CHẠM
TIẾNG CÁC LOẠI ĐỘNG CƠ
Chúng tôi hi vọng tiết học cùng chương trình trên đây đã giúp các bạn học tập, tìm hiểu tốt và rõ ràng hơn về Pascal.

Tiết học đến đây là kết thúc
Cảm ơn sự chú ý theo dõi của quý thầy cô giáo cùng các bạn học sinh.
[T4]
Tiết học đến đây là kết thúc
Cảm ơn sự chú ý theo dõi của quý thầy cô giáo cùng các bạn học sinh.
Chúng tôi hi vọng tiết học cùng chương trình trên đây đã giúp các bạn học tập, tìm hiểu tốt và rõ ràng hơn về Pascal.