ATNEL tech-forum

Re: Termomert na 5 wyświetlaczach diodowych i DS1820

2013-01-13T09:32:39+01:00

No właśnie według mnie też. Tym bardziej że cała procedura 1wire jest w pętli "case" z multipleksowania jest wysyłany rozkaż co 4ms właśnie w momencie przerywania, to jak ma to działać skoro kiedy występuje przerwanie blokowana jest 1wire ? rozkaz musiał by być wysyłany zanim jeszcze wystąpi przerwanie.

Statystyki: Napisane przez verso — 13 sty 2013, o 09:32

Re: Termomert na 5 wyświetlaczach diodowych i DS1820

2013-01-12T21:27:55+01:00

Witam. Jestem nowy na tym forum, zainteresował mnie ten wątek gdyż od dłuższego czasu zmagam się z problemem pogodzenia multipleksowania i 1wire. Mam taką prośbę czy może mi ktoś wytłumaczyć działanie tych fragmentów kodu podanego przez : jacekk232 bo próbowałem to wykorzystać i za nic nie chce działać i jeszcze trochę to sobie wszystkie włosy wyrwę z głowy bo albo ja czegoś nie rozumiem, ale według mnie to nie będzie działać poprawnie....

We fragmencie multipleksowania jest: [syntax=basic4gl]

Wysw_co_4ms:
Wyslij_rozkaz = 1
'ustawienie flagi spowoduje, że w pętli głównej
'zostanie wysłany kolejny rozkaz do DS-a

'obsługa multipleksowania wyświetlaczy LED
Incr Wysw
If Wysw = 4 Then Wysw = 0
Portb.0 = 0 'gaśimy wyświetlacze
Portb.1 = 0
Portb.2 = 0
Portb.3 = 0
Select Case Wysw
Case 0:
Portd = Lookup(dp , Tabela)
Portb.0 = 1
Case 1:
Portd = Lookup(j , Tabela)
Portb.1 = 1
Case 2:
Portd = Lookup(d , Tabela)
Portb.2 = 1
Case 3:
Portd = Lookup(znak , Tabela)
Portb.3 = 1
End Select
Return

GeSHi[/syntax]

ja to rozumiem w ten sposób że w momencie wystąpienia przerwania (co4ms) zostaje ustawiona flaga wysil rozkaz = 1. I jak to ma działać skoro zostaje ona ustawiona w momencie wystąpienia przerwania, a nie w trakcie kiedy licznik lizy i jeszcze przerwanie nie wystąpiło ?

nie kumam tego...
pomoże ktoś ?

pozdrawiam.

Statystyki: Napisane przez verso — 12 sty 2013, o 21:27

Re: Termomert na 5 wyświetlaczach diodowych i DS1820

2012-08-12T22:58:06+01:00

Dzięki za pomoc Ale jak by nie patrzeć, wątek przekształcił się w dyskusję o wyższości świąt Wielkiej Nocy nad świętami Bożego Narodzenia. Odpowiedzi z pomocą padły 2-3 a reszta postów jest o wyższości jednego języka nad drugim.
A nie o to tu chyba chodzi. Prawda?
Jak jest wydzielony wątek forum o Bascomie to szanujmy to.

Dzięki jacekk232 za konkretny przykład i naprowadzenie i Mirkowi za utwierdzenie.
Temat uważam za wyjaśniony i wyczerpany. Reszta postów jest po prostu nic nie wnosząca, przepychanką o wyższości jednego języka nad drugim.

Nie róbmy z tego zacnego forum drugiej elektrody.

Statystyki: Napisane przez marciu11 — 12 sie 2012, o 22:58

Re: Termomert na 5 wyświetlaczach diodowych i DS1820

2012-08-12T20:37:02+01:00

No widzisz kolego ja też tak traktowałem BAscoma , ale teraz wyparło go Arduino

Statystyki: Napisane przez SunRiver — 12 sie 2012, o 20:37

Re: Termomert na 5 wyświetlaczach diodowych i DS1820

2012-08-10T18:40:15+01:00

Ok ale nie przekształcajmy tego tematu w dyskusję o wyższości języka nad językiem - przecież z tego co widzę ostatecznie nikt tu nie dyskfalifukuje Bascoma bo nie o to chodzi przecież ... Gdyby tak miało być to pewnie by tego działu nie było na forum. Dajmy więc pokój dyskusji o wyższości jednego nad drugim a skupmy się rzeczywiście na poradach dla osób tu zaglądających i wszyscy będą szczęśliwi.....

Statystyki: Napisane przez mirekk36 — 10 sie 2012, o 18:40

Re: Termomert na 5 wyświetlaczach diodowych i DS1820

2012-08-10T18:33:18+01:00

SunRiver napisał(a):

Faktem jest natomiast to że z bascoma jest ciężko przejść na inny język -- bascom skutecznie to utrudnia

Podobnie winda utrudnia wejście na schody, a samochód korzystanie z roweru
Znam parę przypadków, że Bascom został porzucony, bo wbudowane i rozbudowane funkcje do których nie ma dostępu są jednak ograniczeniem w dalszym rozwoju.

Statystyki: Napisane przez Krauser — 10 sie 2012, o 18:33

Re: Termomert na 5 wyświetlaczach diodowych i DS1820

2012-08-10T18:32:29+01:00

Moim ulubionym powiedzieniem jest:

"Każdy procesor jest tylko tak dobry jak programista, który się nim posługuje"

ale równie dobrze można je nieco zmienić:

"Każdy język programowania jest tylko tak dobry jak programista, który się nim posługuje"

I to mam nadzieję, że w zupełności wyczerpuje temat, wcale bez żartów czy ironii ....

przyznacie chyba Panie i Panowie ?

Statystyki: Napisane przez mirekk36 — 10 sie 2012, o 18:32

Re: Termomert na 5 wyświetlaczach diodowych i DS1820

2012-08-10T18:22:18+01:00

i co jam z wami zrobić panowie ??
Lochy pełne , trunki wypite, piguły się kończą ....., a wy tu sadzicie plotki o bascomie

każdy język ma swoje wady i ograniczenia głównie gdy idzie o ubogą składnie i nadmiarowość nieczytelnych bibliotek
to nie jest tak że ten zły a ten dobry , bo wszystko w rękach programisty przecież , a złych nawyków można nałapać wszędzie
nawet w C jak choćby FCPU

Faktem jest natomiast to że z bascoma jest ciężko przejść na inny język -- bascom skutecznie to utrudnia

Statystyki: Napisane przez SunRiver — 10 sie 2012, o 18:22

Re: Termomert na 5 wyświetlaczach diodowych i DS1820

2012-08-10T16:41:00+01:00

zenowi napisał(a):

Mówienie złych rzeczy o BASCOM-ie w dziale BASCOM jest co najmniej nietaktem.

Co racja to racja

Ja zawsze mam takie podejście, że Bascoma również uznaję w tym sensie, że jeśli ktoś ma coś prostego zrobić i ze 2-3 razy na rok - to pewnie że Bascom wystarczy - czemu nie ....

Jednak to też nie jest do końca zgodne z prawdą ponieważ ludzie w Bascomie robią z powodzeniem bardzo zaawansowane projekty - a ja sam na własne oczy miałem okazję widzieć kiedyś wsad napisany do procka AVR sterującego radiem samochodowym firmy Blaupunkt

dlatego język to jak język

pewnie że ma swoje wady i ograniczenia - no trudno temu nikt chyba nie zaprzeczy, nawet twórca Mark Alberts ..... Wiele z tych wad i ograniczeń można obejść stosując wstawki asemblerowe , które sam kiedyś namiętnie pisałem programując w Bascomie jeszcze przed nauczeniem się C. Wtedy można z niego na prawdę dużo wycisnąć....

ale też racją jest to i to bez dwóch zdań - że jeśli jednak zamierzamy w przyszłości rozwinąć swoje zdolności także do innych języków wyższego rzędu - np C, to Bascom spowoduje zdecydowanie nabranie wielu złych nawyków programowania, które utrudnią wdrożenie się w nowy język. Dlatego tak ciężko nieraz przejść na coś innego z Bascoma

Mam nadzieję, że po tej mojej opinii nikt nie zarzuci mi że jestem tu stronniczy.

Statystyki: Napisane przez mirekk36 — 10 sie 2012, o 16:41

Re: Termomert na 5 wyświetlaczach diodowych i DS1820

2012-08-10T16:22:26+01:00

Mówienie złych rzeczy o BASCOM-ie w dziale BASCOM jest co najmniej nietaktem.

Statystyki: Napisane przez zenowi — 10 sie 2012, o 16:22

Re: Termomert na 5 wyświetlaczach diodowych i DS1820

2012-08-10T14:29:50+01:00

Sam jestem neptyk, jeżeli chodzi o programowanie, ale unikam takich tworów jak bascom, właśnie po to by nie uczyć się złego myślenia od samego początku. Fakt C bywa upierdliwy na początek, ale z czasem wraca to z nawiązką i dużo łatwiej wiele rzeczy ogarnąć.

PS. Prostsza jest platforma arduinio, dla początkujących może być nawet bardziej strawna.

Statystyki: Napisane przez Gość — 10 sie 2012, o 14:29

Re: Termomert na 5 wyświetlaczach diodowych i DS1820

2012-08-10T13:53:22+01:00

A nie Waity w przerwaniach to fakt pomyłka globalna jakich mało.
Może stwierdzeniem przerwanie co sekundę do długo może źle się wyraziłem. Bardziej chudziło mi że rzadko. Ale fakt faktem niech to będzie i raz na rok to i tak oba przerwania "nałożą" się na siebie.

Ideę z flagami, a ogólniej mówiąc minimalizację "zatrzymania programu w przerwaniu" zrozumiałem. Jakoś po prostu o tym nie pomyślałem.

Wielkie dzięki za naprowadzenie.

No i udawać też nie będę Guuruu programistycznym to ja nie jestem No ale na czymś uczyć się trzeba
Dzięki

Statystyki: Napisane przez marciu11 — 10 sie 2012, o 13:53

Re: Termomert na 5 wyświetlaczach diodowych i DS1820

2012-08-10T12:58:53+01:00

Polecam opanowanie zdarzeń. W książce Mirka, oraz tu na forum jest to świetnie opisane.
Niestety sam mam bardzo złą opinię o bascomie, chodzi o to, że uczy bardzo złych nawyków programowania.
delay, wait to już archaizmy których nie powinno się nadużywać, a już broń was jaśnie panie (boże, allahu, shivo, buddo, czy w co tam wierzycie) od wkładania ich w obsługę przerywań, czy pętlę główną programu.

Statystyki: Napisane przez Gość — 10 sie 2012, o 12:58

Re: Termomert na 5 wyświetlaczach diodowych i DS1820

2012-08-10T12:54:44+01:00

mirekk36 napisał(a):

dlatego trza zastosować mechanizm flag

No właśnie, bo dzięki temu nie trzeba używać np. tych nieszczęsnych wait w oczekiwaniu na konwersję temperatury. W prawie wszystkich programach w sieci, oczekiwanie na konwersję zrobione jest za pomocą polecenia Waitms 750. Niestety w tym czasie pętla główna ma zawiechę.
W przykładzie, który podałem wyżej, oczekiwanie jest zrealizowane dzięki flagom i zmiennej licznikowej. Ten sposób pozwalał mi pozbyć się wszystkich Wait z pętli głównej i z powodzeniem stosowałem go w mojej przygodzie z Bascomem.

Statystyki: Napisane przez jacekk232 — 10 sie 2012, o 12:54

Re: Termomert na 5 wyświetlaczach diodowych i DS1820

2012-08-10T12:18:30+01:00

marciu11 napisał(a):

Odnośnie odczytu w przerwaniu. Wydawało mi się że okres około 1sek jest na tyle wolny - jak na procesor, że nie będzie to stanowiło problemu. Widać bardzo się myliłem.

Tak ale nie rozumiesz na razie do końca jak działają przerwania. Otóż, faktem jest że 1 sek to jest bardzo jak mówisz - wolny odcinek - nie ważne co to oznacza, ale pomyśl sobie co sekundę zaczynasz robić w tym przerwaniu strasznie długą operację i na ten czas BLOKUJESZ działanie nie tylko pętli głównej programu ale też innych przerwań w tym tego od multipleksowania LED - więc nie dziwota że co sekundę masz migotanie na takim wyświetlaczu....

teraz jaśniej ?

dlatego trza zastosować mechanizm flag - czyli mniej więcej to o czym pisał wyżej kolega.

Statystyki: Napisane przez mirekk36 — 10 sie 2012, o 12:18

Re: Termomert na 5 wyświetlaczach diodowych i DS1820

2012-08-10T10:36:29+01:00

Dzięki wielkie. Jak tylko wrócę do domu przetestuję tę metodę! Wydaje się bardzo logiczna. Niekiedy nie zawsze na tę logikę łatwo wpaść.

Odnośnie odczytu w przerwaniu. Wydawało mi się że okres około 1sek jest na tyle wolny - jak na procesor, że nie będzie to stanowiło problemu. Widać bardzo się myliłem.

Dzięki

Statystyki: Napisane przez marciu11 — 10 sie 2012, o 10:36

Re: Termomert na 5 wyświetlaczach diodowych i DS1820

2012-08-09T22:49:05+01:00

jacekk232 napisał(a):

Więc może spróbuj pójść w tym kierunku.

Dokładnie! ... zamiast odpalać 1wire w przerwaniu timera bo tego nie zdzierży program napisany w dowolnym języku.

Statystyki: Napisane przez mirekk36 — 9 sie 2012, o 22:49

Re: Termomert na 5 wyświetlaczach diodowych i DS1820

2012-08-09T22:37:53+01:00

marciu11 napisał(a):

Wiem, że pierwsze stwierdzenie to przesiąść się na "C".

I słuszne stwierdzenie, ale w Bascomie jak najbardziej da się pogodzić multipleksowanie wyświetlaczy LED i 1wire.

Ja zrobiłem to w ten sposób, że rozkazy do DS-a wysyłałem w czasie między przerwaniami obsługi wyświetlacza. Timer0 zgłaszał przerwanie co 4ms. Czyli co 4ms wysyłałem kolejny rozkaz do czujnika.

Poniżej mały przykład jak to wyglądało w kodzie programu.
Przerwanie obsługi wyświetlacza:
[syntax=basic4gl]Wysw_co_4ms:
Wyslij_rozkaz = 1
'ustawienie flagi spowoduje, że w pętli głównej
'zostanie wysłany kolejny rozkaz do DS-a

'obsługa multipleksowania wyświetlaczy LED
Incr Wysw
If Wysw = 4 Then Wysw = 0
Portb.0 = 0 'gaśimy wyświetlacze
Portb.1 = 0
Portb.2 = 0
Portb.3 = 0
Select Case Wysw
Case 0:
Portd = Lookup(dp , Tabela)
Portb.0 = 1
Case 1:
Portd = Lookup(j , Tabela)
Portb.1 = 1
Case 2:
Portd = Lookup(d , Tabela)
Portb.2 = 1
Case 3:
Portd = Lookup(znak , Tabela)
Portb.3 = 1
End Select
Return[/syntax]

Pętla główna:
[syntax=basic4gl]
Do
If Wyslij_rozkaz = 1 Then 'co 4ms
Wyslij_rozkaz = 0
If Flaga_konwersji = 1 Then Incr Rozkaz_1wire
If Rozkaz_1wire = 7 Then Rozkaz_1wire = 1
Select Case Rozkaz_1wire:
Case 1:
1wreset 'reset
Case 2:
1wwrite &HCC 'jedna kostka, więc wykorzystujemy rozkaz SKIP ROM
Case 3:
If Flaga_konwersji = 1 Then 'wyzerowanie flagi aby rozkaz konwersji został wysłany tylko raz
Flaga_konwersji = 0 'to zamiast Waitms 750
1wwrite &H44 'rozkaz konwersji temperatury
Else
Incr Czas_konwersji 'po czasie ok. 1s
If Czas_konwersji = 200 Then 'ustawiona zostaje flaga sygnalizująca
Czas_konwersji = 0 'że konwersja temperatury została zakończona
Flaga_konwersji = 1
End If
End If
Case 4:
1wreset 'reset
Case 5:
1wwrite &HCC 'rozkaz adresowy SKIP ROM
Case 6:
1wwrite &HBE 'rozkaz funkcyjny - polecenie odczytu DS18x20
Flaga_odczyt = 1
End Select
End If

If Flaga_odczyt = 1 Then
Flaga_odczyt = 0
'tu odczyt temperatury i obliczenia[/syntax]

Tego sposobu używałem nie raz. Wszystko pięknie działało bez żadnych mignięć.
Więc może spróbuj pójść w tym kierunku.

Statystyki: Napisane przez jacekk232 — 9 sie 2012, o 22:37

Termomert na 5 wyświetlaczach diodowych i DS1820

2012-08-09T13:34:45+01:00

Witam.

Dostałem zadanie napisania termometru(termostatu) na LEDowych wyświetlaczach.
Ot po prostu rodzinie się nie odmawia. Ale mniejsza z tym...

Zadanie raczej banalne, odczyt temperatury z Dallasa i wyświetlenie jej na LEDach. Wprawdzie dochodzi tam jeszcze opcja termostatu i ustawień alarmu i itd. Ale to nie problem działa dobrze.
Utknąłem na jednej sprawie, a raczej nie wiem dlaczego tak się dzieje. I nie wiem czy ja coś robię nie tak, czy po prostu Bascom tak ma...

W chwili odczytu z 1wire multipleksowanie wyświetlaczy ma czkawkę - objawia się to mignięciem wyświetlaczy.
Nie jest to duże utrudnienie, po prostu mignięcie wyświetlaczy, ale jak by się dało wyeliminować ten efekt to było by fajnie.

Procedury przerwań nie są jakieś wyrafinowane, albo super rozbudowane. Timer0 generuje przerwanie dla multipleksowania LEDÓW, a Timer1 generuje przerwanie do odczytu temperatury.

Gdy z procedury odczytu temperatury wywalę wszystkie polecenia odczytu 1wire i do zmiennych przypiszę na sztywno wartości, migotania nie ma. Więc mniemam iż problemem jest tu sam odczyt z 1wire.

Główne bloki programu wyglądają tak:

- konfiguracja 1wire i zegarów:
[syntax=basic4gl]
Config 1wire = Portc.5 ' dallas

Config Timer0 = Timer , Prescale = 64
On Timer0 Multi_wysw
Load Timer0 = 200
Enable Timer0

Config Timer1 = Timer , Prescale = 256
On Timer1 Pomiar_temperatury
Load Timer1 = 53817
Enable Timer1[/syntax]

- przerwanie odczytu dallasa:
[syntax=basic4gl]
Pomiar_temperatury:
Load Timer1 = 53817
1wreset
If Err = 1 Then
Segment(1) = 12 : Segment(2) = 13 : Segment(3) = 13 : Segment(4) = 14 : Segment(5) = 13 ' napis Error
Gosub Pokaz_temperature
Else
1wwrite &HCC : 1wwrite &H44
1wreset
1wwrite &HCC : 1wwrite &HBE
Temperatura(1) = 1wread(2)
If Temperatura(2) > 0 Then Temperatura(1) = 256 - Temperatura(1)
Temperatura(1) = Temperatura(1) / 2
Set Ujemna ' flaga ujemnej temperatury
End If
Return
[/syntax]

- przerwanie multipleksowania wyświetlaczy:
[syntax=basic4gl]
Multi_wysw:
Load Timer0 = 200
Set Wys1 : Set Wys2 : Set Wys3 : Set Wys4 : Set Wys5 ' wyłączenie segmentów
Select Case Nr_wysw ' wybór poszczególnych wartości dla cyfr
Case 0:
Portd = Lookup(segment(1) , Segmenty)
Reset Wys1
Case 1:
Portd = Lookup(segment(2) , Segmenty)
Reset Wys2
Case 2:
Portd = Lookup(segment(3) , Segmenty)
Reset Wys3
Case 3:
Portd = Lookup(segment(4) , Segmenty)
Reset Wys4
Case 4:
Portd = Lookup(segment(5) , Segmenty)
Reset Wys5
End Select
Incr Nr_wysw ' zwiększ nr aktualnego wyświetlacza
If Nr_wysw = 5 Then Nr_wysw = 0
Return
[/syntax]

Pętla główna to oczekiwanie na przyciski i cykliczny skoki do podprocedur podziału temperatury i komunikatów na poszczególne składowe znaków, porównanie temperatury, alarm itd. Nic ingerującego w Timery, czy przerwania.

Próbowałem obsługę Dallasa przenieść do pętli głównej, zmieniać Timery. Nic to nie daje. Gdy tylko pojawiają się instrukcje 1wire wyświetlacz zaczyna migać w chwili odczytu. Nawet jak wywalę praktyczne wszystko inne z programu.

Wiem, że pierwsze stwierdzenie to przesiąść się na "C". Ale z tym dopiero zaczynam, a sprawa jest raczej na wczoraj.
Gdy się tego nie da wyeliminować, to trudno, da się z tym żyć. Ale jest tu tyle mądrych głów że może ktoś coś będzie potrafił powiedzieć co partolę...

Statystyki: Napisane przez marciu11 — 9 sie 2012, o 13:34