Czy wolisz polską wersję strony elektroda?
Nie, dziękuję Przekieruj mnie tam
.
$regfile = "m8def.dat" 'deklaracja uklocka
$crystal = 1000000 'częstotliwość klocka
'!!!!! Konfiguracja LCD !!!!!!
Config Lcd = 16 * 2 'typ wywświetlacza LCD
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5
'!!!!! Konfiguracja I2C !!!!!!
Config Sda = Portb.0 'przylisanie pinu Portb.0 lini SDA
Config Scl = Portb.1 'przylisanie pinu Portb.1 lini SCL
I2cinit 'ustawia koncówki lini SDS i SCL w odpowiedni stan początkowy
Config Pinb.3 = Input 'przypisanie 3-go pinu portu b jako wejscie
S1 Alias Portb.3 'przypisanie nazwy S1 do pinu 3-go portu b
Set Portb.3 'uwtawienie stanu wysokiego na wejsciu
'deklaracja procedur
Declare Sub Zapis
Declare Sub Odczytajdate
Declare Sub Wysw
'!!!!! Zmienne dla zegara RTC !!!!!!
Dim Sekunda As Byte
Dim Minuta As Byte
Dim Godzina As Byte
' !!!!! Pętla główna programu !!!!!!
Do
Debounce S1 , 0 , Zapis , Sub 'Elimnuje drgania styków przełącznika dolączonego bezpośrednio do lini portu
Call Odczytajdate 'Wywołanie proczedury odczytania godziny
Call Wysw 'Wywołanie procedury wyświetlenia godziny
Loop
'----------------------------------------------------------------------------
' Zapis wartości początkowych do PCF8583
Zapis:
Godzina = 20
Minuta = 35
Sekunda = 0
' zanmienienie na postać BCD
Sekunda = Makebcd(sekunda) 'zamienia format zmiennej "Sekunda" z dziesiętnego na binarny
Minuta = Makebcd(minuta)
Godzina = Makebcd(godzina)
' Adres zapisu to 162, a odczytu to 163 gdyż końcówka A0 jest podłączona do Vdd
I2cstart 'warunek startu
I2cwbyte 162 'zaadresowanie RTC
I2cwbyte 0 'wybieram rejestr sterujący/stanu i zapisuję do niego wartość zero czyli inicjuję go
I2cstop
I2cstart 'warunek startu
I2cwbyte 162 'zaadresowanie RTC
I2cwbyte 2 'ustawienie dresu zapisu
I2cwbyte Sekunda 'zapisanie zmiennej Sekunda
I2cwbyte Minuta 'zapisanie zmiennej Minuta
I2cwbyte Godzina 'zapisanie zmiennej Godzina
I2cstop
Set S1
Return
' Procedura odczytująca godzinę z PCF8583
Sub Odczytajdate
I2cstart 'warunek startu
I2cwbyte 162 'zaadresowanie RTC
I2cwbyte 2 'wysłanie adresu komórki EEPROM
I2cstart 'powtórzenie warunku startu
I2cwbyte 163 'adresujemy układ z EEPROM do odczytu
I2crbyte Sekunda , Ack 'odczytanie komówrki pomięci i przypisanie jej do zmiennej "Sekunda"
I2crbyte Minuta , Ack 'Ack = czytaj kolejny bajt
I2crbyte Godzina , Nack 'Nack = ostatni odczytany bajt
I2cstop 'warunek stopu
Waitms 950
End Sub
'-----------------
' Procedura wyświetlania godziny na LCD
Sub Wysw
Cls 'czyszczenie wyświetlacza LCD
Cursor Off 'wyłączenie kursora
Locate 1 , 5 'adres zapisu na LCD
Lcd Bcd(godzina) ; ":" ; Bcd(minuta) ; ":" ; Bcd(sekunda) 'zapis na LCD
End Sub
End
$regfile = "m8def.dat"
$lib "Lcd_i2c.lib"
$crystal = 1000000
Config Scl = Portb.0
Config Sda = Portb.1
I2cinit
Const Pcf8574_lcd = 66
Dim _lcd_e As Byte
_lcd_e = 128
Waitms 200
Config Lcd = 16 * 2
Do
Cls
Locate 1 , 5
Lcd "halo"
Wait 2
Lowerline
Lcd "- \ | / _"
Wait 5
Loop
End
