Membuat Aplikasi Gaji Pegawai Dengan Visual Basic 6.0
Hai soba Informasi Digital kali ini saya akan post tentang program sederhana menggunakan Visual Basic 6.0 biasa di sebut VB6. Program yang saya buat ini yaitu contoh dari Penghitungan Gaji Pegawai. Sebelum saya memberitahu tentang cara membuatnya, Saya akan menjelaskan sedikit tentang Visual Basic 6.0 atau VB 6.
Apa itu Visual Basic ?
Visual Basic ( atau biasa di sebut VB ) adalah bahasa pemrograman yang memberikan Integrated Development Environment visual atau disebut (IDE) yang digunakan untuk membuat program berbasis Dekstop dengan sistem Operasi Microsoft Windows dengan menggunakan model pemrograman (COM).
Membuat Aplikasi Gaji Pegawai Dengan Visual Basic 6.0
1. Install Aplikasi Visual Basic 6.0, Jika sudah bisa langsung anda buka.
2. Buat Project baru dengan memilih Standar.exe
3. Anda akan di bawa ke dalam form, Lalu masukan label, textbox, frame, combobox, button. Design seperti yang ada di gambar
 |  |
4. Jika sudah hilangkan bacaan yang ada di text box dan combobox dengan mengganti text pada properties, ubah nama di label dengan mengganti caption pada properties.
|  |
5. Jika sudah masukan script agar program berjalan.
Dim a As Currency
Dim b As Currency
Dim c As Currency
Dim d As Currency
Dim e As Currency
---------------------------------------------------------------
Private Sub Command1_Click()
If Combo1.Text = "Direktur" And Combo2.Text = "A" Then
Text3 = 30000000
Else
If Combo1.Text = "Direktur" And Combo2.Text = "B" Then
Text3 = 35000000
Else
If Combo1.Text = "Manager" And Combo2.Text = "A" Then
Text3 = 10000000
Else
If Combo1.Text = "Manager" And Combo2.Text = "B" Then
Text3 = 15000000
Else
If Combo1.Text = "Personalia" And Combo2.Text = "A" Then
Text3 = 7000000
Else
If Combo1.Text = "Personalia" And Combo2.Text = "B" Then
Text3 = 5000000
Else
If Combo1.Text = "Karyawan" And Combo2.Text = "A" Then
Text3 = 2500000
Else
Text3 = 3000000
End If
End If
End If
End If
End If
End If
End If
If Text1.Text = Text1.Text Then
If Text1.Text = "" Then
Text1 = 0
End If
Text4 = 10 / 100 * Text3.Text * Text1.Text
End If
Text5 = 5 / 100 * Text3.Text
Text6 = 7 / 100 * Text3.Text
Text7 = 2 / 100 * Text3.Text
a = Text3.Text
b = Text4.Text
c = Text5.Text
d = Text6.Text
e = Text7.Text
Text8 = a + b + c + d - e
End Sub
-----------------------------------------------------------
Private Sub Command2_Click()
Combo1.Text = ""
Combo2.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
End Sub
-----------------------------------------------------------
Private Sub Form_Load()
Combo1.AddItem ("Direktur")
Combo1.AddItem ("Manager")
Combo1.AddItem ("Personalia")
Combo1.AddItem ("Karyawan")
Combo2.AddItem ("A")
Combo2.AddItem ("B")
End Sub
6. Jika sudah coba anda jalankan program, jika muncul debug berarti script anda ada yang salah, jika tidak script anda susah benar.
7. Selesai.
Program Berhasil Dijalankan
Akhirnya Selesai juga, itu dia cara membuat Program Gaji Pegawai yang sederhana dengan menggunakan visual basic 6.0 jika sobat belum mengerti bisa anda tanyakan di kolom komentar. Sekian dan Terimakasih Selamat Mencoba.
Jangan Lupa Kunjungi Artikel Lainnya :
Cara membuat gambar gif dengan photoshop : Disini
Download harvest moon back to nature untuk pc : Disini
"Sebaik baiknya informasi adalah yang bermanfaat bagi pembacanya dan penulisnya"