+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] سؤال احتاج مساعده فيه (/showthread.php?tid=17768)
الصفحات:
1
2
سؤال احتاج مساعده فيه - a_abdullah - 24-10-16
السلام عليكم انا طالبه جديده على الفيجوال عندي سؤال ما عرفت احله ممكن مساعدتكم فيه وكون شاكرة
السؤال :
Write a program that reads 3 integers numbers, then the program prints the square and cube of each.
هذه صورة ال form
https://up.harajgulf.com/do.php?img=1202515
RE: سؤال احتاج مساعده فيه - ابو ليلى - 24-10-16
PHP كود :
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
RE: سؤال احتاج مساعده فيه - a_abdullah - 24-10-16
(24-10-16, 06:22 PM)ابو ليلى كتب :PHP كود :
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
ماقصرت اخوي ابو ليلى .
بس مافيه طريقة ثانية غير الاري
RE: سؤال احتاج مساعده فيه - ابو ليلى - 24-10-16
طبعا هناك طرق اخرى ما ينقصنا هو مصدر البيانات
حددي الطريقة التي تريدينها و نحن بالخدمة
اقتراحات
- عناصر TextBoxes تحتوي الارقام
- List
- ListBox
- ComboBox
- ملف
- جدول من قاعدة
لا ادري ماذا بقي اختاري ما تريدين و الطريقة نفسها
RE: سؤال احتاج مساعده فيه - a_abdullah - 24-10-16
(24-10-16, 08:47 PM)ابو ليلى كتب : طبعا هناك طرق اخرى ما ينقصنا هو مصدر البياناتاحتاج button واحد و احتاج label واحد يكون فيه ناتج square و cube , ما ادري اذا نقدر نستخدم ال random او لا ! , اهم شئ الاري مانبيها في الكود
حددي الطريقة التي تريدينها و نحن بالخدمة
اقتراحات
- عناصر TextBoxes تحتوي الارقام
- List
- ListBox
- ComboBox
- ملف
- جدول من قاعدة
لا ادري ماذا بقي اختاري ما تريدين و الطريقة نفسها
RE: سؤال احتاج مساعده فيه - ابو ليلى - 24-10-16
طيب الاري لا نريدها لكن من اين ناتي بالارقام التي نجري عليها العمليات
فكرة 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
RE: سؤال احتاج مساعده فيه - a_abdullah - 25-10-16
(24-10-16, 11:48 PM)ابو ليلى كتب : طيب الاري لا نريدها لكن من اين ناتي بالارقام التي نجري عليها العملياتال random يكون جوا لوب وشرط اللوب انه ياخذ لي 3 ارقام بس ويوقف .
فكرة 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
المشكله ما احتاج listbox فقط نبي نستخدم button و label والريسلت الناتج النهائي نبيه في ال label
يارب فهمت علي
RE: سؤال احتاج مساعده فيه - a_abdullah - 25-10-16
(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
RE: سؤال احتاج مساعده فيه - ممدوح - 25-10-16
هذه مشاركة
كود :
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 يعادل العلامة ^
كلها نفس النتيجة
RE: سؤال احتاج مساعده فيه - a_abdullah - 25-10-16
(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 يعادل العلامة ^
كلها نفس النتيجة
طريقة الحل تختلف تماما عن مواضيع دراستنا انا مبتدئية لسى نكتب ابسط الاكواد