تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اريد كود للبرنامج التالي بطريقة general procedures
#1
هذا السؤال لمن يستطيع فهمه  Huh


Write a VB program that takes an array as input an integer from the user and displays the maximum and minimum value. This processing must be in a function procedure and the result should be displayed in the event procedure (button click).also you must display even numbers in this array by subroutine procedure.
الرد
تم الشكر بواسطة:
#2
sample TextBox1 text: 2,3,4,5,6,7

(event procedure (button click
PHP كود :
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click

    Dim splt
() As String Me.TextBox1.Text.Split(",")

 
   Dim arr(splt.Count 1) As Integer
    For i 
0 To splt.Length 1
        arr
(i) = Val(splt(i))
 
   Next


    Label1
.Text GetArrayMaximumValue(arr)

 
   Label2.Text GetArrayMinimumValue(arr)

 
   DisplayArrayEvenNumbers(arr)

End Sub 



function procedure
Maximum
PHP كود :
Function GetArrayMaximumValue(arr As Integer()) As Integer
    Return arr
.Max()
End Function 
OR
PHP كود :
Function GetArrayMaximumValue(arr As Integer()) As Integer
    Dim mx 
As Integer Integer.MinValue
    For i 
0 To arr.Length 1
        If arr
(i) > mx Then
            mx 
arr(i)
 
       End If
 
   Next
    Return mx
End 
Function 



function procedure
Minimum
PHP كود :
Function GetArrayMinimumValue(arr As Integer()) As Integer
    Return arr
.Min()
End Function 
OR
PHP كود :
Function GetArrayMinimumValue(arr As Integer()) As Integer
    Dim mn 
As Integer Integer.MaxValue
    For i 
0 To arr.Length 1
        If arr
(i) < mn Then
            mn 
arr(i)
 
       End If
 
   Next
    Return mn
End 
Function 



display even numbers
subroutine procedure
PHP كود :
Sub DisplayArrayEvenNumbers(arr As Integer())
 
   For i 0 To arr.Length 1
        If arr
(iMod 2 0 Then
            Label3
.Text Label3.Text arr(i) & " "
 
       End If
 
   Next
End Sub 

الرد
تم الشكر بواسطة: a_abdullah
#3
(05-12-16, 01:21 PM)amgad525 كتب : sample TextBox1 text: 2,3,4,5,6,7

(event procedure (button click
PHP كود :
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click

    Dim splt
() As String Me.TextBox1.Text.Split(",")

 
   Dim arr(splt.Count 1) As Integer
    For i 
0 To splt.Length 1
        arr
(i) = Val(splt(i))
 
   Next


    Label1
.Text GetArrayMaximumValue(arr)

 
   Label2.Text GetArrayMinimumValue(arr)

 
   DisplayArrayEvenNumbers(arr)

End Sub 



function procedure
Maximum
PHP كود :
Function GetArrayMaximumValue(arr As Integer()) As Integer
    Return arr
.Max()
End Function 
OR
PHP كود :
Function GetArrayMaximumValue(arr As Integer()) As Integer
    Dim mx 
As Integer Integer.MinValue
    For i 
0 To arr.Length 1
        If arr
(i) > mx Then
            mx 
arr(i)
 
       End If
 
   Next
    Return mx
End 
Function 



function procedure
Minimum
PHP كود :
Function GetArrayMinimumValue(arr As Integer()) As Integer
    Return arr
.Min()
End Function 
OR
PHP كود :
Function GetArrayMinimumValue(arr As Integer()) As Integer
    Dim mn 
As Integer Integer.MaxValue
    For i 
0 To arr.Length 1
        If arr
(i) < mn Then
            mn 
arr(i)
 
       End If
 
   Next
    Return mn
End 
Function 



display even numbers
subroutine procedure
PHP كود :
Sub DisplayArrayEvenNumbers(arr As Integer())
 
   For i 0 To arr.Length 1
        If arr
(iMod 2 0 Then
            Label3
.Text Label3.Text arr(i) & " "
 
       End If
 
   Next
End Sub 

بس عشان افهم ليش حطيت هنا me 
 Dim splt() As String = Me.TextBox1.Text.Split(",")
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اخفاء فروم الـ login - واظهار الفروم التالي Sanaa2 3 73 , 01:37 AM
آخر رد: Sanaa2
  [Acces2007] اريد تقسيم بيانات عمود الى عدة اعمدة ويوجد مثال مصور sasay202 2 160 01-09-20, 10:22 PM
آخر رد: ابراهيم ايبو
Question [سؤال] اضافة ميعاد التسليم للبرنامج maaadooo2001 1 117 01-09-20, 04:37 PM
آخر رد: اسامه الهرماوي
  [سؤال] اريد شويه أكواد عن قواعد بيانات الاكسس منه 2 174 27-08-20, 10:51 AM
آخر رد: منه
  اريد عرض اليوم حسب اختيار التاريخ ارجو المساعده الله يبارك فيكم كريم عبودي 4 299 23-08-20, 01:59 PM
آخر رد: اسامه الهرماوي
  لو سمحتم اريد تعديل على هذا المشروع خالد كامل1 3 297 20-08-20, 06:09 PM
آخر رد: خالد كامل1
  اريد استرجاع شئ فى الداتا جريد فيو خالد كامل1 2 200 14-08-20, 08:54 PM
آخر رد: خالد كامل1
  عاوز اعمل سريل نمبر للبرنامج برقم mother bord بتاع الجهاز Hosam Ashraf Elwakel 1 175 01-08-20, 04:13 PM
آخر رد: essawq
Exclamation [سؤال] اريد حل لمشكلة في الفيجوال ستوديو 2015 Mina Botros 4 380 30-07-20, 07:54 AM
آخر رد: Mina Botros
  اريد كود فتح متصفح فايرفوكس سلينيوم من خلال VB.NET developermedo111 1 194 29-07-20, 02:41 AM
آخر رد: ابو روضة

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


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