ايران ويج

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

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

کد 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 

(۲۱-اسفند-۱۳۹۰, ۲۳:۰۷:۴۸)abbasalifix نوشته است: [ -> ]فرمان زیر پایه رو فعال میکنه

کد 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 یه خروجی فعال بشه یا روی همین مثال پیوستی توضیح کاملتر بدید.ممننون میشم توضیح رو خط به خط بنویسد که چه اتفاقی داره می افته.واقعا از راهنمایی وکمکتون متشکرم

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

کد: 
$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

علیدلی

abbasalifix

EBKA

علیدلی

علیدلی

EBKA