حل معادلة من الدرجة الثانية

[coribo]

السلام عليم اخواني اعضاء منتدى الدلفي العربي
كما تعلمون انا مبتدأ في هده اللغة والاستفسار عن حل معادلة من درجة ثانية
مثل كود فيجوال باسيك هدا

delta=b2-4*a*c
'جعل مربعات الحل للقرأة فقط
TextBox4.ReadOnly = True
TextBox5.ReadOnly = True

على زر حل المعادلة وضع الكود التالي
كود:
Dim a, b, c, x1, x2, delta As Double 'التصريح عن المتحولات التي نريدها
a = Val(TextBox1.Text) 'اعطاء المتحولات القيم من التكست بوكس
b = Val(TextBox2.Text) 'اعطاء المتحولات القيم من التكست بوكس
c = Val(TextBox2.Text) 'اعطاء المتحولات القيم من التكست بوكس
delta = b ^ 2 - 4 * a * c ' حساب الدلتا
If delta > 0 Then 'بداية الجملة الشرطية والشرط الأول
MsgBox("المعادلة لها حلين مختلفين")
x1 = (-b + Math.Sqrt(delta)) / (2 * a)
x2 = (-b - Math.Sqrt(delta)) / (2 * a)
TextBox4.Text = x1
TextBox5.Text = x2
ElseIf delta < 0 Then 'الشرط الثاني
MsgBox("المعادلة مستحيلة الحل")
Else 'اذا لم يتحقق الأول والثاني يتم تنفيذ هذا الشرط
MsgBox("المعادلة له حل مضاعف")
x1 = (-b) / (2 * a)
TextBox4.Text = x1
TextBox5.Text = x1
End If
مسح وضع الكود التالي
كود:
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""

والله يجزيكم

[محمد عبد العزيز]

التحويل من Visual Basic الى Delphi بسيط وسهل

في دلفي كل امر ينتهي بفاصلة منقوطة ";"
= تكتب := (نقطتين قبلها)
بدل المكون TextBox استخدم Edit
بدلا من ReadOnly استخدم Enabled
بدلا من dim اكتب Var ويجب ان تكون في البداية اي خارج Begin
بدلا من MsgBox يمكن استخدام ShowMessage
هذا delta=b^2-4*a*c يكتب

PHP كود :

delta:=b*b-4*a*c; 


هذا TextBox4.ReadOnly = True

PHP كود :

Edit4.Enabled := True; 


هذا Dim a, b, c, x1, x2, delta As Double يمكن كتابته بشيئ مثل

PHP كود :

Var a, b, c, x1, x2, delta : Real; 


هذا a = Val(TextBox1.Text) يمكن كتابته

PHP كود :

a := StrToFloat(Edit1.Text); 


البقية عليك
انصحك بمتابعة دورة دروس دلفي إن لم تفعل بعد
والسلام عليكم