راهنمایی در مورد برنامه نوشته شده بابسکام

[علیدلی]

سلام .من یه مدار از یه سایت دانلود کردم که یه ساعت هستش ودر زمان مورد نظر یه خروجی رو فعال میکنه .فایل رو پیوست کردم دوستانی که به بسکام مسلط هستند یه لطفی کنن تو خود برنامه (کنارش)یه توضیحاتی بدن که کدام دستورات در این مدار باعث فعال شدن یکی از پایه ها در زمان مورد نظر میشه.اگر در مورد خط به خطش توضیح بدبد که عالییه و ممنون میشم .الته تعداد خطوط برنامه زیاد نیس .بازم از دوستان تشکر میکنم

[abbasalifix]

فرمان زیر پایه رو فعال میکنه

کد php:

set portb.5 


این فرمان هم اون پایه رو غیر فعال میکنه

کد php:

reset portb.5 


مقدار این تابع هم برای فعال شدن هست

کد php:

If Ad = 0 Then
Incr A
Call 4key
If A > 23 Then A = 0
End If 


[EBKA]

فرمان زیر پایه رو فعال میکنه

کد php:

set portb.5 (پایه b.5 رو یک کن) یعنی 5 ولت مثبت 


این فرمان هم اون پایه رو غیر فعال میکنه

کد php:

reset portb.5 (پایه b.5 روصفر کن) 


مقدار این تابع هم برای فعال شدن هست

کد php:

If Ad = 0 Then   این دستور یعنی(اگر متغییر ad صفر شد اونوقت)
Incr A یکی به متغییر A اضافه کن
Call 4key  صدا زدن زیر برنامه 4key(یعنی وقتی میکرو به این دستور میرسه میره و زیر برنامه 4key رو میخونه و دوباره بر میگرده
If A > 23 Then A = 0 این دستور یعنی(اگر متغییر A از 23 بیشتر شد اونوقتA رو صفر کن)
End If انتهای دستور شرط 


[علیدلی]

اقا دمت گرم مشتی هستی بخدا.شما که زحمتی کشیدید با ذکر یه مثال منو بیشتر توجیح کنید مثلا یه برنامه (با توضیحاتش) بنویس که اگر ساعت شدمثلا 10:30:12 یه خروجی فعال بشه یا روی همین مثال پیوستی توضیح کاملتر بدید.ممننون میشم توضیح رو خط به خط بنویسد که چه اتفاقی داره می افته.واقعا از راهنمایی وکمکتون متشکرم

[علیدلی]

اقا دمت گرم مشتی هستی بخدا.شما که زحمتی کشیدید با ذکر یه مثال منو بیشتر توجیح کنید مثلا یه برنامه (با توضیحاتش) بنویس که اگر ساعت شدمثلا 10:30:12 یه خروجی فعال بشه یا روی همین مثال پیوستی توضیح کاملتر بدید.ممننون میشم توضیح رو خط به خط بنویسد که چه اتفاقی داره می افته.واقعا از راهنمایی وکمکتون متشکرم

دوستان کسی نیست منو یاری کنه؟؟

[EBKA]

کد:

$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Config Timer2 = Timer , Prescale = 256 , Async = On
Enable Interrupts
Enable Timer2
On Timer2 Ebi
  : Dim S As Byte , M As Byte , H As Byte , T As Byte
Cursor Off
Cls
Start Timer2
  Do
Home
Lcd "time:" ; H ; " " ; ":" ; M ; " " ; ":" ; S ; " "

  If H = 10 And M = 30 And S = 13 Then
  Home
  Lcd "ALARM"
  Else
  Lcd "     "
  End If

Loop

Ebi:
Incr S
If S > 59 Then
S = 0 : Incr M
End If
If M > 59 Then
M = 0 : Incr H
End If
If H > 24 Then
H = 1
End If
Return