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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Wink سؤال في اضافة وسحب اصناف من المخزن khadija_seedi_ali 3 75 08-12-16, 09:07 PM
آخر رد: محمد كريّم
Information [VB.NET] مساعده في الفيجوال بيسك هل اقدر اسوي اكثر من فورم a_abdullah 4 98 07-12-16, 02:39 PM
آخر رد: a_abdullah
  سؤال حول Combobox noway 2 54 06-12-16, 04:26 AM
آخر رد: amgad525
Star [VB.NET] السلام عليكم اخوتي ف المنتدى احتاج الي مساعدة انا اصمم منظومة لشؤون العاملين بعد اض fatma anari 2 99 04-12-16, 11:04 AM
آخر رد: أبوبكر سويدان
  احتاج كود في ريبورت فيور بشرطين hglogtd 3 83 21-11-16, 09:01 PM
آخر رد: hglogtd
  [VB.NET] سؤال كيف يمكن معرفة التغير في قاعدة البيانات وليد الزنتاني 2 119 10-11-16, 01:20 AM
آخر رد: وليد الزنتاني
Lightbulb [VB.NET] سؤال حول التعامل مع الماسح الضوئي salhigc 3 124 02-11-16, 04:15 PM
آخر رد: salhigc
  [VB.NET] احتاج اداة شبيهه datetimepicker التقويم الهجري mss2 1 389 26-10-16, 02:47 AM
آخر رد: wahibo
  مساعده من الخبراء المبرمجين والمختصيين محمد بوقزاحة 0 56 21-10-16, 12:19 PM
آخر رد: محمد بوقزاحة
  [VB.NET] مساعده في مشروع صغير dubai.eig 6 180 19-10-16, 08:31 AM
آخر رد: dubai.eig

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


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