Kapsamlı bir program

Hepsini Seç

uses crt,dos,printer;

Type

kayit=record

tarih,tc,telno,adres,koy,ilce,il,din,yer,baba,ana, ad,soyad:string[250];

kayitno,gun,ay,yil,saat1,dakika:integer;

medeni,f:char;

end;

var

muhtar:File of kayit;

kay:kayit;

saat11,dakika,saniye,salise,gun11,ay11,yil11,gno rd;

ara,ab,bilo:string;

klam,klama,ss,tc1,kl,tt,aa,ja,s,x,sa,j,a,i:integer ;

bolum:string[20];

aaa,kla,dda,cevap,ceva,dd,cev,yy,tus,sec:char;

soyad,ad:string[30];

bulundu:boolean;

procedure menu; forward;

procedure yardim;

begin

repeat

clrscr;

writeln;

writeln('''' MUHTARLIK PROGRAMI'''');

writeln('''' Muhtarl�k Program�nda;'''');

writeln('''' Kay�t yapma, bulma, listeleme, silme, d�zeltme ve gerid”n�s�m kutusu'''');

writeln('''' Gibi fonksiyonlarla kullan�c�lara genis bir kullan�m ag� sunulmaktad�r...'''');

writeln;

writeln('''' Kay�t'''');

writeln;

write('''' '''');textcolor(2);write(''''E'''');textcolor(whit e);writeln('''' kle'''');

writeln;

write('''' '''');textcolor(2);write(''''B'''');textcolor(whit e);writeln('''' ul'''');

writeln;

write('''' '''');textcolor(2);write(''''L'''');textcolor(whit e);write('''' istele'''');

textcolor(11);

writeln('''' [Bilal Kaya] - [Okan Dastan] - [Sad�k Kurtlu]'''');

textcolor(white);

writeln;

write('''' '''');textcolor(2);write(''''D'''');textcolor(whit e);writeln('''' �zet'''');

writeln;

write('''' '''');textcolor(2);write(''''S'''');textcolor(whit e);writeln('''' il'''');

writeln;

write('''' '''');textcolor(2);write(''''G'''');textcolor(whit e);writeln('''' eri D”n�s�m Kutusu'''');

writeln;

write('''' '''');textcolor(4);write(''''ESC'''');textcolor(wh ite);writeln('''' €�k�s'''');

sec:=readkey;

until sec in [''''E'''',''''e'''',''''B'''',''''b'''',''''L'''', ''''l'''',''''D'''',''''d'''', ''''S'''',''''s'''',''''G'''',''''g'''',#27,''''Q' ''',''''q'''',#59];

if (sec=''''E'''') or (sec=''''e'''') then

begin clrscr; writeln('''' Ekle'''');

writeln(''''Mahalleye yeni tas�nan vatandaslar�n kay�tlar�n�n bir dosyada tutulmas� ve'''');

writeln(''''istediginiz zaman kay�tlar �zerinde islem yapmay� saglar...'''');

writeln;

writeln(''''Geri d”nmek i‡in bir tusa bas�n...'''');

readkey;yardim;

end else if (sec=''''B'''') or (sec=''''b'''') then

begin

clrscr; writeln('''' Bul'''');

writeln(''''Arad�g�n�z vatandas�n Ad�n� ve Soyad�n� B�y�k Harf ve K�‡�k Harfe dikkat ederek yazarsan�z,'''');

writeln(''''Arad�g�n�z vatandas�n t�m kimlik bilgilerine ulasabilirsiniz...'''');

writeln;

writeln(''''Geri d”nmek i‡in bir tusa bas�n...'''');

readkey;yardim;

end

else if (sec=''''L'''') or (sec=''''l'''') then

begin

clrscr;

writeln('''' Listele'''');

writeln(''''Kay�tl� t�m vatandaslar�n Ad�n�, Soyad�n�, Tc Kimlik nosunu ve Baba Ad�n� g”r�nt�leyebilirsiniz...'''');

writeln(''''Space tusuna basarsan�z, sizden kay�t nosunu isteyecektir...'''');

writeln(''''Kay�t nosunu dogru girerseniz vatandas�n t�m kimlik bilgilerine ulasabilirsiniz..'''');

writeln;

writeln(''''Geri d”nmek i‡in bir tusa bas�n...'''');

readkey;

yardim;

end

else if (sec=''''D'''') or (sec=''''d'''') then

begin

clrscr;

writeln('''' D�zelt'''');

writeln(''''Kay�t edilmis bilgileroe bir yanl�sl�k varsa bu se‡enegi kullanabilirsiniz.'''');

writeln;

writeln(''''Geri d”nmek i‡in bir tusa bas�n...'''');

readkey;

yardim;

end

else if (sec=''''S'''') or (sec=''''s'''') then

begin

clrscr;

writeln('''' Sil'''');

writeln;

writeln(''''Dosyadaki Silinmesi gereken bilgileri silmek i‡in kullanabilirsiniz...'''');

writeln(''''Buradan Silinen Kay�tlar Tekrar Kurtar�labilmesi i‡in Geri D”n�s�m Kutusunu G”nderilir...'''');

writeln(''''Geri d”nmek i‡in bir tusa bas�n...'''');

readkey;

yardim;

end

else if (sec=''''G'''') or (sec=''''g'''') then

begin

clrscr;

writeln(''''Geri D”n�s�m Kutusu'''');

writeln;

writeln(''''Silinmis Kay�tlar�n tutuldugu b”l�md�r...'''');

writeln(''''Space Tusuna bas�p, kay�t nosunu girerseniz Bilgiler kurtar�l�r ve'''');

writeln(''''Bu bilgiler �zerinde tekrar islemler yapabilirsiniz...'''');

writeln;

writeln(''''Geri d”nmek i‡in bir tusa bas�n...'''');

readkey;

yardim;

end

else if (sec=#27) or (sec=''''Q'''') or (sec=''''q'''') then menu;

end;

procedure saat;

var

saat,dakika,saniye,saliseord;

begin

gettime(saat,dakika,saniye,salise);

write(''''Saat: '''');

write(saat:0);

textcolor(white+blink);

write('''':'''');

textcolor(white);

writeln(dakika:0);

end;

procedure tarih;

const

gunler:array[0..6] of string[9]=

(''''Pazar'''',''''Pazartesi'''',''''Sal�'''','''' €arsamba'''',''''Persembe'''',''''Cuma'''',''''Cum artesi'''');

var

yil,ay,gun,gnord;

begin

getdate(yil,ay,gun,gn);

textcolor(white);

writeln(''''Tarih: '''',gun:0,''''/'''',ay:0,''''/'''',yil:0,'''' '''',gunler[gn]);

end;

procedure yazici;

begin

writeln(''''Yaz�c�n�n A‡�k olduguna emin olup bir tusa bas�n...'''');

readkey;

clrscr;

write(lst,''''Kayt� No________:'''');

writeln(lst,kay.kayitno);

write(lst,''''Kay�tedilme Tarih_: '''');

writeln(lst,kay.gun,''''/'''',kay.ay,''''/'''',kay.yil);

write(lst,''''Kay�tedilme Saati_: '''');

writeln(lst,kay.saat1,'''':'''',kay.dakika);

write(lst,''''Tc Kimlik No__:'''');writeln(lst,kay.tc);

write(lst,''''Soyad_________:'''');writeln(lst,kay .soyad);

write(lst,''''Ad�___________:'''');writeln(lst,kay .ad);

write(lst,''''Baba Ad�______:'''');writeln(lst,kay.baba);

write(lst,''''Ana Ad�_______:'''');writeln(lst,kay.ana);

write(lst,''''Dogum Yeri____:'''');writeln(lst,kay.yer);

write(lst,''''Dogum Tarihi__:'''');writeln(lst,kay.tarih);

write(lst,''''Medeni Hali___:'''');

if (kay.medeni=''''e'''') or (kay.medeni=''''E'''') then

begin

writeln(lst,kay.medeni,''''vli'''');

end

else if (kay.medeni=''''b'''') or (kay.medeni=''''B'''') then

begin

writeln(lst,kay.medeni,''''ekƒr'''');

end;

write(lst,''''Dini__________:'''');writeln(lst,kay .din);

write(lst,''''Adres_________:'''');writeln(lst,kay .adres);

write(lst,''''Ev No_________:'''');writeln(lst,kay.telno);

writeln(lst,''''K�t�g�n Bulundugu'''');

write(lst,''''il____________:'''');writeln(lst,kay .il);

write(lst,''''il‡e__________:'''');writeln(lst,kay .ilce);

write(lst,''''Mahalle/K”y___:'''');writeln(lst,kay.koy);

end;

procedure sekil;

begin

clrscr;

x:=0;

gotoxy(2,2);

tarih;

gotoxy(60,2);

saat;

gotoxy(1,4);

textbackground(blue);

textcolor(11);

write(''''°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° °°°°°°°°°°°°°°°°°°°°°°°°°°°°°° °°°°°°°°°'''');

textcolor(white);

textbackground(black);

gotoxy(35,2);

highvideo;

textbackground(red);textcolor(white);write(''''³'' '');write(''''1.Sokak'''');

textcolor(white);writeln(''''³'''');

gotoxy(35,3);

writeln(''''ÀÄÄÄÄÄÄÄÙ'''');

gotoxy(35,1);

writeln(''''ÚÄÄÄÄÄÄÄ¿'''');

textbackground(black);

textcolor(white);

end;

procedure tcbb;

begin

repeat

gotoxy(1,11);

textcolor(white+16);

write(''''Tc Kimlik No______: '''');textbackground(red);

textcolor(white);

write(kay.tc);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

textbackground(0);

aaa:=readkey;

Until aaa In ['''' '''',''''k'''',''''K''''];

if aaa='''' '''' then

begin

textbackground(0);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

delay(15000);

textbackground(red);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

textbackground(0);

gotoxy(22,11);writeln('''' '''');

gotoxy(22,11);readln(kay.tc);

delete(kay.tc,12,100);

gotoxy(1,11);writeln(''''Tc Kimlik No______: '''',kay.tc);

end

else if (aaa=''''k'''') or (aaa=''''K'''') then

begin

textbackground(0);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

delay(15000);

textbackground(red);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

textbackground(0);

gotoxy(1,11);

writeln(''''Tc Kimlik No______: '''',kay.tc);

end;

end;

procedure soyadbb;

begin

repeat

gotoxy(1,12);

textcolor(white+16);

write(''''Soyad_____________: '''');textbackground(red);

textcolor(white);

write(kay.soyad);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

textbackground(0);

aaa:=readkey;

Until aaa In ['''' '''',''''k'''',''''K''''];

if aaa='''' '''' then

begin

textbackground(0);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

delay(15000);

textbackground(red);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

textbackground(0);

gotoxy(22,12);writeln('''' '''');

gotoxy(22,12);readln(kay.soyad);delete(kay.soyad,9 ,100);

gotoxy(1,12);writeln(''''Soyad_____________: '''',kay.soyad);

end

else if (aaa=''''k'''') or (aaa=''''K'''') then

begin

textbackground(0);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

delay(15000);

textbackground(red);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

textbackground(0);

gotoxy(1,12);

writeln(''''Soyad_____________: '''',kay.soyad);

end;

end;

procedure adbb;

begin

repeat

gotoxy(1,13);

textcolor(white+16);

write(''''Ad�_______________: '''');textbackground(red);

textcolor(white);

write(kay.ad);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

textbackground(0);

aaa:=readkey;

Until aaa In ['''' '''',''''k'''',''''K''''];

if aaa='''' '''' then

begin

textbackground(0);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

delay(15000);

textbackground(red);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

textbackground(0);

gotoxy(22,13);writeln('''' '''');

gotoxy(22,13);readln(kay.ad);delete(kay.ad,10,100) ;

gotoxy(1,13);writeln(''''Ad�_______________: '''',kay.ad);

end

else if (aaa=''''k'''') or (aaa=''''K'''') then

begin

textbackground(0);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

delay(15000);

textbackground(red);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

textbackground(0);

gotoxy(1,13);

writeln(''''Ad�_______________: '''',kay.ad);

end;

end;

procedure bababb;

begin

repeat

gotoxy(1,14);

textcolor(white+16);

write(''''Baba Ad�__________: '''');textbackground(red);

textcolor(white);

write(kay.baba);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

textbackground(0);

aaa:=readkey;

Until aaa In ['''' '''',''''k'''',''''K''''];

if aaa='''' '''' then

begin

textbackground(0);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

delay(15000);

textbackground(red);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

textbackground(0);

gotoxy(22,14);writeln('''' '''');

gotoxy(22,14);readln(kay.baba);delete(kay.baba,9,1 00);

gotoxy(1,14);writeln(''''Baba Ad�__________: '''',kay.baba);

end

else if (aaa=''''k'''') or (aaa=''''K'''') then

begin

textbackground(0);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

delay(15000);

textbackground(red);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

textbackground(0);

gotoxy(1,14);

writeln(''''Baba Ad�__________: '''',kay.baba);

end;

end;

procedure anabb;

begin

repeat

gotoxy(1,15);

textcolor(white+16);

write(''''Ana Ad�___________: '''');textbackground(red);

textcolor(white);

write(kay.ana);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

textbackground(0);

aaa:=readkey;

Until aaa In ['''' '''',''''k'''',''''K''''];

if aaa='''' '''' then

begin

textbackground(0);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

delay(15000);

textbackground(red);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

textbackground(0);

gotoxy(22,15);writeln('''' '''');

gotoxy(22,15);readln(kay.ana);delete(kay.ana,9,100 );

gotoxy(1,15);writeln(''''Ana Ad�___________: '''',kay.ana);

end

else if (aaa=''''k'''') or (aaa=''''K'''') then

begin

textbackground(0);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

delay(15000);

textbackground(red);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

textbackground(0);

gotoxy(1,15);

writeln(''''Ana Ad�___________: '''',kay.ana);

end;

end;

procedure yerbb;

begin

repeat

gotoxy(1,16);

textcolor(white+16);

write(''''Dogum Yeri________: '''');textbackground(red);

textcolor(white);

write(kay.yer);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

textbackground(0);

aaa:=readkey;

Until aaa In ['''' '''',''''k'''',''''K''''];

if aaa='''' '''' then

begin

textbackground(0);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

delay(15000);

textbackground(red);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

textbackground(0);

gotoxy(22,16);writeln('''' '''');

gotoxy(22,16);readln(kay.yer);delete(kay.yer,11,10 0);

gotoxy(1,16);writeln(''''Dogum Yeri________: '''',kay.yer);

end

else if (aaa=''''k'''') or (aaa=''''K'''') then

begin

textbackground(0);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

delay(15000);

textbackground(red);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

textbackground(0);

gotoxy(1,16);

writeln(''''Dogum Yeri________: '''',kay.yer);

end;

end;

procedure tarihbb;

begin

repeat

gotoxy(1,17);

textcolor(white+16);

write(''''Dogum Tarihi______: '''');textbackground(red);

textcolor(white);

write(kay.tarih);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

textbackground(0);

aaa:=readkey;

Until aaa In ['''' '''',''''k'''',''''K''''];

if aaa='''' '''' then

begin

textbackground(0);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

delay(15000);

textbackground(red);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

textbackground(0);

gotoxy(22,17);writeln('''' '''');

gotoxy(22,17);readln(kay.tarih);delete(kay.tarih,1 1,100);

gotoxy(1,17);writeln(''''Dogum Tarihi______: '''',kay.tarih);

end

else if (aaa=''''k'''') or (aaa=''''K'''') then

begin

textbackground(0);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

delay(15000);

textbackground(red);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

textbackground(0);

gotoxy(1,17);

writeln(''''Dogum Tarihi______: '''',kay.tarih);

end;

end;

procedure medenibb;

begin

repeat

gotoxy(1,18);

textcolor(white+16);

write(''''Medeni Hali_______: '''');textbackground(red);

textcolor(white);

if kay.medeni=''''b'''' then

begin

write(''''Bekƒr'''');

end

else

write(''''Evli'''');

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

textbackground(0);

aaa:=readkey;

Until aaa In ['''' '''',''''k'''',''''K''''];

if aaa='''' '''' then

begin

textbackground(0);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

delay(15000);

textbackground(red);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

textbackground(0);

gotoxy(22,18);writeln('''' '''');

gotoxy(22,18);readln(kay.medeni);

gotoxy(1,18);writeln(''''Medeni Hali_______: '''',kay.medeni);

end

else if (aaa=''''k'''') or (aaa=''''K'''') then

begin

textbackground(0);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

delay(15000);

textbackground(red);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

textbackground(0);

writeln('''' '''');

gotoxy(1,18);

textbackground(black);

writeln(''''Medeni Hali_______: '''',kay.medeni);

end;

end;

procedure dinbb;

begin

repeat

gotoxy(1,19);

textcolor(white+16);

write(''''Dini______________: '''');textbackground(red);

textcolor(white);

write(kay.din);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

textbackground(0);

aaa:=readkey;

Until aaa In ['''' '''',''''k'''',''''K''''];

if aaa='''' '''' then

begin

textbackground(0);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

delay(15000);

textbackground(red);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

textbackground(0);

gotoxy(22,19);writeln('''' '''');

gotoxy(22,19);readln(kay.din);delete(kay.din,9,100 );

gotoxy(1,19);writeln(''''Dini______________: '''',kay.din);

end

else if (aaa=''''k'''') or (aaa=''''K'''') then

begin

textbackground(0);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

delay(15000);

textbackground(red);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

textbackground(0);

gotoxy(1,19);

writeln(''''Dini______________: '''',kay.din);

end;

end;

procedure adresbb;

begin

repeat

gotoxy(1,20);

textcolor(white+16);

write(''''Adres_____________: '''');textbackground(red);

textcolor(white);

write(kay.adres);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

textbackground(0);

aaa:=readkey;

Until aaa In ['''' '''',''''k'''',''''K''''];

if aaa='''' '''' then

begin

textbackground(0);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

delay(15000);

textbackground(red);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

textbackground(0);

gotoxy(22,20);writeln('''' '''');

gotoxy(22,20);readln(kay.adres);delete(kay.soyad,1 10,500);

gotoxy(1,20);writeln(''''Adres_____________: '''',kay.adres);

end

else if (aaa=''''k'''') or (aaa=''''K'''') then

begin

textbackground(0);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

delay(15000);

textbackground(red);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

textbackground(0);

gotoxy(1,20);

writeln(''''Adres_____________: '''',kay.adres);

end;

end;

procedure telnobb;

begin

repeat

gotoxy(1,21);

textcolor(white+16);

write(''''Telefon No________: '''');textbackground(red);

textcolor(white);

write(kay.telno);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

textbackground(0);

aaa:=readkey;

Until aaa In ['''' '''',''''k'''',''''K''''];

if aaa='''' '''' then

begin

textbackground(0);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

delay(15000);

textbackground(red);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

textbackground(0);

gotoxy(22,21);writeln('''' '''');

gotoxy(22,21);readln(kay.telno);delete(kay.telno,1 2,100);

gotoxy(1,21);writeln(''''Telefon No________: '''',kay.telno);

end

else if (aaa=''''k'''') or (aaa=''''K'''') then

begin

textbackground(0);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

delay(15000);

textbackground(red);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

textbackground(0);

gotoxy(1,21);

writeln(''''Telefon No________: '''',kay.telno);

writeln(''''K�t�g�n bulundugu'''');

end;

end;

procedure ilbb;

begin

repeat

gotoxy(1,22);

textcolor(white+16);

write(''''il________________: '''');textbackground(red);

textcolor(white);

write(kay.il);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

textbackground(0);

aaa:=readkey;

Until aaa In ['''' '''',''''k'''',''''K''''];

if aaa='''' '''' then

begin

textbackground(0);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

delay(15000);

textbackground(red);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

textbackground(0);

gotoxy(22,22);writeln('''' '''');

gotoxy(22,22);readln(kay.il);delete(kay.il,9,100);

gotoxy(1,22);writeln(''''il________________: '''',kay.il);

end

else if (aaa=''''k'''') or (aaa=''''K'''') then

begin

textbackground(0);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

delay(15000);

textbackground(red);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

textbackground(0);

gotoxy(1,22);

writeln(''''il________________: '''',kay.il);

end;

end;

procedure ilcebb;

begin

repeat

gotoxy(1,23);

textcolor(white+16);

write(''''il‡e______________: '''');textbackground(red);

textcolor(white);

write(kay.ilce);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

textbackground(0);

aaa:=readkey;

Until aaa In ['''' '''',''''k'''',''''K''''];

if aaa='''' '''' then

begin

textbackground(0);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

delay(15000);

textbackground(red);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

textbackground(0);

gotoxy(22,23);writeln('''' '''');

gotoxy(22,23);readln(kay.ilce);delete(kay.ilce,9,1 00);

gotoxy(1,23);writeln(''''il‡e______________: '''',kay.ilce);

end

else if (aaa=''''k'''') or (aaa=''''K'''') then

begin

textbackground(0);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

delay(15000);

textbackground(red);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

textbackground(0);

gotoxy(1,23);

writeln(''''il‡e______________: '''',kay.ilce);

end;

end;

procedure koybb;

begin

repeat

gotoxy(1,24);

textcolor(white+16);

write(''''Mahalle/Koy_______: '''');textbackground(red);

textcolor(white);

write(kay.koy);

gotoxy(22,24);

textbackground(0);

aaa:=readkey;

Until aaa In ['''' '''',''''k'''',''''K''''];

if aaa='''' '''' then

begin

textbackground(0);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

delay(15000);

textbackground(red);

gotoxy(10,40);

writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');

textbackground(0);

gotoxy(22,24);writeln('''' '''');

gotoxy(22,24);readln(kay.koy);delete(kay.koy,9,100 );

gotoxy(1,24);writeln(''''Mahalle/Koy_______: '''',kay.koy);

end

else

begin

textbackground(0);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

delay(15000);

textbackground(red);

gotoxy(10,42);

writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');

textbackground(0);

gotoxy(1,24);

writeln(''''Mahalle/Koy_______: '''',kay.koy);

close(muhtar);

end;

end;

procedure sekil1;

begin

gotoxy(2,5+tt);

writeln(''''³'''');

gotoxy(9,5+tt);

writeln(''''³'''');

gotoxy(11,5+tt);

writeln(''''³'''');

gotoxy(22,5+tt);

writeln(''''³'''');

gotoxy(25,5+tt);

writeln(''''³'''');

gotoxy(35,5+tt);

writeln(''''³'''');

gotoxy(38,5+tt);

writeln(''''³'''');

gotoxy(50,5+tt);

writeln(''''³'''');

gotoxy(51,5+tt);

writeln(''''³'''');

gotoxy(59,5+tt);

writeln(''''³'''');

gotoxy(60,5+tt);

writeln(''''³'''');

gotoxy(68,5+tt);

writeln(''''³'''');

gotoxy(70,5+tt);

writeln(''''³'''');

gotoxy(77,5+tt);

writeln(''''³'''');

end;

procedure sil2;

begin

write(''''Kay�t Nosunu Giriniz:'''');readln(klam);

seek(muhtar,x);reset(muhtar);

for i:=1 to filesize(muhtar) do begin

textbackground(green);read(muhtar,kay);

if (klam=kay.kayitno) and (kay.f=''''*'''') then

begin

x:=1;

writeln(''''Silmek i‡in bir tusa bas�n...'''');

writeln(''''€�kmak i‡in ESC tusuna bas�n...'''');

aaa:=readkey;

if aaa=#27 then

begin

close(muhtar);

exit;

end

else

kay.f:=''''s'''';

gettime(saat11,dakika,saniye,salise);

getdate(yil11,ay11,gun11,gn);

kay.saat1:=saat11;

kay.dakika:=dakika;

kay.gun:=gun11;

kay.ay:=ay11;

kay.yil:=yil11;

seek(muhtar,I-1);

write(muhtar,kay);

writeln(''''Silindi'''');

readkey;

close(muhtar);

menu;

end;

end;

close(muhtar);

end;

procedure gerial;

begin

write(''''Kay�t Nosunu Giriniz:'''');readln(klam);

seek(muhtar,x);reset(muhtar);

for i:=1 to filesize(muhtar) do begin

textbackground(green);read(muhtar,kay);

if (klam=kay.kayitno) and (kay.f=''''s'''') then

begin

x:=1;

writeln(''''Geri almak i‡in bir tusa bas�n...'''');

writeln(''''€�kmak i‡in ESC tusuna bas�n...'''');

aaa:=readkey;

if aaa=#27 then

begin

close(muhtar);

exit;

end

else

kay.f:=''''*'''';

gettime(saat11,dakika,saniye,salise);

getdate(yil11,ay11,gun11,gn);

kay.saat1:=saat11;

kay.dakika:=dakika;

kay.gun:=gun11;

kay.ay:=ay11;

kay.yil:=yil11;

seek(muhtar,I-1);

write(muhtar,kay);

writeln(''''Geri al�nd�'''');

readkey;

close(muhtar);

menu;

end;

end;

close(muhtar);

end;

procedure duzelt2;

begin

write(''''Kay�t nosunu giriniz:'''');readln(klam);

if klam=kay.kayitno then

begin

sekil;

gotoxy(21,5);

textbackground(blue);

writeln('''' D�zeltme '''');

textbackground(black);

writeln;

seek(muhtar,x);

reset(muhtar);

for i:=1 to filesize(muhtar) do

begin

read(muhtar,kay);

if kay.f=''''*'''' then

begin writeln; textbackground(0);

write(''''Kay�t No__________: '''');writeln(kay.kayitno);

tcbb;

soyadbb;

adbb;

bababb;

anabb;

yerbb;

tarihbb;

medenibb;

dinbb;

adresbb;

telnobb;

ilbb;

ilcebb;

koybb;

gettime(saat11,dakika,saniye,salise);

getdate(yil11,ay11,gun11,gn);

kay.saat1:=saat11;

kay.dakika:=dakika;

kay.gun:=gun11;

kay.ay:=ay11;

kay.yil:=yil11;

writeln(''''Bilgileri Kay�t etmek i‡in bir tusa bas�n...'''');

writeln(''''€�kmak i‡in ESC ye bas�n...'''');

tus:=readkey;

if tus=#27 then

begin

close(muhtar);

menu;

end

else

begin

reset(muhtar);

seek(muhtar,I-1);

write(muhtar,kay);

writeln(''''Bilgiler kay�t edildi ana men�ye d”nmek i‡in bir tusa bas�n.'''');

readkey;

close(muhtar);

menu;

end;

end;

end;

end

else

begin

writeln(''''B”yle bir kay�t yok...'''');

writeln(''''Ana men�ye d”nmek i‡in bir tusa bas�n...'''');

readkey;

close(muhtar);

menu;

end;

end;

procedure sil3;

begin

x:=1;

writeln(''''Silmek i‡in bir tusa bas�n...'''');

writeln(''''€�kmak i‡in ESC tusuna bas�n...'''');

aaa:=readkey;

if aaa=#27 then

begin

close(muhtar);

exit;

end

else

begin

kay.f:=''''s'''';

gettime(saat11,dakika,saniye,salise);

getdate(yil11,ay11,gun11,gn);

kay.saat1:=saat11;

kay.dakika:=dakika;

kay.gun:=gun11;

kay.ay:=ay11;

kay.yil:=yil11;

seek(muhtar,I-1);

write(muhtar,kay);

writeln(''''Silindi'''');

readkey;

close(muhtar);

menu;

end;

end;

procedure duzelt3;

begin

sekil;

gotoxy(26,5);

textbackground(blue);

writeln('''' D�zeltilecek '''');

textbackground(black);

writeln;

seek(muhtar,x) ;

reset(muhtar);

for i:=1 to filesize(muhtar) do

begin

read(muhtar,kay);

if kay.f=''''*'''' then

begin writeln; textbackground(0);

write(''''Kay�t No__________: '''');writeln(kay.kayitno);

tcbb;

soyadbb;

adbb;

bababb;

anabb;

yerbb;

tarihbb;

medenibb;

dinbb;

adresbb;

telnobb;

ilbb;

ilcebb;

koybb;

writeln(''''Bilgileri Kay�t etmek i‡in bir tusa bas�n...'''');

writeln(''''€�kmak i‡in ESC ye bas�n...'''');

tus:=readkey;

if tus=#27 then exit

else

begin

gettime(saat11,dakika,saniye,salise);

getdate(yil11,ay11,gun11,gn);

kay.saat1:=saat11;

kay.dakika:=dakika;

kay.gun:=gun11;

kay.ay:=ay11;

kay.yil:=yil11;

reset(muhtar);

seek(muhtar,I-1);

write(muhtar,kay);

writeln(''''Bilgiler kay�t edildi ana men�ye d”nmek i‡in bir tusa bas�n.'''');

readkey;

close(muhtar);

exit;

end;

end;

end;

end;

procedure ekle;

begin

clrscr;

assign(muhtar,''''c:\muhtar.dat'''');

gotoxy(55,5);

reset(muhtar);

kay.kayitno:=filesize(muhtar)+1;

gotoxy(60,7);write(''''kay�t no:'''',Filesize(muhtar)+1);

gotoxy(2,3);tarih;gotoxy(60,3);saat;gotoxy(1,4);

textbackground(blue);textcolor(11);

write(''''°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° °°°°°°°°°°°°°°°°°°°°°°°°°°°°°° °°°°°°°°°°'''');

textcolor(white);textbackground(black);

gotoxy(35,2);highvideo;

textbackground(red);textcolor(white);write(''''³'' '');write(''''1.Sokak'''');

textcolor(white);writeln(''''³'''');

gotoxy(35,3);

writeln(''''ÀÄÄÄÄÄÄÄÙ'''');

gotoxy(35,1);

writeln(''''ÚÄÄÄÄÄÄÄ¿'''');

textbackground(black);

textcolor(white);

gotoxy(31,5);

textbackground(blue);

writeln('''' Kay�t Ekle '''');

textbackground(black);

writeln;

write(''''Tc Kimlik No_______:'''');

textbackground(1);

readln(kay.tc);

delete(kay.tc,12,100);

textbackground(black);

write(''''Soyad______________:'''');textbackground (1);readln(kay.soyad);

delete(kay.soyad,9,100);

if kay.soyad='''''''' then

begin

close(muhtar);

menu;

end

else

textbackground(black);

write(''''Ad�________________:'''');textbackground (1);readln(kay.ad);

delete(kay.ad,8,100);

if kay.ad='''''''' then

begin

close(muhtar);

menu;

end

else

textbackground(black);

write(''''Baba Ad�___________:'''');textbackground(1);readln(kay. baba);textbackground(black);

delete(kay.baba,8,100);

write(''''Ana Ad�____________:'''');textbackground(1);readln(kay .ana);textbackground(black);

delete(kay.ana,8,100);

write(''''Dogum Yeri_________:'''');textbackground(1);readln(kay.y er);textbackground(black);

delete(kay.yer,11,100);

write(''''Dogum Tarihi_______:'''');textbackground(1);readln(kay.t arih);textbackground(black);

delete(kay.tarih,11,100);

write(''''Medeni Hali________:'''');textbackground(red);write(''''" Evli"i‡in[e],"Bekar"i‡in[b]Tusunu Bas...'''');textbackground(black);

kay.medeni:=readkey;

if (kay.medeni=''''e'''') or (kay.medeni=''''E'''') then

begin

gotoxy(21,14);

textbackground(1);

write(''''Evli'''');textbackground(black);

writeln('''' '''');

kay.medeni:=''''e'''';

textbackground(black);

end

else if (kay.medeni=''''b'''') or (kay.medeni=''''B'''') then

begin

gotoxy(21,14);

textbackground(1);

write(''''Bekƒr'''');textbackground(black);

writeln('''' '''');

textbackground(black);

kay.medeni:=''''b'''';

end

else

begin

gotoxy(21,14);

textbackground(1);

write(''''Bekƒr'''');textbackground(black);

writeln('''' '''');

textbackground(black);

kay.medeni:=''''b'''';

end;

write(''''Dini_______________:'''');textbackground (1);readln(kay.din);textbackground(black);

delete(kay.din,12,100);

write(''''Adres______________:'''');textbackground (1);readln(kay.adres);textbackground(black);

write(''''Ev No______________:'''');textbackground(1);readln(ka y.telno);textbackground(black);

delete(kay.telno,13,100);

writeln(''''K�t�g�n Bulundugu'''');

write(''''il_________________:'''');textbackground (1);readln(kay.il);textbackground(black);

delete(kay.il,15,100);

write(''''il‡e_______________:'''');textbackground (1);readln(kay.ilce);textbackground(black);

delete(kay.ilce,15,100);

write(''''Mahalle/K”y________:'''');textbackground(1);readln(kay.koy );textbackground(black);

delete(kay.koy,15,100);

writeln;

write(''''Bilgileri Kay�t etmek i‡in Bir Tusa Bas�n.iptal i‡in ESC ye bas�n'''');

if readkey<> #27 then

begin

gettime(saat11,dakika,saniye,salise);

getdate(yil11,ay11,gun11,gn);

kay.saat1:=saat11;

kay.dakika:=dakika;

kay.gun:=gun11;

kay.ay:=ay11;

kay.yil:=yil11;

kay.f:=''''*'''';

seek(muhtar,filesize(muhtar));

write(muhtar,kay);

close(muhtar);

menu;

end

else

begin

ŞEBNEM FERAH

The Fans Of METALLICA


_Ka†a†onia_

teşekkür ederim bu delphi ylemi yazılmış

ŞEBNEM FERAH

The Fans Of METALLICA


_Ka†a†onia_