Pascal Örnekleri 03(Kayan yazı)

Yazan: karflake | Tarih 1 Kasım 2008 | Yorum  Yorum Yok
BerbatKötüOrtaGüzelHarika Henüz puan verilmemiş
Loading ... Loading ...

Sabit bir metni ekranda kaydıran programı.

PLAIN TEXT
DELPHI:
  1. uses crt;
  2. var
  3.  i,j,k,n:integer;
  4.  a,c:string;
  5. Begin
  6.  clrscr;
  7.  repeat
  8.    randomize;
  9.    n:=random(16);
  10.    c:='SAKLA SAMANI CURUSUN';
  11.    clrscr;
  12.    gotoxy(30,12);write(c);delay(290);
  13.    for j:=1 to 20 do
  14.    for i:=1 to 20 do
  15.    begin
  16.      c[i]:=c[i+1];
  17.      delay(5);
  18.      textcolor(n);
  19.      gotoxy(30,12);
  20.      write(c);
  21.      gotoxy(74,24);
  22.      write('Renk ',n);
  23.    end;
  24.  until keypressed;
  25.  readln;
  26. End.

Çok sevdim, başkalarıyla paylaşayım:
  • Google Bookmarks
  • Facebook
  • MySpace
  • TwitThis
  • del.icio.us
  • Digg
  • Live
  • YahooMyWeb
  • Technorati
  • StumbleUpon
Yazdır Yazdır | 299 Görüntülenme | Kategori: Pascal & Delphi & Delphi.NET | Trackback  Geri İzleme
Etiketler  Etiketler: , , ,

Benzer Yazılar


Yorum Yap


(gerekli)

(gerekli,yayınlanmaz)




XHTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>