شيفرة لبرنامج يسيط لحل معادلات من الدرجة التانية (vb)


(al3bbas) #1

lمع تحيات العباس السوري

اولا ضع خمس مربعات نص
وتلات ازرار اوامر
وبعدين انقل الكود التالي

Option Explicit
Dim a, b, c, d, f, x1, x2 As Double
Dim X As String
Private Sub Command1_Click()

If Text1.Text = " " Then Command1.Enabled = False
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = b ^ 2 - 4 * a * c

If d = 0 Then
x1 = (-b) / (2 * a)
x2 = (-b) / (2 * a)
Text4.Text = x1
Text5.Text = x2
End If
(“If d < 0 Then MsgBox (” IT`S IMPOoOSSIPLE" + "
If d < 0 Then
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End If
If d > 0 Then
x1 = (-b + d ^ 0.5) / (2 * a)
x2 = -(b + d ^ 0.5) / (2 * a)
Text4.Text = x1
Text5.Text = x2
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub
Private Sub Form_Load()
Command1.Enabled = False
End Sub
Private Sub Text1_Change()
If Text1.Text = “” Then Command1.Enabled = False
End Sub
Private Sub Text2_Change()
If Text2.Text = “” Then Command1.Enabled = False Else
End Sub
Private Sub Text3_Change()
If Text3.Text = “” Then Command1.Enabled = False Else
Command1.Enabled = True
If Text3.Text = “” Then Command1.Enabled = False Else
End Sub

lمع تحيات العباس السوري

وانشالله بعجبكن
للاستفسار
al3bbas@maktoob.com


(amr_cutie) #2

الف شكر يا باشمهندس العباس


(فيوقي) #3

بسم الله الرحمن الرحيم
اخوك جديد على المنتدى
عملت المطلوب 5 مربعات نص وثلاث اوامر … الا تحتاج العملية للربط بين المربعات او الاامر او…
ولم اعرف كيف اربط بين المربعات الخمس ومربعات الاوامر
ولم ينفذ البرنامج
ارجو مساعدتكم لاني احتاج هذا البرنامج ضروري… وتحملونا
اخوكم فيوقي


(system) #4

الف شكر الك لكن لو بدي احولو على تطبيقات الجافا كيف رح اعمل فيه


(system) #5

(system) #6

لو سمحتوا ماحد يعرف يحول الكود اللي في الاعلى عالجافا ضروري جدا


(system) #7

لاحظت انك تجاهلت الاعداد التخيلية اخي ودلك في حالة ان قيمة d سالبة اي > 0
عموما مشكور
سلااااااااام