Mirley - Elektronika i Programowanie

Niestety ale dalej rośnie. Dużo wolniej niż przedtem. Ale z 21,5 st. na starcie (to prawidłowa temperatura) zrobiło się 25,5 st. po 10 min. Czyli dalej się grzeje.

U mnie nie występowały takie problemy i normalnie pokazywał temperaturę otoczenia. Sprawdź czy DS nie jest na pewno uszkodzony lub nie ma jakiegoś zwarcia.

Sprawdziłem na dwóch różnych układach i z trzema różnymi dsami. Dokładnie ten sam efekt. Teraz obydwa termometry pokazuja mi 26 st. w domu! Do tego dla pewności podłączyłem te same dsy do sterownika domowego i pokazują prawidłową temperaturę, więc dsy są dobre na 100 procent.

Spróbuj na końcu procedury odczytu Ds. Napisac jeszcze raz rozkaz resetu

...
   T = T / 16
   1wreset Pind , Kanal
   1wwrite &HCC , 1 , Pind , Kanal
   1wwrite &H44 , 1 , Pind , Kanal
   1wreset Pind , Kanal          'dopisać
  End If

A częstotliwość taktowania dobrze ustawiona?

Dopisanie procedury resetu powoduje ciągłe wyświetlanie 85stC. Czestotliwość i inne fusy ustawione zgodnie z opisem. Podaje link do filmiku pokazującego jak temperatura rośnie sukcesywnie po włączeniu termometru http://jajen.dyndns.org/daniel/ds.avi

Zwracam też uwagę, że m.in. wpis #18 w projekcie termometru uniwersalnego opisuje identyczny problem. Raczej mało prawdopodobne żeby popełnić ten sam błąd albo użyć tak samo wadliwych komponentów. Ale skoro innym działa poprawnie to co może przyczyną? Zwłaszcza , że u mnie dwa termometry zachowują się identycznie.

Witam

Co sądzisz żeby ten termometr zasilać z baterii?? 3,7V lit-jon, 200mA do tego włącznik.Tylko czy Attiny2313 ruszy przy takim napięciu?.

Pozdrawiam
J.I.

Jest taktowane 8Mhz z wewnętrznego oscylatora więc powinno działać.... przy większych częstotliwościach są problemy

Witam
Mam problem z wyświetlaniem temperatury. Układ zbudowany w oparciu o Twój projekt. Problem polega na tym że nie zapala się górny segment na wyświetlaczu (chyba to jest "A") poza tym wszystko działa temperatura jest mierzona i wysyłana na wyświetlacz tylko ten segment się nie zapala ?? wyświetlacz sprawny, połączenia sprawdzone niestety problem nie zniknął!! Proszę o sugestię jak to można rozwiązać ??

I jeszcze jedno zapytanie. Dołączył bym się do prośby o dodanie do tego termostatu. Czytałem że za mało miejsca w mikrokontrolerze, ale nie dało by się jakoś zoptymalizować tego kodu ?? Jak dużo brakuje miejsca w procesorku ??

Projekt bardzo fajny.

Dzięki
Pozdrawiam J.I.

Może rezystor masz niedolutowany od segmentu A albo po prostu nie przewodzi. Jak układ działa to musi cały wyświetlacz dobrze świecić.

Wersja z termostatem dostępna jest przecież w załącznikach

Problem z rośnieciem temperatury rozwiazany ale nie rozumiem dlaczego tak się działo. Wzrost odczytu dotyczył zawsze przypadku bezposredniego wlutowania czujnika do plytki. Przy polaczeniu czujnika kablem problem nie wystepuje. Myslalem, ze moze , ktorys element sie grzeje na plytce i DS reagowal, ale zasilanie mialem odległe od płytki a attiny przeciez sie nie grzeje, inne elementy tez nie. Wiec nie wiem o co chodzilo, ale te same czujniki wlutowane na kablu 0,5m-3m chodzą dokładnie i stabilnie. Wiec sam program jest oczywiscie ok.

Witam mam problem odnośnie ustawienia Fus bitów , korzystam z avr studio i nie mogę poradzić sobie z ustawieniami .Wgrywam soft i wyświetlacze migają kwarc wew.8Mhz. Zablokowałem 2 procki. Co tu przestawić by śmigało poprawnie. Pozdrawiam

A nie wystarczy ci opis wyżej.... pewnie nawet nie czytałeś. Wystarczy odznaczyć CKDIV (ustawić na 1)

Witam i chylę głowe.
Czy można tak zmodyfikować program żeby przełączał automatycznie wskazania z jednego czujnika na drugi powiedzmy co 5s?

Da się tak zrobić. W obsłudze flgi 1s tam gdzie pomiar temperatury wystarczy zrobić dodatkowy podzielnik i zmienic kanał. Np tak:

incr auto_sw
if auto_sw = 5 then
  auto_sw = 0
  toggle Kanal
end if

auto_sw jest zmienną typu byte, trzeba zadeklarować na początku

Wielkie dzięki. Wszystko śmiga. Pozdrowienia i oby więcej tak udanych projektów.

Mozna prosić o wklejanie modyfikacji kodu razem z fragmentem kodu przed i po modyfikacji? Latwiej wtedy zorientowac sie gdzie nalezy dokonac zmian osobom , ktore nie mają do czynienia z programowaniem. Poza tym co oznacza ze auto_sw trzeba zadeklarować na początku? Dziekuję.

Przyłączam się do prośby poprzednika o dokładniejsze podanie jak zmodyfikować kod żeby następowała automatyczna zmiana wskazań in/out. Tzn o podanie dokładnie w które miejsce wkleić zmianę oraz co i jak zadeklarowac na początku. Dziękuję bardzo.

Napisałem gdzie trzeba wkleić tylko jakby komuś się chciało przeczytać opis to by wiedział jak ma to zrobić....

procedura obsługi pomiaru temperatury ma wyglądać tak

Temp:
 If F1s = 1 Then
   Reset F1s
   incr auto_sw
   if auto_sw = 5 then
     auto_sw = 0
     toggle Kanal
   end if
   1wreset Pind , Kanal
   1wwrite &HCC , 1 , Pind , Kanal
   1wwrite &HBE , 1 , Pind , Kanal
   T = 1wread(2 , Pind , Kanal):
   Minus = T.15
   T = Abs(t)
   T = T * 10
   T = T / 16
   1wreset Pind , Kanal
   1wwrite &HCC , 1 , Pind , Kanal
   1wwrite &H44 , 1 , Pind , Kanal
  End If
Return  

Zmienną deklarujemy na początku to jest tam gdzie pozostałe polecenia Dim, wpisując

Dim auto_sw as byte

w nowej linijce pod innymi deklaracjami

Całych kodów nie wklejam bo nie ma to żadnego sensu i wcale nie ułatwia wyszukiwania

Dzieki. Mnie nie działa do konca. Przelącza się ale jeden odczyt jest zawsze 00, tak jakby nie było czujnika. Co robie zle?

A jak nie ma przełaczania automatycznego tylko ręczne to dwa kanały mierzą temperaturę poprawnie?

Przy zmodyfikowanym kodzie, mimo ze automatycznie działa jeden czujnik, to przy recznej zmianie jest ok. Oczywiście na standardowym kodzie również wszystko działa ok.

Dodam, ze mam wlutowane diody identyfikujące czujniki. Przy zmodyfikowanym kodzie swiecą obdwie na raz. Niestety nie mam możliwośći ich wylutowania bo urządzenie jest w zaklejonej obudowie i wystaje tylko ISP. Ale nie sądze, zeby to diody mogły powodowac problem z automatycznym przełączaniem.

Dobra już wiem co sie stało...... dopisz jeden szczegół i powinno zadziałać:

Zamiast

  toggle Kanal

  toggle Kanal.0

if Kanal = 0 then kanal = 1 else kanal = 0

Zadziałała pierwsza konstrukcja. Dzięki. A czy da się jeszcze tak, żeby diody identyfikujace czujnik działały przy wersji z automatycznym przelaczaniem?

Trochę nie pamiętam tego z diodami identyfikującymi czujnik... może napisz co zostało już ustalone w tej sprawie

modyfikacja z diodami pogala na:

#Config Porta = &B00000010 : Porta = &B11111111

#If Kanal = 0 then porta.1 = 0 else porta.1 = 1

Na porcie PA1 dwie diody.

Ładnie działały przy ręcznym przełączaniu. Ale auto już nie chodzi (swiecą zawsze dwie)

Szanowny kolego.
Od 5 (pięciu) lat wałkuję obsługę wyświetlacza 7segm i DS18B20. Wydaje mi się że wykorzystałem już wszystkie kombinacje odcytu temperatury i nie mogę sobie poradzić z jednym aspektem:
Wszyscy wiemy, że obsługa DS18B20 (wysyłanie słów i odbieranie) wstrzymuje przerwania które wykorzystywane są do obsługi wyświetlacza, czego efektem jest niezwykle denerwujące zatrzymywanie wyświetlania na ułamek sekundy jednego z wyświetlaczy.
Widzę również że kolega obsługę DS'a włożył w tzw "dodatkowy wyświetlacz". Ja w swojej bezsilności próbowałem i tego rozwiązania a także rozbiłem obsługę na pojedyncze słowa co każdy cykl przemiatania jednak bezskutecznie.
Chciałbym tylko zapytać, czy przedstawiony układ jest całkowicie pozbawiony tej przypadłości?
Czy istnieje inny sposób na zapobiegnięcie tego typu objawom, jak wykorzystanie "dodatkowego wyświetlacza" co wydaje mi się nie jest do końca profesjonalnym rozwiązaniem ?

Bardzo proszę o odpowiedź

J.J.

Coś musiałeś jeszcze pozmieniać w programie bo jak zauwazyłeś dido świeci w zleżności od zmiennej kanał, która jest zmieniana w taki sam sposób zarówno w trybie auto jak i manual. może konfiguracja na początku programu została ci w starej wersji i Pa.1 nie jest wyjściem.

---------
Co do wyświetlania i DS'a to mój program nie posiada tej wady.... nie za bardzo da się przeskoczyć ten problem bo do ds'a potrzebny jest określony czas aby go obsłużyć. Więc trzeba dzielić na małe kawałki słowa wysyłane do ds'a albo kombinować różnie z wyświetlaniem. Sam spędziłem na tym z pół dnia zanim przestało migać.

Masz rację, żle to opisałem. Obecnie diody swiecą razem , bo w ogóle modyfikacja dla diod nie została wprowadzona. Natomiast w przypadku modyfikacji takiej, jak podałem wyżej, dioda świeci ale ta , którą włączymy ręcznie. Czyli włącze recznie DS1 - swieci zielona, przelaczy sie automat na DS2, swieci dalej zielona, Przelacze recznie na DS2 - swieci czerwona, przelaczy sie automat na DS1, swieci dalej czerwona. Czyli swieci zawsze dida dla recznie ustawionego DS,a

To jest fizycznie niemozliwe.... popatrz:

Automat zmienia kanał:

  if Kanal = 0 then kanal = 1 else kanal = 0

ręcznie zmieniasz:

  If Pind.2 = 0 Then Kanal = 1
  If Pina.0 = 0 Then Kanal = 0

a dioda zależy od zmiennej Kanal:

If Kanal = 0 then porta.1 = 0 else porta.1 = 1

w którym miejscu masz umieszczoną powyższą linijke dla diod?

Kurcze, Mirley przepraszam za kłopot ale wklepałem wszystko od nowa wg tego co mówiłeś, załadowałem i działa pięknie. Raz jeszcze dziękuję i przepraszam za zamieszanie.

Witam czy jest możliwość przerobienia tego układu na woltomierz??

Nie ma takiej opcji... tiny2313 nie ma przetworników

Zrobiłem ten układ i mam takie pytanko. Chciałem, aby sygnalizował temperautry ujemne czyli, poniżej 0 stopni zapali się dioda. Do tego celu chciałem wykorzystać PortD.3

If T >= 0 Then
       Portd.3 = 0
     If T < 0 Then
      Portd.3 = 1
    End If : End If

Działa to ale tylko dla 0 stopni, poniżej zera dioda znowu gaśnie. Domyśliłem się że to winna zmiennej word, dlatego zmieniłem na zmienną (która przechowuje dane ze znakiem ujemnym) typu Single. Ale też nie zdaje egzaminu. Czy masz może pomysł jak to zrobić żeby poniżej zera zapalała się dioda?

Dobra sorry za pytanie, już ogarnąłem, że w wersji termometru task właśnie zrobiłeś. A co właściwie znaczy:
Minus = T.15
T = Abs(t)
[/code]
Rozumiem, że 16 bit zmiennej T, który jest zerem dla wartości dodatniej, a jeden dla wartości ujemnej pomiaru?

Jaki inny wyświetlacz mogę zastosować który jest w ofercie TME(sorry za reklamę)?

Piszesz tu o połączeniu na 3 przewody. Czy można połączyć go na 2? Pytam bo potrzebuję czujnik umieścić na przewodzie 40-50m

Z Ds odczytywana jest temperatura do zmiennej integer T. Naturalnie wartosci ujemne zapisywane są w kodzie U2, czyli najstarszy bit jest 0 jak jest + a 1 jak jest -. Wystarczy odczytać MSB i to właśnie robię Minus=T.15 (zmienna jest 16 bit). Polecenie T = ABS(T) robi wartość bezwzględną temperatury żebym wyświetlał cyfry potem

Można dac dowolny wyświetlacz ale musisz sobie odpowiednio podłaczenia zrobić żeby były zgodne z tym co procek wystawia. Jak masz tak długi kabel to szczególnie polecam 3 przewody, żeby pewniej działało

a jaki ten kabel będzie lepszy bo jedni piszą że może być zwykły telefoniczny i a inni że skrętka komputerowa klasy 5e.
Chodzi o transmisje na ok. 50m

Mirley, mam takie nie typowe pytanko. Powiedz co studiujesz, jaki kierunek i specjalizacja?

Napewno dał bym lepszy kabel. Myślę że dowolna skrętka sieciowa będzie dobra. Sygnał i masę puść jedną parą a zasilanie i masę jeszcze raz możesz puścić drugą parą. Można tez poszukać czy nie ma kabla 3 żyłowego skrętki.

---------

Studiowałem Fizykę Jądrową na AGH, kształcąc się w kierunku Elektroniki Jądrowej (elektronika odczytu i transmisja danych z detektorów cząstek itp). Obecnie jestem na doktoracie i zajmuje się projektowaniem układów scalonych dla celów transmisji danych z detektorów

Bardzo ciekawe. Bo niedługo będę wybierał kierunek studiów, a właśnie mnie bardzo interesują twoje projekty i chciałbym dalej poszerzać swoją wiedzę w stronę elektroniki. Zastanawiam się nad automatyką i robotyką bądź także nad elektroniką i telekomunikacją.
Interesuje mnie elektronika (mikro, programowanie, ukłądy scalone itd.) ale także ciekawe są sterowniki PLC, sterowania, programowanie itp.

Witam mam takie nietypowe pytanie: Czy mógłbyś mi pomóc zmodyfikować program tak aby działał z układem który zmontowałem. Znalazłem fajny bardzo stary wyświetlacz w fajnej obudowie. jest w nim znak + i - oraz dodatkowa jedynka. Chodziło by mi o to by dodać do multipleksowania ten dodatkowy wyświetlacz .
1. Gdy temperatura jest dodatnia chciałbym by świecił się + natomiast jak jest ujemna -
2. Gdy temperatura wzrośnie do 100 stopni i wyżej by zapalił się segment jedynki.
3 . Układ miałby mieć tylko 1 czujnik temperatury
4. Gdyby się jeszcze dało to na końcówce PA1 lub PA2 następowała by zmiana stanu po przekroczeniu 90 stopni.
W tej chwili układ działa na delikatnie zmienionym wsadzie twojego autorstwa .
Niestety dopiero rozpoczynam i jest to mój pierwszy układ z mikroprocesorem więc proszę o wyrozumiałość. jeśli chodzi o Tabele do wyświetlania na wyświetlaczu to sobie ją przeliczyłem podług mojego wyświetlacza.
Schemat rysowany na kolanie http://obrazki.elektroda.pl/6243742600_1328573727.jpg

jak jest zbudowany dokładnie ten dodatkowy wyświetlacz? Ma wspólną anodę i jakie katody? co zaświecają? Żeby multipleksowanie miało sens trzeba dołączyc te katody dodatkowego wyświetlacza do którychś pinów a-g istniejących wyswietlaczy

Cały wyświetlacz składa się z 4 pojedynczych wyświetlaczy z czego trzy są to typowe wyświetlacze 7 segmentowe oraz DP z tym że kropka jest przed znakiem. Wyglądają dokładnie tak jak na schemacie którego część wyciąłem z oryginalnej jego dokumentacji. Natomiast czwarty ma zamiast całego znaku "8" segmenty "b" oraz "c" połączone z "bc" pozostałych segmentów oraz znak pionowa kreska oraz pozioma kreska wyprowadzone oddzielnie.
Znaki te czyli " 1 +-" mają wspólną anodę. całość jest zmontowana na dwustronnej płytce drukowanej. Jeśli ułatwiło by to program to mogę odłączyć te segmenty BC tego dodatkowego wyświetlacza i połączyć tak jak na tym schemacie dolnym: http://obrazki.elektroda.pl/6788920900_1328717262.jpg czerwone linie.
cały kod wygląda tak:

          '****************************
           'Konfiguracja
'****************************
$regfile = "attiny2313.dat"
$crystal = 8000000
 
Config Portb = &B11111111 : Portb = &B11111111
Config Portd = &B11111111 : Portd = &B11111111
Config Porta = &B00000000 : Porta = &B11111111
 
Config Timer0 = Timer , Prescale = 256
Enable Timer0 : On Timer0 Przerwanie0
 
 
Enable Interrupts
'****************************
      'Zmienne
'****************************
Dim Dziel(2) As Byte
Dim Wysw As Word , Ww As Byte , W(3) As Byte
Dim Wysw_pomoc As Word
Dim T As Integer
Dim Mux As Byte , I As Byte
 
Dim F1s As Bit , F4ms As Bit , F100ms As Bit
Dim Minus As Bit
Dim Kanal As Byte
'****************************
      'Wartosci Poczatkowe
'****************************
Kanal = 0
'****************************
      'Petla glowna
'****************************
Do
 
If F4ms = 1 Then
  Reset F4ms                                                'co 4ms
  Wysw = T
  Gosub Wyswietl_zmierz
End If
 
If F100ms = 1 Then
  Reset F100ms                                              'co 100ms
  If Pind.3 = 0 Then Kanal = 0
 
End If
 
 
Loop
End
'****************************
      'Przerwanie timer0
'****************************
Przerwanie0:
Timer0 = 131
   Set F4ms
   Incr Dziel(1)
   If Dziel(1) = 25 Then
     Dziel(1) = 0
     Set F100ms
     Incr Dziel(2)
     If Dziel(2) = 10 Then
       Dziel(2) = 0
       Set F1s
     End If
   End If
Return
'****************************
      'pomiar temp
'****************************
Temp:
 If F1s = 1 Then
   Reset F1s
   1wreset Pind , Kanal
   1wwrite &HCC , 1 , Pind , Kanal
   1wwrite &HBE , 1 , Pind , Kanal
   T = 1wread(2 , Pind , Kanal):
   Minus = T.15
   T = Abs(t)
   T = T * 10
   T = T / 16
   1wreset Pind , Kanal
   1wwrite &HCC , 1 , Pind , Kanal
   1wwrite &H44 , 1 , Pind , Kanal
  End If
Return
 
 
 
'****************************
      'wyswietlanie i wywolywanie pomiaru
'****************************
Wyswietl_zmierz:
  Incr Mux
  If Mux = 5 Then Mux = 0
 
  Portd.2 = Not Minus
 
  For I = 1 To 3
    Wysw_pomoc = Wysw Mod 10
    Ww = Wysw_pomoc
    W(i) = Lookup(ww , Tabela)
    Wysw = Wysw / 10
  Next I
  If W(3) = 40 Then W(3) = 255                              'wygaszenie zera wiodącego
 
  Select Case Mux
    Case 0:
      Portb = W(3)                                          ' And &B11111110
      Reset Portd.5
 
    Case 1:
     Set Portd.5
     Portb = W(2)                                           ' And &B11111110
     Reset Portd.4
 
    Case 2:
     Set Portd.4
     Portb = W(1) And &B11111110
     Reset Portd.6
 
    Case 3:
     Set Portd.6
     Portb = 255
     Gosub Temp
 
    'Case 4:                                                 'opoznienie na odczyt temp, jeśli nie ma to miga wyswietlacz
 
  End Select
 
Return
 
'*******************************************************************************
                           'Tabele do wyswietlania na wyswietlaczu
'*******************************************************************************
Tabela:
    Data 65 , 231 , 137 , 131 , 39 , 19 , 17 , 199 , 1 , 3
'znak:    0     1     2     3     4     5     6     7     8     9

segmenty b i c od tej 1 napewno podłącz razem z wszystkimi pozostałymi b i c, po co kombinować. Tak samo zastanawiam się czy np tej kreski poziomej i pionowej nie dołączyć do segmentów np d i e. W programie trzeba zwiększyć zakres Mux o 1:

 Incr Mux
  If Mux = 6 Then Mux = 0

oraz dopisać nowego case:

  For I = 1 To 4
    Wysw_pomoc = Wysw Mod 10
    Ww = Wysw_pomoc
    W(i) = Lookup(ww , Tabela)
    Wysw = Wysw / 10
  Next I
 
  If W(4) = 65 Then 
    W(4) = 255 
    If W(3) = 65 Then W(3) = 255                              'wygaszenie zera wiodącego
  end if
 
  Select Case Mux
    Case 0:
      Portb = W(3)                                          ' And &B11111110
      Reset Portd.5
 
    Case 1:
     Set Portd.5
     Portb = W(2)                                           ' And &B11111110
     Reset Portd.4
 
    Case 2:
     Set Portd.4
     Portb = W(1) And &B11111110
     Reset Portd.6
 
    Case 3:
     Set Portd.6
     Portb = W(4) 
     reset portd.1  'kreska pozioma
     if Minus =  0 then reset portd.2 'kreska pionowa
     Reset Portd.3
 
    Case 4:
     Set Portd.3
     Portb = 255
     Gosub Temp
 
    'Case 5:  'pusty

Udało mi się uruchomić dodatkowy wyświetlacz. Musiałem tylko usunąć end if z tego miejsca.

If W(4) = 65 Then 
    W(4) = 255 
    If W(3) = 65 Then W(3) = 255                              'wygaszenie zera wiodącego
  end if

Nie sprawdziłem tylko czy zapala się ta dodatkowa jedynka do setnych temperatur bo czujnik już mam zamontowany a drugiego jeszcze nie kupiłem. Mam pytanko czy jak będzie temperatura 0,0 to będzie się palił+- czy po prostu w tym momencie będą ciemne?
Jak zrealizować alarm przy przekroczeniu 90 stopni?

Nie możesz wywalić tego end if... ona tam ma być. Jak cos to wywal całe

If W(4) = 65 Then 
    W(4) = 255 
    If W(3) = 65 Then W(3) = 255                              'wygaszenie zera wiodącego
  end if

to jest obsługa wygaszenia 0 przed wskazaniem. nie świeci 01.0 stopnia tylko 1.0

Dla zera będzie się świecił +

Alarm jest prosty:

If F100ms = 1 Then
  Reset F100ms                                              'co 100ms
  If Pind.2 = 0 Then Kanal = 1
  If Pina.0 = 0 Then Kanal = 0
 
  'tu dopisz alarm
  if T >=900 then 
    'ustaw jakiś port lub inna akcja dla alarmu
  end if
 
End If

Mirley mam problem. Po wgraniu programu (termometr) na wyświetlaczach miga napis 0.0. Zamiast attiny2313 20su dałem 20pu na kabelkach (obudowa dip). To może być problemem? Próbowałem już na 2 prockach i bez żadnych zmian.

A ustawiłeś fusebity?