Disini saya akan menjelaskan tentang bagaimana cara membuat aplikasi sederhana untuk menghitung gaji.
Langkah pertama buatlah tampilan seperti berikut :
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....
