Setelah sekian lama admin gak buka blog ini, akhirnya kali ini bisa hadir lagi... hehe
Postingan kali ini admin akan memberi tutorial yang mungkin para sobat semua sudah pada ngerti. Bagaimana cara membuat aplikasi sederhana gaji karyawan. Ok langsung saja sob...
- Langkah pertama membuat tampilan seperti di bawah ini
Kemudian atur properti objek yang ada di form seperti gambar di atas.
- Form - Caption - Program Penggajian
- Form - ControlBox - False
- Form - BorderStyle - 1-Fixed Single
- Form - StartUpPosition - 2-CenterScreen
- Label1 - Caption - Slip Gaji
- Label1 - AutoSize - True
- Label1 - Font/Font Style - Bold
- Label1 - Font/Size - 18
- Label2 - Caption - Nama Pegawai
- Label2 - AutoSize - True
- Label2 - Font/Font Style - Bold
- Label3 - Caption - Gaji Pokok
- Label3 - AutoSize - True
- Label3 - Font/Font Style - Bold
- Label4 - Caption - Potongan
- Label4 - AutoSize - True
- Label4 - Font/Font Style - Bold
- Label5 - Caption - Tunjangan
- Label5 - AutoSize - True
- Label5 - Font/Font Style - Bold
- Label6 - Caption - Gaji Bersih
- Label6 - AutoSize - True
- Label6 - Font/Font Style - Bold
- Text1 - Text (Dikosongkan/dihapus)
- Text1 - Name - TxtNama
- Text2 - Text (Dikosongkan/dihapus)
- Text2 - Name - TxtGapok
- Text3 - Text (Dikosongkan/dihapus)
- Text3 - Name - TxtPot
- Text4 - Text (Dikosongkan/dihapus)
- Text4 - Name - TxtTun
- Text5 - Text - (Dikosongkan/dihapus)
- Text5 - Name - TxtGaber
- Command1 - Caption - &Mulai
- Command1 - Font/Font Style - Bold
- Command1 - Name - CmdMulai
- Command2 - Caption - &Selesai
- Command2 - Font/Font Style - Bold
- Command2 - Name - CmdSelesai
- 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 kode seperti 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 Close (
X ) layar CommandButton Mulai
3. Klik dua kali CommandButton Selesai dan ketik kode seperti berikut.
End
Arti perintah : Untuk mengakhiri program AplikasiSederhana.
4. Klik Close (
X ) layar CommandButton Selesai
5. Klik dua kali TextBox yang bernama TxtTun dan pilih Procedure LostFocus. seperti gambar di bawah :
6. Ketik kode dibawah 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).
7. Sehingga tampilan program seperti gambar.
8. Klik Close (
X ) pada layar textbox.
Sebelum masuk ke langkah berikutnya sebaiknya sobat simpan dahulu program yang sudah dibuat.
dengan cara, pilih menu File > Save Project.
Akan muncul jendela Save File dan arahkan ke folder yang Anda
inginkan dan ketik AplikasiSederhana dikotak File Name, kemudian klik
tombol Save.
Langkah berikutnya menjalankan program VB. Langkah-langkah menjalankan sebagai berikut.
1. Klik menu Run >> Start atau klik icon segitiga arah kanan.
2. Sehingga tampilan program seperti gambar di bawah.
3. Isikan data sesuai keinginan sobat. Di sini admin memberi contoh Muis untuk Nama Pegawai, 1000000 untuk Gaji Pokok, 30500 untuk Potongan, 11000 untuk Tunjangan, tekan tombol Tab,
sehingga akan otomatis menjumlah.980500 untuk Gaji Bersih seperti pada gambar di bawah.
4. Klik tombol Mulai untuk mengulang kembali dan klik tombol Selesai untuk mengakhiri program.
Itu tadi penjelasan tentang bagaimana cara membuat program sederhana dengan VB. Semoga bermanfaat bagi sobat semua.
Jangan lupa tinggalkan komentar di bawah untuk memberi kritik dan saran buat admin.!!!