Memahami fungsi konversi Data di Delphi Studi Kasus Membuat Aplikasi Perhitungan Gaji Sederhana

Dalam bekerja dengan delphi kita harus mengenal dan mencoba berbagai fungsi konversi data salah satunya adalah fungsi str to float diamana Strtofloat  adalah fungsi yang digunakan merubah nilai dari tipe data string menjadi tipe data numeric, sedangkan  Floattostr  adalah fungsi yang digunakan merubah nilai pecahan menjadi data string.  berikut teori dari masing-masing fungsi tersebut

Fungsi STR TO FLOAT

Digunakan untuk mengubah String yang mempresentasikan data bertipe integer menjadi
sebuah nilai floatingpoint (bilangan real).
Sintaks :
Function Strtofloat (const S : String) : Extended ; overload ;
Function Strtofloat (const S : String ; Const 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 - See more at:

Fungsi Float To STR

Fungsi tersebut Digunakan untuk mengubah nilai floating-point menjadi sebuah string
Sintaks :
Function floattostr (value : Extended) : String ; overload ;
Contoh :
Mystring := FloatToStr (3,14*4)
Artinya data bertipe real (yaitu 12,56, yang merupakan hasil perhitungan 3,14*4) dirubah menjadi data bertipe string yang disimpan di variable mystring. - See more at: 

untuk memahami teori diatas kita langsung lakukan studi kasus pahami dengan seksama.

STUDI KASUS

Sistem akan menghitung gaji pegawai berdarkan jabatan, dan status pegawai dimana cara kerja sistem ketika di pilih jabatan, maka gaji pokok akan ditampilkan sesuai jabatannya masing-masing. Dan tunjangan akan diberikan sesuai status kepegawaiannya. Sehingga total gaji bersih didapat dari gaji pokok + tunjangan.

Langkahnya  adalah sebagai berikut:

1.       Desain Form seperti dibawah ini

DESAIN FORM HITUNG GAJI

2.       Buat coding untuk masing-masing event di tiap komponen seperti terlihat pada source code dibawah ini.

Komponen	ComboBox
Event	Onclick
Coding	procedure TFhitunggaji.cb_jabatanClick(Sender: TObject); begin if cb_jabatan.Text = 'Direktur' then   ed_gapok.Text := '7500000' else if cb_jabatan.Text = 'Supervisor' then   ed_gapok.Text := '4000000' else if cb_jabatan.Text = 'Staff' then   ed_gapok.Text := '2500000' else   ed_gapok.Text := '0'; end;

Komponen	Radio Button
Event	Onclick
Coding	procedure TFhitunggaji.rb_tetapClick(Sender: TObject); begin if rb_tetap.Checked = true then   Begin    a := strtofloat(ed_gapok.Text);    hasil := a * 0.3;    ed_tunjangan.Text := floattostr(hasil);   end; end; procedure TFhitunggaji.rb_kontrakClick(Sender: TObject); begin if rb_kontrak.Checked = true then   Begin     a := strtofloat(ed_gapok.Text);     hasil := a * 0.2;     ed_tunjangan.Text := floattostr(hasil);   end;   end;

Komponen	Button Hitung Gaji
Event	Onclick
Coding	procedure TFhitunggaji.bt_totalgajiClick(Sender: TObject); var  a,b,c : real; begin a := strtofloat(ed_gapok.Text); b := strtofloat(ed_tunjangan.Text); c := a + b; ed_gajibersih.Text := floattostr(c); end;

Komponen	Button Tambah Data
Event	Onclick
Coding	procedure TFhitunggaji.bt_tambahClick(Sender: TObject); begin   ed_nama.Text := '';   cb_jabatan.Text := '';   ed_gapok.Text := '0';  ed_tunjangan.Text := '0'; ed_gajibersih.Text := '0'; rb_tetap.Checked := false; rb_kontrak.Checked := false; end;

Komponen	Button Close
Event	Onclick
Coding	procedure TFhitunggaji.bt_closeClick(Sender: TObject); begin if Application.MessageBox('Anda yakin akan keluar','informasi',MB_YESNO)=IDYES then   close; end;

3.       Hasilnya akan tampak seperti pada gambar dibawah ini

HASIL PERHITUNGAN GAJI

Selamat Mencoba

Share

Artikel Lainnya :