فتوسل وکریستال ساعت

[ranginkalam]

سلام من تو یه برنامه از کریستال ساعت استفاده کردم ولی تو پروتیوس جواب میده عملی خیر، اصلا زمان اضافه نمیشه!!! کریستال رو به پایه های 28و29 وصل کردم
مشکلش کجاست
Config Timer2 = Timer , Prescale = 128 , Async = On
Enable Interrupts
Enable Timer2
Enable Ovf2
On Ovf2 Clock
Start Timer2
Dim S As Byte
Dim M As Byte
Dim H As Byte
S = 0
M = 0
H = 0
Start Timer2
Cls
Do
Home
Lcd "time"
Lowerline
Lcd " " ; H ; ":" ; M ; " " ; ":" ; S ; " "
Loop
Clock:
Stop Timer2
Incr S
If S > 59 Then
S = 0
Incr M
If M > 59 Then
M = 0
Incr H
If H > 23 Then
S = 0 : M = 0 : H = 0
Start Timer2
End If
End If
End If
Return
End 'end program


اینم یه برنامه واسه سنسور فتوسله که کار نمیکنه. Aref رو به یک 100nf زمین کردم یه سر فتوسل Vccیه سرش ADC(0 یه پتانسیومتر یه سرش زمین یه سرش ADC

$regfile = "m16def.dat"
$crystal = 1000000
Config Pinb.0 = Output
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim X As Word
Start Adc
Do
X = Getadc(0)
If X > 122 Then Reset Portb.0
If X < 81 Then Set Portb.0
Loop
End 'end program

[ranginkalam]

پاسخ : فتوسل وکریستال ساعت

آقا کسی نمیخواد جواب بده !!!!!!!!!!!!!!!!!!!!! فکر کنم سوالم واضحه

[ali_rk]

پاسخ : فتوسل وکریستال ساعت

این مشکلات از نظر من تنها مشکلاتیه که میتونه بیرون از پروتئوس اتفاق بیفته:
1) یه خازن 100 نانو دو سر Vcc و GND میکرو بزن ببین تایمر راه میفته
2) کابل پروگرامر را بعد از پروگرام حتما جدا کن چون ممکنه میکرو را ریست نگهداره
3) من با بسکام خیلی کم آشنا هستم ولی تو برنامه فیوز بیت ها را درست پروگرام کردی؟تایمر را رو مد آسنکرون گذاشتی؟

[saeed bagherani]

پاسخ : فتوسل وکریستال ساعت

سلام
من فکر می کنم Start Timer2 اجرا نمیشه
چون اون رو جایی نوشتی که هر زمان ساعت بزرگتر از 23 شد تایمر استارت بشه (در قسمت if then )
من پیشنهاد می کنم از rtc استفاده کنی که کارت ساده تر بشه و در ضمن دقت ساعت هم بالاتر خواهد رفت