Contoh Program Konversi Mata Uang Pada Delphi

Diskripsi Program

                Program ini dikerjakan dengan menggunakan Delphi7. Program ini adalah Program Konversi    Uang, cara kerja program ini adalah dengan cara menginputkan nilai Rupiah pada kolom rupiah, maka saat kita mengklit tombol button “Konversi” maka secara otomatis akan keluar nilai mata uang dari beberapa negara, sedangkan mata uang yang dipakai pada program ini adalah mata uang Euro, Dollar, Ringgit, Riyal. Selain tombol button “Konversi” ada juaga tombol button “ Hapus” yang berfungsi untuk menghapus semua inputan yang telah diketik, dan yang terakhir ada tombol button “keluar, yang berfungsi keluar dari program tersebut.

 Interface Program

 

 

 Source Code

Nama Komponene	Event	Perintah
Button1	OnClick	procedure TForm1.BitBtn1Click(Sender: TObject); var rp,euro,dollar,rg,riyal:real; begin rp:=strtofloat(edit1.text); euro:=rp/15410.86; dollar:=rp/12078.80; rg:=rp/3689.31; riyal:=rp/3220.15; edit2.Text:=floattostr(euro); edit3.text:=floattostr(dollar); edit4.text:=floattostr(rg); edit5.Text:=floattostr(riyal); end;
Button2	OnClick	procedure TForm1.BitBtn2Click(Sender: TObject); begin edit1.Text:=''; edit2.Text:=''; edit3.Text:=''; edit4.Text:=''; edit5.Text:=''; end;
Button3	OnClick	procedure TForm1.BitBtn3Click(Sender: TObject); begin close; end;

 Output

      

1. Tampilan Saat pertama kali program dijalnkan.

2.   Tampilan saat penginputan nilai Rupiah.
     

3. Saat tombol Button “konversi” di tekan, maka secara otomatis hasil konversi akan keluar 
       

4. Saat tombol button “Hapus” dipilih maka secara otomatis semua  inputan akan terhapus.