kredit_sepeda_motor_visual_basic

Dim a As Single, b As Single
Dim c As Single
Private Sub Command1_Click()
If Text2.Text = "" Then
MsgBox "Masukkan Angsuran!"
ElseIf Text2.Text <= 1 Then
Text3.Text = Text1.Text - (Text1.Text / 100 * 10)
ElseIf Text2.Text <= 5 Then
Text3.Text = Text1.Text - (Text1.Text / 100 * 5)
ElseIf Text2.Text <= 12 Then
Text3.Text = Text1.Text - (Text1.Text / 100)
ElseIf Text2.Text > 12 Then
Text3.Text = Text1.Text
ElseIf Text2.Text = "" Then
MsgBox "Masukkan Angsuran!"
End If
End Sub
Private Sub Command2_Click()
End
End Sub