 |
|
|
 |
|
| قسم الميكروكنترولر والروبوت ودوائر الاتصال بالحاسب الالي قسم المتحكمات الـ microcontroller و المعالجات microprocessor و التحكم الرقمي بالكمبيوتر CNC والانظمة الآلية والروبوت Robots |
| مشاهدة نتائج الإستفتاء: هل ترى أهمية لدورة تشرح لغة (mikroBasic) لبرمجة البيك ؟ | |||
| موضوع فى غاية الأهمية و ضرورى جدا ... ... 1 |
   
|
23 | 95.83% |
| موضوع هام ولكن يوجد ما يكفى ... ... 2 |
  
|
1 | 4.17% |
| موضوع مكرر ولا داع لبذل المزيد من الجهد ... 3 |
  
|
0 | 0% |
| المصوتون: 24. أنت لم تصوت في هذا الإستفتاء | |||
|
|
|
|||||
|
| اعلانات |
|
|||||
|
الحمد لله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه الاخوة الكرام ahmad72 و montasr88 أشكركما على المتابعة والتشجيع وجزاكما الله خيرا ... وأعد جميع الإخوة المتابعين بأن هذه الدورة ستكون اكثر تفاعيلة وإثارة في الدروس القادمة حيث سيتم طرح الأسئلة حول الدروس التي تم شرحها ... نكمل حول أساسيات هذه اللغة الجميلة 2- المصفوفات المصفوفات : عبارة عن مجموعة من العناصر ( المتغيرات ) متشابهة في النوع تخزن في مواقع متتالية في الذاكرة العشوائية ( (RAMللـ Pic ... إذن المصفوفة تمثل مجموعة من العناصر جميع هذه العناصر يجب أن تكون من نفس النوع ... اكيد أنت تتذكر ما المقصود بالنوع ؟؟؟ نوع المتغير الذي تكلمنا عنه في الدرس السابق إما (byte , word , integr ,… ( إذن ممكن يكون عندنا مصفوفة من النوع byte أو من النوع work أو ..... الآن كيف نعرّف مصفوفة في لغة مايكروبيسك ؟؟ لتعريف مصفوفة من النوع byte نكتب التالي كود:
Dim (array name) as byte[array length] كود:
dim suh as byte[8] لاحظ : كل عنصر من عناصر المصفوفة السابقة يمكن أن نعتبره متغير من النوع byte كيف أصل الى أي عنصر من عناصر المصفوفة ؟؟؟ جميل .... لكي نصل الى العنصر الأول نكتب suh[0[ وللعنصر الثاني نكتب suh[1] وللعنصر الثامن suh[7] وهكذا الآن ما رأيك أن نكتب برنامج يقوم بتعريف مصفوفة تحتوي على 5 عناصر من النوع byte ويجمع العنصر الأول مع الثاني ويضع الناتج في العنصر الثالث ويطرح العنصر الخامس من العنصر الرابع ويضع الناتج في العنصر الخامس ...؟ برنامج بسيط ( وغير مفيد ) إليس كذلك ؟ كود:
Program array1 Dim suh as byte[5] Main: Suh[2]=suh[0]+suh[1] Suh[4]=suh[3]-suh[3] End أفرض أن العنصر الرابع =8 والعنصر الخامس = 2 ...كم ستكون النتيجة الجديدة للعنصر الخامس ؟؟؟؟ أكيد 8-2= 6 مارأيك أن نعرض النتيجة على منافذ الـ pic كالتالي porta=suh[2] إذن البرنامج سيصبح portb=suh[4] كود:
Program array1 dim suh as byte[5] main: trisa=0 trisb=0 suh[0]=4 suh[1]=3 suh[3]=8 suh[4]=2 suh[2]=suh[0]+suh[1] suh[4]=suh[3]-suh[4] porta=suh[2] portb=suh[4] end  طبعا نستطيع عمل البرنامج السابق دون استخدام المصفوفات لكن أردنا أن نوضح كيفية جمع وطرح عناصر المصفوفة ... وكيف نسند قيمة الى أي عنصر على حدة ... ويمكنك إجراء عمليات الضرب والقسمة والعمليات المنطقية بنفس الطريقة لا تنسى أنه يمنك تعريف مصفوفة من النوع word كالتالي كود:
dim suh as word[5] كود:
dim suh as integer[5] لكن ... ما دامت المصفوفة عبارة عن مجموعة من المتغيرات فلماذا نستخدمها . الا يكفي أن نعرف هذه المتغيرات فحسب ؟؟؟ طبعا لا وذلك للاسباب التالية : 1- المصفوفة تختصر علينا الجهد .. أفرض أنك بحاجة الى تعريف 100 متغير أيهما أسهل كود:
Dim suh as byte[100] كود:
Dim suh1,suh2,suh3,suh4,……………,suh100 as byte 2- المصفوفة تمكننا من الوصول الى العناصر بسهولة ( سيتضح لك الأمر فيما بعد عند استخدام حلقات التكرار ) 3- المصفوفة توفر مساحة الخزن ... لاحظ الرابط التالي http://www.qariya.com/vb/showthread.php?t=60878 لا أريد الإطالة أكثر ... نلتقي في الدرس القادم إن شاء الله تعالى سبحانك اللهم وبحمدك أشهد أن لاإله إلا أنت أستغفرك وأتوب إليك التعديل الأخير تم بواسطة : صهيب البلال بتاريخ 20-03-2010 الساعة 06:06 PM |
| اعلانات اضافية ( قم بتسجيل الدخول لاخفائها ) | |
|
|
|
|||||
|
|
|
||||||
|
التعديل الأخير تم بواسطة : wleed antar بتاريخ 21-03-2010 الساعة 11:49 PM |
|
|||||
|
|
|
|||||
|
بسم الله الرحمن الرحيم الحمد لله رب العالمين والصلاة والسلام على سيدنا محمد سيد المرسلين وعلى آله وصحبه اجمعين ... أشكر جميع اٌخوة المتابعين واعتذر عن التأخير واقول للأستاذ وليد ... جزاك الله خيرا على ما قدمته من توضيبحات حول موضوع المتغيرات .. ونطلب منك تعليقا لكل موضوع حتى تعم الفائدة .. بارك الله فيك على بركة الله تعالى نكمل ... الدرس الثالث : لا زلنا مع أساسيات لغة المايكروبيسك .... وقد تعرفنا على المتغيرات والمصفوفات ... وسنؤجل الحديث عن المتغيرات النصية ونتكلم عن موضوع مهم جدا ومفيد للغاية ألا وهو جمل الشرط 3-جمل الشرط : نبدأ بجملة (if) افرض أن لديك الدائرة البسيطة التالية  المصباح منطفئ ... لكن إذا غلق المفتاح أنار المصباح ... إذن شرط إضاءة المصباح هو غلق المفتاح ... فإذا تحقق الشرط تحقق المشروط عليه ... إذن حقيقة الشرط تتلخص في التالي ( إذا تحقق كذا .... افعل كذا ) الآن كيف نطبق الشرط في مايكروبيسك.... ايعازات سهلة تذكير : الايعازات مشابهة تماما للغة فيجوال بيسك كود:
If conditions then statements End if لكي نفهم الموضوع بشكل دقيق سنقوم بكتابة البرنامج التالي : 1- نهيئ المنفذ A للإدخال 2- نهيئ المنفذ B للإخراج 3- نربط مفتاح sw0 على الطرف A0 ونربط دايود ضوئي led0 على الطرف B0 4- إذا تم غلق المفتاح sw0 فإن الـ led0 يضيء اليك البرنامج : كود:
Program ifthen Main Trisa=31 Trisb=0 aa: if porta.0=1 then portb.0=1 goto aa end الظاهر : أنه عند الضغط على الزر sw0 فإن led0 يضيء ويبقى مضاء ... جميل جدا.... تمكنا من ربط الإدخال بالإخراج ... تمكنا من التحكم بالإخراج عن طريق الإدخال.. توصلنا الى المبدأ الأساسي للسيطرة .. بهذه السهولة ؟؟؟ نعود الى البرنامج مرة أخرى .... ونطرح التساؤلات التساؤل الأول : لماذا لم نستخدم end if ؟؟؟ اليك الاجابة وأرجو ان تنتبه اليها وتحفظها ... إذا كتبنا جملة واحدة (إجراء واحد) فقط بعد جملة الشرط if فلا حاجة الى إنهاء الشرط باستخدام end if ... لاحظ في البرنامج السابق كتبنا عبارة portb=led0 فقط بعد جملة الشرط لذلك لم نحتج الى استخدام end if ... أتمنى أن يكون الأمر واضحا التساؤل الثاني : كيف نعدل على البرنامج ليجعل led0 يضاء عند الضغط على الزر sw0 وينطفي عندما يكون الزر غير مضغوط .... ؟؟ لابد من استخدام else كيف ؟؟ كود:
If conditions then statements else statements End if كود:
Program ifthen Main Trisa=31 Trisb=0 aa: if porta.0=1 then portb.0=1 else portb.0=0 end if goto aa end أقول ... نحن نريد أن نراقب حالة الطرف A0 دائما ونسجل أي تغير يطرأ عليه ... لذلك نحتاج إلى استعمال حلقة غير منتهية بداخلها ايعازات المراقبة ونحن قد استخدمنا هذه الحلقة التي شرحها من قبل الاستاذ وليد Aa: Goto aa مع العلم أنه يمكننا استخدام أي كلمة بدل aa مثلا Loop : الايعازات Go to loop إذن ضع هذه الملاحظة في بالك وتذكر أنه كلما أردت مراقبة الإدخال سواء كان الإدخال مفتاح أو متحسس أو ... يجب عليك أن تضع ايعازات المراقبة في حلقة غير منتهية infinite loop .................................................. ........................................... الآن ما رأيك أن نتحكم في إطفاء وتشغيل أجهزة تعمل على الجهد 12 فولت أو أي جهد تحتاجه باستخدام pic ؟؟ قبل الإجابة لابد من توضيح الأشياء التي تحتاجها للتحكم بهكذا أجهزة 1-ترانزستور كمفتاح وليكن 2n2222 2- مرحل relay 3- مقاومات سيناريو البرنامج للتحكم في تشغيل وإطفاء أربعة أجهزة تعمل على 12 فولت : 1- نهيئ الطرف A كإدخال والطرف B كإخراج 2- نربط الدائرة كما في الشكل أدناه URL=http://dreameer.com/up/]  [/URL] 3- عند الضغط على المفتاح الأول يشتغل الجهاز الأول .... وهكذا كود:
Program ifthen Main Trisa=31 Trisb=0 aa: if porta.0=1 then portb.0=1 else portb.0=0 end if if porta.1=1 then portb.1=1 else portb.1=0 end if if porta.2=1 then portb.2=1 else portb.2=0 end if if porta.3=1 then portb.3=1 else portb.3=0 end if goto aa end الخلاصة : 1- لن تتمكن من ربط الإخراج بالإدخال الا باستخدام جمل الشرط 2- لكي تراقب حالة الإدخال يجب أن تستخدم حلقة تكرار غير منتهية 3- جملة if لها عدة صيغ : الصيغة الأولى : كود:
If conditions then one statement كود:
if conditions then statements end if كود:
if conditions then statements else statements end if سبحان ربك رب العزة عما يصفون وسلام على المرسلين والحمد لله رب العالمين |
|
|||||
|
|
|
|||||
|
|
