Programalama > PASCAL

PROGRAM Fujanda;
uses crt;
type
Ajanda=record
hatir:string;
num:integer;
end;
var
Dosya:file of Ajanda;
aj:Ajanda;
Tus:char;
t,k,gun,l,m:integer;
{***************************************}
Procedure Bilgirisi;
begin
clrscr;
assign(Dosya,'c:\Fujanda.dat');
{$i-}reset(Dosya);{$i+}
if ioresult<>0 then rewrite(Dosya);
Writeln('Hatirlatma eklemek istediginiz gn giriniz(Ayin kaci?)');
readln(aj.num);
Writeln('Hatirlatmanizi giriniz');
readln(aj.hatir);
seek(Dosya,aj.num);
write(Dosya,aj);
end;
{***************************}
Procedure ara;
begin
clrscr;
assign(Dosya,'c:\Fujanda.dat');
{$i-}reset(Dosya);{$i+}
Writeln('Bakmak istediginiz gn giriniz');
readln(gun);
for k:=1 to filesize(Dosya)-1 do
begin
seek(Dosya,k);
read(Dosya,aj);
if gun=aj.num then
begin
Writeln(aj.hatir);
end;
end;
end;
{****************************}
procedure sil;
begin
clrscr;
assign(Dosya,'c:\Fujanda.dat');
{$i-}reset(Dosya);{$i+}
Writeln('Silmek istediginiz gun ayin kacinci gunu?');
readln(aj.num);
seek(Dosya,aj.num);
aj.hatir:=' ';
write(Dosya,aj);
end;
{**************************}
procedure lis;
begin
clrscr;
assign(Dosya,'c:\Fujanda.dat');
{$i-}reset(Dosya);{$i+}
for l:=1 to filesize(Dosya)-1 do
    begin
    seek(Dosya,l);
    read(Dosya,aj);
    Writeln('Ayin ',l,'. gn      ',aj.hatir);
    end;
end;
{**************************}
procedure gunc;
begin
clrscr;
assign(Dosya,'c:\Fujanda.dat');
{$i-}reset(Dosya);{$i+}
Writeln('Gncellemek istediginiz gn giriniz');
readln(aj.num);
writeln('Yeni bilgieri giriniz');
readln(aj.hatir);
seek(Dosya,aj.num);
write(Dosya,aj);
end;
{***************************}
procedure yar;
begin
gotoxy(2,12);
textcolor(yellow);
textbackground(brown);
Writeln('Bu yazilim ajanda iceriklidir.Hatirlatma ekleme,');
Writeln('silme,listeleme,gncelleme ve arama gibi islem-,');
Writeln('ler i‡ermektedir.Yazilim Fuat Coskun a aittir');
textbackground(black);
writeln;
textcolor(red);
Writeln('KULLANIM: Se‡mek istediginiz se‡enegin bas harfini giriniz');
textbackground(black);
end;
{ANA PROGRAM}

begin
repeat;
clrscr;
textcolor(9);
gotoxy(1,3);
write(chr(201));
gotoxy(19,3);
write(chr(187));
gotoxy(1,10);
write(chr(200));
gotoxy(19,10);
write(chr(188));
for m:=1 to 6 do
begin
gotoxy(1,m+3);
write(chr(186));
gotoxy(19,m+3);
write(chr(186));
end;
for t:=1 to 17 do
begin
gotoxy(1+t,10);
Write(chr(205));
gotoxy(1+t,3);
Write(chr(30));
end;
textcolor(white);
gotoxy(1,1);
Writeln('                              <= FUjanda =>');
textcolor(11);
writeln;
gotoxy(2,4);
Writeln('<H>atirlatma Ekle');
gotoxy(2,5);
Writeln('<A>rama');
gotoxy(2,6);
Writeln('<S>il');
gotoxy(2,7);
Writeln('<L>istele');
gotoxy(2,8);
Writeln('<G>ncelle');
gotoxy(2,9);
Writeln('<Y>ardim');
gotoxy(1,48);
  textbackground(9);
  textcolor(white);
  Writeln('Cikis icin ESC...                  -*-                          FuBi PRODUCTIONS');
  textbackground(black);
 Tus:=Upcase(Readkey);
  If Tus='H' then Bilgirisi;
  If Tus='A' then ara;
  If Tus='S' then sil;
  If Tus='L' then lis;
  If Tus='G' then gunc;
  If Tus='Y' then yar;
  If Tus=#27 then
  begin
  clrscr;
  textcolor(yellow);
  delay(200);
  Write('F');
  delay(200);
  Write('U');
  delay(200);
  Write('A');
  delay(200);
  Write('T  ');
  delay(200);
  Write('C');
  delay(200);
  Write('O');
  delay(200);
  Write('S');
  delay(200);
  Write('K');
  delay(200);
  Write('U');
  delay(200);
  Write('N');
  delay(600);
  break;
  end;
  Readln;
  until 1=2;
end.