Un sistema molto più sofisticato, che comprende oltre agli operatori aritmetici anche le classiche funzioni matematiche e stringa di VB, si ottiene con la libreria "Microsoft Script Control 1.0" che puoi caricare nel progetto attraverso il menu Progetto/Riferimenti. Supponiamo di avere un form con due Textbox e un pulsante: scrivo in Text1 l'espressione da eseguire, premo Command1 per eseguire l'espressione e vedo il risultato in Text2:
Se Scrivo in Text1: Log(8) / Log(2) + Sqr(9)codice:Private Sub Command1_Click() Dim sc As New ScriptControl Dim res As String sc.Language = "VBSCRIPT" On Error resume Next res = sc.Eval(Text1.Text) If Err.Number = 0 Then Text2.Text = res Else Text2.Text = Err.Description End If End Sub
e premo il pulsante, ottengo come risultato "6"

Rispondi quotando