Padepokan IT, Kursus Komputer, Private Komputer, Jasa Komputer, : Cara Mudah memahami Aplikasi Perhitungan Sederhana di Delphi studi kasus membuat program kalkulator

Untuk Membuat aplikasi kalkulator memerlukan suau fungsi konversi type data, banyak sekali konversi data yang bisa dilakukan pada Delphi. Contoh konversi diantaranya floattostr Fungsi ini digunakan untuk mengubah String yang mempresentasikan data bertipe integer menjadi sebuah nilai floatingpoint (bilangan real). Berikut beberapa tipe data konversi yang lainnya.

Type data:
Strtoint                : Mengubah type data string ke integer.
Inttostr                 : Mengubah type data integer ke string.
Timetostr            : Mengubah type data time ke dalam bentuk string.
Strtofloat            : Mengubah type data string ke dalam bentuk real.

Sintaks :
Function Strtofloat (const S : String) : Extended ; overload ;
Function Strtofloat (const S : String ; C
onst format settings : tformat
settings) : Extended ; overload ;

Contoh : Bilangan real:= strtofloat (edit1.text) ;
Artinya mengubah data yang bertipe String di dalam komponen edit1 menjadi data yang
bertipe Extended (real) yang disimpan di variable bilangan real.

Untuk Memudahkan memahami fungsi tersebut akan kita coba membuat aplikasi sederhana membuat program perhitungan sederhana.

Langkahnya

1. Desain Form Seperti dibawah ini

2. Selanjutnya Buat Coding Seperti dibawah ini

Even On Click	Button Tambah, Button Hapus, Button Kali, Button Bagi, dan Button Clear
Coding	procedure Ttugas3.bt_tambahClick(Sender: TObject); begin a := StrToFloat(ed_bil1.Text); b := StrToFloat(ed_bil2.Text); c := a + b; ed_hasil.Text := floattostr(c); end; procedure Ttugas3.bt_kurangClick(Sender: TObject); begin a := StrToFloat(ed_bil1.Text); b := StrToFloat(ed_bil2.Text); c := a - b; ed_hasil.Text := FloatToStr(c); end; procedure Ttugas3.bt_bagiClick(Sender: TObject); begin a := StrToFloat(ed_bil1.Text); b := StrToFloat(ed_bil2.Text); c := a / b; ed_hasil.Text := FloatToStr(c); end; procedure Ttugas3.bt_kaliClick(Sender: TObject); begin a := StrToFloat(ed_bil1.Text); b := StrToFloat(ed_bil2.Text); c := a * b; ed_hasil.Text := FloatToStr(c); end; procedure Ttugas3.ed_clearClick(Sender: TObject); begin ed_bil1.Text := ''; ed_bil2.Text := ''; ed_hasil.Text := ''; ed_bil1.SetFocus; end;
Keterangan	1. Variabel disimpan di Variabel Global mnggunakan type real var a,b,c,hasil : real; 2. Program diatas menggunakan fungsi Floattostr yaitu suatu berfungsi Mengubah type data real ke dalam bentuk string.