TUGAS AKHIR SEMESTER II
PROGRAM 1 FORM 1 Private Sub cbogol_Click() Dim gapok, pajak, tunjangan, total As Variant Select Case cbogol.Text Case “I” gapok = 1500000 tunjangan = 200000 Case “II” gapok = 2000000 tunjangan = 200000 Case “III” gapok = 2500000 tunjangan = 250000 Case “IV” gapok = 3000000 tunjangan = 350000 Case Else gapok = 0 tunjangan… Continue reading TUGAS AKHIR SEMESTER II