Reklamlar
döviz programı

döviz programı » uses crt; type kaydet=record Id:integer; ad:string; adres:string; ucret:longint; doviz_tur:string; diz:char; end; var i,k:byte; bas:char; kay:kaydet;

Gönderen Konu: döviz programı  (Okunma sayısı 4811 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı administrator

  • Administrator
  • General
  • *****
  • İleti: 24517
  • Karma: +3/-1
    • Profili Görüntüle
    • Toplist Ekle Site Ekle

döviz programı
« : Nisan 30, 2009, 12:33:16 ÖS »
uses crt;
type
kaydet=record
Id:integer;
ad:string;
adres:string;
ucret:longint;
doviz_tur:string;
diz:char;
end;
var
i,k:byte;
bas:char;
kay:kaydet;
data:file of kaydet;
menu:byte;


procedure colors(yazi,arka:byte);
begin
textcolor(yazi);
textbackground(arka);
end;

procedure cikis;
begin
clrscr;
gotoxy(1,10);
writeln('Veriler Kaydediliyor');
for k:=0 to 50 do
begin
gotoxy(k+20,10);
writeln('.');
delay(100);
end;
writeln('Program kapaniyor');
delay(500);
halt;
end;


procedure giris;
begin
clrscr;
repeat
gotoxy(10,2); write('AD SOYAD....:'); readln(kay.ad);
gotoxy(10,3); write('ADRES.......:'); readln(kay.adres);
gotoxy(10,4); write('UCRET.......:'); readln(kay.ucret);
writeln('Bu bilgiler kaydedilsinmi [E/H] ?');
bas:=readkey;
if (bas='e') or (bas='E') then
begin
kay.diz:='#';
seek(data,filesize(data));
write(data,kay);
exit;
end;
until bas=#27;
end;

procedure listele;
var
say:byte;
begin
clrscr;
say:=0;
for k:=0 to filesize(data)-1 do
begin
say:=say+1;
read(data,kay);
gotoxy(10,1);writeln(' ADI-SOYADI ADRES UCRET[YTL] ');
gotoxy(10,2); writeln('_________________________________________ ________');
gotoxy(10,say+2); writeln(kay.ad,' ',kay.adres,' ',kay.ucret);
end;
gotoxy(10,22); writeln('Suanda Toplam ',say,' tane musterimiz kayitli');
gotoxy(10,23); writeln('Listelenecek kayitlar bitti');
readln;
end;

procedure arama;
var aranan:integer;
kac:byte;
begin
clrscr;
gotoxy(10,2); write('Aramak istedi§iniz insanin ucretini girib [YTL]..:');
readln(aranan);
clrscr;
kac:=0;
for k:=0 to filesize(data)-1 do
begin
if (aranan=kay.ucret) then
begin
kac:=kac+1;
gotoxy(10,1); writeln(aranan, 'ucret icin toplam ',kac,' sonuc bulundu.');
gotoxy(10,kac+2); writeln('Adi Soyadi : ',kay.ad,' Adres : ',kay.adres,' ucret :', kay.ucret);

end
else
begin
gotoxy(10,1); writeln(aranan,' ucreti icin herhangi bi kayit yok..');
end;

end;
readln;
end;

procedure hak;

begin
clrscr;
gotoxy(20,4); textcolor(4); writeln('Bu program xxxxxx tarafindan yazilmistir');
gotoxy(20,6); textcolor(7); writeln('Her kes kullanabilir bunu ');
{ artık sen saçmala gitsin burda }
end;


procedure dovis;
const
{Sabitlerimizi yaziyoruz}
d1=13;
d2=21;
d3=1;
d4=90;
d5= 3;
d6=10;
d7=5;
d8=6;
d9=12;
d10=2;
var
tur:byte;
miktar:integer;
function hesapla(xl:byte;nl:integer):integer;
var
sonuc:integer;
begin
case xl of
1: begin xl:=d1; end;
2: begin xl:=d2; end;
3: begin xl:=d3; end;
4: begin xl:=d4; end;
5: begin xl:=d5; end;
6: begin xl:=d6; end;
7: begin xl:=d7; end;
8: begin xl:=d8; end;
9: begin xl:=d9; end;
10: begin xl:=d10; end;
end;
sonuc:=xl*nl;
writeln(nl,' doviz ',sonuc,' ytl yapar');
exit;
end;
begin
clrscr;
gotoxy(10,2); write('D�viz miktarini girin...:'); readln(miktar);
gotoxy(10,3); writeln('DOLAR icin [1] ');
gotoxy(10,4); writeln('EURO icin [2] ');
gotoxy(10,5); writeln('D3 icin [3] ');
gotoxy(10,6); writeln('D4 icin [4] ');
gotoxy(10,7); writeln('D5 icin [5] ');
gotoxy(10,8); writeln('D6 icin [6] ');
gotoxy(10,9); writeln('D7 icin [7] ');
gotoxy(10,10); writeln('D8 icin [8] ');
gotoxy(10,11); writeln('D9 icin [9] ');
gotoxy(10,12); writeln('D1 icin [10] seciniz...');
gotoxy(10,14); write('Lutfen doviz turunu girin..'); readln(tur);
hesapla(tur,miktar);

end;
procedure ana_menu;
begin
clrscr;
{Yeni Dosya a��l�yor e§er varsa devam ediliyor}
assign(data,'c:data.dat');
{$i-}; reset(data); {$i+};
menu:=0;
repeat
textbackground(2);
if ioresult<>0 then rewrite(data);
if bas=#80 then begin menu:=menu+1; end;
if bas=#72 then begin menu:=menu-1; end;
if menu>6 then begin menu:=1; end;
if menu<1 then begin menu:=6; end;
if menu=1 then begin
clrscr;
gotoxy(23,5); writeln('====================');
gotoxy(23,6); writeln('! MUSTERI GIRIS !');
textcolor(yellow);
gotoxy(23,7); writeln('====================');
gotoxy(23,1);writeln('_______MENU DETAY________________________');
gotoxy(23,2);writeln(' Bu kisimda yeni m�steri kayd� yap�l�r ');
end;
if menu=2 then begin
clrscr;
gotoxy(23,5); writeln('====================');
gotoxy(23,6); writeln('! MUSTERI LISTELEME !');
textcolor(yellow);
gotoxy(23,7); writeln('====================');
gotoxy(23,1);writeln('_______MENU DETAY__________________________');
gotoxy(23,2);writeln(' Bu kisimda kayıtlı musteriler listelenir ');
end;
if menu=3 then begin
clrscr;
gotoxy(23,5); writeln('====================');
gotoxy(23,6); writeln('! MUSTERI SORGULA !');
textcolor(yellow);
gotoxy(23,7); writeln('====================');
gotoxy(23,1);writeln('_______MENU DETAY_______________________');
gotoxy(23,2);writeln(' Bu kisimda kayıtlı musteri sorgulan�r ');
end;
if menu=4 then begin
clrscr;
gotoxy(23,5); writeln('====================');
gotoxy(23,6); writeln('! DOVIZ ISLEMLERI ');
textcolor(yellow);
gotoxy(23,7); writeln('====================');
gotoxy(23,1);writeln('_______MENU DETAY___________________________________');
gotoxy(23,2);writeln(' Bu kisimda dövizi - ytl çevirme işlemleri yapılır ');
end;
if menu=6 then begin
clrscr;
gotoxy(23,5); writeln('====================');
gotoxy(23,6); writeln(' ? HAKKINDA ? ');
textcolor(yellow);
gotoxy(23,7); writeln('====================');
gotoxy(23,1);writeln('_______MENU DETAY__________________________');
gotoxy(23,2);writeln(' Program hakkinda teday . ');
end;
if menu=5 then begin
clrscr;
gotoxy(23,5); writeln('====================');
gotoxy(23,6); writeln(' X CIKIS X ');
textcolor(yellow);
gotoxy(23,7); writeln('====================');
gotoxy(23,1);writeln('_______MENU DETAY__________________________');
gotoxy(23,2);writeln(' Bu kisimda program kapanir. ');
end;
if (menu=1) and (bas=#13) then begin giris; end;
if (menu=5) and (bas=#13) then begin cikis; end;
if (menu=2) and (bas=#13) then begin listele; end;
if (menu=3) and (bas=#13) then begin arama; end;
if (menu=4) and (bas=#13) then begin dovis; end;
if (menu=6) and (bas=#13) then begin hak; end;
bas:=readkey;
until bas=#27;
end;

{Ana program blogu}

begin
ana_menu;
end.



Not: Konular İnternet Sitelerinden derlenerek alıntı yapılmıştır.








BilX.Net

 

Related Topics

  Konu / Başlatan Yanıt Son İleti
0 Yanıt
3785 Gösterim
Son İleti Nisan 30, 2009, 06:00:15 ÖÖ
Gönderen: administrator
0 Yanıt
1545 Gösterim
Son İleti Nisan 30, 2009, 06:01:23 ÖÖ
Gönderen: administrator
0 Yanıt
1581 Gösterim
Son İleti Nisan 30, 2009, 06:06:40 ÖÖ
Gönderen: administrator
0 Yanıt
1471 Gösterim
Son İleti Nisan 30, 2009, 12:17:31 ÖS
Gönderen: administrator