قطعه LCD TIMER 25 ص

لینک دانلود و خرید پایین توضیحات

فرمت فایل word  و قابل ویرایش و پرینت

تعداد صفحات: 24

قطعه LCD TIMER

زمانی که مدار بسته می شود به مدت 2 ثانیه عبارت

DIGITAL TIMER نمایش داده می شود بعد از آن در حالت تایمر قرار می گیرد سپس عبارت PAUSE TIMER 0:0:0 ظاهر می شود و تا زمانی که دکمه START/PAUSE (3) را نفشاریم شروع به شمارش نمی کند بعد از فشردن دکمه

(3) تایمر شروع به شمارش می کند اگر مجدداا همین دکمه را بفشارید زمان ثابت می شود .

برای ریست کردن تایمر باید دکمه شماره (2) را بفشارید.

اگر دکمه شماره (1) را بزنید از تایمر خارج شده و متن هایی که در سورس برنامه نوشته شده به نمایش در می آید با فشردن مجدد این کلید وارد محیط تایمر می شوید.

 = البته می توانیم امکانات بیشتری به این پروژه اضافه کنیم ولی در حد یک پروژه آزمایشگاهی مفید می باشد.

 سورس برنامه بیسیک

trisb=%00000101  trisa=%11111  define lcd_dreg portbdefine lcd_dbit 4define lcd_rsreg portbdefine lcd_rsbit 1define lcd_ereg portbdefine lcd_ebit 3define lcd_bits 4define lcd_lines 2'''''''''''''''''''''''''''''''''''''''''''''''j var bytei var byte mine var bytesec var byteh var bytemine =0:sec=0:h=0pause 1000lcdout $fe,1lcdout " DIGITAL TIMER"pause 2000goto label1''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''start:sec=sec+1if sec=60 thenmine=mine+1sec=0endifif mine=60 thenh=h+1mine=0endifif h=255 thenh=0endif''''''''''''''''''''''''''''''''''''''''''''''''''''''''''if portb.2=0 thenh=0:mine=0:sec=0goto label1endif''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' lcdout $fe,1lcdout "     Timer"lcd lcdout $fe,$c0lcdout " ",#h,":",#mine,":",#secpause 800if portb.0=0 then label1if porta.0=0 then main goto start'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''main:pause 1000lcdout $fe,1lcdout "   IN THE NAME"lcdout $fe,$c0lcdout "     OF GOD "gosub jumppause 2500lcdout $fe,1lcdout "Molla Sadra"gosub jumppause 1000lcdout $fe,$c0lcdout "      University"gosub jumppause 2000lcdout $fe,1lcdout "WebSite:"gosub jumppause 1000