konversi Archives » Jaranguda

Buat design aplikasi seperti gambar dibawah

Klik dua kali pada form, lalu tambahkan code dibawah ini

TextBox1.Clear
TextBox2.Clear
TextBox3.Clear
Label1.Text = "Dollar (USD $) "
Label2.Text = "Rupiah"
Label3.Text = "Euro"
Button1.Text = "Hitung"

Coba dijalankan aplikasi tersebut dengan menekan tombol F5 di keyboard, hasilnya seperti gambar dibawah ini

Sekarang tahap coding untuk konversi dari dolar ke rupiah dan euro. Sebagai contoh kita asumsikan 1$ = 9600 dan 1$ = 1.48€. Klik dua kali pada tombol Hitung dan tambahkan code dibawah ini

TextBox2.Text = 9600 * TextBox1.Text
TextBox3.Text = 0.74 * TextBox1.Text

tekan tombol F5 di keyboard, dan lakukan percobaan apakah aplikasi yang kita buat telah berjalan dengan lancar atau belum.

Download :

Download “Konversi Mata Uang Gambas”

konversi-0.0.1.tar.gz – Downloaded 1255 times – 178.00 B

Versi Delphi yang saya gunakan adalah Delphi XE, tetapi aplikasi ini bisa berjalan di semua versi Delphi. Buat sebuah form baru, design seperti gambar dibawah

Tool Palette yang digunakan
2 buah TEdit
1 buah TCombobox
2 buah label

Klik dua kali pada sembarang tempat di form, lalu tambahkan script dibawah ini

// membersihkan edit1 dan edit2
edit1.Clear;
edit2.Clear;
//menambahkan isi combobox
ComboBox1.Items.Add('Byte');
ComboBox1.Items.Add('Kilobyte');
ComboBox1.Items.Add('Megabyte');

Kembali ke Design form, Label1 ubah property Caption menjadi = , Label2 ubah property Caption menjadi Byte. Klik Combobox1, klik dua kali pada pada events OnChange akan terbuka view code, dimana kita bisa menambahkan coding, tambahkan script dibawah ini

var
a1, a2 : integer;
begin
if ComboBox1.Text='Byte' then
begin
//edit2.Text := edit1.Text * 1;
a1 := StrToInt(Edit1.Text) * 1;
edit2.Text := IntToStr(a1);
end
 
else if ComboBox1.Text='Kilobyte' then
begin
a1 := StrToInt(Edit1.Text) * 1024;
edit2.Text := IntToStr(a1);
end
 
else if ComboBox1.Text='Megabyte' then
begin
a1 := StrToInt(Edit1.Text) * 1048576;
edit2.Text := IntToStr(a1);
end