10 t33n forum

Nơi quy tụ của những anh tài chém gió, đá xoáy
 
Trang ChínhTrang Chính  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Thành viênThành viên  NhómNhóm  Đăng kýĐăng ký  Đăng NhậpĐăng Nhập  

Share | 
 

 >>>> CBMD remix <<<<

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Admin
Admin
avatar

Nam
Tổng số bài gửi : 92
Age : 23
Đến từ : hờ hờ. Đố biết
Nghề nghiệp/Sở thích : Nhiều lắm nói ko hết
Châm ngôn sống : Bình tĩnh tự tin hok cay cú // Âm thầm chịu đựng trả thù sau
Tâm trạng : Chán như con gián
Do\'g gop\' :
0 / 1000 / 100

Registration date : 27/11/2008

Bài gửiTiêu đề: >>>> CBMD remix <<<<   Sun Nov 30, 2008 10:54 pm

Tặng pà con code nhạc cbmd chạy = pascal nè.
Code:
program CBMD;
uses crt;
var ch:char;
const a=400; b=800; c=1600; d=200;
procedure tn(c:word;t:word);
begin sound(c);delay(t);nosound end;
begin clrscr;
writeln('Kael"Thaz''s Production!');
writeln('--------------------------');
writeln('Ban co muon nghe ban nhac co be mua dong khong (y/n)? :');
ch:=readkey;
if ch='y' then
begin
repeat
tn(330,a);tn(440,a);tn(494,a);tn(523,b);tn(494,a); tn(523,a);tn(587,b);
tn(392,b);tn(659,a);tn(698,a);tn(659,a);tn(587,a); tn(523,a);tn(330,a);
tn(440,a);tn(494,a);tn(523,b);tn(494,a);tn(523,a); tn(587,b);tn(392,b);
tn(659,c);
tn(330,a);tn(440,a);tn(494,a);tn(523,b);tn(494,a); tn(523,a);tn(587,b);
tn(392,b);tn(784,b);tn(659,a);tn(698,a);tn(659,a); tn(587,a);tn(523,a);tn(330,a);
tn(440,a);tn(494,a);tn(523,b);tn(494,a);tn(440,a); tn(494,b);tn(392,b);tn(440,c);
tn(000,a);tn(440,a);tn(494,a);tn(523,b);tn(494,a); tn(440,a);tn(392,b);
tn(392,a);tn(440,a);tn(262,d);tn(262,d);tn(000,d); tn(392,a);tn(440,a);tn(262,a);tn(262,a);tn(000,d);
tn(440,d);tn(440,d);tn(494,d);tn(523,b);tn(494,a); tn(440,a);tn(392,b);
tn(392,a);tn(440,a);tn(440,a);tn(392,a);tn(349,a); tn(392,d);tn(392,d);
tn(440,a);tn(494,a);tn(523,b);tn(494,a);tn(440,a); tn(392,b);
tn(392,a);tn(440,a);tn(262,d);tn(262,d);tn(000,d); tn(392,a);tn(440,a);tn(262,a);tn(262,a);tn(000,d);
tn(440,d);tn(440,d);tn(494,d);tn(523,b);tn(494,a); tn(440,a);tn(392,b);tn(392,a);tn(440,b);tn(494,a); tn(523,a);
tn(494,c);tn(000,d);
tn(523,b);tn(659,a);tn(659,a);tn(494,a);tn(440,a); tn(392,b);tn(392,a);tn(440,b);tn(392,a);
tn(349,a);tn(330,a);tn(349,a);tn(392,b);tn(440,d); tn(494,d);tn(523,b);tn(523,a);tn(659,a);
tn(494,a);tn(440,a);tn(392,b);tn(392,d);tn(440,a); tn(440,d);tn(494,a);tn(523,a);tn(587,c);tn(000,d);
tn(659,b);tn(392,a);tn(659,a);tn(587,b);tn(784,a); tn(587,a);tn(523,a);tn(523,a);tn(330,a);tn(523,a);
tn(494,b);tn(440,a);tn(392,a);tn(440,b);tn(494,a); tn(523,a);tn(392,b);tn(523,a);tn(523,a);tn(659,a); tn(659,a);
tn(587,a);tn(523,a);tn(587,a);tn(440,a);tn(392,b); tn(000,d);
tn(659,b);tn(392,a);tn(659,a);tn(587,b);tn(784,a); tn(587,a);tn(523,a);tn(523,a);tn(330,a);tn(523,a);
tn(494,b);tn(440,a);tn(392,a);tn(440,b);tn(494,a); tn(523,a);tn(587,b);tn(523,a);tn(494,a);tn(523,a);
tn(494,a);tn(440,c);
writeln('Nghe nhac tiep khong (c/k)?: ');writeln;
ch:=readkey;
until ch='k'
end
else
exit
end.
Mẹo : tạo 1 cái file notepad , copy cái code này vào đó rồi lưu lại với tên cbmd.pas sẽ d.c 1 file lưu của pascal.

_________________
Về Đầu Trang Go down
Xem lý lịch thành viên http://10t33n.darkbb.com
 
>>>> CBMD remix <<<<
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» [14/9/13][News] "Bubble Butt" của Diplo Remix với GD & TOP vào tháng tới?
» [Fun][Vid] BIGBANG Fan Song: "Black And Yellow" (VIP 2012 Remix) (Hay lắm nha cả nhà)

Permissions in this forum:Bạn không có quyền trả lời bài viết
10 t33n forum :: Học hành :: Tin-
Chuyển đến