دورة سريعة وميسرة فى برمجة البيك بلغة المايكرو بيزيك (mikroBasic) ! - الصفحة 7

wleed antar · 04:52 PM

اقتباس المشاركة الأصلية كتبت بواسطة zoro238

ممكن رابط اخر غير رابط 4 شير لاانة مجود عندنا
ممكن لتحميل البرنامج والكراك ولمتابعه الدروس

ما مشكلة موقع الرفع هذا معك ؟

ممكن أرفع لك الملفات على الرابيدشير فهل يصلح معك ؟
لأنه لم يحتاج منى لتسجيل خاص .
-------------------------------------------------------------------------

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

نكمل معا بمشيئة الله حول آخر مرحلة توقفنا عندها مع أخونا صهيب بارك الله له .

فقد توقف عند فعل الشرط وجواب الشرط وتكلم فيه بتوضيح جيد والحمد لله و هنا أضع لحضراتكم بعض من الدوائر المنطقية لتوضيح الأمر فقد ذكر لنا الأخ صهيب دائرة if بمعنى ( إذا ) وهى كالآتى :

إذا كان الشرط فعال قم بتشغيل المصباح

IF PORTA.0 = 1 THEN
PORTC = $FF

----------------

إذا كان الشرط الأول و الشرط الثانى معا فعالان فقم بتشغيل المصباح

IF PORTA and PORTB = 1 then
PORTC = $FF

-------------

إذا كان أيا من الشرط الأول أو الشرط الثانى فعال فقم بتشغيل المصباح

IF PORTA OR PORTB = 1 then
PORTC = $FF

-------------

إذا كان الشرط غير فعال قم بتشغيل المصباح

IF PORTA.0 <> 1 THEN
PORTC = $FF

----------------

إذا كان كلا من الشرط الأول و الشرط الثانى معا غير فعالان فقم بتشغيل المصباح

IF PORTA and PORTB <> 1 then
PORTC = $FF

---------------

إذا كان أيا من الشرط الأول أو الشرط الثانى غير فعال فقم بتشغيل المصباح

IF PORTA OR PORTB <> 1 then
PORTC = $FF

وبهذا تقريبا نكون قد قمنا بتمثيل دوائر المنطق أو البوابات . ونادرا ما يخلو برنامج من هذه الأداة

يتتبع .

mohamedse · 02-04-2010, 09:40 PM

السلام عليكم

ما شاء الله, أسلوب ممتاز أخى الكريم أستاذ وليد متابع معك بأذن الله

kiai87 · 03-04-2010, 11:34 PM

سلام عليكم

مع إحترامي شديد للإستاد صهيب البلال لاكن أسلوبه معقد قليلا ليس كمتل الإستاد wleed antar أسلوب جميل وسهل جدا كدت أن أفقد الأمل في دورة
باركة الله فيك أخي وزادك علما

وليد K · 04-04-2010, 12:17 PM

السلام عليكم ورحمه الله وبركاته احب اشترك معاكم فى الدورة والاجابة هى
main:
trisa=%00000111
trisb=%00000000
k:
if porta.0=1 then portb.0=1
delay_ms(500)
portb=%00000000
delay_ms(500)
portb.0=1
delay_ms(500)
else
portb.0=0
end if
if porta.1=1 then portb.1=1
delay_ms(500)
portb=%00000000
delay_ms(500)
portb.1=1
delay_ms(500)
portb=%00000000
delay_ms(500)
portb.1=1
delay_ms(500)
else
portb.1=0
end if
if porta.2=1 then portb.2=1
delay_ms(500)
portb=%00000000
delay_ms(500)
portb.2=1
delay_ms(500)
portb=%00000000
delay_ms(500)
portb.2=1
delay_ms(500)
portb=%00000000
delay_ms(500)
portb.2=1
delay_ms(500)
else
portb.2=0
end if

goto k

مستر_بودى · 06-04-2010, 05:51 AM

اخى الكريم وليد
جزاكم الله خيرا على هذا العمل
أسأل الله أن ينفعك بهذا العمل

wleed antar · 05:01 PM

شكرا لكم اخوانى على متابعتكم الجيدة والمثمرة للموضوع وتفاعلكم فكلما كانت المتابعة والإهتمام كان العطاء والتفرغ قدر الإمكان لمتابعة الدورة . وبالتوفيق لكم جميعا

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

ملحق لتطبيق دروس المتغير البسيط و فعل الشرط وجوابه وتعليمة اذهب إلى

VAR as BYTE - IF ... ... THEN - GOTO

==========================

هنا مشروع مبسط عبارة عن استقبال رقم من المستخدم وإخراجه على الليدات . والهدف من المشروع هو تطبيق احترافى لإستخدام المتغير البسيط و تعليمة الشرط و تعليمة اذهب .

ومعنى المتغير البسيط أى الذى يحتوى على رقم من صفر وحتى 255 كحد أقصى .

فكرة المشروع أن المفتاح المسمى SET كلما نضغط عليه ضغطة فنكون بذلك خزنا واحد صحيح فى ذاكرة المتحكم وبذلك نستطيع حسب حاجتنا أن نخزن قيمة واحد عن طريق ضغطة واحدة على مفتاح SET أما إذا أردنا تخزين قيمة 2 فإننا سنضغط على المفتاح SET مرتان وإذا أردنا تخزين رقم 3 فإننا نضغط على نفس المفتاح ثلاث مرات وإذا أردنا أن نخزن رقم 4 فإننا نضغط على نفس المفتاح أربع مرات ، أما إن زادت عدد الضغطات على المفتاح فيظل محتفظا بالرقم 4 ولا يزيد عن 4 كقيمة مخزنة بالذاكرة .

المفتاح RESET يعمل على محو الذاكرة فورا ويستقبل المتحكم من جديد وهذه خاصية طبيعية من خواص المتحكم خارج إرادتنا ولا دخل لنا كمبرمجين بتفعيلها على هذا الطرف بالتحديد والموصل مع المفتاح RESET ، بمعنى آخر كأنك قمت بعمل فصل للقدرة الكهربية عن المشروع وأعدت تشغيله من جديد وهكذا فى أى مشروع تقوم بإنشاءه لو قمت بعمل نفس المفتاح على نفس اسم الطرف الموصل معه مفتاح RESET بهذه الطريقة .

المفتاح OK يعمل على اخراج القيمة المخزنة الحالية على الليدات بحيث أن رقم 1 يجعل الليد الأول يضئ ، ورقم اثنان يجعل الليد الثانى يضئ و رقم 3 يعمل على اضائة الليد الثالث وليس الليد الأول والثانى كالنظام الثنائى ولكن الليد الثالث فقط ، ثم بعد ذلك الرقم 4 يجعل الليد الرابع يضئ وحده ويظل الوضع هكذا والليدات مضيئة دوما إلى أن نعيد تشغيل المشروع من جديد بمجرد الضغط على RESET

--------------------

المخطط على الرسم التالى لمن يرد تنفيذه على أى اصدار من برنامج البروتوس

اضغط على الصورة للتكبير

ويمكنك تحميل ملف البروتوس ثم تطبيق برنامج البيزيك عليه بعد أن تقوم بكتابته بالصيغة والطريقة التى تحلو لك كما تحب المهم الناتج ! !

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

wleed antar · 07:15 PM

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

يبدو أن المشروع معقد ! لكنى اخترت هذه الصفات كى نجمع بين التعليمات السابقة .

المشروع يمكن أن يكتب بعدة طرق وهذه احداهما

كود:

program if_led
dim Bb , Cc , Kk as byte
main:
   trisb = %11
   trisd = 0
   Kk = 0
   portd = 0
loop:
   if portb.1 = 0 then Kk = 1
   end if
   if portb.1 and Kk = 1 then
     Kk = 0
     Cc = Cc + 1
     if Cc > 4 then
       Cc = 4
  end if
   end if
   if portb.0 = 1 then
    if Cc < 3 then portd = Cc
     goto loop2
    end if
    if Cc = 3 then portd = 4
    else if Cc = 4 then portd = 8
    end if
   end if
   end if
   goto loop
loop2:
end.

يتتبع شرح التعليمات والبرنامج لاحقا إن شاء الله

ameralzlam6 · 14-04-2010, 11:41 AM

لقد عجزت الكلمات ان تعطيق حقق هذه الدورة اكثر من رائعه

مشاهدة نتائج الإستفتاء: هل ترى أهمية لدورة تشرح لغة (mikroBasic) لبرمجة البيك ؟
موضوع فى غاية الأهمية و ضرورى جدا ... ... 1	23	95.83%
موضوع هام ولكن يوجد ما يكفى ... ... 2	1	4.17%
موضوع مكرر ولا داع لبذل المزيد من الجهد ... 3	0	0%
المصوتون: 24. أنت لم تصوت في هذا الإستفتاء