منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] ايجاد العدد الاكبر من 10 اعداد يتم ادخالها - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] ايجاد العدد الاكبر من 10 اعداد يتم ادخالها (/showthread.php?tid=12086)



ايجاد العدد الاكبر من 10 اعداد يتم ادخالها - nadera - 17-04-15

شكرا لكل من قدم المساعدة


RE: ايجاد العدد الاكبر من 10 اعداد يتم ادخالها - sami2015 - 17-04-15

Dim a(10) As Double

For i = 1 To 10
a(i) = InputBox(i)
Next

Dim max As Double

For i = 1 To 10
If a(i) > max Then
max = a(i)
End If
Next

MsgBox(max)


RE: ايجاد العدد الاكبر من 10 اعداد يتم ادخالها - nadera - 17-04-15

جربت ماصار البرنامج وانا بعرف انو لازم البرمجة تناسب الواجهة
اخي لو سمحت شو هي الواجهة المطلوبة

لو سمحتو حدا يساعدني


RE: ايجاد العدد الاكبر من 10 اعداد يتم ادخالها - silverlight - 18-04-15

افتح مشروع من النوع WindowsApplication
ثم ف القورم اضف اربعة كونترول من النوع Label
و في الحدث Load  الخاص بالفورم اكتب الاكواد التالية
من المفترض ان يكون الكود لديك كالتالي


كود :
Public Class Form1

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       Dim list(9) As Integer
       For i = 0 To list.GetUpperBound(0)
           list(i) = InputBox("Please enter a value number to the array, value " & " " & i.ToString, "Add Array Values")
       Next

       Dim max As Integer = Integer.MinValue
       Dim min As Integer = Integer.MaxValue

       For Each item As Integer In list
           max = Math.Max(max, item)
           min = Math.Min(min, item)
       Next
     
       Label1.Text = " max value in array = "
       Label2.Text = " min value in array = "

       Label3.Text = max
       Label4.Text = min

   End Sub


End Class



RE: ايجاد العدد الاكبر من 10 اعداد يتم ادخالها - nadera - 18-04-15

(18-04-15, 03:17 PM)silverlight كتب : افتح مشروع من النوع WindowsApplication
ثم ف القورم اضف اربعة كونترول من النوع Label
و في الحدث Load  الخاص بالفورم اكتب الاكواد التالية
من المفترض ان يكون الكود لديك كالتالي



كود :
Public Class Form1

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       Dim list(9) As Integer
       For i = 0 To list.GetUpperBound(0)
           list(i) = InputBox("Please enter a value number to the array, value " & " " & i.ToString, "Add Array Values")
       Next

       Dim max As Integer = Integer.MinValue
       Dim min As Integer = Integer.MaxValue

       For Each item As Integer In list
           max = Math.Max(max, item)
           min = Math.Min(min, item)
       Next
     
       Label1.Text = " max value in array = "
       Label2.Text = " min value in array = "

       Label3.Text = max
       Label4.Text = min

   End Sub


End Class

هلئ انا اضفت اربعة من Label
كيف بدي اكتب هدول الاوامر


RE: ايجاد العدد الاكبر من 10 اعداد يتم ادخالها - ربيع - 18-04-15

نحمده ونصلي على رسوله الكريم