تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ترتيب تنازلي للارقام
#1
قمت بعمل كود للترتيب التصاعدي للارقام كالتالي :

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

كيف يمكن جعل هذا الكود للترتيب التنازلي
ضروري
الرد }}}}
تم الشكر بواسطة:
#2
اتفضل
PHP كود :
Dim msgStr As String ""
        
Dim X(20) As Single

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

            
msgStr msgStr X(I)
        
Next I
        MsgBox
(msgStr
الرد }}}}
تم الشكر بواسطة:
#3
ali.alfoly كتب :اتفضل
PHP كود :
Dim msgStr As String ""
        
Dim X(20) As Single

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

            
msgStr msgStr X(I)
        
Next I
        MsgBox
(msgStr

هل يمكن ان تقوم بشرح الكود
الرد }}}}
تم الشكر بواسطة:
#4
اخ علي برجاء شرح الكود ضروري
حيث اني لم افهم المقصود ب

For I As Single = InputBox("ادخل عدد القيم") To 1 Step -1
الرد }}}}
تم الشكر بواسطة:
#5
اسف والله النت فصل وسه جى الان
التكرار فور يمكنك التحكم فى سير الخطواط سؤاء تصاعدى او تنازلى عن طريق كلمة 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
اتمنى ان يكون الامر اتضح وانا اسف جدا على التاخير
الرد }}}}
تم الشكر بواسطة:
#6
اخ علي
قمت بتجربة البرنامج ولم يعمل
ظهرت الرسالة الاولى لادخال عدد الارقام فكتبت 5
ثم ظهرت الرسالة لادخال الارقام فكتتب 13574
فظهرت الارقام كما هي دون ترتيب
مرفق المشروع برجاء مراجعته وافادتي


الملفات المرفقة
.rar   WindowsApplication12.rar (الحجم : 72.48 ك ب / التحميلات : 18)
الرد }}}}
تم الشكر بواسطة:
#7
ليش الكود التنازلي لا يعمل؟؟؟
كود :
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


بينما التصاعدي يعمل
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#8
كود :
For r = 0 To ListBox1.Items.Count - 1            MsgBox(r)


        Next

عجيب فقط التصاعدي يعمل مالسر؟
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#9

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




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


ترتيب تصاعدي

PHP كود :
Dim a() As Integer = {269758}
Array.
Sort(a)
For 
Each t In a
    MsgBox
(t)
Next 



ترتيب تنازلي

PHP كود :
Dim a() As Integer = {269758}
Array.
Sort(a)
Array.
Reverse(a)
For 
Each t In a
    MsgBox
(t)
Next 



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


[/COLOR]
السلام عليكم ورحمة الله وبركاته
 
 
@@@ سامحوني، منقطع نهائياً @@@

 
الرد }}}}
تم الشكر بواسطة:
#10
@@أبورائد@@ كتب :السلام عليكم ورحمة الله وبركاته








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





PHP كود :
Dim a() As Integer = {269758}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
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Music طلب : كود ترتيب مصفوفة ثنائية تصاعدياً + كود ضرب مصفوفة ثنائية سوسن جاد الله 2 72 27-11-16, 09:29 AM
آخر رد: amgad525
  ترتيب البيانات حسب تشابه الاسم في العمود هاوي1995 6 115 21-10-16, 09:30 PM
آخر رد: هاوي1995
  ترتيب النوع على أساس المفاتيح Mohamed20 6 95 20-10-16, 12:17 PM
آخر رد: Mohamed20
  ترتيب ريبورت فيور hglogtd 5 144 19-10-16, 08:54 AM
آخر رد: hglogtd
  كيفية ترتيب الداتا جريد فيو بادئ 2 194 29-08-16, 10:56 PM
آخر رد: أبو ناصر
  [سؤال] كيفية معرفة ترتيب اليوم فى السنة نور الدين وليد 11 348 20-06-16, 07:54 PM
آخر رد: aliday03
  اعاده ترتيب الادوات الي جانب بعضها nansy2016 2 143 23-05-16, 05:30 PM
آخر رد: nansy2016
  [سؤال] ترتيب الكود داخل محرر اكواد vb.net2015 DR.YASER 11 474 12-04-16, 10:58 PM
آخر رد: DR.YASER
  ترتيب البيانات من الاصغر الى الاكبر aftfm 6 354 05-04-16, 07:46 PM
آخر رد: عدنان الشمري
  [VB.NET] التقريب للارقام العشرية mohammedkhairy 4 522 21-02-16, 05:02 PM
آخر رد: Fantastico

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


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