Programalama > PASCAL

Etiketler: hareketli, menü

Ort. 0
Puan ver:
uses crt;
var
tus:char; sat:integer;
procedure yenikayit;
begin
clrscr;
end;
procedure ekleme;
begin
end;
procedure arama;
begin
end;
procedure listeleme;
begin
end;
procedure silme;
begin
end;
procedure degistir;
begin
end;
procedure menu;
begin
textcolor(3);gotoxy(25, 10); write('Yeni Kayt');
textcolor(4);gotoxy(25, 11); write('Ekleme');
textcolor(5);gotoxy(25, 12); write('Arama');
textcolor(6);gotoxy(25, 13); write('Listeleme');
textcolor(8);gotoxy(25, 14); write('Silme');
textcolor(9);gotoxy(25, 15); write('De§iŸtirme');
end;
procedure yap;
begin
case sat of
10:yenikayit;
11:ekleme;
12:arama;
13:listeleme;
14:silme;
15:degistir;
end;
end;
procedure kontrol;
begin
repeat
tus:=readkey;
if tus=#0 then
begin
tus:=readkey;
if tus=#72 then sat:=sat-1; if sat<10 then sat:=15;
if tus=#80 then sat:=sat+1; if sat>15 then sat:=10;
gotoxy(25, sat);
end;
until tus=#27;
yap;
end;
begin {ana program}
clrscr;
menu;
kontrol;
end.


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 - 2020 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.