$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 پرسیدم لطفا به اون هم پاسخ بدین
پست در تاریخ ۳:۰۶ ب.ظ – ژانویه ۲۹, ۲۰۱۰ توسط مدیر ویرایش شد
سلام
برنامه زیر خودم نوشتم وتست کردم وبدون هیچ مشکلی جواب میداد و مقادیر هم با اضافه کردن واحد۱ اضافه میشه
مشکل شما این بود که با if کلید را چک کرده بودین و وقتی دستتون را میگذاشتین روی کلید سریع و به صورت مدام این دستور و شرط برقرار میشد و واحد ها را مدام اضافه میکرد و شما فکر میکردین ۱۰ واحد اضافه شده در صورتی که ۱ واحد بیشتر اضافه نمیشه اما تا زمانی که دست شما روی کلید بوده حتی در زمان کوتاه این شرط مثلا برای ۱۰ بار متوالی برقرار میشده.
به هر حال این برنامه درست ونهایی هست و کلید تنظیم ثانیه هم اضافه کردم.
فقط من یک سئوال AVCC ,AREF پرسیدم لطفا به اون هم پاسخ بدین
این ۲ پایه برای بخش adc میکرو هست در صورتی که از مبدل انالوگ به دیجیتال استفاده میکنید و در بخش کانفیک ولتاژ رفرنس را ولتاز تغذیه انتخاب کرده اید باید پایه aref به تغذیه مثبت وصل شود هم چنین باید همیشه درر صورت استفاده از adc میکرو پایه avcc به تغذیه مثبت ۵ وصل شود.
ورود 
ثبت نام 
جستجو 
خانه
هیچ گیرنده ای انتخاب نشده است
سوزنی کردن پست 
