[a_abdullah]

[ابو ليلى]

PHP كود :

       Dim NumOfIntegers() As Integer = {1, 2, 3, 4, 8}
        Dim x, y As Integer
        For Each num As Integer In NumOfIntegers
            x = num ^ 2
            y = num ^ 3
            MessageBox.Show("Square Of " & num & " = " & x & vbCrLf & "Cube Of " & num & " = " & y)
        Next 


[a_abdullah]

PHP كود :

       Dim NumOfIntegers() As Integer = {1, 2, 3, 4, 8}
        Dim x, y As Integer
        For Each num As Integer In NumOfIntegers
            x = num ^ 2
            y = num ^ 3
            MessageBox.Show("Square Of " & num & " = " & x & vbCrLf & "Cube Of " & num & " = " & y)
        Next 


ماقصرت اخوي ابو ليلى  . 
بس مافيه طريقة ثانية غير الاري 

[ابو ليلى]

طبعا هناك طرق اخرى ما ينقصنا هو مصدر البيانات
حددي الطريقة التي تريدينها و نحن بالخدمة
اقتراحات
- عناصر TextBoxes تحتوي الارقام
- List
- ListBox
- ComboBox
- ملف 
- جدول من قاعدة 

لا ادري ماذا بقي اختاري ما تريدين و الطريقة نفسها

[a_abdullah]

طبعا هناك طرق اخرى ما ينقصنا هو مصدر البيانات
حددي الطريقة التي تريدينها و نحن بالخدمة
اقتراحات
- عناصر TextBoxes تحتوي الارقام
- List
- ListBox
- ComboBox
- ملف 
- جدول من قاعدة 

لا ادري ماذا بقي اختاري ما تريدين و الطريقة نفسها

احتاج button واحد و احتاج label واحد يكون فيه ناتج square و cube , ما ادري اذا نقدر نستخدم ال random  او لا ! , اهم شئ الاري مانبيها في الكود

[ابو ليلى]

طيب الاري لا نريدها لكن من اين ناتي بالارقام التي نجري عليها العمليات
فكرة Random يمكن تحقيقها ولكن النتائج ستكون كثيرة جداً لذلك انا احبذ مجموعة بسيطة من العناصر 
و لتكن موجودة في ListBox مثلا
و من ثم نستخدم نفس الحلقة السابقة ولكن نغير نوع العنصر الذي نمر عليه

PHP كود :

       Dim x, y, z As Integer
        Label1.Text = ""
        For Each item As Object In ListBox1.Items
            z = CType(item, Integer)
            x = z ^ 2
            y = z ^ 3
            Label1.Text += vbNewLine & "Square Of " & z & " = " & x & "  Cube Of " & z & " = " & y
        Next 


[a_abdullah]

طيب الاري لا نريدها لكن من اين ناتي بالارقام التي نجري عليها العمليات
فكرة Random يمكن تحقيقها ولكن النتائج ستكون كثيرة جداً لذلك انا احبذ مجموعة بسيطة من العناصر 
و لتكن موجودة في ListBox مثلا
و من ثم نستخدم نفس الحلقة السابقة ولكن نغير نوع العنصر الذي نمر عليه

PHP كود :

       Dim x, y, z As Integer
        Label1.Text = ""
        For Each item As Object In ListBox1.Items
            z = CType(item, Integer)
            x = z ^ 2
            y = z ^ 3
            Label1.Text += vbNewLine & "Square Of " & z & " = " & x & "  Cube Of " & z & " = " & y
        Next 


ال random يكون جوا لوب وشرط اللوب انه ياخذ لي 3 ارقام بس ويوقف .
المشكله ما احتاج listbox فقط نبي نستخدم button و label والريسلت الناتج النهائي نبيه في ال label 
يارب فهمت علي 

[a_abdullah]

طيب الاري لا نريدها لكن من اين ناتي بالارقام التي نجري عليها العمليات
فكرة Random يمكن تحقيقها ولكن النتائج ستكون كثيرة جداً لذلك انا احبذ مجموعة بسيطة من العناصر 
و لتكن موجودة في ListBox مثلا
و من ثم نستخدم نفس الحلقة السابقة ولكن نغير نوع العنصر الذي نمر عليه

PHP كود :

       Dim x, y, z As Integer
        Label1.Text = ""
        For Each item As Object In ListBox1.Items
            z = CType(item, Integer)
            x = z ^ 2
            y = z ^ 3
            Label1.Text += vbNewLine & "Square Of " & z & " = " & x & "  Cube Of " & z & " = " & y
        Next 


PHP كود :

Dim x, y, z As Integer
        x = numberTextBox1.Text
        y = number2TextBox2.Text
        z = number3TextBox3.Text
        Dim count As Integer = 1
        Do
            resultLabel1.Text = "the square of " & z & "=" & z * z & vbCrLf & "and the cube of " & z & "=" & z * z * z & vbCrLf
            count += 1
        Loop While count <= 3 


سويت المطلوب لكن عندي خطأ ما قدرت اكتشفه هو في اللوب ابيه يطلع لي الناتج في label للثلاث ارقام اللي دخلتها في textbox 

[ممدوح]

هذه مشاركة

كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim n1 As Integer = InputBox("أدخل الرقم الأول")
        Dim n2 As Integer = InputBox("أدخل الرقم الثاني")
        Dim n3 As Integer = InputBox("أدخل الرقم الثالث")

        Dim result As String = ""

        result &= "the square of " & n1 & " = " & Math.Pow(n1, 2) & vbNewLine
        result &= "and the cube of " & n1 & " = " & Math.Pow(n1, 3) & vbNewLine

        result &= "the square of " & n2 & " = " & Math.Pow(n2, 2) & vbNewLine
        result &= "and the cube of " & n2 & " = " & Math.Pow(n2, 3) & vbNewLine

        result &= "the square of " & n3 & " = " & Math.Pow(n3, 2) & vbNewLine
        result &= "and the cube of " & n3 & " = " & Math.Pow(n3, 3) & vbNewLine

        Label1.Text = result

    End Sub

استخدام Math.Pow يعادل العلامة ^
كلها نفس النتيجة

[a_abdullah]

هذه مشاركة

كود :

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

       Dim n1 As Integer = InputBox("أدخل الرقم الأول")
       Dim n2 As Integer = InputBox("أدخل الرقم الثاني")
       Dim n3 As Integer = InputBox("أدخل الرقم الثالث")

       Dim result As String = ""

       result &= "the square of " & n1 & " = " & Math.Pow(n1, 2) & vbNewLine
       result &= "and the cube of " & n1 & " = " & Math.Pow(n1, 3) & vbNewLine

       result &= "the square of " & n2 & " = " & Math.Pow(n2, 2) & vbNewLine
       result &= "and the cube of " & n2 & " = " & Math.Pow(n2, 3) & vbNewLine

       result &= "the square of " & n3 & " = " & Math.Pow(n3, 2) & vbNewLine
       result &= "and the cube of " & n3 & " = " & Math.Pow(n3, 3) & vbNewLine

       Label1.Text = result

   End Sub

استخدام  Math.Pow يعادل العلامة ^
كلها نفس النتيجة

طريقة الحل تختلف تماما عن مواضيع دراستنا انا مبتدئية لسى نكتب ابسط الاكواد