تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  احتاج كود لعرض مواعيد محدده بتاريخ hglogtd 7 166 22-02-17, 12:47 AM
آخر رد: مساعدة
  سؤال .. عن طريقة ادراج صورة من السكانر وطباعتها ناصر شير 0 42 20-02-17, 02:54 AM
آخر رد: ناصر شير
  [VB.NET] سؤال عن vb.net 2010 ناصر شير 5 82 20-02-17, 02:40 AM
آخر رد: ناصر شير
  سؤال حول تخزين الملفات abudawoodd 7 104 17-02-17, 11:59 PM
آخر رد: abudawoodd
  [VB.NET] سؤال بخصوص Next button Setup Factory dubai.eig 1 50 14-02-17, 07:23 PM
آخر رد: dubai.eig
  سؤال حول حماية المشروع Mohamed20 0 50 13-02-17, 10:35 PM
آخر رد: Mohamed20
Heart [VB.NET] احتاج الى مساعدة في برنامج لمحل لحساب الفاتورة malek369 1 181 06-02-17, 02:44 AM
آخر رد: ٌRy SAEED
  [VB.NET] سؤال بخصوص setup factory dubai.eig 0 76 02-02-17, 10:46 PM
آخر رد: dubai.eig
Photo [VB.NET] مساعده في تعديل كود التنبيه قبل انتهاء التاريخ بفتره زمنيه.. Marwan9990 11 210 02-02-17, 06:12 PM
آخر رد: Marwan9990
  سؤال فى اداه ListView Mohamed20 5 106 01-02-17, 02:03 AM
آخر رد: Mohamed20

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


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