تنفيذ معادلة حسابية كاملة


الكاتب الأخ :**أبورائد**

السلام عليكم ورحمة الله وبركاته

كيف تنفذ معادلة حسابية كاملة عن طريق مترجم الفجوال بيسيك

هذا الكود كنت سأضعه أمس ولكن الظرف الموجود في التوقيع كان مفاجأ.

******المعذرة قد أغيب يومين*****

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show(Calculate(Me.TextBox1.Text))
End Sub

Public Function Calculate(ByVal mExpression As String) As Double
Dim mProvider As New VBCodeProvider
Dim mCompilerParameters As New CodeDom.Compiler.CompilerParameters
mCompilerParameters.GenerateExecutable = False
mCompilerParameters.GenerateInMemory = True
Dim mSource As String = _
"Public Class mCompile                   " & vbNewLine & _
"    Public Shared Function mCalculate() " & vbNewLine & _
"        Return " & mExpression & "      " & vbNewLine & _
"    End Function                        " & vbNewLine & _
"End Class                               "
Dim mCompilerResults As CodeDom.Compiler.CompilerResults = mProvider.CompileAssemblyFromSource(mCompilerParameters, mSource)
If mCompilerResults.Errors.Count > 0 Then
MessageBox.Show("عفوا... تعبير غير صالح", "خطأ")
Else
Dim mMethodInfo As Reflection.MethodInfo = mCompilerResults.CompiledAssembly.GetType("mCompile").GetMethod("mCalculate")
Return Convert.ToDouble(mMethodInfo.Invoke(Nothing, Nothing))
End If
End Function

End Class 

  1. لا توجد تعليقات حتى الأن.
  1. No trackbacks yet.

شاركنا برأيك ,لكي نرقى بالمدونة,يمكنك أضافة تعليق عن طريق حسابك في Facebook

إملأ الحقول أدناه بالمعلومات المناسبة أو إضغط على إحدى الأيقونات لتسجيل الدخول:

WordPress.com Logo

أنت تعلق بإستخدام حساب WordPress.com. تسجيل خروج   / تغيير )

صورة تويتر

أنت تعلق بإستخدام حساب Twitter. تسجيل خروج   / تغيير )

Facebook photo

أنت تعلق بإستخدام حساب Facebook. تسجيل خروج   / تغيير )

Google+ photo

أنت تعلق بإستخدام حساب Google+. تسجيل خروج   / تغيير )

Connecting to %s

%d مدونون معجبون بهذه: