منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ترتيب تنازلي للارقام - نسخة قابلة للطباعة

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

الصفحات: 1 2

ترتيب تنازلي للارقام - mona173 - 25-04-13

قمت بعمل كود للترتيب التصاعدي للارقام كالتالي :

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Dim msgStr As String = ""
Dim X(20) As Single

Dim N As Single

N = InputBox("ادخل عدد القيم")
For I = 1 To N
X(I) = InputBox("ادخل القيم")

msgStr = msgStr & X(I)
Next I
MsgBox(msgStr)

End Sub

كيف يمكن جعل هذا الكود للترتيب التنازلي
ضروري

ترتيب تنازلي للارقام - ali.alfoly - 25-04-13

اتفضل
PHP كود :
Dim msgStr As String = ""
        Dim X(20) As Single

        For I As Single = InputBox("ادخل عدد القيم") To 1 Step -1
            X(I) = InputBox("ادخل القيم")

            msgStr = msgStr & X(I)
        Next I
        MsgBox(msgStr) 


ترتيب تنازلي للارقام - mona173 - 25-04-13

ali.alfoly كتب :اتفضل
PHP كود :
Dim msgStr As String = ""
        Dim X(20) As Single

        For I As Single = InputBox("ادخل عدد القيم") To 1 Step -1
            X(I) = InputBox("ادخل القيم")

            msgStr = msgStr & X(I)
        Next I
        MsgBox(msgStr) 

هل يمكن ان تقوم بشرح الكود

ترتيب تنازلي للارقام - mona173 - 26-04-13

اخ علي برجاء شرح الكود ضروري
حيث اني لم افهم المقصود ب

For I As Single = InputBox("ادخل عدد القيم") To 1 Step -1

ترتيب تنازلي للارقام - ali.alfoly - 26-04-13

اسف والله النت فصل وسه جى الان
التكرار فور يمكنك التحكم فى سير الخطواط سؤاء تصاعدى او تنازلى عن طريق كلمة Step تقوم بكتابتها فى ااخر سطر التكرار
الكلمة Step مثلا انظر
للانتقال خطوه خطوه
Step 1
وايضا عند عدم كتابة Step يعتبر المترجم انك كتبت Step 1
يمكنك تحديد قيمة الانتقال كما تحب انا كتبت له Step -1
بمعنى ان ينتقل بخطوه للاسفل ولاكن لاحظ المتغير I يحمل القيمه الكبيره والـ TO يحمل القيمه الصغيره لانى سانتقل تنازلى
فانا جعلت قيمة النهايه TO جعلتها 1
والقيمة العليا جعلتها هى القيمة التى يحددها المستخدم مثلا المستخدم ادخل الرقم 10 سيقوم التكرار بالانتقال من 10 بمعدل خطوة -1 الى ان يصل الى 1
10 9 8 7 6 5 4 3 2 1
اتمنى ان يكون الامر اتضح وانا اسف جدا على التاخير

ترتيب تنازلي للارقام - mona173 - 27-04-13

اخ علي
قمت بتجربة البرنامج ولم يعمل
ظهرت الرسالة الاولى لادخال عدد الارقام فكتبت 5
ثم ظهرت الرسالة لادخال الارقام فكتتب 13574
فظهرت الارقام كما هي دون ترتيب
مرفق المشروع برجاء مراجعته وافادتي

ترتيب تنازلي للارقام - سعود - 27-04-13

ليش الكود التنازلي لا يعمل؟؟؟
كود :
Dim lst As New List(Of Integer)
        For r = 0 To 10 Step 1
            lst.Add(r)




        Next
كود :
For r As Integer = lst.Max To lst.Min          
MsgBox(r)




        Next


بينما التصاعدي يعمل

ترتيب تنازلي للارقام - سعود - 27-04-13

كود :
For r = 0 To ListBox1.Items.Count - 1            MsgBox(r)


        Next

عجيب فقط التصاعدي يعمل مالسر؟

ترتيب تنازلي للارقام - @@أبورائد@@ - 27-04-13


السلام عليكم ورحمة الله وبركاته




إن شاء الله يكون المطلوب


ترتيب تصاعدي

PHP كود :
Dim a() As Integer = {2, 6, 9, 7, 5, 8}
Array.Sort(a)
For Each t In a
    MsgBox(t)
Next 



ترتيب تنازلي

PHP كود :
Dim a() As Integer = {2, 6, 9, 7, 5, 8}
Array.Sort(a)
Array.Reverse(a)
For Each t In a
    MsgBox(t)
Next 



[COLOR="#FF0000"]تم التعديل


[/COLOR]
السلام عليكم ورحمة الله وبركاته

ترتيب تنازلي للارقام - سعود - 27-04-13

@@أبورائد@@ كتب :السلام عليكم ورحمة الله وبركاته








[b]إن شاء الله يكون المطلوب




PHP كود :
Dim a() As Integer = {2, 6, 9, 7, 5, 8}Array.Sort(a) ' ترتيب تصاعديArray.Reverse(a) ' ترتيب تنازلي 









[/b]
[b]السلام عليكم ورحمة الله وبركاته
[/b]


راائع جدا
كود :
Dim a() As Integer = {0, 1, 2, 3, 4, 5}        
Array.Sort(a) ' ترتيب تصاعدي
' Array.Reverse(a) ' ترتيب تنازلي  
For Each t In a
MsgBox(t)
Next