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