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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال فى ادوات الديف اكسبريس salah mansour 5 32 منذ 1 ساعه مضت
آخر رد: salah mansour
  سؤال في ريبورت فيو زيد زينوبي 1 39 منذ 11 ساعة مضت
آخر رد: alma2
  [VB.NET] احتاج تعديل الكود يخص تشغيل Button حسب user domin hglogtd 4 104 22-05-17, 09:25 AM
آخر رد: hglogtd
  سؤال فى الداتا جريد salah mansour 1 90 21-05-17, 12:09 AM
آخر رد: boudyonline
  سؤال مهم فى اجازت العاملين salah mansour 9 135 17-05-17, 01:07 AM
آخر رد: salah mansour
Exclamation سؤال حول طباعة تقارير RDLC ndjakoub 1 40 16-05-17, 12:45 AM
آخر رد: alma2
  سؤال بخصوص التحكم بالمحرك عن طريق الحاسوب Basil Abdallah 2 61 16-05-17, 12:29 AM
آخر رد: alma2
  سؤال فى اجازات العاملين salah mansour 3 90 13-05-17, 02:57 AM
آخر رد: mansoor
  [VB.NET] اجعل ملفات Dll جزء من مشروعك مع سؤال 0theghost0 1 71 12-05-17, 10:47 PM
آخر رد: silverlight
  سؤال Mohamed20 1 58 12-05-17, 03:48 AM
آخر رد: mansoor

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


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