.::Naruto-vnonline::.

Gửi bài nhiều
All Forums|
Gaara
ninja_warrior97
s2[m]it_kute
ninja_kun
Wind_NarSas
Madara
KYO
narfamily
Chidori ~ Kayano
Hyuga Neji
Topic xem nhiều

You are not connected. Please login or register

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down  Thông điệp [Trang 1 trong tổng số 1 trang]

19xStudio Thể hiện tình yêu bằng Pascal ver1.0 on Thu Jun 30, 2011 9:34 am

Wind_NarSas

avatar
.::Học viên Akatsuki::.

.::Học viên Akatsuki::.
Gaara nhờ mình làm chương trình này cũng lâu rồi, đợt đó chưa có time+hứng, chiều nay nhân tiện nhớ các hàm trong thư viện crt; tôi làm một ct pascal để thề hiện tình yêu với "người ấy";
Công sức mình bỏ ra khá nhiều cả một buổi chiều+tối ~ 10h; mọi người nếu chia sẻ ở đâu thì nhớ để lại cái Credit là "Code by Wind_NarSas" nhá.Thanks
AI có thắc mắc xin liên hệ vào yahoo: Sasuke_tim_sakura_94 ; mail: [You must be registered and logged in to see this link.]
Đây là mã nguồn chương trình bạn có thể sửa để nó được đẹp hơn phù hợp với phong cách của bạn hoặc không thì thôi:


Code:

uses crt;
type
      str79=string[79];


var s,s2,ban1,ban2:string;
stop:boolean;
n,i:integer;
Procedure heart;
begin
textcolor(lightred);
Writeln('      **      **  *      * *  ');
writeln('    *  *  *    *  *  *    *  ');
Writeln('  *      *        *  *      *  ');
writeln('  *                *          *  ');
writeln('  *              *          *  ');
writeln('    *            *          *  ');
writeln('    *          *          *    ');
writeln('      *        * *        *      ');
writeln('      *    *    *    *        ');
writeln('        *  *      *  *          ');
writeln('        *          *            ');
end;
Procedure load(t:integer); {thoi gian load(so giay), cho oai thoi chu chang
chuc nang j ca hj` hj`}
var i:integer;
  begin
  Write('Loading');
  for i:=1 to 10 do
    begin
    write('.');
    delay(t*100); {vi thoi gian cua ham delay la mili giay nen...tu => ra nhe'}
    end;
  write('100% Done!');
  clrscr;
end;
Procedure Cangiua(var s:str79);
 var i,n:integer;
  begin
    n:=length(s);
    n:=(80-n) div 2;
    for i:=1 to n do s:=' '+s;
  end;
Procedure chu_chay(s:str79; var s2:str79);
 var i,n:integer;
  begin
    s2:=copy(s,2,length(s)-1)+s[1];
  end;
Procedure chucmung(x,y:integer);
  begin
  Gotoxy(x,y); Writeln('_._');
  gotoxy(x,y+1);Write  ('/ \');

  delay(300);
  Gotoxy(x+4,y); write('\./');
  Gotoxy(x+4,y+1); write('/ \');
  end;



begin clrscr;
Write('Nhap ten ban: '); Readln(ban1);
Write('Nhap ten nguoi ay hjhj: '); Readln(ban2);
Ban1[1]:=upcase(ban1[1]);
Ban2[1]:=upcase(ban2[1]);
S:=ban1+' want to say: I LOVE '+ban2;
load(5);
clrscr;
cangiua(s);
stop:=false;
i:=1;
textcolor(darkgray);
While i<=20 do
 begin
 delay(300);
 gotoxy(1,1);
 chu_chay(s,s2);
s:=s2;
write(s);
i:=i+1;
writeln;
 end;
heart;
i:=1; s:='';

  gotoxy(7,5);
  textcolor(lightblue);
For i:=1 to length(ban1) do
  begin
  delay(300);

  Write(ban1[i]);

  end;

  gotoxy(23,5);
  Textcolor(yellow);

for i:=1 to length(ban2) do
  begin
  delay(300);

  write(ban2[i]);

  end;
gotoxy(1,15);
n:=1; i:=15;
  chucmung(n,i); chucmung(n+8,i); chucmung(n+16,i);
 stop:=keypressed;
 writeln;
 Write('          Code by Wind_NarSas(Ta Quang Phong'); {cho nay ban sua cung duoc de the hien vs ban minh hjhj}
 
 if stop then exit;


  readln;
end.


Đây là chương trình có thể sử dụng ngay
link download file .exe: [You must be registered and logged in to see this link.]
Link download bộ mã pascal .pas: [You must be registered and logged in to see this link.]

Chúc vui!




Có thời gian rỗi mình sẽ ra love2.0



Được sửa bởi Wind_NarSas ngày Thu Jun 30, 2011 9:35 pm; sửa lần 2.

Xem lý lịch thành viên

Gaara

avatar
.::Kazekage::.

.::Kazekage::.
Phần mềm tuyệt thật, thanks Wind nhìu ! Hj hj, có mấy câu lệnh hay hay, mình có thể sửa thêm dc Cười nhăn răng


--------------------------


[You must be registered and logged in to see this link.]
Xem lý lịch thành viên http://4rum.naru.to

Wind_NarSas

avatar
.::Học viên Akatsuki::.

.::Học viên Akatsuki::.
Ờ, mới đầu mình nghĩ nó đơn giản nhưng ko ngờ nó khá vất cả. khi nào rỗi tớ sẽ ra ver 2.0 sẽ đẹp vào nhiều chức năng hơn và có cả nhạc nữa

Xem lý lịch thành viên

Gaara

avatar
.::Kazekage::.

.::Kazekage::.
Mình ko nghĩ là Pascal có cả nhạc nữa,Cười nhăn răng


--------------------------


[You must be registered and logged in to see this link.]
Xem lý lịch thành viên http://4rum.naru.to

ninja_warrior97

avatar
.::Akatsuki Leader::.


.::Akatsuki Leader::.
hình như wind là lập trình viên ak, hay đang học máy tính
ước mơ cua mih là làm lập trình viên đấy

Xem lý lịch thành viên

Gaara

avatar
.::Kazekage::.

.::Kazekage::.
Pascal là phần mềm học sinh, cậu có học ko?


--------------------------


[You must be registered and logged in to see this link.]
Xem lý lịch thành viên http://4rum.naru.to

Wind_NarSas

avatar
.::Học viên Akatsuki::.

.::Học viên Akatsuki::.
Gaara đã viết:Mình ko nghĩ là Pascal có cả nhạc nữa,Cười nhăn răng
Gọi là có âm thanh thôi chứ nhạc thì ko ổn, hình như trong pascal chỉ có nhạc đơn âm
Pascal là phần mềm học sinh, cậu có học ko?
Tớ tưởng Pascal là một ngôn ngữ lập trình chứ Cười nhăn răng

Xem lý lịch thành viên

Gaara

avatar
.::Kazekage::.

.::Kazekage::.
Tớ học nó vào lớp 8, một phần mềm lập trình của HS Cười nhăn răng


--------------------------


[You must be registered and logged in to see this link.]
Xem lý lịch thành viên http://4rum.naru.to

Wind_NarSas

avatar
.::Học viên Akatsuki::.

.::Học viên Akatsuki::.
Là cái pascal study đó á

Xem lý lịch thành viên

ninja_warrior97

avatar
.::Akatsuki Leader::.


.::Akatsuki Leader::.
pascal là cái ngôn ngữ lập trình, trước mih cũng dùng 1 lần
hay phết nhưng khó lắm, mih hok để tkj thành phố đấy, tự nhiên bh lại ko hok nữa

Xem lý lịch thành viên

ninja_kun

avatar
.::Hokage::.

.::Hokage::.
Hay wa' nhỉ!!!

Xem lý lịch thành viên

ninja_warrior97

avatar
.::Akatsuki Leader::.


.::Akatsuki Leader::.
"hay wa nhỉ" là sao, là chương trình pascal hay hay là cái j hay
mà sao admin rùi mà còn spam viết dưới 10 từ vậy, phải làm gương cho các mem chứ

Xem lý lịch thành viên

Sponsored content


Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang  Thông điệp [Trang 1 trong tổng số 1 trang]

Permissions in this forum:
Bạn không có quyền trả lời bài viết