Contoh Program Menghitung Gaji Pegawai dengan fungsi if pada Delphi 7

Alhmdulillah, Selamat datang di blog saya. Setelah pada artikel sebelumnya saya jelaskan tentang percabangan, Pada kesempatan kali ini saya akan berikan contohnya yaitu menghitung gaji pegawai. Yang kebetulan program ini adalah tugas kuliah saya di waktu semester 5. Hehe Adapun ketentuan program yang akan kita buat adalah

Besar gaji pokok:
Direktur=5000000
Manajer=3000000
Karyawan=2000000
Besar tunjangan :
Tetap=1000000
Honorer=500000
Rumus gaji bersih = Gaji pokok+tunjangan

Ok,, saatnya kita buat formnya, adapun tampilannya sbb:

Atur juga propertisnya seperti di bawah ini

Objek	Name	Caption
Form1	frmgaji	Form Hitung Gaji
Label1	Label1	Menghitung Gaji Pegawai
Label2	Label2	Nama
Label3	Label3	Jabatan
Label4	Label4	Gaji pokok
Label5	Label5	Tunjangan
Label6	Label6	Gaji Bersih
GroupBox1	GroupBox1	Status
RadioButton1	RbHonorer	Honorer
RadioButton2	RbTetap	Tetap
Button1	Bthitung	hitung
Button2	Btinput	Input Lagi
Button3	BtSelesai	Selesai

obyek	Name	Text
Edit1	ednama	–
Edit2	edgajipokok	–
Edit3	edtunjangan	–
Edit4	edgajibersih	–
ComboBox1	cbjabatan	–

Untuk Linsting Programnya Sbb:

Sebelum ke program, kita isi dulu daftar jabatanya di combo box. Untuk mengisikannya ada dua cara.Dengan ngedit di Object Propertisnya dan lewat program Untuk langkah Pertama masuk Ke object Inspector-Propertis-Items.. lalu tuliskan nama jabatanya di String list editor- Klik Ok setelah selesai.

Kalau lewat Program, Doble klik formnya, lalu ketikkan Program sbb:

procedure Tfrmgaji.FormCreate(Sender: TObject);
begin
cbjabatan.Items.Add ('Direktur');
cbjabatan.Items.Add ('Manager' );
cbjabatan.Items.Add('Karyawan
end;

Program Untuk menampilkan Gaji Pokok Berdasarkan Data di Combo Box

• Aktifkan combo box(cbjabatan)
• Pada Jendela object Inspector, pilih tab event di samping properties.
• Pilih dan aktifkan onclick, seperti yang terlihat seperti gambar berikut ini:

• Double Click pada combo On Click
• Ketikkan program berikut
  
  procedure Tfrmgaji.cbjabatanClick(Sender: TObject);
  begin
  if cbjabatan.Text = 'Direktur' then
  edgajipokok.Text := ' 5000000'
  else
  if cbjabatan.Text = 'Manajer' then
  edgajipokok.Text := '3000000'
  else
  if cbjabatan.Text = 'Karyawan' then
  edgajipokok.Text := '2000000'
  else
  edgajipokok.Text := '0' end;
    Program Menghitung Tunjangan Karyawan Honorer
  Double Click Radio Button yang honorer lalu ketikkan program Sbb:
  
  

  procedure Tfrmgaji.rbhonorerClick(Sender: TObject);
  begin
  if  rbhonorer.Checked = true then
  edtunjangan.Text :='500000';
  end;

  Program Menghitung Tunjangan Karyawan Tetap
  Double Click Radio Button Yang tetap, lalu Ketikan Program Sbb;
  
  procedure Tfrmgaji.rbtetapClick(Sender: TObject); 
  begin
  if  rbtetap.Checked = true then
  edtunjangan.Text :='1000000';
  end; Program Menghitung Gaji Bersih
  Double Click Button Hitung, Lalu ketikkan Program Berikut:
  
  procedure Tfrmgaji.bthitungClick(Sender: TObject); 
  var a,b,c:integer; 
  begin 
  a := StrToInt(edgajipokok.Text); 
  b := StrToInt(edtunjangan.Text);
   c := a+b;  
  edgajibersih.Text := IntToStr(c); 
  end;
  
  Program Input Lagi
  Double Click Button Input Lagi lalu ketikkan Program berikut:
  
  procedure Tfrmgaji.edlagiClick(Sender: TObject); 
  begin 
  cbjabatan.Text := 'Jabatan';  
  ednama.Text := ' '; 
  edgajibersih.Text := '0';  
  Edtunjangan.Text := '0';  
  edgajipokok.Text := '0'; 
  rbhonorer.Checked := false; 
  rbtetap.Checked := false;  
  end;
  
  Program Selesaiprocedure Tfrmgaji.btselesaiClick(Sender: TObject);
  begin
  close;
  end; 
  
  Hasil Jadi!!
   
  
  
  
   itu tadi contoh Program dengan fungsi IF, Kalian bisa memodifikasi program tersebut untuk menjadi program yang lebih advance lagi..
  
  

fenomena Equinox ! indonesia akan mengalami fenomena Equinox, apa itu?

Indonesia akan mengalami fenomena equinox pada 21 maret dan 23 september . Beredar kabar , suhu udara di indonesia akan mencapai 40 derajat celcius akibat fenomena ini.

Apa penjelasan badan meteorologi klimatologi dan geofisika (BMKG)?

Menurut kepala humas BMKG Hary Djatmiko, equinox adalah salah satu fenomena astronomi dimana matahari melintasi garis khatulistiwa. Secara peridodik berlangsung 2 kali dalam setahun yaitu pada 21 maret dan 23 september .

Saat fenomena ini berlangsung, di luar bagian bumi hampir relatif sama, termasuk wilayah yang berada di subtropis bagian utara maupun selatan, ujar hary di jakarta (15/3/2017).

Namun, hary menegaskan , fenomena tersebut tidak selalu mengakibatkan peningkatan suhu udara secara drasistis, dimana rata rata suhu maksimal di wilayah indonesia bisa mencapai 31 – 36 derajat celcius.

Equinox bukan merupakan fenomena seperti heatwave yang terjadi di afrika dan timur tengah yang dapat mengakibatkan peningkatan suhu udara secara besar dan bertahan lama, kata dia.

Sehingga BMKG menghimbau agar masyarakat tidak khawatir terkait dampak equinox.

Mengamankan Folder dengan Teknik (Unicode)

       Bagaimana menyimpan file dalam folder yang tidak bisa terkena virus di komputer?? jawabannya bisa menggunakan Unicode, antivirus Smadav  juga memakai tekni Unicode

        Nah yang  belum tau apa itu unicode?? Haha ini dia penjelasannya Unicode adalah suatu standar industri  yang dirancang untuk mengizinkan teks dan simbol dari semua sistem tulisan di dunia untuk di tampilkan dan dimanipulasi secara konsisten oleh komputer. Dikembangkan dengan standar universal character set dan di publikasikan dalam bentuk buku the unicode standard.

Dimana kah letak kode unicode tersebut ? 

Pertama pada sistem windows klik Start-Run, lalu ketikan Charmap. Taraa aplikasi Charmap akan muncul.

CHARMAP DI WINDOWS

Untuk mendapatkan karakter unicode, hitung karakter yang ada dari kiri ke kanan sebanyak 255 (Hex 00ff), maka karakter tersebut adalah Ansi dan sisanya adalah karakter Unicode. Oke begini caranya

pilih sebuah karakter unicode, lalu tekan Select – Copy, oke pada gambar tersebut saya memilih unicode Ω

UNICODE

2. Pilih folder yang akan kita rename dan mejadikan folder tersebut aman bagi virus yang akan merusaknya  , contohnya saya buat di folder Program

Lalu hal apa yang dapat menyebabkan karakter unicode dapat melindungi file dari infeksi virus ?? oke gini jawabanya karna ketika virus tetap memaksakan menginfeksi folder Unicode, virus akan ter-exit dan lebih baik virus melewati file unicode (juga karna enumerisasi file yang dipakai virus tidak dapat menjangkau folder unicode tersebut) .jadi kalo ada Flasdisk yg terdapat isinya virus tenang gak perlu khawatir kalo folder penting anda terkena virus :):):)

Sekian dan terimah kasih semoga bermanfaat dan dapat digunakan dengan baik