تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] سؤال احتاج مساعده فيه
#1
Exclamation 
السلام عليكم انا طالبه جديده على الفيجوال عندي سؤال ما عرفت احله ممكن مساعدتكم فيه وكون شاكرة  Sad Heart

السؤال :
 
  Write a program that reads 3 integers numbers, then the program prints the square and cube of each.
[img]https://up.harajgulf.com/do.php?img=1202515"> [/img]
هذه صورة ال form 
https://up.harajgulf.com/do.php?img=1202515 


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#2
PHP كود :
       Dim NumOfIntegers() As Integer = {12348}
 
       Dim xAs Integer
        For Each num 
As Integer In NumOfIntegers
            x 
num 2
            y 
num 3
            MessageBox
.Show("Square Of " num " = " vbCrLf "Cube Of " num " = " y)
 
       Next 
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}}
تم الشكر بواسطة: a_abdullah , ممدوح
#3
(24-10-16, 06:22 PM)ابو ليلى كتب :
PHP كود :
       Dim NumOfIntegers() As Integer = {12348}
 
       Dim xAs Integer
        For Each num 
As Integer In NumOfIntegers
            x 
num 2
            y 
num 3
            MessageBox
.Show("Square Of " num " = " vbCrLf "Cube Of " num " = " y)
 
       Next 

ماقصرت اخوي ابو ليلى  . 
بس مافيه طريقة ثانية غير الاري  Huh
الرد }}}}
تم الشكر بواسطة:
#4
طبعا هناك طرق اخرى ما ينقصنا هو مصدر البيانات
حددي الطريقة التي تريدينها و نحن بالخدمة
اقتراحات
- عناصر TextBoxes تحتوي الارقام
- List
- ListBox
- ComboBox
- ملف 
- جدول من قاعدة 

لا ادري ماذا بقي اختاري ما تريدين و الطريقة نفسها
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}}
تم الشكر بواسطة: ممدوح , جوري
#5
(24-10-16, 08:47 PM)ابو ليلى كتب : طبعا هناك طرق اخرى ما ينقصنا هو مصدر البيانات
حددي الطريقة التي تريدينها و نحن بالخدمة
اقتراحات
- عناصر TextBoxes تحتوي الارقام
- List
- ListBox
- ComboBox
- ملف 
- جدول من قاعدة 

لا ادري ماذا بقي اختاري ما تريدين و الطريقة نفسها
احتاج button واحد و احتاج label واحد يكون فيه ناتج square و cube , ما ادري اذا نقدر نستخدم ال random  او لا ! , اهم شئ الاري مانبيها في الكود
الرد }}}}
تم الشكر بواسطة:
#6
طيب الاري لا نريدها لكن من اين ناتي بالارقام التي نجري عليها العمليات
فكرة Random يمكن تحقيقها ولكن النتائج ستكون كثيرة جداً لذلك انا احبذ مجموعة بسيطة من العناصر 
و لتكن موجودة في ListBox مثلا
و من ثم نستخدم نفس الحلقة السابقة ولكن نغير نوع العنصر الذي نمر عليه

PHP كود :
       Dim xyAs Integer
        Label1
.Text ""
 
       For Each item As Object In ListBox1.Items
            z 
CType(itemInteger)
 
           x 2
            y 
3
            Label1
.Text += vbNewLine "Square Of " " = " "  Cube Of " " = " y
        Next 
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}}
تم الشكر بواسطة: a_abdullah , a_abdullah , ممدوح , ممدوح
#7
(24-10-16, 11:48 PM)ابو ليلى كتب : طيب الاري لا نريدها لكن من اين ناتي بالارقام التي نجري عليها العمليات
فكرة Random يمكن تحقيقها ولكن النتائج ستكون كثيرة جداً لذلك انا احبذ مجموعة بسيطة من العناصر 
و لتكن موجودة في ListBox مثلا
و من ثم نستخدم نفس الحلقة السابقة ولكن نغير نوع العنصر الذي نمر عليه

PHP كود :
       Dim xyAs Integer
        Label1
.Text ""
 
       For Each item As Object In ListBox1.Items
            z 
CType(itemInteger)
 
           x 2
            y 
3
            Label1
.Text += vbNewLine "Square Of " " = " "  Cube Of " " = " y
        Next 
ال random يكون جوا لوب وشرط اللوب انه ياخذ لي 3 ارقام بس ويوقف .
المشكله ما احتاج listbox فقط نبي نستخدم button و label والريسلت الناتج النهائي نبيه في ال label 
يارب فهمت علي  Sad Huh
الرد }}}}
تم الشكر بواسطة:
#8
(24-10-16, 11:48 PM)ابو ليلى كتب : طيب الاري لا نريدها لكن من اين ناتي بالارقام التي نجري عليها العمليات
فكرة Random يمكن تحقيقها ولكن النتائج ستكون كثيرة جداً لذلك انا احبذ مجموعة بسيطة من العناصر 
و لتكن موجودة في ListBox مثلا
و من ثم نستخدم نفس الحلقة السابقة ولكن نغير نوع العنصر الذي نمر عليه

PHP كود :
       Dim xyAs Integer
        Label1
.Text ""
 
       For Each item As Object In ListBox1.Items
            z 
CType(itemInteger)
 
           x 2
            y 
3
            Label1
.Text += vbNewLine "Square Of " " = " "  Cube Of " " = " y
        Next 
PHP كود :
Dim xyAs Integer
        x 
numberTextBox1.Text
        y 
number2TextBox2.Text
        z 
number3TextBox3.Text
        Dim count 
As Integer 1
        Do
            resultLabel1
.Text "the square of " "=" vbCrLf "and the cube of " "=" vbCrLf
            count 
+= 1
        Loop 
While count <= 

سويت المطلوب لكن عندي خطأ ما قدرت اكتشفه هو في اللوب ابيه يطلع لي الناتج في label للثلاث ارقام اللي دخلتها في textbox  Huh Huh
الرد }}}}
تم الشكر بواسطة:
#9
هذه مشاركة
كود :
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 يعادل العلامة ^
كلها نفس النتيجة
الرد }}}}
تم الشكر بواسطة: ابو ليلى
#10
(25-10-16, 02:12 PM)ممدوح كتب : هذه مشاركة
كود :
   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 يعادل العلامة ^
كلها نفس النتيجة

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  احتاج الكود المناسب لاغلاق فورم وفتح فورم آخر Abdelazez.Ahmad 4 71 أمس, 04:00 PM
آخر رد: alsouf
  [مشروع] سؤال حول كيفية ربط السكانر بمشروع vb.net safalo 1 46 19-09-17, 03:48 PM
آخر رد: أبو نوره
  مساعده فى تعديل كود خاص بالتكست بوكس نبيل فتحى 1 33 19-09-17, 03:33 PM
آخر رد: أبو نوره
  جديد علي الفجول بيسك ...احتاج مساعده (اسعدكم الله جميعا) Abdulhadi 13 347 18-09-17, 05:57 PM
آخر رد: Abdulhadi
  [سؤال] اعذروني اخواني سؤال في الفيس بوك لسه مبتدئ 0 40 16-09-17, 02:09 PM
آخر رد: لسه مبتدئ
  [VB.NET] احتاج كود وضع علامة خلف النص The Light Fire 1 75 12-09-17, 02:05 AM
آخر رد: hglogtd
  سؤال مستعجل اخواني Amjad 5 140 08-09-17, 07:20 PM
آخر رد: طـلال
  سؤال مستعجل اخواني وضروري Amjad 2 100 08-09-17, 05:42 AM
آخر رد: Amjad
  مساعده فى حماية او تشفير ملفات البرنامج نبيل فتحى 2 120 06-09-17, 08:16 AM
آخر رد: نبيل فتحى
  [سؤال] سؤال ضروري (الصوره) DF.12 0 75 28-08-17, 03:08 PM
آخر رد: DF.12

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم