Kassa: code

Dim b As New ScriptControl
Dim bewerking As String
Dim tetonen As String

Private Sub UserForm_Initialize()
b.Language = "javascript"
End Sub

Private Sub cmdGedeeld_Click()
zet ("/")
End Sub

Private Sub cmdIs_Click()
Dim resultaat As Single
resultaat = b.Eval(bewerking)
txt.Text = resultaat
tetonen = tetonen & vbCrLf & " = " & resultaat
nadien
End Sub

Private Sub cmdMaal_Click()
zet ("*")
End Sub

Private Sub cmdMin_Click()
zet ("-")
End Sub

Private Sub cmdPlus_Click()
zet ("+")
End Sub

Sub zet(teken As String)
Dim voegtoe As String
If bewerking = "" Then bewerking = "0"
voegtoe = teken & txt.Text
bewerking = bewerking & voegtoe
tetonen = tetonen & vbCrLf & voegtoe
nadien
txt.Text = "0"
End Sub
Sub nadien()
label.Caption = tetonen
End Sub
 

[VB Web] - [hlrnet] - [copyright]