Có vấn đề về đồ họa âm thanh trong Pascal! Mong các bác chỉ giáo!

[Hatobaby]

Em đang làm bài viết 1 đoạn nhạc nhưng lại bị rắc rối
Pascal nó báo lỗi thế này:"cannot run a unit" mong các bác chỉ dẫn từng bước .
Bài em đây:
nit Tone;
INTERFACE
uses crt;
var ToneDelay:integer;
Procedure quiet(t:integer);
Procedure do1(t:integer);
Procedure do1t(t:integer);
Procedure re1(t:integer);
Procedure re1t(t:integer);
Procedure mi1(t:integer);
Procedure fa1(t:integer);
Procedure fa1t(t:integer);
Procedure sol1(t:integer);
Procedure sol1t(t:integer);
Procedure la1(t:integer);
Procedure la1t(t:integer);
Procedure si1(t:integer);
{====================================}
Procedure do2(t:integer);
Procedure do2t(t:integer);
Procedure re2(t:integer);
Procedure re2t(t:integer);
Procedure mi2(t:integer);
Procedure fa2(t:integer);
Procedure fa2t(t:integer);
Procedure sol2(t:integer);
Procedure sol2t(t:integer);
Procedure la2(t:integer);
Procedure la2t(t:integer);
Procedure si2(t:integer);
{====================================}
Procedure do3(t:integer);
Procedure do3t(t:integer);
Procedure re3(t:integer);
Procedure re3t(t:integer);
Procedure mi3(t:integer);
Procedure fa3(t:integer);
Procedure fa3t(t:integer);
Procedure sol3(t:integer);
Procedure sol3t(t:integer);
Procedure la3(t:integer);
Procedure la3t(t:integer);
Procedure si3(t:integer);
{====================================}
Procedure do4(t:integer);
Procedure do4t(t:integer);
Procedure re4(t:integer);
Procedure re4t(t:integer);
Procedure mi4(t:integer);
Procedure fa4(t:integer);
Procedure fa4t(t:integer);
Procedure sol4(t:integer);
Procedure sol4t(t:integer);
Procedure la4(t:integer);
Procedure la4t(t:integer);
Procedure si4(t:integer);
{===================================}
IMPLEMENTATION
Procedure quiet(t:integer);
begin
t:=t*ToneDelay;
nosound;delay(t);
end;
Procedure do1(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(131); delay(t); nosound;
end;
Procedure do1t(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(139); delay(t); nosound;
end;
Procedure re1(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(147); delay(t); nosound;
end;
Procedure re1t(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(156); delay(t); nosound;
end;
Procedure mi1(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(165); delay(t); nosound;
end;
Procedure fa1(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(175); delay(t); nosound;
end;
Procedure fa1t(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(185); delay(t); nosound;
end;
Procedure sol1(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(196); delay(t); nosound;
end;
Procedure sol1t(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(208); delay(t); nosound;
end;
Procedure la1(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(220); delay(t); nosound;
end;
Procedure la1t(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(233); delay(t); nosound;
end;
Procedure si1(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(247); delay(t); nosound;
end;
{================================================= =====}
Procedure do2(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(262); delay(t); nosound;
end;
Procedure do2t(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(277); delay(t); nosound;
end;
Procedure re2(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(294); delay(t); nosound;
end;
Procedure re2t(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(311); delay(t); nosound;
end;
Procedure mi2(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(330); delay(t); nosound;
end;
Procedure fa2(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(349); delay(t); nosound;
end;
Procedure fa2t(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(370); delay(t); nosound;
end;
Procedure sol2(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(392); delay(t); nosound;
end;
Procedure sol2t(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(415); delay(t); nosound;
end;
Procedure la2(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(440); delay(t); nosound;
end;
Procedure la2t(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(466); delay(t); nosound;
end;
Procedure si2(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(494); delay(t); nosound;
end;
{================================================= =====}
Procedure do3(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(523); delay(t); nosound;
end;
Procedure do3t(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(554); delay(t); nosound;
end;
Procedure re3(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(587); delay(t); nosound;
end;
Procedure re3t(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(622); delay(t); nosound;
end;
Procedure mi3(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(659); delay(t); nosound;
end;
Procedure fa3(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(698); delay(t); nosound;
end;
Procedure fa3t(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(740); delay(t); nosound;
end;
Procedure sol3(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(784); delay(t); nosound;
end;
Procedure sol3t(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(831); delay(t); nosound;
end;
Procedure la3(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(880); delay(t); nosound;
end;
Procedure la3t(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(932); delay(t); nosound;
end;
Procedure si3(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(988); delay(t); nosound;
end;
{================================================= =====}
Procedure do4(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(1074); delay(t); nosound;
end;
Procedure do4t(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(1109); delay(t); nosound;
end;
Procedure re4(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(1175); delay(t); nosound;
end;
Procedure re4t(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(1245); delay(t); nosound;
end;
Procedure mi4(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(1319); delay(t); nosound;
end;
Procedure fa4(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(1397); delay(t); nosound;
end;
Procedure fa4t(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(1480); delay(t); nosound;
end;
Procedure sol4(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(1568); delay(t); nosound;
end;
Procedure sol4t(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(1661); delay(t); nosound;
end;
Procedure la4(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(1760); delay(t); nosound;
end;
Procedure la4t(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(1865); delay(t); nosound;
end;
Procedure si4(t:integer);
begin t:=t*ToneDelay;
nosound; delay(10);
sound(1976); delay(t); nosound;
end;
{================================================= =====}
BEGIN
ToneDelay:=1;
END.


Và cái unit mà em ko biết làm sao để chạy được???
uses tone;
Begin
tonedelay:=100;
re2(4);sol2(4);sol2(2);la2(2);sol2(2);fa2t(2);mi2( 4);mi2(4);
mi2(4);la2(4);la2(2);si2(2);la2(2);sol2(2);fa2t(4) ;re2(4);
re2(4);si2(4);si2(2);do3(2);si2(2);la2(2);sol2(4); mi2(4);
re2(2);re2(2);mi2(4);la2(4);fa2t(4);sol2(8);
{================================================= ========}
re2(4);sol2(4);sol2(4);sol2(4);fa2t(8);
fa2t(4);sol2(4);fa2t(4);mi2(4);re2(8);
la2(4);si2(4);la2(4);sol2(4);re3(4);re2(4);
re2(2);re2(2);mi2(4);la2(4);fa2t(4);sol2(8);
{================================================= ========}
re2(4);sol2(4);sol2(2);la2(2);sol2(2);fa2t(2);mi2( 4);mi2(4);
mi2(4);la2(4);la2(2);si2(2);la2(2);sol2(2);fa2t(4) ;re2(4);
re2(4);si2(4);si2(2);do3(2);si2(2);la2(2);sol2(4); mi2(4);
re2(2);re2(2);mi2(4);la2(4);fa2t(4);sol2(8);
{================================================= ==========}
re3(4);sol3(4);sol3(2);la3(2);sol3(2);fa3t(2);mi3( 4);mi3(4);
mi3(4);la3(4);la3(2);si3(2);la3(2);sol3(2);fa3t(4) ;re3(4);
re3(4);si3(4);si3(2);do4(2);si3(2);la3(2);sol3(4); mi3(4);
re3(2);re3(2);mi3(4);la3(4);fa3t(4);sol3(8);quiet( 4);


Mong các bác chỉ giáo! Em xin chân thành cám ơn! Hay bác nào có đoạn nhạc nhỏ cho em xin code cũng được cám ơn
rất nhiều!
end.

[longland]

Bạn tạo ra file*.TPU( nhớ là tên file phải hệt tên unit) chứ cần gì phải chạy unit. Cách tạo file *.TPU là : Compile -> Đối destination thành disk -> Alt+f9.

Nếu ko đc thì có thể load ở đây. Load về giải nén và hưởng thụ thành quả đi nhé. Rất hay đó bạn! :-bd

[giangnt]

Cám ơn bạn rất nhiều

Cám ơn bạn rất nhiều nha! Thank you very much ! [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]