Programalama > PASCAL

Etiketler: hareketli, menü......

Ort. 0
Puan ver:
uses crt;
const
menu:array[1..5] of string[20]=('kayit','listele','sil','arama','‡ks');
sat:array[1..5] of integer=(1,10,1,10,5);
sut:array[1..5] of integer=(1,1,20,20,10);
var
tus:char;
sayac:integer;
begin
clrscr;
for sayac:=1 to 5 do
begin
gotoxy(sut[sayac],sat[sayac]);
textbackground(BLACK);textcolor(WHITE);
write(menu[sayac]);
sayac:=1;
repeat
textbackground(cyan);
gotoxy(sut[sayac],sat[sayac]);
write(menu[sayac]);
tus:=readkey;
if tus=#0 then tus:=readkey;
if tus=#27 then halt;
if tus=#80  then
begin
textbackground(black);
gotoxy(sut[sayac],sat[sayac]);
write(menu[sayac]) ;
sayac:=sayac+1;
if sayac=6 then sayac:=1;
end;
begin
textbackground(black);
gotoxy(sut[sayac],sat[sayac]);
write(menu[sayac]);
sayac:=sayac-1;
if sayac=0 then sayac:=5;
end;
if (tus=#13) and (sayac=5) then halt;
until 1=2;
end;
end.

(Emre ALPARSLAN  www.emrealparslan.com)


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2017 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSObil projesidir.