إعلان

Collapse
No announcement yet.

كيف اجمع عددين بدون val

Collapse

Unconfigured Ad Widget

Collapse
X
  • تصفية
  • الوقت
  • عرض
مسح الكل
مشاركات جديدة

    كيف اجمع عددين بدون val

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

    انا توي متعلم في لغة الفيجوال بيسك

    ابغى اجمع عددين بدون val

    textbox1.text + textbox2.text

    لما احط في صندوق الاول 5 وصندوق الثاني 5 يطلع 55 المفروض 10 يجمع العددين

    جربت هذي الطريقه ونجحت
    val(textbox1.text) + val(textbox2.text)

    لكن انا ابغى بدون val اجمع عددين

    كيف وشكرا لكم

    #2
    يداية اخي يجب فهم ما هي متطلبات العملية الحسابية
    واحد اهم المتطلبات ان لا يكون string ويكون العدد المحسوب (double - int)
    او محول الي (double - int)
    بمثالك انت وضعت :
    textbox1.text + textbox2.text
    والتكست هنا يمثل سترينج وعند جمعهم لا تصح لذا لما تكتب بالتكست الاول 2
    والثاني 2 الناتج سيكون مجموع ما بداخل التكسات من كلام وليس من عملية حسابية
    لذا يجب تحويل التكسات الي دبل
    PHP Code:
    Convert.ToDouble(textbox1.text) + Convert.ToDouble(textbox1.text
    حتي تستطيع ان تقوم باي عملية حسابية

    تعليق


      #3
      المشاركة الأصلية بواسطة Abufahmi
      يداية اخي يجب فهم ما هي متطلبات العملية الحسابية
      واحد اهم المتطلبات ان لا يكون string ويكون العدد المحسوب (double - int)
      او محول الي (double - int)
      بمثالك انت وضعت :
      textbox1.text + textbox2.text
      والتكست هنا يمثل سترينج وعند جمعهم لا تصح لذا لما تكتب بالتكست الاول 2
      والثاني 2 الناتج سيكون مجموع ما بداخل التكسات من كلام وليس من عملية حسابية
      لذا يجب تحويل التكسات الي دبل
      PHP Code:
      Convert.ToDouble(textbox1.text) + Convert.ToDouble(textbox1.text
      حتي تستطيع ان تقوم باي عملية حسابية
      شكرا والله

      Code:
                Dim coun As Integer, name As String 
              Dim a As Integer, d As Integer, b As Integer
              Dim sum As Integer
              For coun = 0 To 2
                  name = InputBox("الاسم")
                  ListBox1.Items.Add(name)
              Next
              For coun = 0 To 2
                  a = InputBox("number")
                  b = InputBox("number")
                  d = InputBox("number")
                  sum = a + b + d
                  ListBox2.Items.Add(sum)
              Next
          End Sub

      سويت كذا وضبط هل فيه طريقه اخرى اسهل من هذي احسها كثيره مره وكود عشوائي بعض الشيء
      وفيه مشكله كمان اذا حطيت حروف يطلع لي خطا

      تعليق


        #4
        المشاركة الأصلية بواسطة Yousef Alharbi
        شكرا والله

        Code:
                  Dim coun As Integer, name As String 
                Dim a As Integer, d As Integer, b As Integer
                Dim sum As Integer
                For coun = 0 To 2
                    name = InputBox("الاسم")
                    ListBox1.Items.Add(name)
                Next
                For coun = 0 To 2
                    a = InputBox("number")
                    b = InputBox("number")
                    d = InputBox("number")
                    sum = a + b + d
                    ListBox2.Items.Add(sum)
                Next
            End Sub

        سويت كذا وضبط هل فيه طريقه اخرى اسهل من هذي احسها كثيره مره وكود عشوائي بعض الشيء
        وفيه مشكله كمان اذا حطيت حروف يطلع لي خطا
        فصل ما تريده بالضبط اخي الكريم

        تعليق


          #5
          المشاركة الأصلية بواسطة Abufahmi
          فصل ما تريده بالضبط اخي الكريم
          اخوي عندي مشكلة بالكود

          Code:
                  Dim grade As String
                  grade = TextBox1.Text
                  If grade >= 90 Then
                      TextBox1.Text = " مبروك"
                  ElseIf grade >= 90 Then
                      TextBox1.Text = "للاسف فشلت"
                  End If
              End Sub
          المشكلة هنا لما تكتب حروف في textbox1
          يطلع لي خطأ


          كيف اصلح هذه المشكله واكون شاكر لك
          مع العلم اخي في شروط المشروع ممنوع استخدام isNumeric

          تعليق

          تنفيذ...
          X