Artık bakkal defterine gerek yok bu program işinizi görür ad adres-tel-borç ekle veya tahsilat

#include"string.h"
#include"stdlib.h"
#include"stdio.h"
#include"conio.h"
#include"dos.h"
//-----------------------cerceve----------------------------------------------
void pencere(char x1,char y1,char x2,char y2)
{
char k;
gotoxy(x1,y1);cprintf("%c",201);
for (k=x1+1;k<=x2-1;k++) cprintf("%c",205);
cprintf("%c",187);
for (k=y1+1;k<=y2-1;k++) {
gotoxy(x1,k);cprintf("%c",186);
gotoxy(x2,k);cprintf("%c",186);
}
gotoxy(x1,y2);cprintf("%c",200);
for (k=x1+1;k<=x2-1;k++) cprintf("%c",205);
cprintf("%c",188);
}
int i;
int secim,k,l;
char ch,dev,sec;
int ek,dk;
//-----------------------tanmlamalar------------------------------------------------------
FILE *ddosya;
FILE *ddosya1;
char adi[25],adres[30],tel[12];
int a,borc;
char devam;
//-----7-------------------giris----------------------------------------------------------
void giris()
{
devam='e';
if((ddosya=fopen("temrin.dat","a+t"))==NULL) ddosya=fopen("temrin.dat","w+t");
while(devam!='h' && devam!='H')
{
clrscr();
fflush(ddosya);
gotoxy(10,5);printf("KiSi ADi....:");scanf("%s",adi);
gotoxy(10,7);printf("ADRESi.......:");scanf("%s",adres);
gotoxy(10,9);printf("TELEFON......:");scanf("%s",tel);
gotoxy(10,11);printf("BORCU........:");scanf("%d",&borc);
fprintf(ddosya,"%s\n",adi);
fprintf(ddosya,"%s\n",adres);
fprintf(ddosya,"%s\n",tel);
fprintf(ddosya,"%d\n",borc);
gotoxy(10,19);cprintf("DEVAM ETMEK iSTERMiSiNiZ (e-h)?");
devam=getche();
}
fclose(ddosya);
}
//---------------------------listeleme------------------------------------------
void listeleme()
{
clrscr();
int a,k;
a=1;
ddosya=fopen("temrin.dat","r+t");
gotoxy(5,2);printf("-ADi-");
gotoxy(15,2);printf("-TEL-");
gotoxy(30,2);printf("-BORCU-");
gotoxy(45,2);printf("-ADRESi-");
window(1,4,80,25);
while((feof(ddosya))==0)
{
fflush(ddosya);
fscanf(ddosya,"%s\n",adi);
fscanf(ddosya,"%s\n",adres);
fscanf(ddosya,"%s\n",tel);
fscanf(ddosya,"%d\n",&borc);
delay(100);
gotoxy(5,a);printf("%s",adi);
gotoxy(15,a);printf("%s",tel);
gotoxy(30,a);printf("%d",borc);
gotoxy(45,a);printf("%s",adres);
a++;
if(a==10)
{gotoxy(20,21);printf("DiGER SAYFA iCiN BiR TUSA BASINIZ");
getche();
a=1;
clrscr();
}
}
fclose(ddosya);
gotoxy(20,20);printf("LISTELEME ISLEMI BITTI");
window(1,1,80,25);
getche();

}
//---------------------------dzeltme----------------------------------------------
void duzeltme()
{ char ara[20],cev;

clrscr();
do{
ddosya=fopen("temrin.dat","r+t");
ddosya1=fopen("yedek.dat","w+t");
gotoxy(20,10);printf("DšZELTILECEK KAYDI GiR....:");scanf("%s",ara);
clrscr();
while((feof(ddosya))==0)
{
fflush(ddosya);
fscanf(ddosya,"%s\n",adi);
fscanf(ddosya,"%s\n",adres);
fscanf(ddosya,"%s\n",tel);
fscanf(ddosya,"%s\n",borc);
if(strcmp(adi,ara)==0)
{
gotoxy(10,5);printf("ADi SOYADi...:%s",adi);
gotoxy(10,7);printf("ADRESi.......:%s",adres);
gotoxy(10,9);printf("TELEFONU.....:%s",tel);
gotoxy(10,11);printf("BORCU.......:%d",borc);

gotoxy(20,14);printf("iSLEM YAPILACAK KAYIT BU MU-?....:");
cev=getch();
if(cev=='h') continue;
clrscr();
if(cev=='e')
{
gotoxy(15,5);printf("1-BORC TAHSiLATI");
gotoxy(15,7);printf("2-YENI BORC");
gotoxy(15,9);printf("Seciminiz..");
sec=getche();
switch(sec)
{
case'1':
gotoxy(12,12);
printf("TAHSiLAT MiKTARI..:");scanf("%d",&ek);
borc=borc-ek;
break;
case'2':
gotoxy(12,12);
printf("EKLENECEK MiKTAR..:");scanf("%d",&dk);
borc=borc+dk;
break;
}
}
}
fprintf(ddosya1,"%s\n",adi);
fprintf(ddosya1,"%s\n",adres);
fprintf(ddosya1,"%s\n",tel);
fprintf(ddosya1,"%d\n",borc);
}
gotoxy(10,18);printf("DEVAM EDECEKMiSiNiZ ? (e-h)..:");
cev=getch();
}while(clrscr(),cev!='h'&& cev!='H');
fclose(ddosya);fclose(ddosya1);
unlink("temrin.dat");
rename("yedek.dat","temrin.dat");
}
//---------------------------arama----------------------------------------------
void arama()
{
clrscr();
char ara[40],sec;
do{
ddosya=fopen("temrin.dat","r+t");
gotoxy(10,2);printf("ARANACAK KiTAP ADI...:");
scanf("%s",ara);
while((feof(ddosya))==0)
{
fflush(ddosya);
fscanf(ddosya,"%s\n",adi);
fscanf(ddosya,"%s\n",adres);
fscanf(ddosya,"%s\n",tel);
fscanf(ddosya,"%d\n",&borc);
if(strcmp(ara,adi)==0)
{
gotoxy(10,5);printf("ADi SOYADi...:%s",adi);
gotoxy(10,7);printf("ADRESi.......:%s",adres);
gotoxy(10,9);printf("TELEFONU.....:%s",tel);
gotoxy(10,11);printf("BORCU.......:%d",borc);
}
}
gotoxy(17,22);printf("DEVEM ETMEK iSTERMiSiNiZ (e-h) ?");
sec=getch();
}while(clrscr(),sec!='h'&& sec!='H');
fclose(ddosya);
}
//---------------------------silme---------------------------------------------------
void silme()
{
char ara[20],cev;
clrscr();
do{
ddosya=fopen("temrin.dat","r+t");
ddosya1=fopen("yedek.dat","w+t");
gotoxy(20,4);printf("SiLiNECEK KAYDIN ADINI GiR....:");
scanf("%s",ara);
while((feof(ddosya))==0)
{
fflush(ddosya);
fscanf(ddosya,"%s\n",adi);
fscanf(ddosya,"%s\n",adres);
fscanf(ddosya,"%s\n",tel);
fscanf(ddosya,"%s\n",borc);
if(strcmp(ara,adi)==0)
{
gotoxy(15,9);printf("ADi SOYADi...:%s",adi);
gotoxy(15,10);printf("ADRESi.......:%s",adres);
gotoxy(15,11);printf("TELEFONU.....:%s",tel);
gotoxy(15,12);printf("BORCU.......:%d",borc);
gotoxy(20,14);printf("SiLENECEK KAYIT BU MU-?.(e-h).:");
cev=getche();
if(cev=='e') continue;
}
else
{
fprintf(ddosya1,"%s\n",adi);
fprintf(ddosya1,"%s\n",adres);
fprintf(ddosya1,"%s\n",tel);
fprintf(ddosya1,"%d\n",borc);
}
}
gotoxy(10,20);textcolor(15+128);cprintf("DEVAM EDECEKMiSiNiZ..(e-h).:\n");
cev=getch();
}while(clrscr(),cev!='h'&& cev!='H');
fclose(ddosya);fclose(ddosya1);
unlink("temrin.dat");
rename("yedek.dat","temrin.dat");
}
//---------------------------ana pro§ram--------------------------------------------
main()
{
clrscr();
do{
textcolor(15);textbackground(0);
secim=1;
clrscr();
textcolor(4);textbackground(4);

for (l=2;l<=23;l++){
k=1;
delay(25);
do{
k+=1;
textcolor(4);textbackground(0);


gotoxy(k,l);cprintf("%c",178);
}while(k!=79);
}
textcolor(0);textbackground(7);
gotoxy(20,5);cprintf(" ");
gotoxy(20,6);cprintf(" TAHSiLAT PROGRAMINA HOSGELDiNiZ ");
gotoxy(20,7);cprintf(" ");
do{
textcolor(14);textbackground(1);
gotoxy(28,10);cprintf(" Giris ");
gotoxy(28,12);cprintf(" Listeleme ");
gotoxy(28,14);cprintf(" Hareket ");
gotoxy(28,16);cprintf(" Arama ");
gotoxy(28,18);cprintf(" Silme ");
gotoxy(28,20);cprintf(" Cikis ");
textcolor(7+128);textbackground(1);
switch(secim){
case 1:gotoxy(28,10);cprintf("%c GIRIS %c",16,17);break;
case 2:gotoxy(28,12);cprintf("%c LiSTELEME %c",16,17);break;
case 3:gotoxy(28,14);cprintf("%c HAREKET %c",16,17);break;
case 4:gotoxy(28,16);cprintf("%c ARAMA %c",16,17);break;
case 5:gotoxy(28,18);cprintf("%c SiLME %c",16,17);break;
case 6:gotoxy(28,20);cprintf("%c CIKIS %c",16,17);break;
}
textcolor(14);textbackground(1);
do{
do{
ch=getch();
}while(ch!=0 && ch!=13 && ch!=27);
if (ch==0) ch=getch();
}while(ch!=13 && ch!=27 && ch!=72 && ch!=80);
switch(ch){
case 13:break;
case 27:break;
case 72:if(secim>1) secim--;else secim=6;break;
case 80:if(secim<6) secim++;else secim=1;break;
}
}while(ch!=13 && ch!=27);
if(ch!=27){
textcolor(15);textbackground(1);clrscr();
switch(secim){

case 1:giris();break;
case 2:listeleme();break;
case 3:duzeltme();break;
case 4:arama();break;
case 5ilme();break;
case 6:textcolor(15);textbackground(1);clrscr();clrscr();
textcolor(4+128);textbackground(0);
gotoxy(30,9);cprintf(" ");
gotoxy(30,11);cprintf(" ");
gotoxy(30,10);cprintf(" G š L E G š L E ");delay(1000);

exit(-1);break;
}
if(ch==0) ch=getch();
}
}while(secim!=6);
return 0;
}