Contoh Visual Basic (Nilai Uang & Restorant)

 Rumus

Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub Form_Load()

End Sub

Private Sub Option1_Click()
Text2 = Val(Text1) * 10000
End Sub

Private Sub Option2_Click()
Text2 = Val(Text1) * 7500
End Sub

Private Sub Option3_Click()
Text2 = Val(Text1) * 5000
End Sub

Private Sub Option4_Click()
Text2 = Val(Text1) * 8000
End Sub

 Rumus

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) * 0.05
Text13 = Val(Text11) - Val(Text12)

End Sub

Private Sub Option2_Click()
Text12 = Val(Text11) * 0.1
Text13 = Val(Text11) - Val(Text12)
End Sub



End Sub

Private Sub Option3_Click()
Text12 = Val(Text11) * 0.15
Text13 = Val(Text11) - Val(Text12)
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