Aplikasi Hitung Gaji Karyawan Sederhana

Pada kesempatan kali ini, dalam posting delphi7 saya ingin berbagai cara membuat aplikasi penggajian sangat sederhana. Itung-itung untuk menyelesaikan tugas kuliah kalian yang tidak ada ide. cukup sederhana, karena dalam program ini hanya memakai syntax if then. Kita ingin membuat aplikasi seperti ini:

komponennya adalah sebagai berikut:

Form5

Form	Name	Caption
Form5	Form5	Hitung Gaji

Komponen

Komponen	Properties	Nilai
Radiogrup	Name Caption	Rb Jabatan
Groupbox1	Name Caption	Groupbox1 Penggajian
Label1	Name Caption	Label1 Nama
Label2	Name Caption	Label2 Anak
Label3	Name Caption	Label3 Jumlah Lembur
Label4	Name Caption	Label4 Rata-rata Keterlambatan
Label5	Name Caption	Label5 Gaji Total
Label6	Name Caption	Label6 Hitung Gaji Karyawan
Button1	Name Caption	Button1 Hitung Gaji
Button2	Name Caption	Button2 Hapus
Button3	Name Caption	Button3 Keluar
Edit1	Name Caption	Edit1
Edit2	Name Caption	Edit2
Edit3	Name Caption	Edit3
Edit4	Name Caption	Edit4
Edit5	Name Caption	Edit5

Untuk listingnya kalian boleh copy paste tapi hati2 karena ada beberapa yang saya rubah, saya berharap kalian mengerti maksud dari listing dibawah ini:

unit Unit1;
 interface
 uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 type
  TForm5 = class(TForm)
    GroupBox1: TGroupBox;
    rb: TRadioGroup;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit5: TEdit;
    Button2: TButton;
    Button3: TButton;
    Label5: TLabel;
    Label6: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 var
  Form2: TForm2;
 implementation
 uses Unit3;
 {$R *.dfm}
 procedure TForm5.Button2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
end;
 procedure TForm5.Button3Click(Sender: TObject);
begin
CanClose:= false;
  if (MessageBox(Self.Handle,'Apakah anda yakin akan keluar?',
      'Konfirmasi',MB_YESNO+MB_ICONINFORMATION)=IDYES) then
      form3.Show;
      form3.Enabled:=false;
end;
  procedure TForm5.Button1Click(Sender: TObject);
var lembur,terlambat:integer;
gp,gt:currency;
const a=10000;
      b=15000;
begin
anak:=StrToInt(label2.Text);
lembur:=StrToInt(edit3.Text);
terlambat:=StrToInt(edit4.Text);
  if rb.ItemIndex=0 then
gp:=1000000
else
if rb.ItemIndex=1 then
gp:=850000
else
if rb.ItemIndex=2 then
gp:=650000
else
if rb.ItemIndex=3 then
gp:=500000;
 if terlambat<=10 then
begin
gt:=(gp)+(lembur*a)+(anak*b)-10000;
edit5.Text:=CurrToStr(gt);
end
else
begin
if terlambat>10 then
gt:=(gp)+(lembur*b)+(anak*b)-20000;
edit5.Text:=CurrToStr(gt);
end;
end;
  end.

 Demikian posting ini ya, semoga bermanfaat. Untuk pertanyan: bang.toh4@gmail.com

Read More

Membuat Form Log In Sederhana

Sudah lama saya tidak posting akhirnya ada kesempatan kembali untuk  posting sebuah arikel mengenai form login pada pemrograman delphi7. Langsung saja pada pokok pembahasannya, kita akan buat sebuah form log in sperti gambar dibawah ini:

Buat tampilan hingga seperti itu, untuk penjelasannya Name:Form1,Caption:Log in. Dan komponen lain ialah sebagai berikut:

Komponen	Properties	Nilai
Button1	Name Caption	Button1 Login
Button2	Name Caption	Button2 Exit
Edit1	Edit1
Edit2	Edit2
Label1	Label1	Login Form
Label2	Label2	Username
Label3	Label3	Password

Untuk listing programnya bisa kalian copy paste, tapi ingat saya tidak memberikan 100% listing itu benar agar kalian bisa belajar. Listingnya adalah sebagai berikut:

unit Unit4;
 interface
 uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, Mask, DBCtrls;
 type
  TForm4 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1klick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 var
  Form4: TForm4;
 implementation
 uses Unit3;
 {$R *.dfm}
 procedure TForm4.Button3Click(Sender: TObject);
begin
if (Edit1.Text='admin') and (Edit2.Text='99999') then
begin
MessageDlg('Selamat datang di SISTEM INFORMASI PEGAWAI!!',mtInformation,[mbOK],0);
form3.show;
form4.Enabled:=false;
end
else if Edit1.Text='mustoharoh' then
ShowMessage('password salah')
else ShowMessage('user name tidak cocok');
end;
 procedure TForm4.Button2Click(Sender: TObject);
begin
CanClose:= false;
  if (MessageBox(Self.Handle,'Apakah anda yakin akan keluar?',
      'Konfirmasi',MB_YESNO+MB_ICONINFORMATION)=IDYES) then
      Application.Terminate;
end;
 end.

Keterangan dari listing yang berwarna kuning adlah nama user login yang akan diperbolehkan dan yang berwarna biru adalah paswordnya. Demikian selamat mencoba.

Read More

Contoh Pemrograman Timer Delphi

Bagi Info Kita | Pada kesempatan posting kali ini saya ingin berbagi cara bagaimana membuat program agar selayaknya lampu merah dapat berganti pada setiap detiknya. Langsung saja kita praktekkan, sebelumnya kita siapkan terlebih dahulu beberapa komponennya terlebih dahulu yaitu:

Form: Form1

Name : Form1

Caption : Latihan

Selanjutnya

Timer1: Timer1
Shape1: Shpred 
Shape2: Shpblue 
Shape3: Shpgreen 
Shape4: Shpyellow 
untuk listing programnya seperti dibawah ini:


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if ShpRed.Brush.Color=clRed then
  begin
     Timer1.Interval:=1000;
     ShpRed.Brush.Color:=clwhite;
     ShpGreen.Brush.Color:=clGreen;
     ShpYellow.Brush.Color:=clwhite;
     Shpblue.Brush.Color:=clwhite;
  end
  else if ShpGreen.Brush.Color=clGreen then
  begin
     Timer1.Interval:=1000;
     ShpRed.Brush.Color:=clwhite;
     ShpGreen.Brush.Color:=clwhite;
     ShpYellow.Brush.Color:=clYellow;
     Shpblue.Brush.Color:=clwhite;
  end
  else if Shpyellow.Brush.Color=clyellow then
  begin
     Timer1.Interval:=1000;
     ShpRed.Brush.Color:=clwhite;
     ShpGreen.Brush.Color:=clwhite;
     ShpYellow.Brush.Color:=clwhite;
     Shpblue.Brush.Color:=clblue;
  end
  else
  begin
     Timer1.Interval:=1000;
     ShpRed.Brush.Color:=clRed;
     ShpGreen.Brush.Color:=clwhite;
     ShpYellow.Brush.Color:=clwhite;
     Shpblue.Brush.Color:=clwhite;
  end;
end;

Sekali lagi saya sarankan agar memahami terlebih dahulu jika anda ingin copy/paste listing ini. Semua ilmu akan lebih melekat lama dengan usaha keras dalam memperolehnya. 

Read More

Pemrograman Grafik Delphi

Akhirnya bisa posting lagi, sempat malas melanda. Tapi semangat untuk share ilmu delphi kecil ini tetap besar. Artikel ini saya beri judul "Pemrograman grafik delphi", ya memang meskipun saya sedang tahap belajar. Namun, apa salahnya untuk berbagi. Pertama mari kita ulas terlebih dahulu apa itu pemrograman grafik delphi. Beberapa hal yang perlu kita ketahui terkait pemrograman grafik, diantaranya:

• Kanvas
• Piksel
• Koordinat

Kanvas dapat dibayangkan seperti kertas/ kain yang akan kita gunakan untuk menggambar suatu objek. Padaform kanvas diimplementasikan melalui property yang disebut Canvas. Kanvas tersusun atas piksel.

Piksel adalah elemen terkecil pada kanvas yang dapat dimanipulasi. Setiap piksel mempunyai koordinat, yang dinyatakan pada x dan y. Canvas mempunyai property bernama pen, atribut ini berguna untuk pengaturan color, style, width dan lain-lain. Dengan canvas kita dapat menggambar objek kotak, lingkaran, busur, dan sebagainya. Agar lebih jelas dalam pemahaman fungsi canvas disini saya sediakan contoh implemtasi pemrograman grafik pada delphi untuk membuat objek seperti pada gambar. 

Untuk listingnya bisa sobat copy paste seperti dibawah ini, sebelum anda copy paste usahakan anda mengerti maksud dari listing tersebut ya, agar anda bisa tahu alurnya.

procedure TForm1.Button1Click(Sender: TObject);

begin //untuk menggambar anak panah

Canvas.Rectangle(40,40,45,60);

Canvas.Rectangle(46,40,56,60);

Canvas.Polygon([Point(120,50),Point(80,70),Point(80,60),

Point(57,60),Point(57,40),Point(80,40),Point(80,30),Point(120,50)]);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin // untuk menggambar tabung

Canvas.Ellipse(200,20,300,50);

Canvas.Polygon([Point(200,35),Point(200,115)]);

Canvas.Polygon([Point(300,35),Point(300,115)]);

canvas.Arc(200,100,300,130,200,115,300,115);

button3.Visible := true ;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin // untuk menggambar kotak

Canvas.Polygon([Point(400,20),Point(400,40),Point(380,40),

Point(380,80),Point(400,80),Point(400,100),Point(800,100),Point(800,80),

Point(820,80),Point(820,40),Point(800,40),Point(800,20),Point(400,20)]);

end;

end.

Demikian, selamat mencobaya.

Read More

MtError, MtWarning, dan MtConfirmation

Pada kesempatan ini saya ingin memberikan tutorial cara membuat pesan error, peringatan atau konfirmasi. Dalam pemrograman delphi, pesan ini disebut MtError, MtWarning, dan MtConfirmation. Langsung saja, yang pertama yaitu MtError. MtError atau pesan error pada program delphi keluar ketika melakukan kesalahan input dan kelur pesan bertanda silang seperti gambar dibawah ini:

MtError

Untuk membuatnya kita langsung saja buat komponennya atau penyusunnya, yaitu: Button1 dan Form1. Buatlah button1 pada form satu dan masukkan listing berikut:

procedure TForm1.Button2Click(Sender: TObject);beginMessageDlg('salah, Apakah inging mengulang?',mterror,[mbok],0)

end;

Mudah bukan? mbOk adalah pesan yang ingin ditampilkan untuk pilihan Ok, pilihan yang lain adalah cencel, no, yes. Untuk Mtwarning/mtConfirmation sama saja hanya diganti  pada teks yang berwarna kuning dengan MtWarning atau MtConfirmation. Selamat mencoba ya.

Read More

Membuat Calculator Sederhana

Alhamdulillah, pada kesempatan ini saya ingin berbagi sedikit ilmu yang saya peroleh tadi siang. Sesuai dengan judul artikel ini saya ingin memberikan tutorial membuat kalkulator sederhana menggunakan delphi 7. Langsung saja. Untuk pertama terlebih dulu kita buat komponen penyusunnya terlebih dahulu agar membentuk tampilan seperti berikut:

Tampilan Awal

dengan komponen utamanya sebagai berikut:
a. Edit1 utuk masukan bil 1.
b. Edit2 untuk masukan bil 2.
c. Edit3 untuk hasil.
d. Button1 untuk pengurangan.
e. Button2 untuk penjumlahan.
f. Button3 untuk perkalian.
g. Button4 untuk pembagian.
h. Button5 untuk Clear edit1,2, dan 3.
Untuk membuat kalkulator sederhana ini kita harus membuat variabel bil1,bil2, dan jumlah.
var
  Form1: TForm1;
  bil1,bil2,jumlah:real;


dan masukkan tiap listing dibawah ini sesuai dengan simbolnya
Pengurangan:

procedure TForm1.Button1Click(Sender: TObject);
begin
  bil1:=strtofloat(edit1.text);
  bil2:=strtofloat(edit2.text);
  jumlah:=bil1-bil2;
  edit3.Text:=floatTostr(jumlah);
end;

Penjumlahan:

procedure TForm1.Button1Click(Sender: TObject);
begin
  bil1:=strtofloat(edit1.text);
  bil2:=strtofloat(edit2.text);
  jumlah:=bil1+bil2;
  edit3.Text:=floatTostr(jumlah);
end;


Perkalian:

procedure TForm1.Button1Click(Sender: TObject);
begin
  bil1:=strtofloat(edit1.text);
  bil2:=strtofloat(edit2.text);
  jumlah:=bil1*bil2;
  edit3.Text:=floatTostr(jumlah);
end;


Pembagian:

procedure TForm1.Button1Click(Sender: TObject);
begin
  bil1:=strtofloat(edit1.text);
  bil2:=strtofloat(edit2.text);
  jumlah:=bil1/bil2;
  edit3.Text:=floatTostr(jumlah);
end;


Sehingga didapan listing keseluruhan program sebagai berikut:

var
  Form1: TForm1;
  bil1,bil2,jumlah:real;


implementation


{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
  bil1:=strtofloat(edit1.text);
  bil2:=strtofloat(edit2.text);
  jumlah:=bil1-bil2;
  edit3.Text:=floatTostr(jumlah);
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  bil1:=strtofloat(edit1.text);
  bil2:=StrToFloat(edit2.text);
  jumlah:=bil1+bil2;
  edit3.Text:=floatToStr(jumlah);
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
  bil1:=StrToFloat(edit1.text);
  bil2:=StrToFloat(edit2.text);
  jumlah:=bil1*bil2;
  edit3.Text:=floatToStr(jumlah);
end;


procedure TForm1.Button4Click(Sender: TObject);
begin
  bil1:=strtofloat(edit1.text);
  bil2:=strtofloat(edit2.text);
  jumlah:=bil1/bil2;
  edit3.Text:=floattostr(jumlah);
end;


procedure TForm1.Button5Click(Sender: TObject);
begin
  edit1.Clear;
    edit2.Clear;
      edit3.Clear;
end;


procedure TForm1.Edit1Change(Sender: TObject);
begin


end;
end.


Setelah semua ssource code diamsukkan pada tiap Button maka cobalah untuk dijalankan. Jika terjadi kesalah coba anda teliti kembali hingga aplikasi ini benar-benar dapat berjalan. Demikian saja artikel ringan ini, semoga bermanfaat. Terimakasih

Read More