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

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



هل يمكن عكس عد حلقة For - سعود - 13-03-14

اخواني الكرام
السلام عليكم ورحمة الله وبركاته
لو حبيت اعد بشكل عكسي من 100 الى 0 باستخدام For Next
كيف اعدل في الجملة التالية:
كود :
For a = 0 to 100


backgroundworker.ReportProgress(a)
هذا هو الهدف لاني اسند القيمة الى
progressbar ضمن حدث
ProgressChanged
بالكود
progressbar.Value = e.ProgressPercentage
Next



RE: هل يمكن عكس عد حلقة For - سعود - 13-03-14

جربت بمثال سريع الكود التالي:
كود :
ProgressBar1.Maximum = 100
        For a = 100 To 0 Step -1
            ListBox1.Items.Add(a)
            ProgressBar1.Value = a
        Next
لكن كيف اضبط قيمة progressbar بحيث يعمل كالمعتاد يعني من ادنى قيمة الى اكبر قيمة؟


RE: هل يمكن عكس عد حلقة For - Genius Live - 13-03-14

PHP كود :
ProgressBar1.Maximum 100
ProgressBar1
.Value 100
For 100 To 0 Step -1
ListBox1
.Items.Add(a)
ProgressBar1.Value -= 1
Next 

RolleyesRolleyesRolleyes


RE: هل يمكن عكس عد حلقة For - سعود - 13-03-14

اخي الكريم
هو بشكل طبيعي سيعد تبعا لقيمة a لا مشكلة .. الذي اريد ان اطبقه هو العد العكسي يعني العد المعمول به من 100 الى 0 واريد ان يكون الـ brogressbar يعد من 0 الى 100 ليكون لون التقدم مناسب لما يستخدم له


RE: هل يمكن عكس عد حلقة For - Genius Live - 13-03-14

(13-03-14, 05:24 PM)سعود كتب : اخي الكريم
هو بشكل طبيعي سيعد تبعا لقيمة a لا مشكلة .. الذي اريد ان اطبقه هو العد العكسي يعني العد المعمول به من 100 الى 0 واريد ان يكون الـ brogressbar يعد من 0 الى 100 ليكون لون التقدم مناسب لما يستخدم له
SORRY Wink
PHP كود :
ProgressBar1.Maximum 100
ProgressBar1
.Value 0
For 100 To 0 Step -1
ListBox1
.Items.Add(a)
ProgressBar1.Value += 1
Next 

RolleyesRolleyesRolleyes



RE: هل يمكن عكس عد حلقة For - Genius Live - 13-03-14

او يمكنك بسهولة فعل الاتي
PHP كود :
ProgressBar1.Maximum 100
        
For 100 To 0 Step -1
            ListBox1
.Items.Add(a)
            
ProgressBar1.Value 100 a
        Next 
RolleyesRolleyesRolleyes


RE: هل يمكن عكس عد حلقة For - سعود - 13-03-14

ماشاء الله تبارك الله
فعلا هذا اللي ابحث عنه
ساضيفه للمشروع الرئيسيSmile