Svetelektro.com

Svetelektro.com

Meno:
Heslo:
SVETELEKTRO • DS1307 nastavenie d├ítumu a hod├şn

DS1307 nastavenie d├ítumu a hod├şn

Moderátori: psichac, Moderátori

DS1307 nastavenie d├ítumu a hod├şn

Odosla┼ąod bibibo » 08 Jan 2012, 15:02

Rob├şm si z├ívlahov├Ż automat s GLCD a pr├íve pracujem na nastaven├ş d├ítume a hod├şn. M├ím v pl├íne, ┼że najsk├┤r incrementujem postupne HH:MM, DD.MM.YYYY a a┼ż n├ísladn├Żm potvrden├şm sa to cel├ę ulo┼ż├ş, ale ako zabezpe─Ź├şm aby niekto nenastavil d├ítum napr. 31.2. ? alebo 29.2. ak nie je prestupn├Ż rok ?
Tu je k├║sok e┼íte nedokon─Źen├ęho k├│du.

K├│d: Vybra┼ą v┼íetko
'-------------------Nastavenie Datum Cas-----------------------------------------------

Nast_dat_cas:
Cls
Menu_level = 2
St_menu = 0
Gosub Read1307time
Lcdat 1 , 24 , "Datum/Cas:"
Lcdat 3 , 1 , S_hours ; ":" ; S_minutes
Lcdat 4 , 1 , S_day ; "." ; S_month ; ".2" ; S_year ; " "
Lcdat 5 , 1 , "Exit"
Lcdat 6 , 1 , "Ulozit"
Lcdat 8 , 1 , "Enter" , 1
Set_dat_cas:
Do
Gosub Stringformat
Select Case St_menu

   Case 0 : Lcdat 3 , 1 , S_hours , 1
            Lcdat 6 , 1 , "Ulozit"
            Lcdat 8 , 80 , "Scroll" , 1

   Case 1 : Lcdat 3 , 26 , S_minutes , 1
            Lcdat 3 , 1 , S_hours
            Lcdat 8 , 80 , "Scroll" , 1

   Case 2 : Lcdat 4 , 1 , S_day , 1
            Lcdat 3 , 26 , S_minutes
            Lcdat 8 , 80 , "Scroll" , 1

   Case 3 : Lcdat 4 , 25 , S_month , 1
            Lcdat 4 , 1 , S_day
            Lcdat 8 , 80 , "Scroll" , 1

   Case 4 : Lcdat 4 , 50 , "2" ; S_year , 1
            Lcdat 4 , 25 , S_month
            Lcdat 8 , 80 , "Scroll" , 1

   Case 5 : Lcdat 5 , 1 , "Exit" , 1
            Lcdat 4 , 50 , "2" ; S_year
            Lcdat 8 , 80 , "Scroll" , 1

   Case 6 : Lcdat 6 , 1 , "Ulozit" , 1
            Lcdat 5 , 1 , "Exit"
            Lcdat 8 , 80 , "Scroll" , 1

End Select

Debounce Forward_tl , 0 , Forward , Sub
Debounce Enter_tl , 0 , Enter_dat_cas , Sub


Loop
Return
Return

Enter_dat_cas:

If St_menu = 5 And Menu_level = 2 Then
   Call Nastavenie
End If

Do

Lcdat 8 , 80 , "     "
Lcdat 8 , 120 , Chr(94) , 1
Debounce Enter_tl , 0 , Set_dat_cas:
Debounce Forward_tl , 0 , Forward_dat__cas , Sub

Loop
Return

Forward_dat__cas:

If St_menu = 0 Then
   Incr Hours
   If Hours > 24 Then Hours = 0
   Gosub Stringformat
   Lcdat 3 , 1 , S_hours , 1
End If

If St_menu = 1 Then
   Incr Minutes
   If Minutes > 60 Then Minutes = 0
   Gosub Stringformat
   Lcdat 3 , 26 , S_minutes , 1
End If

If St_menu = 2 Then
   Incr Day
   If Day > 31 Then Day = 1
   Gosub Stringformat
   Lcdat 4 , 1 , S_day , 1
End If

If St_menu = 3 Then
   Incr Month
   If Month > 12 Then Month = 1
   Gosub Stringformat
   Lcdat 4 , 1 , S_month , 1
End If

Return
bibibo
Obr├ízok pou┼ż├şvate─ża
St├íly ─Źlen
St├íly ─Źlen
Pr├şspevky: 388
Zalo┼żen├Ż: 05.11.2009
Bydlisko: Bratislavsk├Ż kraj
Karma: 1

Re: DS1307 nastavenie d├ítumu a hod├şn

Odosla┼ąod Kado » 08 Jan 2012, 15:26

no pred samotnym ulozenim si skontroluj nepovolene kombinacie a na zaklade toho preved ulozenie resp vyhlas chybu a nechaj povodny datum/cas
N├ívrh zapojen├ş s jedno─Źipov├Żmi mikropo─Ź├şta─Źmi, tvorba programov├ęho vybavenia pre mikropo─Ź├şta─Źe
http://www.jk-elektronika.info/index.html

predaj !!
http://svetelektro.com/modules.php?name ... 54#p549154
Kado
Obr├ízok pou┼ż├şvate─ża
Power user
Power user
Pr├şspevky: 1625
Vek: 35.04
Zalo┼żen├Ż: 02.09.2007
Bydlisko: PB
Paragraf: 22
Karma: 3

Re: DS1307 nastavenie d├ítumu a hod├şn

Odosla┼ąod bibibo » 08 Jan 2012, 15:37

Asi m├í┼í pravdu. Budem to musie┼ą tak spravi┼ą. Idem na to. Nastevenie d├ítumu a ─Źasu u┼ż mi celkom dobre funguje.
bibibo
Obr├ízok pou┼ż├şvate─ża
St├íly ─Źlen
St├íly ─Źlen
Pr├şspevky: 388
Zalo┼żen├Ż: 05.11.2009
Bydlisko: Bratislavsk├Ż kraj
Karma: 1

Re: DS1307 nastavenie d├ítumu a hod├şn

Odosla┼ąod bibibo » 08 Jan 2012, 20:15

No m├ím s t├Żm docela probl├ęm, preto┼że je potrebn├ę o┼íetri┼ą nie len Febru├ír, ale aj mesiace ktor├ę nemaj├║ 31 dn├ş. Neexistuje na to nejak├Ż jednoduch┼í├ş sp├┤sob ako vypisova┼ą sam├ę podmienky ?
bibibo
Obr├ízok pou┼ż├şvate─ża
St├íly ─Źlen
St├íly ─Źlen
Pr├şspevky: 388
Zalo┼żen├Ż: 05.11.2009
Bydlisko: Bratislavsk├Ż kraj
Karma: 1


Nasp├Ą┼ą na Bascom

Kto je pr├ştomn├Ż

U┼ż├şvatelia prezeraj├║ci si toto f├│rum: ┼Żiadny registrovan├Ż pou┼ż├şvate─ż a 0 host├ş.

Forums ©
Autor str├ínky je Ondrej Z├ívodsk├Ż(zawin), o graficky design sa star├í ─Żubo┼í Fabo(BUFU).

TOPlist

Powered by Copyright © UNITED-NUKE CMS. All Rights Reserved.
─îas potrebn├Ż k spracovaniu str├ínky 0.25 sek├║nd