🚀 go-pugleaf

Je kan ook gebruik maken van de Microsoft Script Control. Het voordeel is
dat het heel makkelijk te implementeren is (je moet eigenlijk niks meer
doen, alleen de control gebruiken) en veel krachtiger dan alleen een
"wiskundige interpreter" (je kunt er echt programma's mee laten uitvoeren,
objecten aan doorgeven, etc...).

Ga voor een eenvoudig voorbeeldje als volgt tewerk:
1. Maak een nieuw VB6 programma, op het formulier voeg je een textbox
(Text1) en een command button (Command1) toe.
2. In de VB IDE kies je het Project menu, de References optie en kruis je de
"Microsoft Script Control 1.0" aan (staat ie er niet tussen, kies dan Browse
en zoek naar een bestand msscript.ocx in je System32 folder).
3. Schrijf volgende code:

        Private Sub Command1_Click()
            Dim engine As New MSScriptControl.ScriptControl

            On Error GoTo ErrorHandler
            engine.Language = "VBScript"
            engine.ExecuteStatement "a = 5"
            engine.ExecuteStatement "b = 7"
            engine.ExecuteStatement "c = 12"
            MsgBox engine.Eval(Text1.Text)

        Finally:
            Exit Sub

        ErrorHandler:
            MsgBox "Error in expression : " & engine.Error.Description &
vbNewLine & _
                          "> " & engine.Error.Text, vbCritical
            Resume Finally
        End Sub

Klaar !!!

Je kunt het programma nu testen door in het tekstveldje bv. het volgende op
te nemen:

a + b
    geeft 12 terug
a + b = c
    geeft True terug
sin(a + b) * cos(c)
    geeft -0.45... terug
2 * a + b
    geeft 17 terug
2 * (a + b)
    geeft 24 terug
�(�!�
    geeft een foutmelding "Invalid character"
...

Succes

Rudi