$regfile = "m16def.dat"
$crystal = 8000000
Cursor Off
Enable Interrupts
Dim A As Single , B As Single , C As Single
Config Clock = Soft
_sec = 58 : _min = 59 : _hour = 23
Do
Locate 1 , 5
Lcd Time$
If Pinb.1 = 1 Then Gosub Mi
If Pinb.2 = 1 Then Gosub Hour
If _hour = 24 Then _hour = 00
Loop
End
Mi:
_min = A
A = A + .1
_min = A
If _min >= 60 Then A = 00
_min = A
Return
Hour:
_hour = B
B = B + .1
_hour = B
If _hour >= 24 Then B = 00
_hour = B
Return
برای زیاد کردن از پین a.1 و A.2 استفاده شده
یادت باشه اون ۱٫ است , نه ۱
اگر ۱ بذاری ۱۰ تا ۱۰ تا اضافه می کنه
برنامه را براتون تصحیح کردم ، عملی تست کنید و خبرشو بدین
$regfile = "m16def.dat" $crystal = 8000000 '——————————- Config Lcd = 16 * 2 Config Lcdpin = Pin , E = Porta.0 , Rs = Porta.1 , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5 Cursor Off Enable Interrupts Dim A As Single , B As Single , C As Single '——————————– Config Clock = Soft _sec = 58 : _min = 59 : _hour = 23 Config Portb.1 = Input Config Portb.2 = Input '—————————— main: Do Locate 1 , 5 Lcd Time$ If Pinb.1 = 1 Then Gosub Mi If Pinb.2 = 1 Then Gosub Hour If _hour = 24 Then _hour = 00 Loop End '—————————— Mi: A = _min A = A + 1 _min = A If _min >= 60 Then A = 00 Return '—————————- Hour: B = _hour B = B + 1 _hour = B If _hour >= 24 Then B = 00 Return
یا علی
عیب کار اینجاست که من آنچه هستم را با آنچه باید باشم اشتباه می کنم،خیال می کنم آنچه باید باشم هستم،در حالیکه آنچه هستم نباید باشم الهی و ربی
اتفاقا من هم یک گذاشتم جواب نمی داد
۱۰تا اضافه می کرد تو تست
ولی با یک دهم اونطوری یکی یکی
بله تست شده
مرسی که توجه دارین
فقط من یک سئوال AVCC ,AREF پرسیدم لطفا به اون هم پاسخ بدین
پست در تاریخ ۷:۰۶ pm – January 29, 2010 توسط مدیر ویرایش شد
سلام
برنامه زیر خودم نوشتم وتست کردم وبدون هیچ مشکلی جواب میداد و مقادیر هم با اضافه کردن واحد۱ اضافه میشه
مشکل شما این بود که با if کلید را چک کرده بودین و وقتی دستتون را میگذاشتین روی کلید سریع و به صورت مدام این دستور و شرط برقرار میشد و واحد ها را مدام اضافه میکرد و شما فکر میکردین ۱۰ واحد اضافه شده در صورتی که ۱ واحد بیشتر اضافه نمیشه اما تا زمانی که دست شما روی کلید بوده حتی در زمان کوتاه این شرط مثلا برای ۱۰ بار متوالی برقرار میشده.
به هر حال این برنامه درست ونهایی هست و کلید تنظیم ثانیه هم اضافه کردم.
فقط من یک سئوال AVCC ,AREF پرسیدم لطفا به اون هم پاسخ بدین
این ۲ پایه برای بخش adc میکرو هست در صورتی که از مبدل انالوگ به دیجیتال استفاده میکنید و در بخش کانفیک ولتاژ رفرنس را ولتاز تغذیه انتخاب کرده اید باید پایه aref به تغذیه مثبت وصل شود هم چنین باید همیشه درر صورت استفاده از adc میکرو پایه avcc به تغذیه مثبت ۵ وصل شود.
ورود 
ثبت نام 
جستجو 
تالار گفتمان
Print this Post 
