Pascal Telefon Rehberi

CorsaiR · 11 Ağu 2007

Telefon Rehberi Pascalda En Yüksek Seviyeye Getirilmiş Bir Telefon Rehberi.
Kayıt Giriş,Listele,Arama ve Kayıt Silip Deyiştirebilen Bu numaraları Harddiskte Tutabilen Bir Program!...uses crt;
type
kayit=record
ad:string[15];
soyad:string[15];
num:string[20];
f:char;
end;
var
dosya:file of kayit;
kay:kayit;
tus:char;
kod,s,t,k:integer;
bulundu:boolean;
ara:string;
procedure dosyaac;
begin
assign(dosya,'C:\Rehber.mtr');
{$i-} reset(dosya); kod:=ioresult; {$i+}
end;

procedure kayitgiris;
begin
dosyaac;
if kod <> 0 then rewrite(dosya);
repeat
textbackground(blue);
clrscr;
gotoxy(23,4);textcolor(26);write('K A Y I T G ˜ R ˜ S E R V ˜ S ˜ ');
gotoxy(20,5);write('=========================================');
inc(s);
gotoxy(8,8);textcolor(15);write('˜sim:'); readln(kay.ad);
gotoxy(8,9);write('Soyad:'); readln(kay.soyad);
gotoxy(8,10);write('Numara:'); readln(kay.num);
kay.f:='*';
gotoxy(15,16);WRiTE('Kayt Edilsin Mi? E/H');
tus:=upcase(readkey);
if tus='E' then
begin
seek (dosya,filesize(dosya));
write(dosya,kay);
end;
gotoxy(2,24);write('Yeni Kayt ˜‡in .:!ENTER!:. TuŸuna ');
gotoxy(2,25);write('Ana Menye D”nmek ˜‡in .:!ESC!:. TuŸuna Basn...');
tus:=readkey;
until tus=#27 ;
close(dosya);
end;

procedure listeleme;
begin
repeat
k:=-1;
textbackground(blue);
clrscr;
gotoxy(25,3);TEXTCOLOR(26);write(' K A Y I T L ˜ S T E S ˜ ');
GOTOxy(23,4);writeln('==============================');
textcolor(14);
gotoxy(13,6);write('AD'); gotoxy(28,6);write('SOYAD'); Gotoxy(60,6);write('TELEFON');
gotoxy(10,7);write('========');gotoxy(25,7);write('==========='); gotoxy(57,7);writeln('=============');
textcolor(15);
dosyaac;
if kod <> 0 then
begin
repeat
clrscr;
gotoxy(23,12);write('. : ! D O S Y A Y O K ! : .');
gotoxy(2,25);write('Ana Menye D”nmek ˜‡in .:!ESC!:. TuŸuna Basn...');
tus:=readkey;
until tus=#27;
exit;
end;
for k:=0 to filesize(dosya)-1 do
begin
seek(dosya,k);
read(dosya,kay);
if kay.f='*' then
begin
inc(t);
writeln (' ',kay.ad , ' ':15-length(kay.ad), kay.soyad ,
' ':32-length(kay.soyad),kay.num);
if t=15 then
begin
gotoxy(2,25);write('Devam ˜‡in .:!ENTER!:. TuŸuna Basn...');
readln;
clrscr;
textcolor(14);
gotoxy(13,3);write('AD'); gotoxy(28,3);write('SOYAD'); Gotoxy(60,3);write('TELEFON');
gotoxy(10,4);write('========');gotoxy(25,4);write('==========='); gotoxy(57,4);writeln('=============');
textcolor(15);
end;
end;
end;
gotoxy(2,25);write('Ana Menye D”nmek ˜‡in .:!ESC!:. TuŸuna Basn...');
tus:=readkey;
until tus=#27;
close(dosya);
end;
procedure bul ;
begin
dosyaac;
if kod <> 0 then
begin
repeat
clrscr;
gotoxy(23,12);write('. : ! D O S Y A Y O K ! : .');
gotoxy(2,25);write('Ana Menye D”nmek ˜‡in .:!ESC!:. TuŸuna Basn...');
tus:=readkey;
until tus=#27;
exit;
end;
repeat clrscr;
gotoxy(20,3);TEXTcolor(26);write('K A Y I T S O R G U L A M A S E R V ˜ S ˜');
GOToxy(17,4);write('=================================================');
textcolor(15);gotoxy(10,7);write('Aranacak ˜sim:'); readln(ara);
bulundu:=false;
k:=-1;
repeat
k:=k+1;
seek(dosya,k); read(dosya,kay);
if (kay.f='*') and (kay.ad=ara) then
begin
clrscr;
gotoxy(20,3);TEXTcolor(26);write('K A Y I T S O R G U L A M A S E R V ˜ S ˜');
GOToxy(17,4);write('=================================================');
textcolor(14);
gotoxy(13,6);write('AD'); gotoxy(28,6);write('SOYAD'); Gotoxy(60,6);write('TELEFON');
gotoxy(10,7);write('========');gotoxy(25,7);write('==========='); gotoxy(57,7);writeln('=============');
textcolor(15);
writeln(' ',kay.ad , ' ':15-length(kay.ad), kay.soyad ,
' ':32-length(kay.soyad),kay.num);
gotoxy(20,18);write('Aranan ˜sim Bulundu Mu? E/H');
TUS:=upcase(readkey);
if tus='E' then bulundu:=true
else bulundu:=false;
end;
until (k=filesize(dosya)-1) or (bulundu=true);
if bulundu=false then
begin
gotoxy(20,18);write('Aranan KiŸi Kaytlarda Bulunamad!..');
readln;
end;
gotoxy(2,24);write('Yeni Arama ˜‡in .:!ENTER!:. TuŸuna ');
gotoxy(2,25);write('Ana Menye D”nmek ˜‡in .:!ESC!:. TuŸuna Basn...');
tus:=upcase(readkey);
until (tus=#27);
close(dosya);
END;
procedure sil;
begin
dosyaac;
if kod <> 0 then
begin
repeat
clrscr;
gotoxy(23,12);write('. : ! D O S Y A Y O K ! : .');
gotoxy(2,25);write('Ana Menye D”nmek ˜‡in .:!ESC!:. TuŸuna Basn...');
tus:=readkey;
until tus=#27;
exit;
end;
repeat clrscr;
gotoxy(20,3);TEXTcolor(26);write('K A Y I T S ˜ L M E S E R V ˜ S ˜');
GOToxy(17,4);write('=========================================');
textcolor(15);gotoxy(10,7);write('Silenecek ˜sim:'); readln(ara);
bulundu:=false;
k:=-1;
repeat
k:=k+1;
seek(dosya,k); read(dosya,kay);
if (kay.f='*') and (kay.ad=ara) then
begin
clrscr;
gotoxy(20,3);TEXTcolor(26);write('K A Y I T S ˜ L M E S E R V ˜ S ˜');
GOToxy(17,4);write('=========================================');
textcolor(14);
gotoxy(13,6);write('AD'); gotoxy(28,6);write('SOYAD'); Gotoxy(60,6);write('TELEFON');
gotoxy(10,7);write('========');gotoxy(25,7);write('==========='); gotoxy(57,7);writeln('=============');
textcolor(15);
writeln(' ',kay.ad , ' ':15-length(kay.ad), kay.soyad ,
' ':32-length(kay.soyad),kay.num);
gotoxy(20,18);write('Silenecek ˜sim Bulundu Mu? E/H');
TUS:=upcase(readkey);
if tus='E' then
begin
kay.f:='-';
seek (dosya,k);
write(dosya,kay);
bulundu:=true;
end;
end;
until (k=filesize(dosya)-1) or (bulundu=true);
if bulundu=false then
begin
gotoxy(20,18);write('Aranan KiŸi Kaytlarda Bulunamad!..');
readln;
end;
gotoxy(2,24);write('Yeni ˜Ÿlem ˜‡in .:!ENTER!:. TuŸuna ');
gotoxy(2,25);write('Ana Menye D”nmek ˜‡in .:!ESC!:. TuŸuna Basn...');
tus:=readkey;
until tus=#27;
exit;
end;
procedure degis;
begin
dosyaac;
if kod <> 0 then
begin
repeat
clrscr;
gotoxy(23,12);write('. : ! D O S Y A Y O K ! : .');
gotoxy(2,25);write('Ana Menye D”nmek ˜‡in .:!ESC!:. TuŸuna Basn...');
tus:=readkey;
until tus=#27;
exit;
end;
repeat clrscr;
gotoxy(20,3);TEXTcolor(26);write('K A Y I T D š Z E L T M E S E R V ˜ S ˜');
GOToxy(17,4);write('===============================================');
textcolor(15);gotoxy(10,7);write('Dzeltilecek ˜sim:'); readln(ara);
bulundu:=false;
k:=-1;
repeat
k:=k+1;
seek(dosya,k); read(dosya,kay);
if (kay.f='*') and (kay.ad=ara) then
begin
clrscr;
gotoxy(20,3);TEXTcolor(26);write('K A Y I T D š Z E L T M E S E R V ˜ S ˜');
GOToxy(17,4);write('===============================================');
textcolor(14);
gotoxy(13,6);write('AD'); gotoxy(28,6);write('SOYAD'); Gotoxy(60,6);write('TELEFON');
gotoxy(10,7);write('========');gotoxy(25,7);write('==========='); gotoxy(57,7);writeln('=============');
textcolor(15);
writeln(' ',kay.ad , ' ':15-length(kay.ad), kay.soyad ,
' ':32-length(kay.soyad),kay.num);
gotoxy(20,18);write('Dzeltilecek ˜sim Bulundu Mu? E/H');
TUS:=upcase(readkey);
if tus='E' then
begin
clrscr;
gotoxy(20,3);TEXTcolor(26);write('K A Y I T D š Z E L T M E S E R V ˜ S ˜');
GOToxy(17,4);write('===============================================');
textcolor(15);
gotoxy(8,8);write('Yeni ˜sim:'); readln(kay.ad);
gotoxy(8,9);write('Yeni Soyisim:'); readln(kay.soyad);
gotoxy(8,10);write('Yeni Telefon:'); readln(kay.num);
gotoxy(15,16);WRiTE('Kayt Edilsin Mi? E/H');
tus:=upcase(readkey);
if tus='E' then
begin
seek (dosya,k);
write(dosya,kay);
end;
bulundu:=true;
end;
end;
until (k=filesize(dosya)-1) or (bulundu=true);
if bulundu=false then
begin
gotoxy(20,18);write('Aranan KiŸi Kaytlarda Bulunamad!..');
readln;
end;
gotoxy(2,24);write('Yeni ˜Ÿlem ˜‡in .:!ENTER!:. TuŸuna ');
gotoxy(2,25);write('Ana Menye D”nmek ˜‡in .:!ESC!:. TuŸuna Basn...');
tus:=readkey;
until tus=#27;
exit;
end;

begin
repeat
clrscr;
textbackground(blue);
gotoxy(10,9); TEXTCOLOR(15);write('"1"-KAYIT G˜R˜˜...');
gotoxy(10,11); TEXTCOLOR(15);write('"2"-KAYIT L˜STELE...');
gotoxy(10,13); TEXTCOLOR(15);write('"3"-ARAMA YAP...');
gotoxy(10,15); TEXTCOLOR(15);write('"4"-KAYIT S˜L...');
gotoxy(10,17); TEXTCOLOR(15);write('"5"-KAYIT DšZELT...');
gotoxy(24,3); TEXTCOLOR(26); write('€kmak ˜‡in .:!ESC!:. TuŸuna Basn');
gotoxy(20,22); TEXTCOLOR(15);write('˜lgili Men Numarasn TuŸlayn:');
tus:=readkey;
case tus of
'1':kayitgiris;
'2':Listeleme;
'3':bul;
'4':sil;
'5':degis;
#27:halt;
end;
until 1=2;
end.

cezalandirilci · 25 Ağu 2010

teşekkürler. ..(üsTAD)__

DiLeK~ · 25 Ağu 2010

programıda yollasaydın keşke

Pascal Telefon Rehberi

CorsaiR

Emektar

cezalandirilci

Üye

DiLeK~

Kıdemli Üye

Sosyal medya sayfalarımız