rosistmikpringsewu

Private Sub Cbogolongan_Click() Dim gapok, pajak, tunjangan, total As Variant Select Case Cbogolongan.Text Case "I" gapok = 1500000 tunjangan = 150000 Case "II" gapok = 2000000 tunjangan = 200000 Case "III" gapok = 2500000 tunjangan = 250000 Case "IV" gapok = 3000000 tunjangan = 300000 Case Else gapok = 0 tunjangan = 0 End Select total = gapok + tunjangan pajak = total * 0.1 txtgp.Text = gapok txttj.Text = tunjangan txtpj.Text = pajak txttt.Text = total - pajak End Sub Private Sub cmdbatal_Click() kosong End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() kosong End Sub Private Sub Form_Load() Cbogolongan.AddItem "I" Cbogolongan.AddItem "II" Cbogolongan.AddItem "III" Cbogolongan.AddItem "IV" End Sub Public Sub kosong() Txtnidn.SetFocus Txtnidn.Text = "" txtnp.Text = "" Cbogolongan.Text = "" txtgp.Text = "" txttj.Text = "...