راهکار برای زبانی دیگر !

[AriaGlobal]

با سلام

این برنامه رو من در کمتر از 2 دقیقه به زبان PHP نوشتم و کاملا درسته ولی مشکل من اینه که پروژه من به زبان VB6 هست نه PHP
منتها من در این برنامه از تابع Eval استفاده کردم و در VB این تابع وجود نداره .

شما برنامه رو ببنید و فقط بهترین راهکار رو بگین چون راه کار های به ذهنم خورده ولی ...

 

[the_king]

توی فرم Form1 ویژوال بیسیک کد زیر را اضافه کنید :

Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Foo1 As Long, ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long

Private EValValue As Double

Private Function [B]EVal[/B](ByVal Text As String) As Double
    Text = "Form1.EValValue = " & Text
    EbExecuteLine StrPtr(Text), 0, 0, False
    EVal = EValValue
End Function

به عنوان مثال، محاسبه 6+4 از طریق EVal :

    MsgBox [B]EVal[/B]("4+6")

 

[AriaGlobal]

درسته ممنوعه ولی .. مرسی !
من داشتم مینوشتمش از چه راهی !! البته جواب میداد ولی فکر نمیکردم که eval تو VB هم باشه !!