Program sederhana Menghitung Gaji karyawan dengan Visual Basic 6.0

Hnm... saya mencoba membagikan listing code tugas kuliah saya di sini...
walaupun masih sederhana... tapi ketika saya masih semester 3 dulu... ini termasuk sulit bagi saya yang masih pemula menggunakan Program Visual Basic.

well, here we go...

output :












Listing codenya :

Private Sub Combo1_Click()
If Combo1.Text = "NIKAH" Then
Text5.Text = 0.1 * Val(Text4.Text)
Else
Text5.Text = o
End If
End Sub

Private Sub Command1_Click() //tombol hitung
Text6.Text = Val(Text3.Text) + Val(Text5.Text) + Val(Text4.Text)
End Sub

Private Sub Command2_Click()// tombol ulangi
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub

Private Sub Command3_Click()// tombol keluar
End
End Sub

Private Sub Form_Load()
Combo1.AddItem "NIKAH"
Combo1.AddItem "Belum NIKAH"
Combo1.ListIndex = 0
End Sub

Private Sub Text2_Change()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

semoga bermanfaar ^_^



4 komentar:

Miki Zulkifli Usman mengatakan...
Komentar ini telah dihapus oleh pengarang.
Miki Zulkifli Usman mengatakan...
Komentar ini telah dihapus oleh pengarang.
flix20 mengatakan...

@Miki Zulkifli Usman

Private Sub Combo2.text_Click()
Text4.Text = (0.1) * val(Text3.Text)
Else
Text4.Text = "0"
End If
End Sub

Skrip VB mengatakan...

Terimakasih, artikelnya sangat bermanfaat .. Ijin share gan

Bagi Anda mahasiswa Teknik Informatika yang membutuhkan Source Code Contoh Program Penggajian Pegawai dengan Visual Basic ataupun yang lainnya, Anda dapat membelinya di www.SkripVb.com dengan harga yang sangat terjangkau, programnya lengkap dengan database dan contoh datanya sehingga Anda tinggal menggunakannya saja dan diterapkan pada makalah yang sedang Anda tulis. Source Code programnya juga dapat Anda modifikasi lagi dan Anda dapat mengembangkannya lagi sesuai dengan makalah yang sedang Anda tulis.

Untuk lebih jelasnya silahkan kunjungi www.skripvb.com

Apa yang Anda cari kami adalah solusinya.

Posting Komentar


up