Kod w Bascom dla PCF8583 i AVR 90S2313 - impuls co 60 sekund na portach A1 i A2

Question

Witajcie może koś pomoże w napisaniu kodu
w bascomie na pcfa 8583 i procek avr 90s2313
układ ma generować impusly co 60 sekund
raz na jednym porcie (po 60m sekundach) np a1 po następnych 60 sekundach na drugim porcie np a2
i tak w koło
po 60 sekundach impuls jeden port a1( 2 sekundy impuls) następne po 60 sekundach impuls drugi port a2 (2 sekundyimpuls)
i tak w koło
pozdrawiam

Press · Answer

Wszystko fajnie, tylko po co do tego ten PCF?

Granat :) · Answer

witam

pcf8583 jest rzeczywiście nie potrzebny
nie wiem w jakim języku ma być kod, ale podsyłam coś w bascomie, może się przyda

$regfile = "2313def.dat"
$crystal = 4000000 'będzie dobrze liczył z kwarcem 4MHz
Set Ddrb.0 'impulsy będą dostępne na nóżkach portb.0
Set Ddrb.1 '... i portb.1
Config Timer0 = Timer , Prescale = 256
Timer0 = 131
On Timer0 Tim
Enable Interrupts
Enable Timer0
Start Timer0

Dim A As Byte
Dim Sekundy As Byte
Dim Pin As Bit

Do

If Sekundy < 2 Then
If Pin = 1 Then
Set Portb.0
Else
Set Portb.1
End If
Else
Reset Portb.0
Reset Portb.1
End If

Loop
End

Tim:
Timer0 = 131
Incr A
If A = 125 Then
A = 0
Incr Sekundy
End If
If Sekundy = 60 Then
Sekundy = 0
Pin = Not Pin
End If
Return

zibi11 · Answer

chodzi o dokładnośc na licznikach robiłem i chodzą róznie a ja chce zroić zegar dokładny a nie bylejaki z tolerancją na dzień 5 minut

Granat :) · Answer

ja robiłem wiele razy zegar na licznikach systemowych i jakoś nigdy nie miałem błędu 5 minut nawet na tydzień, co najwyżej pare sekund jeśli dobrze dobierzesz kwarc, prescaler i liczbę którą ładujesz do timera to będzie ok możesz dodatkowo podłączyć trymer do kwarcu i ustalić nim najlepszą prędkość taktowania a jak nadal upierasz się przy PCF8583 to proszę: Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka$regfile = 2313def.dat $crystal = 4000000                                          'dla 4MHz Set Ddrb.0                                                  'impulsy będą dostępne na nóżkach portb.0 Set Ddrb.1                                                  '... i portb.1 Config Scl = Portd.0 Config Sda = Portd.1 I2cinit On Int0 Pcf8583 Enable Interrupts Enable Int0 Dim Sekundy As Byte Dim Pin As Bit Do If Sekundy

zumek · Answer

W takim przypadku , ustawiamy wyzwalanie zewnętrznego przerwania na jedno ze zboczy (opadające lub narastające) , a układem RC drapiemy sie po głowie Piotrek

Granat :) · Answer

tak set ISC01 , procesor będzie reagował na zbocze opadające ale w 2051 trzeba rc zastosować...

zumek · Answer

Hmmmm .... nie ustąpię Do czego służą bity IT0 i IT1 , w rejestrze TCON Piotrek

Granat :) · Answer

czemu w nocie katalogowej atmela nic o tym rejestrze nie pisze (TCON)

avr'y są lepiej opisane
dokładnie nie wdawałem się w analizę rejestrów 2051 ale wydawało mi się, że nie ma on możliwości zaprogramowania na jakie zbocze ma reagować przerwanie

zumek · Answer

Bo 89cx051 , jest młodszym i mniejszym bratem 80(31)51 , więc w notach tych proców szukaj dokładnych opisów.W notach 89c1/2/4051 , opisano tylko różnice dzielące te proce od protoplasty I to było powodem tego , że niepotrzebnie wykosztowałeś się na RC Piotrek

Granat :) · Answer

ahaaa ale przynajmniej może ten układ się jeszcze przyda do innych rzeczy

zibi11 · Answer

podłączyć trymer do kwarcu
przey kwarcu są dwa kondensatorki
trymer zamiast jednego z nich???
i oczywiście do masy mówimy o atmedze i o liczniku nie pcfie
jaki jest wpływ tych kondensatorków na licznik???

Granat :) · Answer

jeden kondensator mniejszy i równolegle z nim trymer a drugi pozostaje bez zmian
zmiana położenia trymera spowosuje lekką zmianę częstotliwości kwarcu i taktowania procesora. licznik w procesorze będzie pobierał impulsy właśnie z oscylatora kwarcowego
mówimy o atmega...
a może liczniki liczyły Ci źle bo korzystasz z wewnętrznego oscylatora RC, który nienadaje się do dokładnego odmierzania czasu i nie przestawiłeś fusebitów tak, żeby procesor działał na zewnętrznym kwarcu (w atmega nie wystarczy tylko podłączyć kwarc)?

Zwrotnice głośnikowe na zamówienie -- >> Link << --

Promuję tematy:
08.04.2023 Mały, niedrogi subwoofer aktywny
31.01.2023 Głośnik akumulatorowy 100W
07.01.2021 Trój-drożny Granat-Audio 3D-XT
09.08.2020 Domowe audio Granata - Procesor DSP
09.08.2020 Domowe audio Granata - Subwoofer narożny 10"

zibi11 · Answer

dlaczego to nie działa a się nie zmienia???

$regfile = "m8515.dat"

$crystal = 8000000

Config Pinb.0 = Output
Config Pinb.4 = Output

Config Sda = Portb.2 'konfiguracja sprzętowa I2C
Config Scl = Portb.3 'konfiguracja sprzętowa I2C

Dim Value1 As Byte
Dim Valuehex As String * 2
'deklaracja zmiennej określającej minuty
Dim S As Byte 'deklaracja zmiennej określającej sekundy
'Dim M As Byte 'deklaracja zmiennej określającej godziny
Dim A As Byte
Dim B As Byte
Config Lcd = 24 * 2 'configure lcd screen

Declare Sub Read_time()

A = 0

Do

Call Read_time
Home
Lcd "Czas: " ; S ; " " ; A '; M
Waitms 255
Cls

If A = 1 Then
Portb.0 = 0
Wait 2
End If

If A = 2 Then
Portb.4 = 0
Wait 2
A = 0
End If

Loop
End

Sub Read_time()
I2cstart
I2cwbyte 160
I2cwbyte 2
I2cstart
I2cwbyte 161
I2crbyte S , Nack
'I2crbyte M , Nack
I2cstop
Waitms 5
S = Makedec(s)
'M = Makedec(m)

If S = 60 Then
Incr A
End If

End Sub

Granat :) · Answer

config scl = portb.3
config sda = portb.2
i2cinit
...
...
...
i2cstart
i2cwbyte 160 '162
i2cwbyte 2
i2cstart
i2cwbyte 161 '163
i2crbyte S , nack
i2cstop
'------------- opcja pierwsza
s = makedec(s)
cls
lcd s 'wyświetlą się sekundy
'------------- opcja druga
cls
lcd bcd(s) 'również poprawie wyświetlą się sekundy

takie coś napewno działa
nie zapominij, że linie scl i sda trzeba podciągnąć zewnętrznymi rezystorami do plusa (pullup).

zibi11 · Answer

ale incr A nie działa po 60 sekundach cały czas jest 0 ??? a ma być po 60 1 120 2 ????? a jest 0

Granat :) · Answer

incr nie działa bo nie spełniony jest warunek S = 60. pewnie dlatego, że czytasz co dwie sekundy zamiast częściej np. 750ms, układ robi odczyt i odczyta akurat 59s a potem odrazu odczyta 1

zibi11 · Answer

nie czyta co 2 sekundy tylko jak spełni a=1 i a=2 to tak czeka 2s ale zaraz wraca

Granat :) · Answer

a racja, nie zauważyłem sprawdź najpierw czy w ogóle komunikacja i2c działa i czy pcf8583 coś wysyła...

zibi11 · Answer

dziala widzi go pod adresami 160 i 161 liczy na lcd widać 0-60 a A jest 0

Kod w Bascom dla PCF8583 i AVR 90S2313 - impuls co 60 sekund na portach A1 i A2

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Post #10

Post #11

Post #12

Post #13

Post #14

Post #15

Post #16

Post #17

Post #18

Post #19

Post #20

Podsumowanie tematu