Admin- Admin
- Tổng số bài gửi : 239
Join date : 19/05/2011
Age : 28
Đến từ : VietNam
Admin Sat May 28, 2011 9:04 am
PROGRAM DemoMusic;
USES crt;
PROCEDURE CreatSound(h,t: WORD);
BEGIN
Sound(h); Delay(t); Nosound;
END;
BEGIN
CreatSound(967,300);
CreatSound(767,300);
CreatSound(861,300);
CreatSound(575,900);
Delay(60);
CreatSound(575,300);
CreatSound(861,300);
CreatSound(967,300);
CreatSound(767,900);
Delay(60);
CreatSound(967,300);
CreatSound(767,300);
CreatSound(861,300);
CreatSound(575,900);
Delay(60);
CreatSound(575,300);
CreatSound(861,300);
CreatSound(967,300);
CreatSound(767,900);
END.