Inilah adalah soal UTS saya pada tanggal 6 Mei 2013, hehehe J yang berjudul Membuat Form Gaji Karyawan dengan VB.Net
Buat Desain seperti gambar dibawah ini !
Masukkan Listing program dibawah ini!
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
NIK.Items.Add("001")
NIK.Items.Add("002")
NIK.Items.Add("003")
Jabatan.Items.Add("Mandor")
Jabatan.Items.Add("Kepala Bagian")
Jabatan.Items.Add("Staf")
Status.Items.Add("Menikah")
Status.Items.Add("Belum Menikah")
End Sub
Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged
Select Case Jabatan.Text
Case "Mandor" : Gaji.Text = 1750000
Case "Kepala Bagian" : Gaji.Text = 2500000
Case "Staf" : Gaji.Text = 1250000
End Select
pajak.Text = 0.15 * Gaji.Text
End Sub
Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged
Select Case NIK.Text
Case "001" : nama.Text = "Oncom"
Case "002" : nama.Text = "Udin"
Case "003" : nama.Text = "Ujang"
End Select
End Sub
Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
Select Case Status.Text
Case "Menikah" : Tunjangan.Text = 0.15 * Gaji.Text
Case "Tidak Menikah" : Tunjangan.Text = 0
End Select
End Sub
Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
total.Text = Val(Gaji.Text) + Val(Tunjangan.Text) - Val(pajak.Text)
End Sub
Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
End
End Sub
End Class
Jalankan dengan tekan f5, maka hasilnya akan seperti gambar dibawah ini!
Selamat belajar J
Tidak ada komentar:
Posting Komentar