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
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 - ملف - جدول من قاعدة
(24-10-16, 08:47 PM)ابو ليلى كتب : طبعا هناك طرق اخرى ما ينقصنا هو مصدر البيانات حددي الطريقة التي تريدينها و نحن بالخدمة اقتراحات - عناصر 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
(24-10-16, 11:48 PM)ابو ليلى كتب : طيب الاري لا نريدها لكن من اين ناتي بالارقام التي نجري عليها العمليات فكرة 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
يارب فهمت علي
(24-10-16, 11:48 PM)ابو ليلى كتب : طيب الاري لا نريدها لكن من اين ناتي بالارقام التي نجري عليها العمليات فكرة 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