امروز می خواهیم برنامه ای بنویسیم که بوسیله اون بشه استپر موتورهامون رو راه اندازی کنیم (عین همین روش رو باید در برنامه اصلی ربات استفاده کنیم) :
$crystal = 1000000 Config Portb = Output Dim A As Byte B = &B10001000 Do Rotate B , Right Waitms 15 End |
خوب حالا خط به خط تحلیل می کنیم. البته خوب یادمه توضیحات کاملی رو در مورد کدهای استفاده شده در چهار خط اول در پست های "آموزش ساخت ربات (میکرو کنترلر 1 - 2 - 3 - 4) دادم. پس اگه یادتون رفته بهشون دوباره سر بزنید.
Dim A As Byte Dim B As Byte |
B = &B10001000 |
استفاده از " مقدار = نام متغیر " که برای همه قابل درکه (یعنی یک مقدار رو داخل متغیر بریزیم) اما در اینجا بجای مقدار از &B10001000 استفاده شده. برای قرار دادن مقادیر به صورت باینری در یک متغیر (در این زبان) باید مقدار باینری رو بعد از B& بنویسم. در اینجا، هم در A و هم در B مقدار باینری ???????? معادل دهدهی ??? رو قرار دادیم. که دلیلش رو توضیح خواهم داد.
باقیش بمونه برای جلسه بعد !
اینم یه لینک برای کسانی که می خوان سریع یه مسیریاب بسازن :
نظر یادتون نره !