Pertemuan5

Rumus :

Public Class FormGajiPegawaiPabrik

Dim byAsuransi, gajiPokok, totalGaji As Integer
Dim jenisKelamin As String

Private Sub BtnIsiDataBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIsiDataBaru.Click
TxtNIP.Text = ""
TxtNama.Text = ""
TxtAlamat.Text = ""
LBData.Items.Clear()
End Sub

Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
If MsgBox("Apakah Anda Yakin Ingi Kular Aplikasi Ini?", MsgBoxStyle.YesNo, "Exit") = MsgBoxResult.Yes Then
Me.Close()
Else
Me.Show()
End If
End Sub

Private Sub BtnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHitung.Click
LBData.Items.Add("NIP : " & TxtNIP.Text)
LBData.Items.Add("Nama : " & TxtNama.Text)
LBData.Items.Add("Alamat : " & TxtAlamat.Text)
LBData.Items.Add("Jenis Kelamin : " & jenisKelamin)
LBData.Items.Add("------------------------")
LBData.Items.Add("Biaya Asuransi : " & byAsuransi)
LBData.Items.Add("Gaji Pokok : " & gajipokok)
LBData.Items.Add("Biaya Lembur : " & Val(TxtJam.Text) * 25000)
totalgaji = gajipokok + byAsuransi
LBData.Items.Add("Total Gaji : " & totalGaji)
End Sub


Private Sub RBPria_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBPria.CheckedChanged
byAsuransi = 300000
jenisKelamin = "Pria"
End Sub

Private Sub RBWanita_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBWanita.CheckedChanged
byAsuransi = 325000
jenisKelamin = "Wanita"
End Sub

Private Sub RB1A_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RB1A.CheckedChanged
gajiPokok = 1750000
End Sub

Private Sub RB1B_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RB1B.CheckedChanged
gajiPokok = 2100000
End Sub

Private Sub RB2A_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RB2A.CheckedChanged
gajiPokok = 2300000
End Sub

Private Sub RBYa_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBYa.CheckedChanged
TxtJam.Enabled = True
End Sub

Private Sub RBTidak_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBTidak.CheckedChanged
TxtJam.Enabled = False
TxtJam.Text = ""
End Sub


End Class