Güzel bir ana menü Hazırladığınız dosyalama sistemi ile veya dizi ile oluşturduğunuz program için programın ana menüsü olacak kodlar. (Kodlar geliştir,lmeye müsaittir)Uses crt;
var
i:integer;
tus:char;
Procedure beyaz;
Begin
textcolor(white);
End;
Procedure sari;
Begin
textcolor(yellow);
End;
Procedure git(xx,yy:integer);
Begin
gotoxy(xx,yy);
End;
Procedure zemin;
Begin
sari;
For i:=1 to 4080 do begin
Write(#178);
End;
End;
Procedure cerceve(genislik,uzunluk,x1,y1,x2,y2:integer);
Begin
clrscr;
zemin;
sari;
window(x1,y1,x2,y2);
write(#201);
for i:=1 to genislik do begin
write(#205);
end;
write(#187);
writeln;
for i:=1 to uzunluk do begin
writeln(#186,' ',#186);
End;
write(#200);
for i:=1 to genislik do begin
write(#205);
End;
write(#188);
end;
Procedure giris_menu;
Begin
cerceve(20,15,27,10,60,50);
git(6,4);
beyaz;
Writeln('[1]-Ekle');
git(6,6);
Writeln('[2]-Duzelt');
git(6,8);
Writeln('[3]-Sil');
git(6,10);
Writeln('[4]-Listele');
git(6,12);
Writeln('[5]-Arama');
git(6,14);
Writeln('[6]-Cikis');
git(6,16);
End;
Begin
clrscr;
giris_menu;
readln;
End.
var
i:integer;
tus:char;
Procedure beyaz;
Begin
textcolor(white);
End;
Procedure sari;
Begin
textcolor(yellow);
End;
Procedure git(xx,yy:integer);
Begin
gotoxy(xx,yy);
End;
Procedure zemin;
Begin
sari;
For i:=1 to 4080 do begin
Write(#178);
End;
End;
Procedure cerceve(genislik,uzunluk,x1,y1,x2,y2:integer);
Begin
clrscr;
zemin;
sari;
window(x1,y1,x2,y2);
write(#201);
for i:=1 to genislik do begin
write(#205);
end;
write(#187);
writeln;
for i:=1 to uzunluk do begin
writeln(#186,' ',#186);
End;
write(#200);
for i:=1 to genislik do begin
write(#205);
End;
write(#188);
end;
Procedure giris_menu;
Begin
cerceve(20,15,27,10,60,50);
git(6,4);
beyaz;
Writeln('[1]-Ekle');
git(6,6);
Writeln('[2]-Duzelt');
git(6,8);
Writeln('[3]-Sil');
git(6,10);
Writeln('[4]-Listele');
git(6,12);
Writeln('[5]-Arama');
git(6,14);
Writeln('[6]-Cikis');
git(6,16);
End;
Begin
clrscr;
giris_menu;
readln;
End.
