pic le belirli saatte çalışan bir devre

[youngman_2]

selam arkadaslar
16f877a kullanarak gece saat 10 oldugunu anlayacak ve herhangi bir çıkışı 1 yapacak sabah da 7 de o çıkış "0" olacak ayrıca Elektrik kesilmelerinide hesaba katmam lazım.pic te timer kullanımına fazla hakim degilim bu konuda fikirlerinizi detaylı anlatırsanınız çok sevinirim

 

[cenk_unur]

Bu işin en kolay yolu DS1302 tarih-saat entegresini kullanmanız.

 

[youngman_2]

sn tekin126 bu bitrme ödevimin bi parcası o yüzden a dan z tasarlamam lazım hocada biraz ters bana teknik konularda yardımcı olursanız çok sevinirim
cenkun bey bu ds1302 çalışma mantıgı nasıl bir sey ilgi ve alakalarınız için çok tesekkur ederım

 

[caglayanm]

ds1302 kullanabilirsin eğer programlamada ccs kullanıyorsan hazır kütüphanesi de var sadece datasheete bakarak bağlantıyı yapıyorsun o kadar.

 

[youngman_2]

peki picbasic le nasıl programlama yapabilirim

 

[emrelyus]

............

Böyle yapabilirsin...

Düzeltme;Yukarıdaki devre C koduymuş.Basicte şöyle olacak.

' Lcd clock program using Dallas1202/1302 RTC

Include "MODEDEFS.BAS" ' Include Shiftin/out modes

Define LCD_DREG PORTD ' Define LCD connections
Define LCD_DBIT 4
Define LCD_RSREG PORTE
Define LCD_RSBIT 0
Define LCD_EREG PORTE
Define LCD_EBIT 1

' Alias pins
RST var PORTA.2
IO var PORTC.1
SCLK var PORTC.3

' Allocate variables
rtcyear var byte
rtcday var byte
rtcmonth var byte
rtcdate var byte
rtchr var byte
rtcmin var byte
rtcsec var byte
rtccontrol var byte


Low RST ' Reset RTC
Low SCLK

ADCON1 = 7 ' PORTA and E digital
Low PORTE.2 ' LCD R/W low = write
Pause 100 ' Wait for LCD to startup

' Set initial time to 8:00:00AM 07/16/99
rtcyear = $99
rtcday = $06
rtcmonth = $07
rtcdate = $16
rtchr = $08
rtcmin = 0
rtcsec = 0
Gosub settime ' Set the time

Goto mainloop ' Skip subroutines


' Subroutine to write time to RTC
settime:
RST = 1 ' Ready for transfer

' Enable write
Shiftout IO, SCLK, LSBFIRST, [$8e, 0]

RST = 0 ' Reset RTC

RST = 1 ' Ready for transfer

' Write all 8 RTC registers in burst mode
Shiftout IO, SCLK, LSBFIRST, [$be, rtcsec, rtcmin, rtchr, rtcdate, rtcmonth, rtcday, rtcyear, 0]

RST = 0 ' Reset RTC
Return

' Subroutine to read time from RTC
gettime:
RST = 1 ' Ready for transfer

Shiftout IO, SCLK, LSBFIRST, [$bf] ' Read all 8 RTC registers in burst mode
Shiftin IO, SCLK, LSBPRE, [rtcsec, rtcmin, rtchr, rtcdate, rtcmonth, rtcday, rtcyear, rtccontrol]

RST = 0 ' Reset RTC
Return

' Main program loop - in this case, it only updates the LCD with the time
mainloop:
Gosub gettime ' Read the time from the RTC

' Display time on LCD
Lcdout $fe, 1, hex2 rtcmonth, "/", hex2 rtcdate, "/" , hex2 rtcyear,_
" ", hex2 rtchr, ":", hex2 rtcmin, ":", hex2 rtcsec

Pause 300 ' Do it about 3 times a second

Goto mainloop ' Do it forever

End

 

[youngman_2]

verdigin kodları anlamaya çalışacagım emegine saglık kardes