|
Doğal gaz kayıt programı....
Ya kardeş saat sabahın 4 u oldu ama ben hala kod yazıyorum ....
valla daha yarım oldu inş. biter sabahaaaaa... inşlaahhh..... |
abı Allah rası olsun ne dıyım buyuksun hemşoo..
|
(*Doğal gaz takip programı....copright(c) by gokhan aygun ..*)
uses crt; type kayit=record no,soy,isim,adres,borcu:string[30]; f:char; end; var dosya:file of kayit; kay:kayit; h,i,s,a,k,kod:integer; HH,ara:string[30]; t:string; tus:char; label sifre,MENU,ekle,fatura,arama,ecikis; begin clrscr; sifre: writeln('Dikkat!!!! žifreyi yanl?Ÿ girerseniz program kapanak demedi demeyin :)'); writeln('žifreniz..'); readln(a); if a<>1987 then halt else goto MENU; MENU: clrscr; textbackground(12); textcolor(6); gotoxy(30,8);write('Dogal Gaz Takip Programi'); gotoxy(30,10);writeln('<<<<<<<<<<<<<1>-Abone Ekle<<<1>>>>>>>>>>>>>>>'); gotoxy(30,11);writeln('<<<<<<<<<<<<<2>-Fatura<<<<<<<2>>>>>>>>>>>>>>>>>>>>'); gotoxy(30,12);writeln('<<<<<<<<<<<<<3>-Abone ara<<<<3>>>>>>>>>>>>>>>>>>'); gotoxy(30,13);writeln('<<<<<<<<<<<<<4>-Abone sil<<<<4>>>>>>>>>>>>>>>>>>>'); gotoxy(30,14);writeln('<<<<<<<<<<<<<5>-Abone düzelt<5>>>>>>>>>>>>>>>>>'); gotoxy(30,15);writeln('<<<<<<<<<<<<<6>-CIKIS<6>>>>>>>>>>>>>>>>>>>>>>>'); gotoxy(10,20);write('LUTFEN YAPACAGINIZ ISLEMIN NUMARASINI GIRINIZ (1/2/3/4/5/6)');readln(h); if h=1 then goto ekle; if h=2 then goto fatura; if h=3 then goto arama; if h=6 then goto ecikis; ekle: assign(dosya,'GOKHAN.txt'); {$i-} reset(dosya);kod:=ioresult;{$i+}; if kod<> 0 then rewrite(dosya); repeat clrscr; gotoxy(30,10);write('SAYAÇ >');readln(kay.no); if kay.no='' then GOTO MENU; gotoxy(30,11);write('ADI >');readln(kay.isim); gotoxy(30,12);write('SOYADI >');readln(kay.soy); gotoxy(30,13);write('ADRES >');readln(kay.adres); gotoxy(30,14);write('BORCU >');readln(kay.borcu); gotoxy(20,25);writeLN('ABONE DOSYAYA KAYDEDILSIN MI? (E/H)') ; repeat tus:=upcase(readkey); until tus in ['E','H']; if tus='E' then begin kay.f:='*'; seek(dosya,filesize(dosya)); write(dosya,kay); end; textcolor(31); writeln('ANA MENUYE DONMEK ICIN BIR TUSA BASINIZ...');READLN(HH); until KEYPRESSED; close(dosya); GOTO MENU; arama: assign(dosya,'GOKHAN.txt'); {$i-} reset(dosya);kod:=ioresult;{$i+}; if kod<>0 then begin writeln('ABONE BULUNAMADI...'); tus:=readkey; halt; end; repeat clrscr; gotoxy(20,13);write('ARADIGINIZ ABONENIN SAYAÇ NUMARASINI GIRINIZ>');readln(ara); if ara='' then exit; for i:=0 to filesize(dosya)-1 do begin seek(dosya,i); read(dosya,kay); if (kay.f='*') and (kay.no=ara) then begin clrscr; gotoxy(30,10);writeln('SAYAÇ...: >',kay.no); gotoxy(30,12);writeln('ADI >',kay.isim); gotoxy(30,13);writeln('SOYADI >',kay.soy); gotoxy(30,14);writeln('ADRES....>',kay.adres); gotoxy(30,15);writeln('BORCU>',kay.borcu); writeln; gotoxy(20,20);write('ARADIGINIZ ABONE BU MU? (E/H)'); repeat tus:=upcase(readkey); until tus in ['E','H']; if tus='E' then exit; end; end; writeln; gotoxy(27,15);writeln('ARADIGINIZ ABONE KAYITLARDA YOK...'); tus:=readkey; until 1=2; close(dosya); writeln('ANA MENUYE DONMEK ICIN BIR TUSA BASINIZ...'); READKEY; GOTO MENU; fatura: assign(dosya,'GOKHAN.txt'); {$i-} reset(dosya);kod:=ioresult;{$i+}; if kod<>0 then begin writeln('Kayıtlı abone yok...'); tus:=readkey; halt; end; clrscr; writeln(' SAYAC ADI SOYADI ADRESİ BORCU'); writeln('========================================= ================================='); s:=2; k:=0; for i:=0 to filesize(dosya)-1 do begin seek(dosya,i); read(dosya,kay); if kay.f='*' then begin s:=s+1; k:=k+1; gotoxy(1,s);write(kay.no); gotoxy(10,s);write(kay.isim); gotoxy(20,s);write(kay.soy); gotoxy(27,s);write(kay.adres); gotoxy(70,s);write(kay.borcu); end; if s>18 then begin gotoxy(20,21); write('DIGER SAYFA ICIN BIR TUSA BASINIZ...'); tus:=readkey; s:=2; clrscr; end; end; gotoxy(20,21); write('FATURA KAYITLARI BITTI...'); tus:=readkey; close(dosya); gotoxy(15,23);writeln('ANA MENUYE DONMEK ICIN BIR TUSA BASINIZ...'); READKEY; GOTO MENU; ecikis: writeln('Cikis'); END. |
doğal gaz pro..nun 2.si yazım aşamasında ..elektrikler ve sular kesilmesse
az kaldı çok az..:D |
Paylaşım için tşkler…
|
teŞekkÜrler PaylaŞim İİÇİn
|
Abi sen çok yorulmuşsun yaa paylaşım için tşkrlr
|
| Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 18:19 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.