·     

·        RUMUS PENYELESAIAN

 

 

·        RUMUS PENYELSAIAN

Private Sub Check1_Click()

If Check1.Value = 1 Then

    Text1 = 5000

Else

 Text1 = 0

End If

End Sub

Private Sub Check2_Click()

If Check2.Value = 1 Then

    Text4 = 10000

Else

Text4 = 0

End If

End Sub

Private Sub Check3_Click()

If Check3.Value = 1 Then

    Text7 = 15000

Else

    Text7 = 0

    End If

End Sub

Private Sub Option1_Click()

Text12 = Val(Text11) * Val(0.05)

    Text13 = Val(Text11) - Val(Text12)

End Sub

Private Sub Option2_Click()

Text12 = Val(Text11) * Val(0.1)

Text13 = Val(Text11) - Val(Text12)

End Sub

Private Sub Option3_Click()

Text12 = Val(Text11) * Val(0.15)

Text13 = Val(Text11) - Val(Text12)

End Sub

Private Sub Text10_Change()

Text10 = Val(Text2) + Val(Text5) + Val(Text8)

End Sub

Private Sub Text2_Change()

Text3 = Val(Text1) * Val(Text2)

    Text10 = Val(Text2) + Val(Text5) + Val(Text8)

    Text11 = Val(Text3) + Val(Text6) + Val(Text9)

End Sub

private Sub Text5_Change()

Text6 = Val(Text4) * Val(Text5)

    Text10 = Val(Text2) + Val(Text5) + Val(Text8)

    Text11 = Val(Text3) + Val(Text6) + Val(Text9)

End Sub

Private Sub Text8_Change()

Text9 = Val(Text7) * Val(Text8)

    Text10 = Val(Text2) + Val(Text5) + Val(Text8)

    Text11 = Val(Text3) + Val(Text6) + Val(Text9)

End Sub