Witam mam problem z tym zegarem mianowicie taki że na wyświetlaczu
mam tylko 165165 a nie czas, po zastąpieniu zegarem PCF8583 nie ma żadnego problemu wszystko działa normalnie. Po dołożeniu diody led do PCF8593T generuje impulsy prawidłowo, może problem tkwi w programie. gdyby ktoś mógł zerknąć i sprawdzić .
'Pokazuje czas
Do
I2cstart
I2cwbyte &HA0
I2cwbyte 2
I2cstart
I2cwbyte &HA1 ' włącza maskowanie roku i dnia tygodnia
I2crbyte S , Ack 'Odczytuje sekundy
I2crbyte M , Ack 'Odczytuje minuty
I2crbyte H , Ack 'Odczytuje godziny
I2crbyte Day , Ack 'Odczytuje dni
I2crbyte Month , Nack 'Odczutuje miesiąc
I2cstop 'koniec transmisji I2C
'koniec transmisji I2C
S = Makedec(s)
M = Makedec(m)
H = Makedec(h)
Day = Makedec(day)
Month = Makedec(month)
Locate 1 , 1
Lcd H ; ":" ; M ; ":" ; S
loop
Sub Wyslij 'Podprogram do wysyłania danych do pcf-a
S = Makebcd(s)
M = Makebcd(m)
H = Makebcd(h) 'Zamiana wartości dziesiętnych na kod BCD
Day = Makebcd(day)
Month = Makebcd(month)
I2cstart 'Uruchomienie I2C
I2cwbyte &HA0 'Wybór urządzenia do zapisu
I2cwbyte 0
I2cwbyte 8
I2cstop
I2cstart
I2cwbyte &HA0
I2cwbyte 2
'Wybór 2 rejestru do zapisu (sekundy)
I2cwbyte S 'Zapisuje sekundy
I2cwbyte M 'Zapisuje minuty
I2cwbyte H 'Zapisuje godziny
I2cwbyte Day 'Zapisuje dni
I2cwbyte Month 'Zapisuje miesiąc
I2cstop
'Koniec zapisu
End Sub
mam tylko 165165 a nie czas, po zastąpieniu zegarem PCF8583 nie ma żadnego problemu wszystko działa normalnie. Po dołożeniu diody led do PCF8593T generuje impulsy prawidłowo, może problem tkwi w programie. gdyby ktoś mógł zerknąć i sprawdzić .
'Pokazuje czas
Do
I2cstart
I2cwbyte &HA0
I2cwbyte 2
I2cstart
I2cwbyte &HA1 ' włącza maskowanie roku i dnia tygodnia
I2crbyte S , Ack 'Odczytuje sekundy
I2crbyte M , Ack 'Odczytuje minuty
I2crbyte H , Ack 'Odczytuje godziny
I2crbyte Day , Ack 'Odczytuje dni
I2crbyte Month , Nack 'Odczutuje miesiąc
I2cstop 'koniec transmisji I2C
'koniec transmisji I2C
S = Makedec(s)
M = Makedec(m)
H = Makedec(h)
Day = Makedec(day)
Month = Makedec(month)
Locate 1 , 1
Lcd H ; ":" ; M ; ":" ; S
loop
Sub Wyslij 'Podprogram do wysyłania danych do pcf-a
S = Makebcd(s)
M = Makebcd(m)
H = Makebcd(h) 'Zamiana wartości dziesiętnych na kod BCD
Day = Makebcd(day)
Month = Makebcd(month)
I2cstart 'Uruchomienie I2C
I2cwbyte &HA0 'Wybór urządzenia do zapisu
I2cwbyte 0
I2cwbyte 8
I2cstop
I2cstart
I2cwbyte &HA0
I2cwbyte 2
'Wybór 2 rejestru do zapisu (sekundy)
I2cwbyte S 'Zapisuje sekundy
I2cwbyte M 'Zapisuje minuty
I2cwbyte H 'Zapisuje godziny
I2cwbyte Day 'Zapisuje dni
I2cwbyte Month 'Zapisuje miesiąc
I2cstop
'Koniec zapisu
End Sub