1. Trang chủ
  2. » Giáo án - Bài giảng

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

13 974 4

Đang tải... (xem toàn văn)

Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Định dạng
Số trang 13
Dung lượng 1,43 MB

Nội dung

Trong tiết học hôm nay, chúng ta sẽ tìm hiểu thêm một số yếu tố về âm thanh như là mô phỏng nốt nhạc trong Pascal... Bài đọc thêm 4:Bài đọc thêm 4: Khi được bật, loa máy tính sẽ phát ra

Trang 2

Pascal là một loại ngôn ngữ lập trình đặc biệt thích hợp cho kiểu lập trình cấu trúc Cho đến nay, Pascal vẫn được dùng để giảng dạy về lập trình trong nhiều trường trung học và đại học trên thế giới Trong tiết học hôm nay, chúng ta sẽ tìm hiểu thêm một số yếu tố về âm thanh như là mô phỏng nốt nhạc trong Pascal.

Trang 3

Bài đọc thêm 4:

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

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

 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);

procedure Sound (h: word);

 Thủ tục tắt âm thanh đang được phát ra loa:

 Thủ tục tắt âm thanh đang được phát ra loa:

procedure NoSound;

procedure NoSound;

Trang 4

Bài đọc thêm 4:

Bài đọc thêm 4:

Thủ tục sau phát một âm thanh với cao độ h

và trường độ t:

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;

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

Cụ thể hơn, sau đây chúng ta sẽ tìm hiểu

về: MÔ PHỎNG NỐT NHẠC

Trang 5

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

CreatSound(h,t);

Trang 6

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

Trang 7

Nốt nhạc Cao độ

đô trung 512

đô thăng 542

rê thăng 609

fa thăng 724

son thăng 813

la thăng 912

Trang 8

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

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:

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:

Trang 10

Trình bày những nốt của

Trang 11

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

Trang 12

TIẾNG CÒI

TIẾNG NỔ

TIẾNG VA CHẠM TIẾNG CÁC LOẠI ĐỘNG CƠ

Trang 13

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.

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.

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]

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

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.

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.

Ngày đăng: 19/07/2014, 09:00

TỪ KHÓA LIÊN QUAN

w