النتائج 1 إلى 3 من 3

الموضوع: فضلا منكم أريد تصحيح هذا الكود

  1. #1
    عضو
    تاريخ التسجيل
    Aug 2010
    المشاركات
    32
    الدولة: Morocco
    معدل تقييم المستوى
    0

    فضلا منكم أريد تصحيح هذا الكود



    Public Class Form1
    Dim a As Double
    Dim b As Double
    Dim c As Double
    Dim d As Double
    Dim x1 As Double
    Dim x2 As Double
    Dim sqrt As Double
    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
    End Sub
    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    a = TextBox1.Text
    b = TextBox2.Text
    c = TextBox3.Text
    d = (b * b) - (4 * a * c)
    If a = 0 And b = 0 Then
    MsgBox("l’équation n’admet pas de solution ")
    Else
    If d < 0 Then
    MsgBox("la solution est l'ensembl vide ")
    Else
    If d = 0 And a <> 0 Then
    x1 = (-b) / a
    TextBox4.Text = x1
    Else
    If d > 0 And a <> 0 Then
    x1 = (-b + (Math.Sqrt(d))) / (2 * a)
    x2 = (-b - (Math.Sqrt(d))) / (2 * a)
    TextBox4.Text = x1
    TextBox5.Text = x2
    End If
    End If
    End If
    End If
    End Sub

  2. #2
    عضوية جديدة
    تاريخ التسجيل
    Sep 2009
    المشاركات
    45
    معدل تقييم المستوى
    0

    رد: فضلا منكم أريد تصحيح هذا الكود

    كود PHP:
    Public Class Form1
     Dim a 
    As Double
     Dim b 
    As Double
     Dim c 
    As Double
     Dim d 
    As Double
     Dim x1 
    As Double
     Dim x2 
    As Double
    Private Sub Label4_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Label4.Click
    End Sub
    Private Sub TextBox4_TextChanged(ByVal sender As System.ObjectByVal e As System.EventArgsHandles TextBox4.TextChanged
    End Sub
    Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
     a 
    TextBox1.Text
     b 
    TextBox2.Text
     c 
    TextBox3.Text
     d 
    = (b) - (c)
     If 
    And 0 Then
      MsgBox
    ("l’équation n’admet pas de solution ")
      Else
      If 
    And <> 0 Then
       x1 
    b
       TextBox4
    .Text x1
       
    Else
       If 
    0 Then
        MsgBox
    ("la solution est l'ensembl vide ")
        Else
         
    x1 = (-+ (Math.Sqrt(d))) / (a)
         
    x2 = (-- (Math.Sqrt(d))) / (a)
         
    TextBox4.Text x1
         TextBox5
    .Text x2     
        End 
    If
       
    End If
      
    End If
     
    End If
    End Sub 

  3. #3
    عضو
    تاريخ التسجيل
    Aug 2010
    المشاركات
    32
    الدولة: Morocco
    معدل تقييم المستوى
    0

    رد: فضلا منكم أريد تصحيح هذا الكود



    شكر الله لك أخي العزيز

المواضيع المتشابهه

  1. فضلا .. أريد تعريب HTC Incredible S
    بواسطة ..zoro.. في المنتدى الأرشيف
    مشاركات: 2
    آخر مشاركة: 15-05-2012, 16:36
  2. igأريد تصحيح هذا الكود
    بواسطة badbadtoo في المنتدى مشاكل الحاسب وحلولها
    مشاركات: 1
    آخر مشاركة: 04-03-2011, 11:52
  3. فضلا لا أمر أريد سعر هذه القطع طبقا للسوق السعودية
    بواسطة ahmed_elzayat في المنتدى الأرشيف
    مشاركات: 5
    آخر مشاركة: 05-08-2009, 16:21

المفضلات

ضوابط المشاركة

  • لا تستطيع إضافة مواضيع جديدة
  • لا تستطيع الرد على المواضيع
  • لا تستطيع إرفاق ملفات
  • لا تستطيع تعديل مشاركاتك
  •