חיפוש

עזרה

הרשמה

התחברות

עדכונים

תיכנות
UnderWarrior Forums : תיכנות

נושא: מחשבון עם משתנים

כותב

הודעה

<< נושא קודם | נושא הבא >>

אוריה
משתמש חבר

הצטרף / הצטרפה: 29 January 2010
מדינה: Israel
משתמש: מנותק/ת
הודעות: 230

נשלח בתאריך: 06 April 2010 בשעה 16:10

| IP רשוּם

משהו נחמד שגיליתי:
יש פקד בשם ScriptControl שאפשר בעזרתו להריץ קוד VBScript, עשיתי מחשבון שמשתמש בפקד הזה בשביל לשמור משתנים ולחשב דברים - פשוט כותבים את הביטוי המתמטי ויש פונקציה שמריצה את הביטוי ומציגה הודעה:

קוד:

Sub RunExp(ByVal exp As String)
Dim scr As New ScriptControl()
scr.Language = "VBScript"
scr.AddCode("MsgBox(" & exp & ")")
End Sub

השאלה שלי היא איך אפשר לקבל פלט מ-VBScript?

__________________
SmartProgramming
נא לא להגיב בשבת על מה שאני כותב

עדיף להשקיע עוד שעה בתיעוד, מלאבד עוד 100 שעות ויותר על שיחזר של כל הפרוייקט מההתחלה..

חזרה לתחילת העמוד

אוריה
משתמש חבר

הצטרף / הצטרפה: 29 January 2010
מדינה: Israel
משתמש: מנותק/ת
הודעות: 230

נשלח בתאריך: 06 April 2010 בשעה 18:09

| IP רשוּם

גיליתי את התשובה

:
הפונקציה Eval שמריצה פונקציה בתוך הקוד של VBScript ומחזירה את הערך של הפונקציה:

קוד:

Function RunExp(ByVal str As String) As Double
Dim scr As New ScriptControl()
scr.AddCode("Function Exp(e) Dim a" & vbCrLf & "a = e" & vbCrLf & "Exp = a End Function")
Dim res As Double = scr.Eval("Exp(" & str & ")")
Return res
End Function

חזרה לתחילת העמוד

אם ברצונך להגיב לנושא זה עליך קודם להתחבר
אם אינך רשום/ה כבר עליך להרשם

גרסת הדפסה

אינך יכול/ה לשלוח נושאים חדשים בפורום זה
אינך יכול/ה להגיב לנושאים בפורום זה
אינך יכול/ה למחוק את הודעותיך ותגוביך בפורום זה
אינך יכול/ה לערוך את הודעותיך ותגובותיך בפורום זה
אינך יכול/ה לצור סקרים בפורום זה
אינך יכול/ה להצביע בסקרים בפורום זה