Cara membuat program konversi mata uang dengan delphi 7.0

Cara membuat program konversi mata uang dengan delphi 7.0 - Yang sedang belajar delphi, mungkin yang baru memulai beljar delphi 7.0, delphi 7.0 merupakan bahasa pemograman yang karakteristiknya GUI (Graphical user interface), bahasanya mirip dengan pascal yang jalan di dos, pada artikel ini saya akan membuat bagaimana cara membuat konversi mata uang denga delphi 7.0, program sederhana sich, tapi mungkin bisa membantu bagi para pemula.

Cara membuat program konversi mata uang dengan delphi 7.0

1. Yang pertama buka delphi 7.0 anda dan buat designya kira-kira seperti dibawah ini

     2. Selanjutnya Klik Button konversi dan ketikan source code dibawah ini

procedure TForm1.Button1Click(Sender: TObject);
var rp,dl,ps,rm : Real; //Deklarasi variabel
begin
rp:=StrToFloat(edrupiah.Text); //konvert dari string ke float
dl:= rp / 9000 ;                        //diasumsikan 1 dolar = 9000
ps:= rp /15000;                       //diasumsikan 1 poundsterling = 15000
rm:= rp / 2500;                       //diasumsikan 1 ringgit malaysia = 2500

Eddolar.Text:=FloatToStr(dl);
EdPond.Text:=FloatToStr(ps);
EdMalaysia.Text:=FloatToStr(rm);

end;

end

      3. Klik button Reset untuk memberishkan layar, cara membuatnya ketik source code dibawah ini :

procedure TForm1.Button2Click(Sender: TObject);
begin
edrupiah.Text:=''; //edrupiah,eddolar,edpond,edmalaysia adalah name dari edit anda bs ganti
Eddolar.Text:='';
EdPond.Text:='';
EdMalaysia.Text:='';
end;

end. 

Keterangan : Text Warna Merah adalah keterangan jangan diketik, Selamat mencoba dan Smoga bermanfaat.