Przyjazne Bascom Forum

Witam Wszystkich

Mam pewien problem z częściowo nie działającym programem do zegarka w moim samochodzie.

Opiszę w skrócie jak działa mój układ.
Sercem układu jest Atmega16 taktowana zewnętrznym kwarcem 11.0592MHz, po szynie I2C podpięty jest zegarek PCF8583 oraz pamięć eeprom 24C02.
Do UART podłączony jest moduł bluetooth BTM222 służący do komunikacji urządzenia ze smartfonem.
Urządzenie wyświetla na LCD 2x16 znaków datę i godzinę, po naciśnięciu przycisku program przeskakuje na drugi ekran, gdzie wyświetla się temperatura in/out, po kolejnym naciśnięciu przycisku pojawia się kolejny ekran, na którym wyświetlane jest napięcie instalacji samochodowej. Ponowne naciśnięcie przycisku powoduje powrót do ekranu głównego z godziną i datą.
Aplikację na smartfona napisałem w AppInventor i działa poprawnie. Ustawienie godziny i daty działa, zapisanie stanu led do pamięci eeprom również działa.
Wymyśliłem sobie, że dodatkowo w celach edukacyjnych spróbuję zapisywać do pamięci eeprom - datę przeglądu technicznego ( w programie zmienne C wysyła datę do smartfona, a zmienna Q zapisuje datę w eeprom) i również to działa.

Postanowiłem pójść krok dalej i spróbować zapisać kolejne zmienne w eeprom - datę wymiany oleju silnikowego (w programie zmienne A oraz B), a także datę końca ubezpieczenia OC (zmienne I oraz K).
Daty wprowadzam w aplikacji na smartfonie, wysyłam je do układu, odczyt danych również odbywa się w aplikacji na smartfonie. Niestety próby zapisu zmiennych wymiany oleju silnikowego i OC nie działają.

Format daty, którą wysyłam z aplikacji do procka, to np.: 12-03-2017

W sumie leci: Q12-03-2017 i na końcu 10 oraz 13

Jeśli chcę, odczytać tą datę, to wysyłam do procka zmienną C i 1.

Do procka leci: C1 i na końcu 10 oraz 13

Kolejne zmienne zapisuję w analogiczny sposób, ale one już nie działają.

W załączeniu przesyłam kod z głównego pliku:

Code: [Zaznacz cały] [Rozwiń/Zwiń]

$regfile = "m16adef.dat" ' Typ procesora
$baud = 19200
$crystal = 11059200
$hwstack = 64
$swstack = 64
$framesize = 64
Echo Off
Config Submode = New
Const Addressw = 168
Const Addressr = 169
Config Twi = 100000
' Konfiguracja LCD 2X16
Config Lcdpin = Pin , E = Portb.0 , Rs = Portb.1 , Db7 = Portb.2 , Db6 = Portb.3 , Db5 = Portb.4 , Db4 = Portb.5 , Wr = Portb.6
Config Lcd = 16x2 'nowy sposob zapisu
Cursor Off
Cls
' Zezwolenie na przerwanie zewnętrzne
Enable Interrupts
'Konfiguracja TIMERA do obsługi UART
Config Timer1 = Timer , Prescale = 256 , Compare_a = Disconnect , Compare_b = Disconnect , Clear Timer = 1
Enable Compare1a : On Compare1a Przerwanie : Compare1a = 43199
Dim 1s As Byte ' zmienna czasu
$include "Config_PCF8583.bas"
Config Serialin0 = Buffered , Size = 25 ' Buforowanie uart (UART odbierany w przerwaniu - rozmiar 25 znaków)
$include "Config_DS18B20.bas"
Config 1wire = PortD.6 ' Konfiguracja 1-WIRE
$include "Config_Volt.bas"
' Zmienne uart
Dim Bufor As Byte
Dim T_str As String * 25
Dim T As String * 1
Dim Ilosc_liter As Byte
Dim Wartosc As word
Dim Wartosc_t As String * 25
' zmienna sterująca diodą led
Dim L As Byte
Dim Stare_l As Byte
' Zmienne zapisujące datę przeglądu technicznego do eeprom
Dim N As Byte
Dim Q As Byte
Dim Q_str As String * 25
Dim Buff(20) As Byte At Q_str Overlay
' Zmienne zapisujące datę wymiany oleju do EEPROM
Dim A As Byte
Dim A_str As String * 25
Dim I As Byte
Dim I_str As String * 25
' zmienna inicjująca wysłanie danych przez bluetooth
Dim C As Byte ' wysłanie daty przeglądu
Dim B As Byte ' wysłanie daty wymiany oleju
Dim K As Byte ' wysłanie daty ubezpieczenia
Deflcdchar 1,6,21,13,6,6,13,21,6 'Bluetooth
' Konfiguracja portu usypiania
Config Portd.7 = Input : Portd.7 = 1 : Motor Alias Pind.7 ' silnik włączony = 0 / wyłączony = 1
' Konfiguracja portów dla klawiatury
Config Portd.2 = Input : Portd.2 = 1 : F1 Alias Pind.2
' Konfiguracja opóźnienia włączenia podświetlenia LCD
Config Portd.4 = Input : Portd.4 = 1 : Int_pcf Alias Pind.4 ' Wejście sygnału z Pinu INT PCF8583
Dim Lock As Byte ' Zmienna pomocnicza (flaga) do odliczenia 5 sekund
Dim Licznik As Byte
Dim Jest_5_impulsow As Byte
' Konfiguracja zmiennych dla Menu Screen
Dim Menu As Byte
Dim Refresh As Byte
' Konfiguracja portu LED kontrolka gołoledzi
Config Portd.5 = Output : Portd.5 = 1 : Led_glaze Alias Portd.5 ' kontrolka gołoledzi
'sub zapisuje Eeprom wartością pod podanym adresem
Sub Write_eeprom(byval Adres As Byte , Byval Value As Byte)
I2cstart
I2cwbyte Addressw
I2cwbyte Adres
I2cwbyte Value
I2cstop
Waitms 10
End Sub
'funkcja zwraca wartosć bajtu pod podanym adresem w eepromie
Function Read_eeprom(byval Adres As Byte ) As Byte
I2cstart
I2cwbyte Addressw
I2cwbyte Adres
I2cstart
I2cwbyte Addressr
I2crbyte Read_eeprom , Nack
I2cstop
End Function
L = Read_eeprom(2) 'odczyt L spod miejsca 2
clear serialin0
' ==============GŁÓWNA PĘTLA=================
Do
Q_str = T_str
'A_str = T_str
' I_str = T_str
If L = 1 Then Led = 0 ' LED WYŁĄCZONA
If L = 2 Then Led = 1 ' LED WŁĄCZONA
If C = 1 Then Gosub Wyslij
If Q > 0 Then Gosub Zapisz
If A > 0 Then Gosub Zapisz_oil
If B = 1 Then Gosub Wyslij_oil
If I > 0 Then Gosub Zapisz_ubezp
If K = 1 Then Gosub Wyslij_ubezp
If Refresh = 1 Then 'odswiezanie co sekunde albo na żądanie
Refresh = 0
End If
Select Case Menu
Case 0
'==========GŁÓWNY EKRAN Z GODZINĄ I DATĄ==============
Blad = Pcf8583_gettime() ' odczytaj godzinę i date z układu PCF8583 , funkcja zwraca kod błędu
If Blad = 2 Then ' jeżeli uszkodzona data
Locate 1 , 1 : Lcd " SET CLOCK " ' wyświetl komunikat
Locate 2 , 1 : Lcd Spc(20)
Elseif Blad = 1 Then ' jeżeli błąd magistrali I2C
Locate 1 , 1 : Lcd " E R R O R " ' wyświetl komunikat
Lcd Spc(11)
Locate 2 , 1 : Lcd " B U S I2C "
Elseif Blad = 0 Then ' jeżeli prawidłowo odczytane dane
Call Displaytime() ' wyświetl zegar
End If
Case 1
'=========EKRAN Z TEMPERATURĄ IN/OUT=================
Call Displaytemp()
Case 2
'=========EKRAN Z POMIAREM NAPIĘCIA POKŁADOWEGO==============
Call Displayvolt()
End Select
Debounce F1 , 0 , Menu_sub , Sub ' Każde naciśnięcie przycisku F1 powoduje przejscie do kolejnego ekranu
If Motor = 1 then : Waitms 5 : Bitwait Motor , Set : Gosub Uspij ' Jeśłi silnik wyłączony, to idź do procedury Usypiania
end if
Call Display_led_glaze() ' Sterowanie kontrolką gołoledzi
'co sekunde
If 1s = 1 Then ' jesli uplynela sekunda (te flage ustawia Timer)
1s = 0 ' skasuj flage by w petli dokonywalo sie to tylko raz na 1s
End If
Bufor = Ischarwaiting()
If Bufor = 1 Then Gosub Odczytaj_uart ' Jeśli w buforze pojawią się dane z uart,to idź do procedury odbioru danych
Loop
End
' ===============KONIEC GŁÓWNEJ PĘTLI=========================
$include "PCF8583.bas"
$include "DS18B20.bas"
$include "Volt.bas"
'odmierzanie czasu
Przerwanie:
1s = 1
Return
' Przewijanie ekranów
Menu_sub:
Incr Menu
If Menu > 2 Then Menu = 0
Cls : Refresh = 1
Return
' Procedura odbioru danych z UART
Odczytaj_uart:
T_str = "" 'usuniecie tego co jest
Do
Bufor = Waitkey()
Locate 1 , 10 : Lcd Bufor ' nowa linijka
If Bufor = 13 Then Exit Do 'jak enter to wyjdź
If Bufor = 10 Then Exit Do ' nowa linia
If Refresh = 1 Then Exit Do
T_str = T_str + Chr(bufor)
Loop
Locate 1 , 10 : Lcd Bufor ' nowa linijka
Ilosc_liter = Len(t_str)
T = Mid(t_str , 1 , 1)
Delchar T_str , 1
Wartosc = Val(t_str)
Select Case T
' Zegarek
Case "M"
Minute = Wartosc
Case "H"
Hour = Wartosc
Case "S"
Second = Wartosc
' dioda
Case "L"
L = Wartosc
' kalendarz
Case "Z"
Day = Wartosc
Case "W"
Month = Wartosc
Case "Y"
Year = Wartosc
' zapis danych
Case "Q" ' zmienna zapisu daty przeglądu technicznego
Q = Wartosc
Case "C" ' zmienna wysłania daty przeglądu technicznego
C = Wartosc
Case "A" ' zmienna zapisu daty wymiany oleju silnikowego
A = Wartosc
Case "B" ' zmienna wysłania daty wymiany oleju silnikowego
B = Wartosc
Case "I" ' zmienna zapisu daty kolejnego ubezpieczenia
I = Wartosc
Case "K" ' zmienna wysłania daty kolejnego ubezpieczenia
K = Wartosc
Cls
End Select
Blad = Pcf8583_storetime(second , Minute , Hour , Day , Month , Year)
' ========================Zapis warotści zmiennej LED do 24C02===========================================
If Stare_l <> L Then
Stare_l = L
Call Write_eeprom(2 , L)
end if
' ========================Zapis daty przeglądu technicznego do 24C02=====================================
Zapisz:
Do
If Q > 0 then
Q_str = T_str
For N = 1 To 20
Call Write_eeprom(n + 5 , Buff(n)) 'przekazując można robić obliczenia
Next
end if
Q = 0
Return
Loop
' ========================Odczyt daty przeglądu techniczengo i wysłanie danych do smartfona================
Wyslij:
Do
For N = 1 To 20
Buff(n) = Read_eeprom(n + 5)
Next
Print Q_str
C = 0
return
loop
' ========================Zapis daty wymiany oleju silnikowego do 24C02===================================
Zapisz_oil:
Do
If A > 0 Then
A_str = T_str
For N = 1 To 20
Call Write_eeprom(n + 26 , Buff(n))
Next
end if
A = 0
Return
Loop
' =====================Odczyt daty wymiany oleju silnikowego i wysłanie danych do smartfona===============
Wyslij_oil:
Do
For N = 1 To 20
Buff(n) = Read_eeprom(n + 26)
Next
Print A_str
B = 0
Return
loop
' ========================Zapis daty ubezpieczenia do 24C02===================================
Zapisz_ubezp:
Do
If I > 0 Then
I_str = T_str
For N = 1 To 20
Call Write_eeprom(n + 55 , Buff(n))
Next
end if
I = 0
Return
Loop
' =====================Odczyt daty ubezpieczenia i wysłanie danych do smartfona===============
Wyslij_ubezp:
Do
For N = 1 To 20
Buff(n) = Read_eeprom(n + 55)
Next
Print I_str
K = 0
Return
loop
' ======================Procedura stanu uśpienia gdy silnik wyłączony=====================================
Uspij:
Cls
Motor = 1
Do
Led_glaze = INT_PCF
If Motor = 1 then Display off : Podswietlenie = 0 ' Jeśli silnik wyłączony, to wyłącz LCD i podświetlenie
'Led_glaze = 1 ' Kontrolka gołoledzi wyłączona
'end if
If Motor = 0 then ' Jeśli silnik włączony, to:
' ########################## Odpowiada za opóźnienie 5 sekund włączenia LCD ############################
If Int_pcf = 0 Then 'jeśli PCF ustalił stan niski
Lock = 1 'to zapamietaj, ustaw flage
Else 'jesli PCF ustawil już stan wysoki
If Lock = 1 Then 'a byl wczesniej stan niski (flaga)
Lock = 0 'skasuj flage do czasu kolejnego niskiego stanu
Incr Licznik 'tylko raz na zmiane stanu zwiekszamy licznik
If Licznik = 5 Then ' jeśli licznik osiągnął wartość 5 (5sekund), to
Licznik = 0 ' zeruj licznik
Jest_5_impulsow = 1 'przejdź do włączenia podświetlenia
End If
End If
End If
If Jest_5_impulsow = 1 Then
Jest_5_impulsow = 0
' ######################## Koniec części opóźniającej włączenie LCD ###################################
Podswietlenie = 1 ' włącz podświetlenie
Display on ' włącz wyswietlacz
cls ' wyczyść wyswietlacz
' Wyczyść informacje zgromadzone w Buforze UART
return ' wracaj do głównego programu
end if
end if
'end if
Loop

Bardzo proszę Was o pomoc w rozwiązaniu tego problemu. Jeśli coś niejasno opisałem, to piszcie.

Temat przypomniał mi, ze muszę popracować nad właściwym formatowaniem kodów.

Twój kod mógłby być napisany lepiej, ale chyba zrozumiałem istotę problemu.

Kiedy odbierasz dane w tym Subie Odczytaj_uart to po rozpoznaniu literki przypisujesz wartość podobnie nazwanym zmiennym.
Czyli dla literki M zmienna M otrzyma wartość wysłaną zaraz za ta literką. Jest tu jednak rzecz na którą powinieneś zwrócić uwagę.

Funkcja Val() nie potrafi sprowadzić wartości 12-03-2017 do wartości odpowiadającej choćby jednemu bajtowi.
Po prostu te myślniki to nie jest żadna wartość. Dodatkowo w Helpie możesz przeczytać, że jeśli użyjesz niepoprawnych znaków to w rezultacie możesz otrzymać zero albo nieprawidłowy wynik.

Potem w pętli głównej sprawdzasz czy zmienna Q ma wartość większą od zera i pewnie jej nie ma ze względu na to co napisałem wyżej.

Rozwiązaniem może być zamiana zapisu

Code: [Zaznacz cały] [Rozwiń/Zwiń]

Case "Q" ' zmienna zapisu daty przeglądu technicznego
Q = Wartosc

na coś takiego

Code: [Zaznacz cały] [Rozwiń/Zwiń]

Case "Q" ' zmienna zapisu daty przeglądu technicznego
Q = 1

Proste co?

Kod ten jednak warto by napisać inaczej ...

Cześć

Zmieniłem zapis daty z 12-03-2017 na 12032017.
Niestety efekt jest taki sam. Dane zostają zapisane do eeprom tylko w przypadku pierwszej zmiennej, natomiast pozostałe dane nie zapisują się. Tzn. dzieje się tu trochę dziwna rzecz. Zapisałem wszystkie trzy zmienne i przy odczycie pamięta te wartości, natomiast po wyłączeniu zasilania lub resecie procka dane znikają z eeprom poza tą pierwszą zmienną. Ta pierwsza zmienna pięknie się odczytuje.

Mało tego zapisanie tylko jednego znaku do tych dwóch pozostałych zmiennych np.: A3 i na końcu 10 oraz 13, sprawia że mogę odczytać później wartość "3", ale pamiętana ona jest tylko do wyłączenie zasilania/resetu procka.

Pierwsza zmienna jaką zapisuję i która działa i jest pamiętna zawsze, ma wartość z myślnikami,czyli Q12-03-2017 i tu bez różnicy co wpiszę.

Dlatego nie rozumiem, dlaczego w przypadku pierwszej zmiennej działa wszystko, a z pozostałymi dwiema zmiennymi dzieją się takie cuda.

Jest jeszcze jeden problem, może to on powoduje te problemy, a mianowicie - odłączenie zasilania od samego modułu BT powoduje zawieszenie programu. Mam odczyt na lcd tego co się dzieje podczas odłączenie zasilania od BT - moduł wysyła przypadkowe liczby dwucyfrowe np.: 50 lub 52 itd.
Rozłączenie komunikacji ze smartfonem daje podobne rezultaty - BT wysyła do procka przypadkową liczbę, która powoduje zawieszenie programu. Może tu jest problem?

Zmień najpierw Q = Wartosc na Q = 1 jak napisałem to pogadamy. Po co Ci rada jak i tak robisz inaczej?

Sprawę zawieszania też się omówi, ale nie wszystko na raz.

Możliwe że prostota tego rozwiązania własnie je rozkłada. Jedna literka odpowiada za zapis reszty a literka Q to zwykłe 81 lub 51Hex
Lepiej byłoby rozpoznawać całe zwroty typu "AT+Q"

Zmieniłem:

Code: [Zaznacz cały] [Rozwiń/Zwiń]

' zapis danych
Case "Q" ' zmienna zapisu daty przeglądu technicznego
Q = 1
Case "C" ' zmienna wysłania daty przeglądu technicznego
C = 1
Case "A" ' zmienna zapisu daty wymiany oleju silnikowego
A = 1
Case "B" ' zmienna wysłania daty wymiany oleju silnikowego
B = 1
Case "I" ' zmienna zapisu daty kolejnego ubezpieczenia
I = 1
Case "K" ' zmienna wysłania daty kolejnego ubezpieczenia
K = 1

Bez zmian działanie programu. Pierwsza zmienna zapisana, pozostałem dwie zmienne po odłączeniu zasilania/reset procka znikają.

A może ta pamięć za mała jest i nie zapisują się pozostałe zmienne? Możesz zerknąć czy ja dobrze wpisałem numery komórek do zapisu danych?

Code: [Zaznacz cały] [Rozwiń/Zwiń]

' ========================Zapis daty wymiany oleju silnikowego do 24C02===================================
Zapisz_oil:
Do
If A > 0 Then
A_str = T_str
For N = 1 To 20
Call Write_eeprom(n + 26 , Buff(n))
Next
end if
A = 0
Return
Loop

Okay. Nie widziałem się w tym bałaganie więc pozwoliłem sobie to przepisać.
Będziesz musiał przepisać lekko swoją apkę na telefon ale to chyba nie problem skoro może to projektowi wyjść na dobre.

Teraz program reaguje na komendy : TIM, ATL, ATP, ATU i ATO
Są to skróty TIM od TIME, ATL od AT Lamp, ATP - Przegląd, ATU - Ubezpieczenie, ATO - Olej
Żeby coś wysłać i zapisać musisz to wysłac ze znakiem "=" . Przykład dla czasu "TIM=23:08:55"
Przykład dla ubezpieczenia "ATU=01-01-18"
Dane zostaną zapisane w eeprom jako trzy bajty.

Kiedy chcesz zapytać o ubezpieczenie wystarczy że wyślesz "ATU?" a procesor odpowie "ATU=01-01-18"
Czyli żeby zapytać wysyłasz komendę ze znakiem zapytania.

Program pisałem na sucho więc jakiś błąd mógł się wkraść i co nieco pewnie można jeszcze zoptymalizować

Na drugi raz podeślij też te pliki które się inkluduje bo nie można bez nich potem kontrolnie kompilować.

Code: [Zaznacz cały] [Rozwiń/Zwiń]

$regfile = "m16adef.dat" ' Typ procesora
$baud = 19200
$crystal = 11059200
$hwstack = 64
$swstack = 32
$framesize = 64
Echo Off
Config Submode = New
Config Serialin0 = Buffered , Size = 25 ' UART odbierany w przerwaniu z buforem
Const _valcheck = 1 ' wartości ładowane do Val() będa sprawdzane
Const Addressw = 168
Const Addressr = 169
$lib "i2c_twi.lbx"
Config Scl = Portc.0
Config Sda = Portc.1
I2cinit
Config Twi = 100000
' Konfiguracja LCD 2X16
Config Lcdpin = Pin , E = Portb.0 , Rs = Portb.1 , Db7 = Portb.2 , Db6 = Portb.3 , Db5 = Portb.4 , Db4 = Portb.5 , Wr = Portb.6
Config Lcd = 16x2 'nowy sposob zapisu
Deflcdchar 1 , 6 , 21 , 13 , 6 , 6 , 13 , 21 , 6 'Bluetooth
Cursor Off
Cls
'Konfiguracja TIMERA
Config Timer1 = Timer , Prescale = 256 , Compare_a = Disconnect , Compare_b = Disconnect , Clear_timer = 1
Compare1a = 43199
' Konfiguracja portu usypiania
Config Portd.7 = Input : Portd.7 = 1 : Motor Alias Pind.7 ' silnik włączony = 0 / wyłączony = 1
' Konfiguracja portów dla klawiatury
Config Portd.2 = Input : Portd.2 = 1 : F1 Alias Pind.2
' Konfiguracja opóźnienia włączenia podświetlenia LCD
Config Portd.4 = Input : Portd.4 = 1 : Int_pcf Alias Pind.4 ' Wejście sygnału z Pinu INT PCF8583
' Konfiguracja portu LED kontrolka gołoledzi
Config Portd.5 = Output : Portd.5 = 1 : Led_glaze Alias Portd.5 ' kontrolka gołoledzi
$include "Config_PCF8583.bas"
'$include "Config_DS18B20.bas"
Config 1wire = PortD.6 ' Konfiguracja 1-WIRE
'$include "Config_Volt.bas"
' Zmienne uart
Dim Char As Byte , Helpb As Byte , Helpstr As String * 10
Dim T_str As String * 25
' zmienna sterująca diodą led
Dim L As Byte , Stare_l As Byte
' Zmienne zapisujące datę przeglądu technicznego do eeprom
Dim N As Byte
Dim Q_str As String * 15
Dim Buff(16) As Byte At Q_str Overlay
Dim Lock As Byte , Licznik As Byte , Jest_5_impulsow As Byte
' Konfiguracja zmiennych dla Menu Screen
Dim Menu As Byte , Refresh As Byte
Dim Got_str As Byte , Cmd_timeout As Byte , Option As Byte
Dim One As Byte , Two As Byte , Three As Byte
Lampka Alias 5
Przeglad Alias 10
Olej Alias 15
Polisa Alias 20
'sub zapisuje Eeprom wartością pod podanym adresem
Sub Write_eeprom(byval Adres As Byte , Byval Value As Byte)
I2cstart
I2cwbyte Addressw
I2cwbyte Adres
I2cwbyte Value
I2cstop
Waitms 5 ' przy 3ms występuje problem z zapisem kolejnych bajtów
End Sub
'funkcja zwraca wartosć bajtu pod podanym adresem w eepromie
Function Read_eeprom(byval Adres As Byte ) As Byte
I2cstart
I2cwbyte Addressw
I2cwbyte Adres
I2cstart
I2cwbyte Addressr
I2crbyte Read_eeprom , Nack
I2cstop
End Function
Sub Write_ee(byval Address As Byte )
For N = 1 To 3
Call Write_eeprom(address , Buff(n))
Incr Address
Next
End Sub
Sub Read_ee(byval Address As Byte )
For N = 1 To 3
Buff(n) = Read_eeprom(address)
If Buff(n) > 99 Then Buff(n) = 99
Incr Address
Next
End Sub
Sub Send_answear(byval Command As String)
Helpstr = Command + "="
If Buff(1) < 10 Then Helpstr = Helpstr + "0"
Helpstr = Helpstr + Str(buff(1)) + "-"
If Buff(2) < 10 Then Helpstr = Helpstr + "0"
Helpstr = Helpstr + Str(buff(2)) + "-"
If Buff(3) < 10 Then Helpstr = Helpstr + "0"
Helpstr = Helpstr + Str(buff(3))
Print Helpstr
End Sub
Function Find(byval Command As String)as Byte
Find = 0 : Helpb = Instr(t_str , Command) 'szukaj wyrażenia
If Helpb > 0 Then
Helpb = Helpb + 3
Helpstr = Mid(t_str , Helpb , 1)
Select Case Helpstr
Case "=" : Find = 1
Case "?" : Find = 2
End Select
End If
End Function
Sub Get_three_values()
'in Helpb stored position of the found command
' format TIM=23-05-00
Incr Helpb
Helpstr = Mid(t_str , Helpb , 2)
Char = Val(helpstr)
If Err = 0 Then One = Char
Helpb = Helpb + 3
Helpstr = Mid(t_str , Helpb , 2)
Char = Val(helpstr)
If Err = 0 Then Two = Char
Helpb = Helpb + 3
Helpstr = Mid(t_str , Helpb , 2)
Char = Val(helpstr)
If Err = 0 Then Three = Char
End Sub
L = Read_eeprom(lampka)
Enable Interrupts
' ==============GŁÓWNA PĘTLA=================
Do
'co sekunde
If Tifr.ocf1a = 1 Then ' jesli uplynela sekunda (te flage ustawia Timer)
Tifr.ocf1a = 1 ' skasuj flage by w petli dokonywalo sie to tylko raz na 1s
Refresh = 1
If Cmd_timeout > 0 Then
Decr Cmd_timeout
If Cmd_timeout = 0 Then T_str = ""
End If
End If
If 0 < Ischarwaiting() Then
Char = Inkey()
Select Case Char
Case 10
Case 13 : Got_str = 1
Case Else
T_str = T_str + Chr(char)
End Select
If Len(t_str) > 24 Then Got_str = 1
If Got_str = 1 Then
Option = Find( "ATL")
Select Case Option
Case 1
Call Get_three_values()
If Stare_l <> One Then
Stare_l = One
L = One
Call Write_eeprom(lampka , L)
End If
End Select
Option = Find( "ATO")
Select Case Option
Case 1
Call Get_three_values()
Buff(1) = One
Buff(2) = Two
Buff(3) = Three
Call Write_ee(olej)
Case 2
Call Read_ee(olej)
Call Send_answear( "ATO")
End Select
Option = Find( "ATP")
Select Case Option
Case 1
Call Get_three_values()
Buff(1) = One
Buff(2) = Two
Buff(3) = Three
Call Write_ee(przeglad)
Case 2
Call Read_ee(przeglad)
Call Send_answear( "ATP")
End Select
Option = Find( "ATU")
Select Case Option
Case 1
Call Get_three_values()
Buff(1) = One
Buff(2) = Two
Buff(3) = Three
Call Write_ee(polisa)
Case 2
Call Read_ee(polisa)
Call Send_answear( "ATU")
End Select
Option = Find( "TIM")
If Option = 1 Then
Call Get_three_values()
Hour = One
Minute = Two
Second = Three
Blad = Pcf8583_storetime(second , Minute , Hour , Day , Month , Year)
End If
Got_str = 0
Else
Cmd_timeout = 2
End If
End If
If Refresh = 1 Then 'odswiezanie co sekunde albo na żądanie
Select Case Menu
Case 0
'==========GŁÓWNY EKRAN Z GODZINĄ I DATĄ==============
Blad = Pcf8583_gettime() ' odczytaj godzinę i date z układu PCF8583 , funkcja zwraca kod błędu
If Blad = 2 Then ' jeżeli uszkodzona data
Locate 1 , 1 : Lcd " SET CLOCK " ' wyświetl komunikat
Locate 2 , 1 : Lcd Spc(20)
Elseif Blad = 1 Then ' jeżeli błąd magistrali I2C
Locate 1 , 1 : Lcd " E R R O R " ' wyświetl komunikat
Lcd Spc(11)
Locate 2 , 1 : Lcd " B U S I2C "
Elseif Blad = 0 Then ' jeżeli prawidłowo odczytane dane
Call Displaytime() ' wyświetl zegar
End If
Case 1
'=========EKRAN Z TEMPERATURĄ IN/OUT=================
'Call Displaytemp()
Case 2
'=========EKRAN Z POMIAREM NAPIĘCIA POKŁADOWEGO==============
'Call Displayvolt()
End Select
Refresh = 0
End If
Debounce F1 , 0 , Menu_sub , Sub ' Każde naciśnięcie przycisku F1 powoduje przejscie do kolejnego ekranu
If Motor = 1 Then Gosub Uspij ' Jeśłi silnik wyłączony, to idź do procedury Usypiania
'Call Display_led_glaze() ' Sterowanie kontrolką gołoledzi
Loop
End
' ===============KONIEC GŁÓWNEJ PĘTLI=========================
$include "PCF8583.bas"
'$include "DS18B20.bas"
'$include "Volt.bas"
' Przewijanie ekranów
Menu_sub:
Incr Menu : If Menu > 2 Then Menu = 0
Cls : Refresh = 1
Return
' ======================Procedura stanu uśpienia gdy silnik wyłączony=====================================
Uspij:
Cls
Motor = 1
Do
Led_glaze = INT_PCF
If Motor = 1 then Display off : Podswietlenie = 0 ' Jeśli silnik wyłączony, to wyłącz LCD i podświetlenie
'Led_glaze = 1 ' Kontrolka gołoledzi wyłączona
'end if
If Motor = 0 then ' Jeśli silnik włączony, to:
' ########################## Odpowiada za opóźnienie 5 sekund włączenia LCD ############################
If Int_pcf = 0 Then 'jeśli PCF ustalił stan niski
Lock = 1 'to zapamietaj, ustaw flage
Else 'jesli PCF ustawil już stan wysoki
If Lock = 1 Then 'a byl wczesniej stan niski (flaga)
Lock = 0 'skasuj flage do czasu kolejnego niskiego stanu
Incr Licznik 'tylko raz na zmiane stanu zwiekszamy licznik
If Licznik = 5 Then ' jeśli licznik osiągnął wartość 5 (5sekund), to
Licznik = 0 ' zeruj licznik
Jest_5_impulsow = 1 'przejdź do włączenia podświetlenia
End If
End If
End If
If Jest_5_impulsow = 1 Then
Jest_5_impulsow = 0
' ######################## Koniec części opóźniającej włączenie LCD ###################################
Podswietlenie = 1 ' włącz podświetlenie
Display on ' włącz wyswietlacz
cls ' wyczyść wyswietlacz
' Wyczyść informacje zgromadzone w Buforze UART
return ' wracaj do głównego programu
end if
end if
'end if
Loop

Dziękuję Ci za pomoc, jak zwykle kawał roboty i czasu poświęciłeś dla mnie.

Aplikację muszę zbudować od podstaw. Póki co zrobiłem wysyłanie czasu i daty do procka.
Jest mały problem - jeśli minuty lub godziny to jedności,np.: 09:05:01, to aplikacja wysyła czas w tym formacie: TIM=9:5:1 i wtedy źle wyświetla czas zegarku. Nie wiem dlaczego tak się dzieje, bo przecież w pliku PCF8583.bas jest zapisane:

Code: [Zaznacz cały] [Rozwiń/Zwiń]

Sub Displaytime()
Locate 1 , 1 ' <<<<<<<<-ustaw sobie gdzie ma wyświetlać
If Hour < 10 Then Lcd "0" : Lcd Hour ; ":"
If Minute < 10 Then Lcd "0" : Lcd Minute ; ":"
If Second < 10 Then Lcd "0" : Lcd Second
Lcd Spc(8) ' 8 spacji
Locate 2 , 2 ' <<<<<<<<-ustaw sobie gdzie ma wyświetlać
Lcd Lookupstr(weekday , Weekdays) ; " "
If Day < 10 Then Lcd "0" : Lcd Day ; "-"
If Month < 10 Then Lcd "0" : Lcd Month ; "-" ; Year
'Lcd Spc(8) ' 8 spacji
End Sub
Weekdays:
Data "Nie" , "Pon" , "Wto" , "Sro" , "Czw" , "Pt " , "Sob"

Więc automatycznie program jeśli wykryje np. minuty <10, to ma nadpisywać "0"
Jednak tak się nie dzieje, bo aplikacja wysyła ciąg znaków: TIM=9:22:33, więc skoro nie ma zera przed 9, to automatycznie przesuwa wszystko w lewą stronę w tym przypadku o jedno miejsce.

To samo się dzieje z datą.

Wcześniej było tak, że minuty to była osobna zmienna, godziny, osobna zmienna, a sekundy osobna, dzięki temu program mógł nadpisać zerami, jeśli minuty, to np.: 8.

Niestety nie mam jak tego zrobić w aplikacji na smartfona, ponieważ ona zaczytuje czas i datę z androida i automatycznie podstawia wartości w formacie 9:5:6
Jak temu zaradzić?

W załączeniu przesyłam całość programu razem z plikiem include do zegarka:

Główny plik:

Code: [Zaznacz cały] [Rozwiń/Zwiń]

' 14.03.2017
$regfile = "m16adef.dat" ' Typ procesora
$baud = 19200
$crystal = 11059200
$hwstack = 64
$swstack = 32
$framesize = 64
Echo Off
Config Submode = New
Config Serialin0 = Buffered , Size = 25 ' UART odbierany w przerwaniu z buforem
Const _valcheck = 1 ' wartości ładowane do Val() będa sprawdzane
Const Addressw = 168
Const Addressr = 169
$lib "i2c_twi.lbx"
Config Scl = Portc.0
Config Sda = Portc.1
I2cinit
Config Twi = 100000
' Konfiguracja LCD 2X16
Config Lcdpin = Pin , E = Portb.0 , Rs = Portb.1 , Db7 = Portb.2 , Db6 = Portb.3 , Db5 = Portb.4 , Db4 = Portb.5 , Wr = Portb.6
Config Lcd = 16x2 'nowy sposob zapisu
Deflcdchar 1 , 6 , 21 , 13 , 6 , 6 , 13 , 21 , 6 'Bluetooth
Cursor Off
Cls
'Konfiguracja TIMERA
Config Timer1 = Timer , Prescale = 256 , Compare_a = Disconnect , Compare_b = Disconnect , Clear_timer = 1
Compare1a = 43199
' Konfiguracja portu usypiania
Config Portd.7 = Input : Portd.7 = 1 : Motor Alias Pind.7 ' silnik włączony = 0 / wyłączony = 1
' Konfiguracja portów dla klawiatury
Config Portd.2 = Input : Portd.2 = 1 : F1 Alias Pind.2
' Konfiguracja opóźnienia włączenia podświetlenia LCD
Config Portd.4 = Input : Portd.4 = 1 : Int_pcf Alias Pind.4 ' Wejście sygnału z Pinu INT PCF8583
' Konfiguracja portu LED kontrolka gołoledzi
Config Portd.5 = Output : Portd.5 = 1 : Led_glaze Alias Portd.5 ' kontrolka gołoledzi
$include "Config_PCF8583.bas"
$include "Config_DS18B20.bas"
Config 1wire = PortD.6 ' Konfiguracja 1-WIRE
$include "Config_Volt.bas"
' Zmienne uart
Dim Char As Byte , Helpb As Byte , Helpstr As String * 10
Dim T_str As String * 25
' zmienna sterująca diodą led
Dim L As Byte , Stare_l As Byte
' Zmienne zapisujące datę przeglądu technicznego do eeprom
Dim N As Byte
Dim Q_str As String * 15
Dim Buff(16) As Byte At Q_str Overlay
Dim Lock As Byte , Licznik As Byte , Jest_5_impulsow As Byte
' Konfiguracja zmiennych dla Menu Screen
Dim Menu As Byte , Refresh As Byte
Dim Got_str As Byte , Cmd_timeout As Byte , Option As Byte
Dim One As Byte , Two As Byte , Three As Byte
Lampka Alias 5
Przeglad Alias 10
Olej Alias 15
Polisa Alias 20
'sub zapisuje Eeprom wartością pod podanym adresem
Sub Write_eeprom(byval Adres As Byte , Byval Value As Byte)
I2cstart
I2cwbyte Addressw
I2cwbyte Adres
I2cwbyte Value
I2cstop
Waitms 3
End Sub
'funkcja zwraca wartosć bajtu pod podanym adresem w eepromie
Function Read_eeprom(byval Adres As Byte ) As Byte
I2cstart
I2cwbyte Addressw
I2cwbyte Adres
I2cstart
I2cwbyte Addressr
I2crbyte Read_eeprom , Nack
I2cstop
End Function
Sub Write_ee(byval Address As Byte )
For N = 1 To 3
Call Write_eeprom(address , Buff(n))
Incr Address
Next
End Sub
Sub Read_ee(byval Address As Byte )
For N = 1 To 3
Buff(n) = Read_eeprom(address)
If Buff(n) > 99 Then Buff(n) = 99
Incr Address
Next
End Sub
Sub Send_answear(byval Command As String)
Helpstr = Command + "="
If Buff(1) < 10 Then Helpstr = Helpstr + "0"
Helpstr = Helpstr + Str(buff(1)) + "-"
If Buff(2) < 10 Then Helpstr = Helpstr + "0"
Helpstr = Helpstr + Str(buff(2)) + "-"
If Buff(3) < 10 Then Helpstr = Helpstr + "0"
Helpstr = Helpstr + Str(buff(3))
Print Helpstr
End Sub
Function Find(byval Command As String)as Byte
Find = 0 : Helpb = Instr(t_str , Command) 'szukaj wyrażenia
If Helpb > 0 Then
Helpb = Helpb + 3
Helpstr = Mid(t_str , Helpb , 1)
Select Case Helpstr
Case "=" : Find = 1
Case "?" : Find = 2
End Select
End If
End Function
Sub Get_three_values()
'in Helpb stored position of the found command
' format TIM=23-05-00
Incr Helpb
Helpstr = Mid(t_str , Helpb , 2)
Char = Val(helpstr)
If Err = 0 Then One = Char
Helpb = Helpb + 3
Helpstr = Mid(t_str , Helpb , 2)
Char = Val(helpstr)
If Err = 0 Then Two = Char
Helpb = Helpb + 3
Helpstr = Mid(t_str , Helpb , 2)
Char = Val(helpstr)
If Err = 0 Then Three = Char
End Sub
L = Read_eeprom(lampka)
Enable Interrupts
' ==============GŁÓWNA PĘTLA=================
Do
'co sekunde
If Tifr.ocf1a = 1 Then ' jesli uplynela sekunda (te flage ustawia Timer)
Tifr.ocf1a = 1 ' skasuj flage by w petli dokonywalo sie to tylko raz na 1s
Refresh = 1
If Cmd_timeout > 0 Then
Decr Cmd_timeout
If Cmd_timeout = 0 Then T_str = ""
End If
End If
If 0 < Ischarwaiting() Then
Char = Inkey()
Select Case Char
Case 10
Case 13 : Got_str = 1
Case Else
T_str = T_str + Chr(char)
End Select
If Len(t_str) > 24 Then Got_str = 1
If Got_str = 1 Then
Option = Find( "ATL")
Select Case Option
Case 1
Call Get_three_values()
If Stare_l <> One Then
Stare_l = One
L = One
Call Write_eeprom(lampka , L)
End If
End Select
Option = Find( "ATO")
Select Case Option
Case 1
Call Get_three_values()
Buff(1) = One
Buff(2) = Two
Buff(3) = Three
Call Write_ee(olej)
Case 2
Call Read_ee(olej)
Call Send_answear( "ATO")
End Select
Option = Find( "ATP")
Select Case Option
Case 1
Call Get_three_values()
Buff(1) = One
Buff(2) = Two
Buff(3) = Three
Call Write_ee(przeglad)
Case 2
Call Read_ee(przeglad)
Call Send_answear( "ATP")
End Select
Option = Find( "ATU")
Select Case Option
Case 1
Call Get_three_values()
Buff(1) = One
Buff(2) = Two
Buff(3) = Three
Call Write_ee(polisa)
Case 2
Call Read_ee(polisa)
Call Send_answear( "ATU")
End Select
Option = Find( "TIM")
If Option = 1 Then
Call Get_three_values()
Hour = One
Minute = Two
Second = Three
Blad = Pcf8583_storetime(second , Minute , Hour , Day , Month , Year)
End If
Option = Find( "DAT")
If Option = 1 Then
Call Get_three_values()
Day = One
Month = Two
Year = Three
Blad = Pcf8583_storetime(second , Minute , Hour , Day , Month , Year)
End If
Got_str = 0
Else
Cmd_timeout = 2
End If
End If
If Refresh = 1 Then 'odswiezanie co sekunde albo na żądanie
Select Case Menu
Case 0
'==========GŁÓWNY EKRAN Z GODZINĄ I DATĄ==============
Blad = Pcf8583_gettime() ' odczytaj godzinę i date z układu PCF8583 , funkcja zwraca kod błędu
If Blad = 2 Then ' jeżeli uszkodzona data
Locate 1 , 1 : Lcd " SET CLOCK " ' wyświetl komunikat
Locate 2 , 1 : Lcd Spc(20)
Elseif Blad = 1 Then ' jeżeli błąd magistrali I2C
Locate 1 , 1 : Lcd " E R R O R " ' wyświetl komunikat
Lcd Spc(11)
Locate 2 , 1 : Lcd " B U S I2C "
Elseif Blad = 0 Then ' jeżeli prawidłowo odczytane dane
Call Displaytime() ' wyświetl zegar
End If
Case 1
'=========EKRAN Z TEMPERATURĄ IN/OUT=================
Call Displaytemp()
Case 2
'=========EKRAN Z POMIAREM NAPIĘCIA POKŁADOWEGO==============
Call Displayvolt()
End Select
Refresh = 0
End If
Debounce F1 , 0 , Menu_sub , Sub ' Każde naciśnięcie przycisku F1 powoduje przejscie do kolejnego ekranu
If Motor = 1 Then Gosub Uspij ' Jeśłi silnik wyłączony, to idź do procedury Usypiania
Call Display_led_glaze() ' Sterowanie kontrolką gołoledzi
Loop
End
' ===============KONIEC GŁÓWNEJ PĘTLI=========================
$include "PCF8583.bas"
$include "DS18B20.bas"
$include "Volt.bas"
' Przewijanie ekranów
Menu_sub:
Incr Menu : If Menu > 2 Then Menu = 0
Cls : Refresh = 1
Return
' ======================Procedura stanu uśpienia gdy silnik wyłączony=====================================
Uspij:
Cls
Motor = 1
Do
Led_glaze = INT_PCF
If Motor = 1 then Display off : Podswietlenie = 0 ' Jeśli silnik wyłączony, to wyłącz LCD i podświetlenie
'Led_glaze = 1 ' Kontrolka gołoledzi wyłączona
'end if
If Motor = 0 then ' Jeśli silnik włączony, to:
' ########################## Odpowiada za opóźnienie 5 sekund włączenia LCD ############################
If Int_pcf = 0 Then 'jeśli PCF ustalił stan niski
Lock = 1 'to zapamietaj, ustaw flage
Else 'jesli PCF ustawil już stan wysoki
If Lock = 1 Then 'a byl wczesniej stan niski (flaga)
Lock = 0 'skasuj flage do czasu kolejnego niskiego stanu
Incr Licznik 'tylko raz na zmiane stanu zwiekszamy licznik
If Licznik = 5 Then ' jeśli licznik osiągnął wartość 5 (5sekund), to
Licznik = 0 ' zeruj licznik
Jest_5_impulsow = 1 'przejdź do włączenia podświetlenia
End If
End If
End If
If Jest_5_impulsow = 1 Then
Jest_5_impulsow = 0
' ######################## Koniec części opóźniającej włączenie LCD ###################################
Podswietlenie = 1 ' włącz podświetlenie
Display on ' włącz wyswietlacz
cls ' wyczyść wyswietlacz
' Wyczyść informacje zgromadzone w Buforze UART
return ' wracaj do głównego programu
end if
end if
'end if
Loop

PCF8583.BAS

Code: [Zaznacz cały] [Rozwiń/Zwiń]

$nocompile
'-------------------------------------------------------------------------------
Sub Displaytime()
Locate 1 , 1 ' <<<<<<<<-ustaw sobie gdzie ma wyświetlać
If Hour < 10 Then Lcd "0" : Lcd Hour ; ":"
If Minute < 10 Then Lcd "0" : Lcd Minute ; ":"
If Second < 10 Then Lcd "0" : Lcd Second
Lcd Spc(8) ' 8 spacji
Locate 2 , 2 ' <<<<<<<<-ustaw sobie gdzie ma wyświetlać
Lcd Lookupstr(weekday , Weekdays) ; " "
If Day < 10 Then Lcd "0" : Lcd Day ; "-"
If Month < 10 Then Lcd "0" : Lcd Month ; "-" ; Year
'Lcd Spc(8) ' 8 spacji
End Sub
Weekdays:
Data "Nie" , "Pon" , "Wto" , "Sro" , "Czw" , "Pt " , "Sob"
'-------------------------------------------------------------------------------
Pobierz_dni:
Ilosc_dni = Lookup(month , Dni_w_miesiacu)
Rok_przestepny = Year Mod 4
If Rok_przestepny = 0 And Month = 2 Then ' jeżeli rok przestępny i luty
Ilosc_dni = 29 ' to luty ma 29 dni
End If
If Day > Ilosc_dni Then Day = Ilosc_dni ' zabezpieczenie
Return
Dni_w_miesiacu:
Data 0 , 31 , 28 , 31 , 30 , 31 , 30 , 31 , 31 , 30 , 31 , 30 , 31
'-------------------------------------------------------------------------------
'*******************************************************************************
'*
'* plik: PCF8583.bas
'* wersja: 1.0
'*
'* autor: Tomasz Sadzikowski (mundi1970@gmail.com)
'* data: 24.01.2013
'*
'* kompilator: BASCOM Version 2.0.7.6.001
'*
'* UWAGA!!! funkcje wykorzystują 7 bajtów pamięci ram układu PCF8583
'* Od adresu 0x10 zaczyna się 240 bajtów wolnej pamięci ram. Pierwsze
'* 7 bajtów wykorzystane, pozostała część jest wolna.
'*
'* UWAGA!!! zmienne globalne Hour (byte), Minute (byte), Second (byte),
'* Day (byte), Month (byte), Year (word), Weekday (byte), nie są zdefiniowane
'*
'* UWAGA!!! plik Config_PCF8583.bas jest powiązany z plikiem PCF8583.bas
'* Sposób dołączania plików do własnego programu:
'*
'* $include "Config_PCF8583.bas"
'*
'* Dim ....
'*
'* Do
'* .......
'* Loop
'* End
'*
'* $include "PCF8583.bas"
'*
'*******************************************************************************
' Funkcja odczytuje godzinę i datę z układ PCF8583 i zapisuje w zmiennych
' globalnych: Hour (byte), Minute (byte), Second (byte), Day (byte),
' Month (byte), Year (word), Weekday (byte).
' funkcja zwraca:
' 0 - ok
' 1 - bład magistrali I2C
' 2 - uszkodzone dane w pamięci RAM układu PCF8583 (dane potrzebne do obliczenia aktualnego roku)
Function Pcf8583_gettime() As Byte
Local Temp_b As Byte , Error As Byte
Error = Pcf8583_read(rtc_bufor(_base + Pcf8583_seconds) , Pcf8583_seconds , 5) ' odczytaj 5 bajtów od adresu 0x02, i zapisz do tablicy zaczynającej się od rtc_seconds (rtc_bufor(3))
If Error = 0 Then ' jeżeli nie było błędu
Error = Pcf8583_read(pcf8583_dane_bufor(_base) , Pcf8583_free_ram , 7) ' odczytaj 7 bajtów od adresu 0x10 (dec 16), i zapisz do tablicy zaczynającej się od pcf8583_dane_bufor(1)
If Error = 0 Then ' jeżeli nie było błędu
Error = Pcf8583_sprawdz_dane() ' sprawdź czy dane w pamięci RAM układu PCF8583 nie są uszkodzone
If Error = 0 Then ' jeżeli nie było błędu
Second = Makedec(rtc_seconds) ' sekundy
Minute = Makedec(rtc_minutes) ' minuty
Hour = Makedec(rtc_hours) ' godziny
Temp_b = Rtc_year_date ' rok
Shift Temp_b , Right , 6
Temp_b = Makedec(temp_b)
Year = Pcf8583_kalendarz_baza + Temp_b ' baza + wartość kalendarza czteroletniego
If Temp_b <> Pcf8583_year_old Then ' jeżeli zmienił się rok
If Temp_b = 0 And Pcf8583_year_old = 3 Then ' jeżeli skończył się kalendarz czteroletni
Year = Year + 4 ' zmień bazę kalendarza
End If
Error = Pcf8583_store_year(year) ' zapisz dane o aktualnym roku w układzie PCF8583
End If
Temp_b = Rtc_year_date And &B0011_1111 ' dzień
Day = Makedec(temp_b)
Temp_b = Rtc_weekdays_months ' dzień tygodnia
Shift Temp_b , Right , 5
Weekday = Makedec(temp_b)
Temp_b = Rtc_weekdays_months And &B0001_1111 ' miesiąc
Month = Makedec(temp_b)
Else
Error = 2 ' 2 - uszkodzone dane w pamięci RAM
End If
End If
End If
Pcf8583_gettime = Error ' funkcja zwraca 0 - ok, 1 - błąd I2C, 2 - uszkodzone dane w pamięci RAM
End Function
'-------------------------------------------------------------------------------
' Funkcja zapisuje godzinę i datę do układu PCF8583. Dzień tygodnia jest obliczany
' automatycznie na podstawie daty.
' wejście: sekundy, minuty, godziny, dzień, miesiąc i rok
' funkcja zwraca:
' 0 - ok
' 1 - błąd I2C
Function Pcf8583_storetime(byval S As Byte , Byval M As Byte , Byval H As Byte , Byval D As Byte , Byval Mm As Byte , Byval Y As Word) As Byte
Local Temp_b As Byte , Error As Byte
Rtc_seconds = Makebcd(s) ' sekundy
Rtc_minutes = Makebcd(m) ' minuty
Rtc_hours = Makebcd(h) ' godziny
Rtc_year_date = Makebcd(d) ' dzień i rok
Temp_b = Y Mod 4
Temp_b = Makebcd(temp_b)
Shift Temp_b , Left , 6
Rtc_year_date = Rtc_year_date Or Temp_b
Rtc_weekdays_months = Makebcd(mm) ' dzień tygodnia i miesiąc
Temp_b = Oblicz_dzien_tygodnia(d , Mm , Y) ' na podstawie daty oblicz dzień tygodnia
Temp_b = Makebcd(temp_b)
Shift Temp_b , Left , 5
Rtc_weekdays_months = Rtc_weekdays_months Or Temp_b
Error = Pcf8583_write(rtc_bufor(_base + Pcf8583_seconds) , Pcf8583_seconds , 5) ' zapisz 5 bajtów od adresu 0x02, dane pobierz z tablicy zaczynającej się od rtc_bufor(3)
If Error = 0 Then ' jeżeli nie był błędu
Error = Pcf8583_store_year(y) ' zapisz dane o aktualnym roku w układzie PCF8583
End If
Pcf8583_storetime = Error ' funkcja zwraca 0 - ok, 1 - błąd I2C
End Function
'-------------------------------------------------------------------------------
' Funkcja odczytuje określoną ilość danych z układu Pcf8583.
' wejście:
' bufor - tablica w której mają być zapisane dane.
' adres - adres ram układu Pcf8583 od którego zaczyna się odczyt
' ilosc_bajtow - ilość danych do odczytu
' funkcja zwraca:
' 0 = ok, 1 = błąd I2C
Function Pcf8583_read(byref Bufor()as Byte , Byval Adres As Byte , Byval Ilosc_bajtow As Byte) As Byte
Local Dana As Byte , Index As Byte , Pozycja As Byte
Index = 1
Pozycja = _base ' UWAGA!!! Jeżeli Config Base = 0 to chyba powinno być :) Pozycja = 0
I2cstart
If Err = 0 Then ' sprawdź czy wystąpił błąd
I2cwbyte Pcf8583w ' wyślij adres układu Pcf8583 tryb zapis
If Err = 0 Then ' sprawdź czy wystąpił błąd
I2cwbyte Adres ' adres ram w Pcf8583 od którego zacznie się odczyt
If Err = 0 Then ' sprawdź czy wystąpił błąd
I2cstart
I2cwbyte Pcf8583r ' wyślij adres układu Pcf8583 tryb odczyt
If Err = 0 Then ' sprawdź czy wystąpił błąd
Do
If Index = Ilosc_bajtow Then ' jeżeli ostatni bajt to
I2crbyte Dana , Nack ' odczytaj bajt z Pcf8583 (NACK)
Else ' jeżeli nie to
I2crbyte Dana , Ack ' odczytaj bajt z Pcf8583 (ACK)
End If ' odczytaj daną
Bufor(pozycja) = Dana ' zapisz w tablicy
Incr Pozycja ' zwiększ Pozycje o 1
Incr Index ' zwiększ Index o 1
Loop Until Err = 1 Or Index > Ilosc_bajtow ' opuść pętle jeżeli pobrano wszystkie dane lub wystąpił błąd
End If
End If
End If
I2cstop
End If
Pcf8583_read = Err ' zwracany kod
End Function
'-------------------------------------------------------------------------------
' Funkcja zapisuje określoną ilość danych do układu Pcf8583.
' wejście:
' bufor - tablica z której mają być pobierane dane do zapisu
' adres - adres ram układu Pcf8583 od którego zaczyna się zapis
' ilosc_bajtow - ilość danych do zapisu
' funkcja zwraca:
' 0 = ok, 1 = błąd I2C
Function Pcf8583_write(byref Bufor()as Byte , Byval Adres As Byte , Byval Ilosc_bajtow As Byte) As Byte
Local Dana As Byte , Index As Byte , Pozycja As Byte
Index = 1
Pozycja = _base ' UWAGA!!! Jeżeli Config Base = 0 to chyba powinno być :) Pozycja = 0
I2cstart
If Err = 0 Then ' sprawdź czy wystąpił błąd
I2cwbyte Pcf8583w ' wyślij adres układu Pcf8583 tryb zapis
If Err = 0 Then ' sprawdź czy wystąpił błąd
I2cwbyte Adres ' wyślij adres ram w Pcf8583 od którego zacznie się zapis
If Err = 0 Then ' sprawdź czy wystąpił błąd
Do
Dana = Bufor(pozycja) ' odczytaj daną z tablicy
I2cwbyte Dana ' i wyślij dane do Pcf8583
Incr Pozycja ' zwiększ Pozycje o 1
Incr Index ' zwiększ Index o 1
Loop Until Err = 1 Or Index > Ilosc_bajtow ' opuść pętle jeżeli zapisano wszystkie dane lub wystąpił błąd
End If
End If
I2cstop
End If
Pcf8583_write = Err ' zwracany kod
End Function
'-------------------------------------------------------------------------------
' Funkcja zapisuje w PCF8583 dane potrzebne do obliczenia aktualnym roku
' (PCF8583 posiada tylko czteroletni kalendarz). Zapisywane są takie dane:
' ID (word), baza kalendarza (word), wartość kalendarza czteroletniego (byte)
' i suma kontrolna (word) - całość 7 bajtów
' wejście: - rok (word)
' funkcja zwraca: 0 - ok, 1 - błąd I2C
Function Pcf8583_store_year(byval Year As Word) As Byte
Local Temp_b As Byte
Pcf8583_data_id = Rok_id ' ID &H55AA
Temp_b = Year Mod 4
Pcf8583_year_old = Makebcd(temp_b) ' zapamiętaj wartość kalendarza czteroletniego (0-3)
Pcf8583_kalendarz_baza = Year - Temp_b ' 2000, 2004, 2008 .....
Pcf8583_crc16 = Crc16(pcf8583_dane_bufor(_base) , 5) ' oblicz sumę kontrolną danych
Pcf8583_store_year = Pcf8583_write(pcf8583_dane_bufor(_base) , Pcf8583_free_ram , 7) ' zapisz 7 bajtów od adresu 0x10 (dec 16), dane pobierz z tablicy zaczynającej się od pcf8583_dane_bufor(1)
' funkcja zwraca 0 - ok, 1 - błąd I2C
End Function
'-------------------------------------------------------------------------------
' Funkcja sprawdza czy dane potrzebne do obliczenia aktualnego roku,
' zawarte w tablicy globalnej Pcf8583_dane_bufor() nie są uszkodzone.
' Sprawdzany jest id i suma kontrolna. Dane do bufora należy wcześniej
' odczytać funkcją Pcf8583_read().
' funkcja zwraca: 0 = ok, 1 = błąd
Function Pcf8583_sprawdz_dane() As Byte
Local Crc As Word
Pcf8583_sprawdz_dane = 1 ' błąd dane uszkodzone
Crc = Crc16(pcf8583_dane_bufor(_base) , 5) ' oblicz sumę kontrolną Pcf8583_data_id, Pcf8583_kalendarz_baza i Pcf8583_year_old
If Crc = Pcf8583_crc16 Then ' sprawdź czy suma kontrolna się zgadza
If Pcf8583_data_id = Rok_id Then ' sprawdź czy id (&H55AA) się zgadza
Pcf8583_sprawdz_dane = 0 ' brak błędu
End If
End If
End Function
'-------------------------------------------------------------------------------
' Funkcja oblicza na podstawie daty jaki jest dzień tygodnia. Funkcje napisano
' na podstawie przykładu w Pascalu ze strony http://pl.wikipedia.org/wiki/Kalendarz_wieczny
'
' Wejście:
' - dzien , miesiąc , rok
'
' Wyjście:
' 0 - niedziela
' 1 - poniedziałek
' 2 - wtorek
' 3 - środa
' 4 - czwartek
' 5 - piątek
' 6 - sobota
Function Oblicz_dzien_tygodnia(day As Byte , Month As Byte , Year As Word) As Byte
Local M As Integer , C As Integer , D As Integer , N As Integer , Temp As Integer
M = Month + 9 : M = M Mod 12 : M = M + 1 : If M > 10 Then Year = Year - 1
C = Year \ 100 : D = Year Mod 100
N = 13 * M : N = N - 1 : N = N \ 5 : N = N + D : Temp = D \ 4
N = N + Temp : Temp = C \ 4 : N = N + Temp : Temp = 5 * C : N = N + Temp
N = N + Day : N = N Mod 7
Oblicz_dzien_tygodnia = N
End Function
'----------------------------------------------------------

Config_PCF8583.bas

Code: [Zaznacz cały] [Rozwiń/Zwiń]

$nocompile
' Konfiguracja szyny I2C
Config Scl = Portc.0
Config Sda = Portc.1
I2cinit
Config Portb.7 = Output : Portb.7 = 1 : Podswietlenie Alias Portb.7 'Konfiguracja podswietlenia
Config Portd.3 = Output : Portd.3 = 1 : Led Alias Portd.3 'Konfiguracja LED
'-------------------------------------------------------------------------------
Declare Sub Displaytime()
'-------------------------------------------------------------------------------
' zmienne globalne
Dim Second As Byte
Dim Minute As Byte
Dim Hour As Byte
Dim Day As Byte
Dim Month As Byte
Dim Year As Word
Dim Weekday As Byte
Dim Blad As Byte
Dim Ilosc_dni As Byte
Dim Rok_przestepny As Byte
'### TYMCZASOWE USTAWIANIE ZEGARA ###
' początkowe wartości
' Minute = 16
' Hour = 22
' Day = 01
' Month = 5
' Year = 2015
' Blad = Pcf8583_storetime(second , Minute , Hour , Day , Month , Year)
'### ----------------------------------
'*******************************************************************************
'*
'* plik: Config_PCF8583.bas
'* wersja: 1.0
'*
'* autor: Tomasz Sadzikowski (mundi1970@gmail.com)
'* data: 24.01.2013
'*
'* kompilator: BASCOM Version 2.0.7.6.001
'*
'* UWAGA!!! funkcje wykorzystują 7 bajtów pamięci ram układu PCF8583
'* Od adresu 0x10 zaczyna się 240 bajtów wolnej pamięci ram. Pierwsze
'* 7 bajtów wykorzystane, pozostała część jest wolna.
'*
'* UWAGA!!! zmienne globalne Hour (byte), Minute (byte), Second (byte),
'* Day (byte), Month (byte), Year (word), Weekday (byte), nie są zdefiniowane
'*
'* UWAGA!!! plik Config_PCF8583.bas jest powiązany z plikiem PCF8583.bas
'* Sposób dołączania plików do własnego programu:
'*
'* $include "Config_PCF8583.bas"
'*
'* Dim ....
'*
'* Do
'* .......
'* Loop
'* End
'*
'* $include "PCF8583.bas"
'*
'*******************************************************************************
' dokumentacja układu PCF8583 dostępna na stronie :
' http://www.nxp.com/documents/data_sheet/PCF8583.pdf
' http://ics.nxp.com/support/documents/interface/pdf/user.manual.real.time.clocks.pdf
#if _build < 20000
Const _base = 1
#endif
'-------------------------------------------------------------------------------
' stałe
' konfiguracja bufora -> jeżeli tylko bufor dla zegara to 0, jeżeli bufor dla zegara i alarmu to 1
' domyślnie 0 - bufor tylko dla zegara
Const _clock_alarm = 0
' adresy układu PCF8583
' jeżeli noga A0 układ PCF8583 jest podłączony do GND to:
' adres do odczytu = &HA1
' adres do zapisu = &HA0
' jeżeli noga A0 układ PCF8583 jest podłączony do VCC to:
' adres do odczytu = &HA3
' adres do zapisu = = &HA2
Const Pcf8583r = &HA1
Const Pcf8583w = &HA0
' długość bufora
#if _clock_alarm = 0
Const Pcf8583_bufor_len = 8
#else
Const Pcf8583_bufor_len = 16
#endif
' adresy rejestrów
' mapa pamięci układu PCF8583 - opis na str. 8
' od adresu 16 (hex &H10) jest wolne 240 (hex &HF0) bajtów pamięci RAM
Const Pcf8583_control = 0
Const Pcf8583_100th_of_a_second = 1
Const Pcf8583_seconds = 2
Const Pcf8583_minutes = 3
Const Pcf8583_hours = 4
Const Pcf8583_year_date = 5
Const Pcf8583_weekdays_months = 6
Const Pcf8583_timer = 7
#if _clock_alarm = 1
Const Pcf8583_alarm_control = 8
Const Pcf8583_alarm_100th_of_a_second = 9
Const Pcf8583_alarm_seconds = 10
Const Pcf8583_alarm_minutes = 11
Const Pcf8583_alarm_hours = 12
Const Pcf8583_alarm_date = 13
Const Pcf8583_alarm_months = 14
Const Pcf8583_alarm_timer = 15
#endif
Const Pcf8583_free_ram = 16 ' od tego adresu jest 240 bajtów wolnego ramu
' ID danych
Const Rok_id = &H55AA ' przypadkowa wartość która wpadła mi do łba :)
'-------------------------------------------------------------------------------
' zmienne globalne
Dim Rtc_bufor(pcf8583_bufor_len) As Byte
Dim Rtc_control As Byte At Rtc_bufor + Pcf8583_control Overlay ' Control and status register - opis poszczególnych bitów na str. 6
Dim Rtc_100th_of_a_second As Byte At Rtc_bufor + Pcf8583_100th_of_a_second Overlay
Dim Rtc_seconds As Byte At Rtc_bufor + Pcf8583_seconds Overlay
Dim Rtc_minutes As Byte At Rtc_bufor + Pcf8583_minutes Overlay
Dim Rtc_hours As Byte At Rtc_bufor + Pcf8583_hours Overlay
Dim Rtc_year_date As Byte At Rtc_bufor + Pcf8583_year_date Overlay
Dim Rtc_weekdays_months As Byte At Rtc_bufor + Pcf8583_weekdays_months Overlay
Dim Rtc_timer As Byte At Rtc_bufor + Pcf8583_timer Overlay
#if _clock_alarm = 1
Dim Rtc_alarm_control As Byte At Rtc_bufor + Pcf8583_alarm_control Overlay ' Alarm control registers, clock mode - opis poszczególnych bitów na str. 10
Dim Rtc_alarm_100th_of_a_second As Byte At Rtc_bufor + Pcf8583_alarm_100th_of_a_second Overlay
Dim Rtc_alarm_seconds As Byte At Rtc_bufor + Pcf8583_alarm_seconds Overlay
Dim Rtc_alarm_minutes As Byte At Rtc_bufor + Pcf8583_alarm_minutes Overlay
Dim Rtc_alarm_hours As Byte At Rtc_bufor + Pcf8583_alarm_hours Overlay
Dim Rtc_alarm_date As Byte At Rtc_bufor + Pcf8583_alarm_date Overlay
Dim Rtc_alarm_months As Byte At Rtc_bufor + Pcf8583_alarm_months Overlay
Dim Rtc_alarm_timer As Byte At Rtc_bufor + Pcf8583_alarm_timer Overlay
#endif
' układ PCF8583 posiada czteroletni kalendarz, od adresu 16 (hex &H10) w pamięci układu
' będą zapisywane dane potrzebne do obliczenia aktualnego roku
' aktualny rok = kalendarz baza + wartość z czteroletniego kalendarza
Dim Pcf8583_dane_bufor(7) As Byte
Dim Pcf8583_data_id As Word At Pcf8583_dane_bufor Overlay ' id danych &H55AA (word)
Dim Pcf8583_kalendarz_baza As Word At Pcf8583_dane_bufor + 2 Overlay ' baza 2000, 2004, 2008 ... wielokrotność 4 letniego kalendarza (word)
Dim Pcf8583_year_old As Byte At Pcf8583_dane_bufor + 4 Overlay ' stara wartość od 0 do 3 (byte) kalendarza czteroletniego (obliczona wartość z Pcf8583_year_date)
Dim Pcf8583_crc16 As Word At Pcf8583_dane_bufor + 5 Overlay ' suma kontrolna (word) danych: id, kalendarz_baza i year_old (Pcf8583_crc16 = Crc16(Pcf8583_dane_bufor(1) , 5))
'-------------------------------------------------------------------------------
' deklaracje funkcji
' Funkcja odczytuje godzinę i datę z układ PCF8583 i zapisuje w zmiennych
' globalnych: Hour (byte), Minute (byte), Second (byte), Day (byte),
' Month (byte), Year (word), Weekday (byte).
' funkcja zwraca:
' 0 - ok
' 1 - bład magistrali I2C
' 2 - uszkodzone dane w pamięci RAM układu PCF8583 (dane potrzebne do obliczenia aktualnego roku)
Declare Function Pcf8583_gettime() As Byte
' Funkcja zapisuje godzinę i datę do układu PCF8583. Dzień tygodnia jest obliczany
' automatycznie na podstawie daty.
' wejście: sekundy, minuty, godziny, dzień, miesiąc i rok
' funkcja zwraca:
' 0 - ok
' 1 - błąd I2C
Declare Function Pcf8583_storetime(byval S As Byte , Byval M As Byte , Byval H As Byte , Byval D As Byte , Byval Mm As Byte , Byval Y As Word) As Byte
' Funkcja odczytuje określoną ilość danych z układu Pcf8583.
' wejście:
' bufor - tablica w której mają być zapisane dane.
' adres - adres ram układu Pcf8583 od którego zaczyna się odczyt
' ilosc_bajtow - ilość danych do odczytu
' funkcja zwraca:
' 0 = ok, 1 = błąd I2C
#if _build < 20760
Declare Function Pcf8583_read(byref Bufor As Byte , Byval Adres As Byte , Byval Ilosc_bajtow As Byte) As Byte
#else
Declare Function Pcf8583_read(byref Bufor() As Byte , Byval Adres As Byte , Byval Ilosc_bajtow As Byte) As Byte
#endif
' Funkcja zapisuje określoną ilość danych do układu Pcf8583.
' wejście:
' bufor - tablica z której mają być pobierane dane do zapisu
' adres - adres ram układu Pcf8583 od którego zaczyna się zapis
' ilosc_bajtow - ilość danych do zapisu
' funkcja zwraca:
' 0 = ok, 1 = błąd I2C
#if _build < 20760
Declare Function Pcf8583_write(byref Bufor As Byte , Byval Adres As Byte , Byval Ilosc_bajtow As Byte) As Byte
#else
Declare Function Pcf8583_write(byref Bufor() As Byte , Byval Adres As Byte , Byval Ilosc_bajtow As Byte) As Byte
#endif
' Funkcja zapisuje w PCF8583 dane potrzebne do obliczenia aktualnym roku
' (PCF8583 posiada tylko czteroletni kalendarz). Zapisywane są takie dane:
' ID (word), baza kalendarza (word), wartość kalendarza czteroletniego (byte)
' i suma kontrolna (word) - całość 7 bajtów
' wejście: - rok (word)
' funkcja zwraca: 0 - ok, 1 - błąd I2C
Declare Function Pcf8583_store_year(byval Year As Word) As Byte
' Funkcja sprawdza czy dane potrzebne do obliczenia aktualnego roku,
' zawarte w tablicy globalnej Pcf8583_dane_bufor() nie są uszkodzone.
' Sprawdzany jest id i suma kontrolna. Dane do bufora należy wcześniej
' odczytać funkcją Pcf8583_read().
' funkcja zwraca: 0 = ok, 1 = błąd
Declare Function Pcf8583_sprawdz_dane() As Byte
' Funkcja oblicza na podstawie daty jaki jest dzień tygodnia. Funkcje napisano
' na podstawie przykładu w Pascalu ze strony http://pl.wikipedia.org/wiki/Kalendarz_wieczny
'
' Wejście:
' - dzien , miesiąc , rok
'
' Wyjście:
' 0 - niedziela
' 1 - poniedziałek
' 2 - wtorek
' 3 - środa
' 4 - czwartek
' 5 - piątek
' 6 - sobota
Declare Function Oblicz_dzien_tygodnia(day As Byte , Month As Byte , Year As Word) As Byte
'---------------------------------------------

Jeśli wysyłam czas z terminala Putty, w formacie jaki mi zaleciłeś- TIM=09:05:01, DAT=14-03-17, to wszystko działa poprawnie. Data również.
Jeśli nie ma opcji takiej, żeby to zmienić we wsadzie do procka, to w ostateczności zrobię w aplikacji na smartfona wprowadzanie czasu i daty ręcznie z klawiatury i będzie działać

Przemyślałem sprawę, pewnie trzeba byłoby przerabiać znów cały program, a i tak mi dużo pomogłeś, to nie będę wydziwiał i zrobię aplikację z ręcznym wprowadzaniem czasu i daty. Przecież tego nie będę ustawiał przy każdej jeździe samochodem. PCF8583 ma podtrzymywanie zasilania baterią, więc będzie ok.
Dziś dokończę resztę tej aplikacji i przetestuję zapis odczyt dat

To nie jest jakieś skomplikowane tylko takie rzeczy wychodzą w praniu i wystarczy je załatać

Jeśli dobrze rozumiem to Aplikacja Androida pozwala sobie na skrócenie tylko pierwszego członu czyli usuwa tak zwane zero wiodące?
Jeśli już Minuty i Sekundy pozostawia w formacie 00:00 to można po prostu mierzyć długość otrzymanej komendy.
Długość 8 znaków to format 23:00:00 a długość 7 znaków to format 1:00:00 i jedna rzecz z głowy.

Można też zmusić aplikację androidową by "kiedy godzina < 10 To Nadawany_string = "0" + Nadawany_string

Rozwiązań tyle ilu programistów.

Radziłbym popracować nad rozwiązaniem niż pójście na łatwiznę bo trochę się napracowałem przerabiając ten kod bo myślałem o tym że zawsze można go rozwinąć. Natomiast odpuszczenie jakiegoś tematu kończy się potem kulawa aplikacją bez możliwości dalszego jej rozwinięcia.

Rozwiąż problem odbioru/zapisu a będziesz mógł zapisywać więcej danych

..i to nie tylko w tym projekcie ..myśl o następnych.

Żebym nie pisał sam to coś napisz a jak nie zadziała to pokaż i się pomyśli

Można też nauczyć Procesor wykrywania dwukropków lub rozdzielających minusów - to proste!

Wiem, że napracowałeś się nad poprawa tego kodu i z pewnością zajęło Ci to mnóstwo czasu.

Właśnie aplikacja zaczytując czas i datę z androida obcina wszystkie zera, i nie tylko obetnie zero w godzinie ale i minutach i sekundach, więc jeśli mamy godzinę: 09:05:02, to android podstawi w aplikacji taki format czasu: 9:5:2, więc tu mamy obcięte w sumie trzy zera. To samo tyczy się daty.

Spróbuję z tymi stringami w aplikacji, pokombinuję też z wsadem do Bascoma i jak coś to będę pisał na forum

..a tak na samym końcu to myślę że to nie Android tylko nieładnie napisałeś aplikację na niego jeśli wysyłasz string a nie ma zer wiodących.
Zrozumiałbym binarnie 1:2:30 ale string tego typu? To nie jest human interface

Przyjazne Bascom Forum

Problem z zapisem do eeprom więcej niż 2 zmiennych

Problem z zapisem do eeprom więcej niż 2 zmiennych

Re: Problem z zapisem do eeprom więcej niż 2 zmiennych

Re: Problem z zapisem do eeprom więcej niż 2 zmiennych

Re: Problem z zapisem do eeprom więcej niż 2 zmiennych

Re: Problem z zapisem do eeprom więcej niż 2 zmiennych

Re: Problem z zapisem do eeprom więcej niż 2 zmiennych

Re: Problem z zapisem do eeprom więcej niż 2 zmiennych

Re: Problem z zapisem do eeprom więcej niż 2 zmiennych

Re: Problem z zapisem do eeprom więcej niż 2 zmiennych

Re: Problem z zapisem do eeprom więcej niż 2 zmiennych