منتديات بوابة بدر  

العودة   منتديات بوابة بدر > منتديات البرامج - Programs Forum > تحميل احدث برامج 2017 , 2018

تحميل احدث برامج 2017 , 2018 تحميل احدث البرامج، تحميل برامج كمبيوتر 2017، برامج 2018، برامج 2018، برامج مجانية، تحميل برامج جديدة، برامج حديثة ، احدث برامج الجهاز , برامج عامة, برامج 2018, تحميل برامج 2017

إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
قديم 23-09-2015, 01:23 PM   #1
Eng_Badr
Administrator
 
الصورة الرمزية Eng_Badr
 
تاريخ التسجيل: Jun 2010
الدولة: Egypt
العمر: 27
المشاركات: 138,102
افتراضي تعديل هذا الكود - بوابة بدر 2016

تعديل هذا الكود
تحميل,تنزيل,2013,2014,ماى ايجى,تحميل مباشر,عرب سيد,برابط مباشر,سريع,تورنت,عربي,معرب,مجانا,فاينال,انجليزي,فر نسي,اخر اصدار,برابط واحد,صاروخ
تعديل هذا الكود
<div>كتبت هذا الكود
كود:
Private Sub Command1_Click()

For I = 1 To NNUM
VV(I) = Text1(I).Text
If VV(I) > 50 Then GoTo 100
NNN = VV(I)
If NNN = 10 Then GoTo 10
If NNN = 20 Then GoTo 20
If NNN = 30 Then GoTo 30
If NNN = 40 Then GoTo 40
If NNN = 50 Then GoTo 50
100 Next I

10 Rem" NNN=10 هنا نكتب كود اللازم عندما تكون"

GoTo 200
20 Rem" NNN=20 هنا نكتب كود اللازم عندما تكون"

GoTo 200
30 Rem" NNN=30 هنا نكتب كود اللازم عندما تكون"

GoTo 200
40 Rem" NNN=40 هنا نكتب كود اللازم عندما تكون"

GoTo 200
50 Rem" NNN=50 هنا نكتب كود اللازم عندما تكون"

200 End Sub

وطبعآ يمكن استبدال الجمل الشرطيةالخمسةالمتتالية باستخدام Select Case بدلآ من IF هكذا
كود:
Select Case NNN
Case "10": GoTo 10
Case "20": GoTo 20
Case "30": GoTo 30
Case "40": GoTo 40
Case "50": GoTo 50
End Select
وأريد كودآ أسهل من ذلك
بحيث لا يمرالبرنامج كل مرة(مع كل قيمة لل I أثناء تنفيذ اللوب) على هذه الجمل الخمسة أوعلى بعضها حتى يتحقق الشرط

كيف يمكن مثلآ أن نجعل متغير يعبرعن رقم الجملة التى سنتوجه اليها
فتكتب هذه الجمل الخمسة جملة واحدة بدون أى شرط (GoTo NNN)
أى يكون اللوب هكذا
كود:
For I = 1 To NNUM
VV(I) = Text1(I).Text
If VV(I) > 50 Then GoTo 100
NNN = VV(I)
GoTo NNN
100 Next I
ولكم ألف شكر

تعديل هذا الكود
تحميل,تنزيل,2013,2014,ماى ايجى,تحميل مباشر,عرب سيد,برابط مباشر,سريع,تورنت,عربي,معرب,مجانا,فاينال,انجليزي,فر نسي,اخر اصدار,برابط واحد,صاروخ
تعديل هذا الكود
Eng_Badr غير متواجد حالياً   رد مع اقتباس
إضافة رد

مواقع النشر (المفضلة)


الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)
 
أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

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

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
برنامج تعديل الصور Best Photo Editor - بوابة بدر 2016 Eng_Badr تحميل احدث برامج 2017 , 2018 0 22-09-2015 01:27 PM
عملاق حرق و تعديل ملفات الأيزو و صناعة الاسطوانات الوهمية " DAEMON Tools Pro Advanced - بوابة بدر 2016 Eng_Badr تحميل احدث برامج 2017 , 2018 0 22-09-2015 11:55 AM
برنامج تعديل الفيديو واضافة المؤثرات Ashampoo Movie Studio 2.0.4.2 - بوابة بدر 2016 Eng_Badr تحميل احدث برامج 2017 , 2018 0 04-09-2015 10:46 AM
Aiseesoft Total Video Converter 8.1.10 : عملاق تحويل , تعديل , قص ودمج الفيديو - بوابة بدر 2016 Eng_Badr تحميل احدث برامج 2017 , 2018 0 02-09-2015 04:04 PM
تحميل برنامج تعديل الصور الشخصية تعديل شكل الوجة,بوابة بدر 2013 Eng_Badr تحميل احدث برامج 2017 , 2018 0 31-05-2014 07:59 AM


الساعة الآن 01:50 PM


بوابة بدر ، منتديات بوابة بدر ، برامج 2016 ، برامج شات 2016 ، برامج بورتابل 2016
BadrGate | About Us | Google Adsense Privacy Policy | DMCA | Disclaimer | Contact Us
جميع المشاركات لا تعبر عن وجهة نظر الاداره وإنما تعبر عن وجهة نظر صاحبها فقط وللإبلاغ عن اى إنتهاك للحقوق يُرجى الاتصال بنا
يمنع وضع اى مشاركات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة واذا وجد اى ضرر نرجوا الاتصال بنا لعمل اللازم