ATNEL tech-forum 2014-05-01T07:14:34+01:00 https://forum.atnel.pl/feed.php?f=12&t=6759&mode 2014-05-01T07:14:34+01:00 2014-05-01T07:14:34+01:00 https://forum.atnel.pl/viewtopic.php?t=6759&p=79752#p79752 <![CDATA[Re: Problem z termometrem (attiny2313 i ds18b20)]]>
iframe

Statystyki: Napisane przez matrix — 1 maja 2014, o 07:14

]]> 2014-04-30T01:07:18+01:00 2014-04-30T01:07:18+01:00 https://forum.atnel.pl/viewtopic.php?t=6759&p=79677#p79677 <![CDATA[Re: Problem z termometrem (attiny2313 i ds18b20)]]> później napisz jakąś prostą jedną linijkę żeby wyświetliła się na wyświetlaczu żeby sprawdził czy połączenie jest prawidłowe jeśli dioda będzie migać co sekundę znaczy że fusy masz dobrze ustawione zacznij od tego i napisz czy dioda miga co sekundę

Statystyki: Napisane przez kulamario — 30 kwi 2014, o 01:07

]]> 2014-04-14T19:29:27+01:00 2014-04-14T19:29:27+01:00 https://forum.atnel.pl/viewtopic.php?t=6759&p=78049#p78049 <![CDATA[Re: Problem z termometrem (attiny2313 i ds18b20)]]> LOW E4 HIGH DF LOCK BYTE 3F




Po czasie, dla potomnych ;)

Statystyki: Napisane przez janeczqu — 14 kwi 2014, o 19:29

]]> 2014-04-14T19:47:06+01:00 2014-04-14T19:16:10+01:00 https://forum.atnel.pl/viewtopic.php?t=6759&p=78046#p78046 <![CDATA[Re: Problem z termometrem (attiny2313 i ds18b20)]]>
------------------------ [ Dodano po: 11 minutach ]

Problem rozwiązany okazało się że ten dzielnik przez 8 miałem zaznaczony w fusach czego nie powinno być (nie wiedziałem o tym).
Serdeczne dzięki dla Panów z czatu.

Statystyki: Napisane przez Lepsyn — 14 kwi 2014, o 19:16

]]> 2014-04-14T18:58:22+01:00 2014-04-14T18:58:22+01:00 https://forum.atnel.pl/viewtopic.php?t=6759&p=78038#p78038 <![CDATA[Re: Problem z termometrem (attiny2313 i ds18b20)]]> Lepsyn napisał(a):

program wgrywałem na 8 i 4 MHz RC


Co masz na myśli mówiąc wgrywałem na 8 i 4 MHz RC?

Statystyki: Napisane przez KoreX — 14 kwi 2014, o 18:58

]]> 2014-04-14T19:41:43+01:00 2014-04-14T18:55:58+01:00 https://forum.atnel.pl/viewtopic.php?t=6759&p=78037#p78037 <![CDATA[Problem z termometrem (attiny2313 i ds18b20)]]> Układ złożyłem na płytce stykowej i sprawdziłem już wszystkie połączenia bardzo rzetelnie i to kilka razy, program wgrywałem na 8 i 4 MHz RC, zasilacze zmieniałem 4 razy, filtrowanie kompletne. I nie wiem co dalej robić.

Schemat:
Obrazek
Program:
[syntax=basic4gl]'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'Termometr Cyfrowy - Wyświetlacz LED z dekodera CP Echostra DSB-717
'aquer (k.j.cyryl@gmail.com)
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

$regfile = "attiny2313.dat"
$crystal = 8000000

Config Watchdog = 2048
Start Watchdog

Config Portb.0 = Output 'anoda wys4
Config Portb.1 = Output 'anoda wys3
Config Portb.2 = Output 'anoda wys2
Config Portb.3 = Output 'anoda wys1
Reset Portb.0
Reset Portb.1
Reset Portb.2
Reset Portb.3

Config Portd = Output 'segmenty LED - katoda
Set Portd

Config 1wire = Portb.5

Config Timer0 = Timer , Prescale = 256
On Timer0 Wyswietlacz
Enable Interrupts
Enable Timer0
Load Timer0 , 125


Dim Temp(2) As Byte
Dim Ktory_wys As Byte
Dim Temp_przet As Integer
Dim Flaga As Byte
Dim Tymczasowa(5) As Integer

Ktory_wys = 0

Do

Gosub Czekaj_na_przerwanie
1wreset
Gosub Czekaj_na_przerwanie
1wwrite &HCC
Gosub Czekaj_na_przerwanie
1wwrite &H44
Waitms 750
Gosub Czekaj_na_przerwanie
1wreset
Gosub Czekaj_na_przerwanie
1wwrite &HCC
Gosub Czekaj_na_przerwanie
1wwrite &HBE
Gosub Czekaj_na_przerwanie
Temp(1) = 1wread()
Gosub Czekaj_na_przerwanie
Temp(2) = 1wread()
Gosub Czekaj_na_przerwanie
Temp_przet = Makeint(temp(1) , Temp(2))
If Temp_przet > 0 Then
Tymczasowa(4) = Temp_przet * 10
Tymczasowa(4) = Tymczasowa(4) / 16
Tymczasowa(4) = Tymczasowa(4) Mod 10
Tymczasowa(3) = Temp_przet / 16
Tymczasowa(3) = Tymczasowa(3) Mod 10
Tymczasowa(2) = Temp_przet / 16
Tymczasowa(2) = Tymczasowa(2) / 10
Tymczasowa(2) = Tymczasowa(2) Mod 10
Tymczasowa(1) = Temp_przet / 1600
Tymczasowa(1) = Tymczasowa(1) Mod 3 'moze wyswietli 200
If Tymczasowa(1) = 0 Then ' przed spaleniem
Tymczasowa(1) = 127 'setki bez zer
If Tymczasowa(2) = 0 Then
Tymczasowa(2) = 127 'dziesiatki tez
End If ' gdy setki bez zer

End If
Else
Temp_przet = Temp_przet * -1 'dlatego minus nie
Tymczasowa(4) = Temp_przet * 10 ' dzialal (juz ok)
Tymczasowa(4) = Tymczasowa(4) / 16
Tymczasowa(4) = Tymczasowa(4) Mod 10
Tymczasowa(3) = Temp_przet / 16
Tymczasowa(3) = Tymczasowa(3) Mod 10
Tymczasowa(2) = Temp_przet / 16
Tymczasowa(2) = Tymczasowa(2) / 10
Tymczasowa(1) = 63 '63 = minus
If Tymczasowa(2) = 0 Then
Tymczasowa(2) = 63 'minus w prawo
Tymczasowa(1) = 127 '127 = pusta cyfra
End If

End If

Waitms 1000
Loop
End


Wyswietlacz:
Load Timer0 , 125
Reset Portb.0
Reset Portb.1
Reset Portb.2
Reset Portb.3

Select Case Ktory_wys
Case 3: 'po przecinku
Portd = Lookup(tymczasowa(4) , Liczba)
Set Portb.0
Ktory_wys = 0
Case 2: 'jednosci
Portd = Lookup(tymczasowa(3) , Liczba)
Set Portb.1
Ktory_wys = 3
Case 1: 'dziesiatki
If Tymczasowa(2) > 9 Then
Portd = Tymczasowa(2)
Else
Portd = Lookup(tymczasowa(2) , Liczba)
End If
Set Portb.2
Ktory_wys = 2
Case 0: 'znak
If Tymczasowa(1) > 9 Then
Portd = Tymczasowa(1)
Else
Portd = Lookup(tymczasowa(1) , Liczba) 'setki
End If
Set Portb.3
Ktory_wys = 1
End Select

Flaga = 1
Return

Czekaj_na_przerwanie:
Flaga = 0
While Flaga = 0
Reset Watchdog
Wend
Return

Liczba:
Data 64 , 121 , 36 , 48 , 25 , 18 , 2 , 120 , 0 , 16

' znak: 0 1 2 3 4 5 6 7 8 9[/syntax]



Z góry dziękuję za pomoc!!!
Pozdrawiam
Lepsyn

Statystyki: Napisane przez Lepsyn — 14 kwi 2014, o 18:55

]]>