تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] طلب كود في array
#1
Exclamation 
السلام عليكم.
هذا السؤال :
write a program that reads 7 numbers in an array and prints the average of these numbers.
المطلوب المستخدم يدخل 7 ارقام في تيكست بوكس او ليبل وبعدها يطلع المتوسط للارقام , اهم شي الارقام ماتكون في الكود تكون مجهولة واليوزر يدخلها  Huh
الرد }}}}
تم الشكر بواسطة:
#2
PHP كود :
Dim arr() As Double = {44635298438475}
MsgBox(arr.Average

PHP كود :
Dim input As String
input 
InputBox("Enter 7 digits separated by a comma(,):")

Dim sp() As String input.Split(",")

Dim n(6) As Single
For 0 To 6
    n
(i) = CSng(sp(i))
Next

MsgBox
(n.Average

PHP كود :
Dim n(6) As Single
For 0 To 6

    Dim s 
InputBox("Enter nuber:")
 
   If Not IsNumeric(sThen
        MsgBox
("Invalid number")
 
       Exit Sub
    End 
If

 
   n(i) = CSng(s)

Next

MsgBox
(n.Average
الرد }}}}
تم الشكر بواسطة: Fantastico , a_abdullah
#3
في المرفقات


الملفات المرفقة
.rar   HomeWork.rar (الحجم : 64.95 ك ب / التحميلات : 21)
الرد }}}}
تم الشكر بواسطة: a_abdullah
#4
(25-11-16, 03:01 PM)amgad525 كتب :
PHP كود :
Dim arr() As Double = {44635298438475}
MsgBox(arr.Average

PHP كود :
Dim input As String
input 
InputBox("أدخل سبعة أرقام تفصل بينهم بفاصلة")

Dim sp() As String input.Split(",")

Dim n(6) As Single
For 0 To 6
    n
(i) = CSng(sp(i))
Next

MsgBox
(n.Average

PHP كود :
Dim n(6) As Single
For 0 To 6

    Dim s 
InputBox("أدخل رقم")
 
   If Not IsNumeric(sThen
        MsgBox
("لم تدخل رقما، فضلا حاول من جديد")
 
       Exit Sub
    End 
If

 
   n(i) = CSng(s)

Next

MsgBox
(n.Average

في كم شغله في اكوادك مافهمتها  Huh
انا كتبت هذا الكود بنفس طريقة دراستي لكن ما يطلع لي المتوسط اذا عندك خلفية عن المشكله  Sad
PHP كود :
Dim n(6) As Integer
        For i 
0 To 6
            n
(i) = arrayTextBox1.Text
        Next

        averageLabel1
.Text n.Average 

(25-11-16, 03:25 PM)Fantastico كتب : في المرفقات

يعطيك العافيه حملته وشفته لكن المشكله بس يطلع لي الرقم اللي ادخله بدون مايطلع المتوسط
الرد }}}}
تم الشكر بواسطة:
#5
PHP كود :
Dim n(6) As Integer
For 0 To 6
    n
(i) = CInt(InputBox("Enter number:"))
Next

averageLabel1
.Text n.Average 
الرد }}}}
تم الشكر بواسطة:
#6
(25-11-16, 10:57 PM)amgad525 كتب :
PHP كود :
Dim n(6) As Integer
For 0 To 6
    n
(i) = CInt(InputBox("Enter number:"))
Next

averageLabel1
.Text n.Average 

ال CInt ماذا تعني ؟ لم ادرسها حتى الان 
لكن اريد معرفة الخطأ في الكود الخاص بي مهاهو لماذا لا يعطيني المتوسط  Huh

(25-11-16, 11:13 PM)أبو ناصر كتب : السلام عليكم 
  صممت لك برنامجا يقوم بحساب المتوسط الحسابي للأعداد المدخلة عددها كما تحب 7 أ و اكثر أو أقل  .
PHP كود :
Public Class Form1
    Dim myList 
As New List(Of Integer)

 
   ' ادخال الأعداد
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        myList.Add(CInt(TextBox1.Text))
        TextBox1.Clear()
        TextBox1.Focus()
    End Sub

    ' 
حساب المتوسط الحسابي
    Private Sub Button2_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
        If myList
.Count 0 Then Exit Sub

        TextBox2
.Text myList.Average
        myList
.Clear()

 
   End Sub
End 
Class 

اخي ابو ناصر هذا الحل يختلف عن ما درسته 
http://fac.ksu.edu.sa/sites/default/files/lec7_0_1.ppt 
في هذا الرابط ما تعلمته ومعظمها اشياء بسيطه جدا
الرد }}}}
تم الشكر بواسطة:
#7
عذرا أخي a_abdullah حذفت المشاركة لأني لم أنتبه لسؤالك و هو طلب كود في array  و أنا صممتها باستعمال List
الرد }}}}
تم الشكر بواسطة:
#8
CInt:
Convert to Integer
الرد }}}}
تم الشكر بواسطة:


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


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