Private Sub Combo1_Click() Dim GAJI, PAJAK, TUNJANGAN, TOTAL As Variant Select Case Combo1.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 … Lanjutkan membaca VISUAL BASIC
0 Komentar