.::Naruto-vnonline::.
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
.::Naruto-vnonline::.

Gửi bài nhiềuThể hiện tình yêu bằng Pascal ver1.0 Menu_open
All Forums|
Gaara
ninja_warrior97
s2[m]it_kute
ninja_kun
Wind_NarSas
Madara
KYO
narfamily
Chidori ~ Kayano
Hyuga Neji
Topic xem nhiềuThể hiện tình yêu bằng Pascal ver1.0 Menu_open

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]

Wind_NarSas

Wind_NarSas
.::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!



Thể hiện tình yêu bằng Pascal ver1.0 Lovepas
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.

Gaara

Gaara
.::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

http://4rum.naru.to

Wind_NarSas

Wind_NarSas
.::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

Gaara

Gaara
.::Kazekage::.

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

http://4rum.naru.to

ninja_warrior97

ninja_warrior97
.::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

Gaara

Gaara
.::Kazekage::.

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

http://4rum.naru.to

Wind_NarSas

Wind_NarSas
.::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

Gaara

Gaara
.::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

http://4rum.naru.to

Wind_NarSas

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

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

ninja_warrior97

ninja_warrior97
.::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

ninja_kun

ninja_kun
.::Hokage::.

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

ninja_warrior97

ninja_warrior97
.::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ứ

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