Lokasi : Komplek Graha Bukit Raya 1 Blok G3 No 16 LT 3, Bandung Barat

Lokasi : Komplek Graha Bukit Raya 1 Blok G3 No 16 LT 3, Bandung Barat

VIDEO TUTORIAL MIKROTIK VIDEO + MODUL TRAINING ORDER BISA VIA TOKOPEDIA KLIK LINK GAMBAR

VIDEO TUTORIAL MIKROTIK  VIDEO + MODUL TRAINING ORDER BISA  VIA TOKOPEDIA KLIK LINK GAMBAR
Update Video Tutorial > Lebih dari 350 Video Tutorial MIkrotik

Jadwal Training Mikrotik Running Setiap Awal dan Akhir Bulan

Excel Fundamental, Excel Advanced, Dan Excel Programming VBA

IT TRAINING CENTER CONTACT : 0812-1451-8859 / 081-1219-8859

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 :



No comments:

Post a Comment

Training Bulan ini

Padepokan IT Course

Lokasi Training
Jl. H.Gofur Komplek Graha Bukit Raya 1 Blok G3 No 16 Lantai 3, Cilame, Bandung Barat

Telp : 081214518859 (WhatsApp)
E-Mail : padepokanit.course@gmail.com
Instagram : @padepokanit
Website : www.padepokanit.com

Info Site

User Online Padepokan-IT Course

IT Tutorial, Training & IT Solution