arkadaşlar merhaba kendi çapımça yapmış olduğum kur hesap programını incelemenizi tavsiye ederim...




dolar ve euro
http://rapidshare.com/files/325842657/Kur_hesabae_.rar.html


dolar , euro , sterlin , frang
http://rapidshare.com/files/328556234/kur_hesap.rar.html

frang ve sterlin bölümünü ekledim arkadaşım indirebilirsin...

eğer işin acele değilse mantığını anlatayım sen yapmaya çalış aceleyse söylersin kodları paylaşırım benim düşüncem kendin yapsan daha iyi olur ben bu programı bu hale getirene kadar kaç gece uğraştım ama değdi tecrube oldu.

1. merkez bankasından günlük kur oranlarını alıcaksın(bir çok yerde kodları mevcud)
2.bankadan aldığın rakamlar ondalık yazmak için noktayı kullanıyor.Buda programda işlem hatasını doğuruyor.onun için atıyorum 1.420 fiyatlı bir şeyi  nasıl virgüllü yazabiliriz. benim uydurduğum mantık şu(belki daha kolay bir yani vardır). 1 ayrı edite   420yi ayrı edite yazdırdım daha sonra concat ile birleştirdim
edit 3 te 1420 olarak veri elde ettim.daha sonra sayıları virgüllü yazan bir kod ekledim editimin içine.
3.sayılarımız ondalık olduğu için floattostr deyimi ile tanıttım sayılarımızı bu çarpma kodunuda butona yerleştirdim.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, ExtCtrls, Buttons, XPMan;

type
  TForm1 = class(TForm)
    kuroku: TIdHTTP;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Label5: TLabel;
    Button2: TButton;
    Edit3: TEdit;
    Edit2: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit7: TEdit;
    Edit6: TEdit;
    XPManifest1: TXPManifest;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label11: TLabel;
    Edit12: TEdit;
    Button1: TButton;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Button3: TButton;
    Button4: TButton;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Edit19: TEdit;
    Edit20: TEdit;
    Edit21: TEdit;
    Edit22: TEdit;
    Edit23: TEdit;
    Edit24: TEdit;
    Button5: TButton;
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5Change(Sender: TObject);
    procedure Edit11Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Edit21Change(Sender: TObject);
    procedure Edit24Change(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var
sayi,sayi2,a:real;
begin
sayi:=strtofloat(edit7.Text);
sayi2:=strtofloat(edit1.Text);
a:=sayi * sayi2;
edit3.Text:=floattostr(a);


end;


procedure TForm1.FormCreate(Sender: TObject);
var
DolarAlis,sterlinSatis,frangSatis,frangalis,frangalis1,frangalis2,sterlinalis,sterlinalis1,sterlinalis2,DolarAlis1,Dolaralis2,DolarSatis,EuroAlis,EuroAlis1,EuroAlis2,EuroSatis,merkezbankasisite:string;
begin
try
Merkezbankasisite:=kuroku.Get( 'http://www.tcmb.gov.tr/kurlar/today.html');
except
ShowMessage('Üzgünüm Merkez Bankasına Bağalanamadım.');
exit;
end;


sterlinalis:=Trim( copy( Merkezbankasisite,1174,6) );
sterlinalis1:=Trim( copy( Merkezbankasisite,1174,2) );
sterlinalis2:=Trim( copy( Merkezbankasisite,1177,3) );
sterlinSatis:=Trim( copy( Merkezbankasisite,1187,6) );

frangalis:=Trim( copy( Merkezbankasisite,1265,6) );
frangalis1:=Trim( copy( Merkezbankasisite,1265,2) );
frangalis2:=Trim( copy( Merkezbankasisite,1268,3) );
frangSatis:=Trim( copy( Merkezbankasisite,1278,6) );

Dolaralis:=Trim( copy( Merkezbankasisite,810,6) );
Dolaralis1:=Trim( copy( Merkezbankasisite,810,2) );
Dolaralis2:=Trim( copy( Merkezbankasisite,813,3) );
DolarSatis:=Trim( copy( Merkezbankasisite,823,6) );

EuroAlis:=Trim( copy( Merkezbankasisite,1083,6) );
EuroAlis1:=Trim( copy( Merkezbankasisite,1083,2) );
EuroAlis2:=Trim( copy( Merkezbankasisite,1086,3) );
EuroSatis:=Trim( copy( Merkezbankasisite,1096,6) );

Label1.Caption:='Dolar Alış    : '+DolarAlis;
Label2.Caption:='Dolar Satış   : '+DolarSatis;
Label3.Caption:='Euro Alış     : '+EuroAlis;
Label4.Caption:='Euro Satış    : '+euroSatis;

Label21.Caption:='Sterlin Alış    : '+sterlinalis;
Label22.Caption:='Sterlin Satış   : '+sterlinSatis;
Label23.Caption:='Frang Alış     : '+frangalis;
Label24.Caption:='Frang Satış    : '+frangSatis;

edit2.text:=EuroAlis1;
edit4.text:=EuroAlis2;
edit5.Text:=concat(edit2.text,edit4.text);
edit7.Text:=edit5.Text;

edit9.Text:=DolarAlis1;
edit10.Text:=DolarAlis2;
edit11.text:=concat(edit9.text,edit10.text);
edit6.Text:=edit11.Text;

edit14.Text:=sterlinalis;
edit19.Text:=sterlinalis1;
edit20.Text:=sterlinalis2;
edit21.Text:=concat(edit19.text,edit20.text);
edit14.Text:=edit21.Text;

edit22.Text:=frangalis1;
edit23.Text:=frangalis2;
edit17.Text:=frangalis;
edit24.Text:=concat(edit22.text,edit23.text);
edit17.Text:=edit24.Text;

end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
 begin

 if length(edit2.Text)>1 then
  begin
    edit2.Clear;
    key:=',';
end;
end;
procedure TForm1.Edit5Change(Sender: TObject);
var
a,i:integer;
s:string;
begin
s:=edit5.Text;
i:=length(s);
if pos(',',s) <>0 then exit;
for a:=1 to i-1 do if (a mod 3)=0 then insert(',',s,i-a+1);
edit5.text:=s;

end;

procedure TForm1.Edit11Change(Sender: TObject);
var
a,i:integer;
s:string;
begin
s:=edit11.Text;
i:=length(s);
if pos(',',s) <>0 then exit;
for a:=1 to i-1 do if (a mod 3)=0 then insert(',',s,i-a+1);
edit11.text:=s;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
sayi3,sayi4,b:real;
begin
sayi3:=strtofloat(edit6.Text);
sayi4:=strtofloat(edit12.Text);
b:=sayi3 * sayi4;
edit8.Text:=floattostr(b);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
sayi,sayi2,a:real;
begin
sayi:=strtofloat(edit14.Text);
sayi2:=strtofloat(edit13.Text);
a:=sayi * sayi2;
edit15.Text:=floattostr(a);
end;

procedure TForm1.Button4Click(Sender: TObject);
var
sayi,sayi2,a:real;
begin
sayi:=strtofloat(edit17.Text);
sayi2:=strtofloat(edit16.Text);
a:=sayi * sayi2;
edit18.Text:=floattostr(a);

end;

procedure TForm1.Edit21Change(Sender: TObject);
var
a,i:integer;
s:string;
begin
s:=edit21.Text;
i:=length(s);
if pos(',',s) <>0 then exit;
for a:=1 to i-1 do if (a mod 3)=0 then insert(',',s,i-a+1);
edit21.text:=s;
end;

procedure TForm1.Edit24Change(Sender: TObject);
var
a,i:integer;
s:string;
begin
s:=edit24.Text;
i:=length(s);
if pos(',',s) <>0 then exit;
for a:=1 to i-1 do if (a mod 3)=0 then insert(',',s,i-a+1);
edit24.text:=s;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
edit1.Clear;
edit3.Clear;
edit13.Clear;
edit15.Clear;
edit12.clear;
edit8.Clear;
edit18.Clear;
edit16.Clear;


end;

end.