membuat penggajian karyawan pake vb 6.0

Disini saya akan menjelaskan tentang bagaimana cara membuat aplikasi sederhana untuk menghitung gaji.

Langkah pertama buatlah tampilan seperti berikut :



Atur properti objek yang ada di form designer seperti dalam tabel :

1 Form  - Caption - Program Penggajian

2 Form - ControlBox -  False

3 Form - BorderStyle - 1-Fixed Single

4 Form - StartUpPosition - 2-CenterScreen

5 Label1 - Caption - Slip Gaji

6 Label1 - AutoSize - True

7 Label1 - Font/Font Style - Bold

8 Label1 - Font/Size - 18

9 Label2 - Caption - Nama Pegawai

10 Label2 - AutoSize - True

11 Label2 - Font/Font Style - Bold

12 Label3 - Caption - Gaji Pokok

13 Label3 - AutoSize - True

14 Label3 - Font/Font Style - Bold

15 Label4 - Caption - Potongan

16 Label4 - AutoSize - True

17 Label4 - Font/Font Style - Bold

18 Label5 - Caption - Tunjangan

19 Label5 - AutoSize - True

20 Label5 - Font/Font Style - Bold

21 Label6 - Caption - Gaji Bersih

22 Label6 - AutoSize - True

23 Label6 - Font/Font Style - Bold

24 Text1 - Text (Dikosongkan/dihapus)

25 Text1 - Name - TxtNama

26 Text2 - Text (Dikosongkan/dihapus)

27 Text2 - Name - TxtGapok

28 Text3 - Text (Dikosongkan/dihapus)

29 Text3 - Name - TxtPot

30 Text4 - Text (Dikosongkan/dihapus)

31 Text4 - Name  - TxtTun

32 Text5 - Text - (Dikosongkan/dihapus)

33 Text5 - Name - TxtGaber

34 Command1 - Caption - &Mulai

35 Command1 - Font/Font Style - Bold

36 Command1 - Name - CmdMulai

37 Command2 - Caption - &Selesai

38 Command2 - Font/Font Style - Bold

39 Command2 - Name - CmdSelesai


Sebelum memasukkan perintah-perintah (event) pada tampilan program atau objek, sebaiknya anda simpan dahulu program yang dibuat.

dengan cara, pilih menu File > Save Project As.

Akan muncul jendela Save File As dan arahkan ke folder yang Anda inginkan dan ketik AplikasiSederhana dikotak File Name, kemudian klik tombol Save.

Jika muncul jendela Source Code Control dan klik No.

** Untuk memberi perintah pada aplikasi yang akan kita buat. Langkah-langkah memberi perintah Click Event sebagai berikut :

1. Klik dua kali CommandButton Mulai dan ketik perintah berikut.

TxtNama.Text = ” ”
TxtGapok.Text = ” ”
TxtPot.Text = ” ”
TxtTun.Text = ” ”
TxtGaber.Text = ” ”
TxtNama.SetFocus

Arti Perintah Untuk maengosongkan semua objek TextBox dan kursor/pointer di fokus ke objek TextBox TextNama.

2. Klik tombol Close (X) dipojok kanan atas tempat mengetik progaram.

3. Klik dua kali CommandButton Selesai dan ketik perintah berikut.

End

Arti perintah : Untuk mengakhiri program AplikasiSederhana.

4. Klik tombol Close (X) dipojok kanan atas tempat mengetik progaram.

5. Klik dua kali TxtTun dan pilih Procedure LostFocus.



6. Hapus blok procedure TxtTun_Change, dengan menekan tombol delete.

7. Ketik perintah TxtTun_LostFocus sebagai berikut.

TxtGaber.Text = Val(TxtGapok.Text) + Val(TxtTun.Text) – Val(TxtPot.Text)

Arti perintah : Untuk menghitung gaji bersih (TxtGaber) dari Gaji Pokok (TxtGapok) ditambah Tunjangan (TxtTun) dikurangi Potongan (TxtPot).

8. Sehingga tampilan program seperti gambar. 



9. Klik tombol Close (X) dipojok kanan atas tempat mengetik progaram.

10. Kemudian klik icon Save (bergambar disket).

** Untuk Menjalankan Program

Setelah mengetik perintah dan menyimpan kembali, langkah berikutnya menjalankan program VB. Langkah-langkah menjalankan sebagai berikut.

1. Klik ikon Start (segitiga ke kanan).

2. Sehingga tampilan program seperti gambar.



3. Ketik data Fivi untuk Nama Pegawai, ketik 700000 untuk Gaji Pokok, kosongan untuk Potongan, ketik 40000 untuk Tunjangan, tekan tombol Tab, sehingga muncul 740000 untuk Gaji Bersih seperti pada gambar.


4. Klik tombol Mulai dan Selesai. Klik tombol "Mulai" tabel akan kembali kosong / mengulang program. Tombol "Selesai" untuk mengakhiri program.

Semoga bermanfaat untuk kalian....

0 komentar: Posting Komentar