[العواد الصغير]

(18-10-16, 12:10 AM)mhmd_911 كتب : استخدم هذه الدالة

PHP كود :

Private Function calc(formula As String) As Double
    Try
        Dim obj As Object = CreateObject("ScriptControl")
        obj.Language = "VBSCRIPT"
        Return obj.Eval(formula)
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Function 


PHP كود :

Me.TextBox1.Text = calc(Me.TextBox1.Text) 


اعجبتني تسلم الايادي