Mikrokomputer a raczej termometr z zegarem :))

Go to page Previous 1, 2

Main Page -> Forum Index -> DIY Structures -> Mikrokomputer a raczej termometr z zegarem :))

Author

Message

byrrt
Poziom 18

Joined: 27 Oct 2002
Posts: 505
Location: Bydgoszcz

#31

12 Jan 2007 02:38

Re: Mikrokomputer a raczej termometr z zegarem :))

tomeeh wrote:

Jeju, temperatura w rozdzielczości 100n°C?? Co to za herezje! Zacięła ci się '9'? No bez przesady, nie pokazujmy takiej radosnej twórczości!

Gdybyś przeczytał dalej zapewne dowiedziałbyś się, że zdjęcia te robione są w czasie budowy i różne bzdety tam były wyświetlane.. Pamiętam tylko, że był to niby algorytm obliczający jakimś cudnym sposobem dokładniejszą temp.. hehe żywcem skopiowany z forum elektrody :) Oczywiście to bajka, więc finalnie się tego pozbyłem..

Postanowiłem jeszcze wrzucić kilka fotek układu od diody:
Mikrokomputer a raczej termometr z zegarem :))

Mikrokomputer a raczej termometr z zegarem :))

I może dwa fimiki:

Link

Link

Pozdrawiam!

tomeeh
Poziom 19

Joined: 15 Oct 2004
Posts: 633
Location: Ostrów Wlkp.

#32 12 Jan 2007 13:16

Re: Mikrokomputer a raczej termometr z zegarem :))

byrrt wrote:

Gdybyś przeczytał dalej zapewne dowiedziałbyś się, że zdjęcia te robione są w czasie budowy i różne bzdety tam były wyświetlane...

Przeczytałem twój opis "od A do Z" i pragnę zauważyć, że wynika z niego co prawda, że zdjęcia są robione w czasie budowy, ale nigdzie nie jest opisane, że wyświetlane rzeczy nie są prawidłowe ("różne bzdety" jak to nazywasz).
Ponadto robiąc zdjęcie i chcąc je tu zamieścić, możnaby przecież wyrzucić ciąg znaków w stylu "23@#!$%@" na wyświetlacz, tylko jaki by to miało sens! Jeśli już koniecznie chciałeś pokazać to zdjęcie, trzeba było dać komentarz.

No i podstawowe pytanie: jaki jest sens stosowania algorytmu, który daje w wyniku dokładność 100 n°C, jeśli użyty czujnik ma dokładność równą 0,5 °C. To tak, jakby mierzyć odległość między dwoma punktami (dajmy na to: miastami) z dokładnością do 10^-12 m. Po pierwsze nikt takiej dokładności nie potrzebuje, ale ważniejsze pytanie brzmi: "Czy to ma w ogóle fizyczny sens!?" Oczywiście, że nie, gdyż odległości międzyatomowe są rzędu 10^-10 m. Tak samo fluktuacje mas powietrza, ruchy Browna itp spowodują, że sens mierzenia temperatury w warunkach domowych (pomijam zastosowania laboratoryjne) z dokładnością większą niż 0,05°C będzie dyskusyjny. Nawet jeśliby owy algorytm pracował, wówczas począwszy od trzeciej pozycji za przecinkiem miałbyś funkcję 'random', tzn. wartości by się zmieniały chaotycznie i niczego by nie wniosły. Dobrze, że w wersji końcowej skończyłeś na jednym miejscu po przecinku :-).

I mały komentarz do filmów: dioda sie nazywa RGB, popraw, bo to RBG się trochę rzuca.

Google

Google Adsense

# 12 Jan 2007 13:16

pier
Poziom 18

Joined: 26 Mar 2006
Posts: 533
Location: Biłgoraj

#33 13 Jan 2007 20:24

Re: Mikrokomputer a raczej termometr z zegarem :))

Czy Mógłbyś zamieścić listing programu do sterowania diody RGB?

byrrt
Poziom 18

Joined: 27 Oct 2002
Posts: 505
Location: Bydgoszcz

#34

15 Jan 2007 00:37

Re: Mikrokomputer a raczej termometr z zegarem :))

pier wrote:

Czy Mógłbyś zamieścić listing programu do sterowania diody RGB?

Oczywiście.. program jest napisany troche okrężną drogą.. Ale działa i o to chodzi.. Ma tylko tę wadę, że ma stale zaprogramowaną sekwencję kolorów i ograniczoną ich ilość a można by to zrobić losowo i tak, aby każdy kolor był zmieniany z troche inna prędkością - w ten sposób uzyskałoby się znacznie więcej koloru.. W wolnej chwili napisze nowy program :)

Załączam listing:

Code:

$regfile = "ATtiny2313.dat"
$crystal = 400000

'definiowanie zmiennych i stałych
Dim Pozycja As Word , Jasnosc1 As Byte , Jasnosc2 As Byte

Const Wartosc0 = 0
Const Wartosc1 = 1
Const Wartosc2 = 3
Const Wartosc3 = 7
Const Wartosc4 = 15
Const Wartosc5 = 31
Const Wartosc6 = 63
Const Wartosc7 = 127
Const Wartosc8 = 255

'konfiguracja wyjść
Config Pina.0 = Output
Config Pinb.0 = Output
Config Pind.0 = Output

'przypisywanie przyjaznych nazw
Czerwona Alias Porta.0
Niebieska Alias Portb.0
Zielona Alias Portd.0

'podprogram testujący na starcie wszystkie diody

Set Czerwona
Waitms 200
Reset Czerwona
Waitms 200
Set Niebieska
Waitms 200
Reset Niebieska
Waitms 200
Set Zielona
Waitms 200
Reset Zielona
Waitms 200
Gosub Pwm_on_czerwona

'petla programu
Do
Wait 2
Gosub Pwm_on_niebieska
Wait 2
Gosub Pwm_off_czerwona
Wait 2
Gosub Pwm_on_zielona
Wait 2
Gosub Pwm_off_niebieska
Wait 2
Gosub Pwm_on_czerwona
Wait 2
Gosub Pwm_on_niebieska
Wait 2
Gosub Pwm_off_zielona
Wait 2
Gosub Pwm_off_czerwona
Wait 2
Gosub Pwm_on_zielona
Wait 2
Gosub Pwm_off_niebieska
Wait 2
Gosub Pwm_on_czerwona
Wait 2
Gosub Pwm_off_zielona
Loop

'zapalanie diody czerwonej
Pwm_on_czerwona:
Jasnosc1 = Wartosc0
Jasnosc2 = Wartosc0
Gosub Pwm_czerwona
Jasnosc1 = Wartosc1
Gosub Pwm_czerwona
Jasnosc2 = Wartosc1
Gosub Pwm_czerwona
Jasnosc1 = Wartosc2
Gosub Pwm_czerwona
Jasnosc2 = Wartosc2
Gosub Pwm_czerwona
Jasnosc1 = Wartosc3
Gosub Pwm_czerwona
Jasnosc2 = Wartosc3
Gosub Pwm_czerwona
Jasnosc1 = Wartosc4
Gosub Pwm_czerwona
Jasnosc2 = Wartosc4
Gosub Pwm_czerwona
Jasnosc1 = Wartosc5
Gosub Pwm_czerwona
Jasnosc2 = Wartosc5
Gosub Pwm_czerwona
Jasnosc1 = Wartosc6
Gosub Pwm_czerwona
Jasnosc2 = Wartosc6
Gosub Pwm_czerwona
Jasnosc1 = Wartosc7
Gosub Pwm_czerwona
Jasnosc2 = Wartosc7
Gosub Pwm_czerwona
Jasnosc1 = Wartosc8
Gosub Pwm_czerwona
Jasnosc2 = Wartosc8
Gosub Pwm_czerwona
Return

'wugaszanie diody czerwonej
Pwm_off_czerwona:
Jasnosc2 = Wartosc8
Jasnosc1 = Wartosc8
Gosub Pwm_czerwona
Jasnosc2 = Wartosc7
Gosub Pwm_czerwona
Jasnosc1 = Wartosc7
Gosub Pwm_czerwona
Jasnosc2 = Wartosc6
Gosub Pwm_czerwona
Jasnosc1 = Wartosc6
Gosub Pwm_czerwona
Jasnosc2 = Wartosc5
Gosub Pwm_czerwona
Jasnosc1 = Wartosc5
Gosub Pwm_czerwona
Jasnosc2 = Wartosc4
Gosub Pwm_czerwona
Jasnosc1 = Wartosc4
Gosub Pwm_czerwona
Jasnosc2 = Wartosc3
Gosub Pwm_czerwona
Jasnosc1 = Wartosc3
Gosub Pwm_czerwona
Jasnosc2 = Wartosc2
Gosub Pwm_czerwona
Jasnosc1 = Wartosc2
Gosub Pwm_czerwona
Jasnosc2 = Wartosc1
Gosub Pwm_czerwona
Jasnosc1 = Wartosc1
Gosub Pwm_czerwona
Jasnosc2 = Wartosc0
Gosub Pwm_czerwona
Jasnosc1 = Wartosc0
Gosub Pwm_czerwona
Return

Pwm_czerwona:
For Pozycja = 1 To 500
Porta.0 = Jasnosc1.0
Porta.0 = Jasnosc1.1
Porta.0 = Jasnosc1.2
Porta.0 = Jasnosc1.3
Porta.0 = Jasnosc1.4
Porta.0 = Jasnosc1.5
Porta.0 = Jasnosc1.6
Porta.0 = Jasnosc1.7
Porta.0 = Jasnosc2.0
Porta.0 = Jasnosc2.1
Porta.0 = Jasnosc2.2
Porta.0 = Jasnosc2.3
Porta.0 = Jasnosc2.4
Porta.0 = Jasnosc2.5
Porta.0 = Jasnosc2.6
Porta.0 = Jasnosc2.7
Next Pozycja
Return

'zapalanie diody niebieskiej
Pwm_on_niebieska:
Jasnosc1 = Wartosc0
Jasnosc2 = Wartosc0
Gosub Pwm_niebieska
Jasnosc1 = Wartosc1
Gosub Pwm_niebieska
Jasnosc2 = Wartosc1
Gosub Pwm_niebieska
Jasnosc1 = Wartosc2
Gosub Pwm_niebieska
Jasnosc2 = Wartosc2
Gosub Pwm_niebieska
Jasnosc1 = Wartosc3
Gosub Pwm_niebieska
Jasnosc2 = Wartosc3
Gosub Pwm_niebieska
Jasnosc1 = Wartosc4
Gosub Pwm_niebieska
Jasnosc2 = Wartosc4
Gosub Pwm_niebieska
Jasnosc1 = Wartosc5
Gosub Pwm_niebieska
Jasnosc2 = Wartosc5
Gosub Pwm_niebieska
Jasnosc1 = Wartosc6
Gosub Pwm_niebieska
Jasnosc2 = Wartosc6
Gosub Pwm_niebieska
Jasnosc1 = Wartosc7
Gosub Pwm_niebieska
Jasnosc2 = Wartosc7
Gosub Pwm_niebieska
Jasnosc1 = Wartosc8
Gosub Pwm_niebieska
Jasnosc2 = Wartosc8
Gosub Pwm_niebieska
Return

'wygaszanie diody niebieskiej
Pwm_off_niebieska:
Jasnosc2 = Wartosc8
Jasnosc1 = Wartosc8
Gosub Pwm_niebieska
Jasnosc2 = Wartosc7
Gosub Pwm_niebieska
Jasnosc1 = Wartosc7
Gosub Pwm_niebieska
Jasnosc2 = Wartosc6
Gosub Pwm_niebieska
Jasnosc1 = Wartosc6
Gosub Pwm_niebieska
Jasnosc2 = Wartosc5
Gosub Pwm_niebieska
Jasnosc1 = Wartosc5
Gosub Pwm_niebieska
Jasnosc2 = Wartosc4
Gosub Pwm_niebieska
Jasnosc1 = Wartosc4
Gosub Pwm_niebieska
Jasnosc2 = Wartosc3
Gosub Pwm_niebieska
Jasnosc1 = Wartosc3
Gosub Pwm_niebieska
Jasnosc2 = Wartosc2
Gosub Pwm_niebieska
Jasnosc1 = Wartosc2
Gosub Pwm_niebieska
Jasnosc2 = Wartosc1
Gosub Pwm_niebieska
Jasnosc1 = Wartosc1
Gosub Pwm_niebieska
Jasnosc2 = Wartosc0
Gosub Pwm_niebieska
Jasnosc1 = Wartosc0
Gosub Pwm_niebieska
Return

Pwm_niebieska:
For Pozycja = 1 To 500
Portb.0 = Jasnosc1.0
Portb.0 = Jasnosc1.1
Portb.0 = Jasnosc1.2
Portb.0 = Jasnosc1.3
Portb.0 = Jasnosc1.4
Portb.0 = Jasnosc1.5
Portb.0 = Jasnosc1.6
Portb.0 = Jasnosc1.7
Portb.0 = Jasnosc2.0
Portb.0 = Jasnosc2.1
Portb.0 = Jasnosc2.2
Portb.0 = Jasnosc2.3
Portb.0 = Jasnosc2.4
Portb.0 = Jasnosc2.5
Portb.0 = Jasnosc2.6
Portb.0 = Jasnosc2.7
Next Pozycja
Return

'zapalanie diody zielonej
Pwm_on_zielona:
Jasnosc1 = Wartosc0
Jasnosc2 = Wartosc0
Gosub Pwm_zielona
Jasnosc1 = Wartosc1
Gosub Pwm_zielona
Jasnosc2 = Wartosc1
Gosub Pwm_zielona
Jasnosc1 = Wartosc2
Gosub Pwm_zielona
Jasnosc2 = Wartosc2
Gosub Pwm_zielona
Jasnosc1 = Wartosc3
Gosub Pwm_zielona
Jasnosc2 = Wartosc3
Gosub Pwm_zielona
Jasnosc1 = Wartosc4
Gosub Pwm_zielona
Jasnosc2 = Wartosc4
Gosub Pwm_zielona
Jasnosc1 = Wartosc5
Gosub Pwm_zielona
Jasnosc2 = Wartosc5
Gosub Pwm_zielona
Jasnosc1 = Wartosc6
Gosub Pwm_zielona
Jasnosc2 = Wartosc6
Gosub Pwm_zielona
Jasnosc1 = Wartosc7
Gosub Pwm_zielona
Jasnosc2 = Wartosc7
Gosub Pwm_zielona
Jasnosc1 = Wartosc8
Gosub Pwm_zielona
Jasnosc2 = Wartosc8
Gosub Pwm_zielona
Return

'wygaszanie diody zielonej
Pwm_off_zielona:
Jasnosc2 = Wartosc8
Jasnosc1 = Wartosc8
Gosub Pwm_zielona
Jasnosc2 = Wartosc7
Gosub Pwm_zielona
Jasnosc1 = Wartosc7
Gosub Pwm_zielona
Jasnosc2 = Wartosc6
Gosub Pwm_zielona
Jasnosc1 = Wartosc6
Gosub Pwm_zielona
Jasnosc2 = Wartosc5
Gosub Pwm_zielona
Jasnosc1 = Wartosc5
Gosub Pwm_zielona
Jasnosc2 = Wartosc4
Gosub Pwm_zielona
Jasnosc1 = Wartosc4
Gosub Pwm_zielona
Jasnosc2 = Wartosc3
Gosub Pwm_zielona
Jasnosc1 = Wartosc3
Gosub Pwm_zielona
Jasnosc2 = Wartosc2
Gosub Pwm_zielona
Jasnosc1 = Wartosc2
Gosub Pwm_zielona
Jasnosc2 = Wartosc1
Gosub Pwm_zielona
Jasnosc1 = Wartosc1
Gosub Pwm_zielona
Jasnosc2 = Wartosc0
Gosub Pwm_zielona
Jasnosc1 = Wartosc0
Gosub Pwm_zielona
Return

Pwm_zielona:
For Pozycja = 1 To 500
Portd.0 = Jasnosc1.0
Portd.0 = Jasnosc1.1
Portd.0 = Jasnosc1.2
Portd.0 = Jasnosc1.3
Portd.0 = Jasnosc1.4
Portd.0 = Jasnosc1.5
Portd.0 = Jasnosc1.6
Portd.0 = Jasnosc1.7
Portd.0 = Jasnosc2.0
Portd.0 = Jasnosc2.1
Portd.0 = Jasnosc2.2
Portd.0 = Jasnosc2.3
Portd.0 = Jasnosc2.4
Portd.0 = Jasnosc2.5
Portd.0 = Jasnosc2.6
Portd.0 = Jasnosc2.7
Next Pozycja
Return

End

Pozdrawiam

Guest
Poziom 10

#35 15 Jan 2007 00:58

Re: Mikrokomputer a raczej termometr z zegarem :))

Interesujący projekt:) Zgoła odmienny:)
W szczególności podoba mi się pomysł wstawienia diody RGB - to powoduje, że układ z pozoru prosty, staje się wyjątkowy:) Pełen szacuneczek dla jakości lutów i estetyki wykonania:)

Tomeeth - gratuluje encyklopedycznej wiedzy... to wprost z wolnej wikipedii:P???

Tomeeth wrote:

I mały komentarz do filmów: dioda sie nazywa RGB, popraw, bo to RBG się trochę rzuca.

Przynajmniej dla mnie - oczywistym jest fakt, że RBG - to czysta "literówka":)

Dodam również, że zaobserwowałam ciekawe zjawisko - niektórzy piszą tu - byle dużo, byle się wymądrzyć - a w gruncie rzeczy nic ciekawego nie mają do powiedzenia:)))) Typowa polska mentalność:P

Byrrcie - z niecierpliwością czekam na następny projekt!!! Ciekawe co wymyslisz:))))
Może będzie to układ wyświetlający temp z dokładnością do 20 miejsc po przecinku????? Mnie to nie przeszkadza:P)

Pozdrawiam

pier
Poziom 18

Joined: 26 Mar 2006
Posts: 533
Location: Biłgoraj

#36 16 Jan 2007 19:13

Re: Mikrokomputer a raczej termometr z zegarem :))

Witam.
Dzięki za zamieszczenie tego listingu. W związku z tym że dopiero zaczynam zagłębiać się w świat mikroprocesorów i programowania mam jedno pytanie,
jak rozumieć ten fragment programu :
Portd.0 = Jasnosc1.0
Portd.0 = Jasnosc1.1
Portd.0 = Jasnosc1.2
Portd.0 = Jasnosc1.3
Portd.0 = Jasnosc1.4
Portd.0 = Jasnosc1.5
Portd.0 = Jasnosc1.6
Portd.0 = Jasnosc1.7
Portd.0 = Jasnosc2.0
Portd.0 = Jasnosc2.1
Portd.0 = Jasnosc2.2
Portd.0 = Jasnosc2.3
Portd.0 = Jasnosc2.4
Portd.0 = Jasnosc2.5
Portd.0 = Jasnosc2.6
Portd.0 = Jasnosc2.7
a mianowicie skąd biorą się te cyfry "jasność1.1 , 1.2 ....",co to oznacza.
Resztę programu rozumie nie mogę sobie poradzić tylko z tą częścią.
Czy mógłbym dostać jakąś prosta odpowiedź?
Pozdrawiam

byrrt
Poziom 18

Joined: 27 Oct 2002
Posts: 505
Location: Bydgoszcz

#37

17 Jan 2007 01:28

Re: Mikrokomputer a raczej termometr z zegarem :))

Hmm.. Jak już wspomniałem trochę dziwnie to rozwiązałem no ale już tłumacze.. Jasnosc1 i Jasnosc2 są to dwa bajty, które umownie łączę w jedno słowo dwubajtowe.. Czym więcej z tych 16tu bitów jest jedynka tym przebieg na wyjściu ma wyższe wypełnienie.. Fragment, o którym piszesz po prostu wrzuca po kolei każdy z tych 16 bitów na portd.0. Na przykładzie słowa 1 bajtowego:

11111111 na wyjsciu (w skali czasu) -------- najjaśniej
11111110 na wyjsciu (w skali czasu) -------_
11111100 na wyjsciu (w skali czasu) ------__
11111000 na wyjsciu (w skali czasu) -----___
11110000 na wyjsciu (w skali czasu) ----____
11100000 na wyjsciu (w skali czasu) ---_____
11000000 na wyjsciu (w skali czasu) --______
10000000 na wyjsciu (w skali czasu) -_______
00000000 na wyjsciu (w skali czasu) ________ najciemniej (zgaszona)

Pozdrawiam
Piotr

sq3dwe
Poziom 13

Joined: 14 May 2004
Posts: 147
Location: Zielona Góra

#38 17 Jan 2007 14:08

Re: Mikrokomputer a raczej termometr z zegarem :))

Ciekawy projekt,czy udostępnisz schemat i wsad do procka?Chętnie bym
wykonał taki zegarek.Dzięki Pozdrawiam Ryszard.

Ogre
Poziom 5

Joined: 13 Jan 2007
Posts: 13
Location: Radzionków

#39 19 Jan 2007 11:36

Re: Mikrokomputer a raczej termometr z zegarem :))

super sprawa / 10/10 / :) Ten kryształ to fajny pomysł :]

byrrt
Poziom 18

Joined: 27 Oct 2002
Posts: 505
Location: Bydgoszcz

#40

20 Jan 2007 19:53

Re: Mikrokomputer a raczej termometr z zegarem :))

Do sq3dwe, augur359 i innych zainteresowanych.. Ze względu na to, że układ nie jest dopracowany jeszcze do końca a znając życie długo potrwa zanim go dopracuje nie chce umieszczać wsadu oraz płytki na forum.. Jeżeli chcecie napiszcie na priv..

Pozdrawiam
Piotr

pier
Poziom 18

Joined: 26 Mar 2006
Posts: 533
Location: Biłgoraj

#41 25 Jan 2007 02:11

Re: Mikrokomputer a raczej termometr z zegarem :))

Byrrt jakbyś mógł to podaj wartości rezystorów podłączonych do poszczególnych kolorów diody ,bo jakoś ciężko ze zdjęcia odczytać.

byrrt
Poziom 18

Joined: 27 Oct 2002
Posts: 505
Location: Bydgoszcz

#42

29 Jan 2007 16:31

Re: Mikrokomputer a raczej termometr z zegarem :))

Nie pamiętam a układ jest zamknięty więc też nie odczytam... Liczyłem spadki napięć 3V dla niebieskiej, 2V dla zielonej i czerwonej oraz prąd 15mA na każdy kolor R=U/I czyli R1=133~130R a dla zielonej i czerwoenj R2=200R.. Wiem, że być może swiecenie wszystkich naraz nie daje czystej bieli ale nie o to chodziło :)

Pozdrawiam
Piotr

treborrrrr
Poziom 17

Joined: 22 Oct 2005
Posts: 353
Location: Ełk

#43 16 Mar 2008 18:33

Re: Mikrokomputer a raczej termometr z zegarem :))

Mam "żarówkę" na 230V taką co zmienia kolory w sposób taki, o jaki na tu właśnie chodzi. Rozebrałem ją i są dwie płytki. Jedna to matryca diod - po cztery diody na kolor + 3 rezystory. Druga (ciekawsza płytka) to oprucz mostka gretza, kondensatorów filtrujących i zenera to:
-kondensator 10V 100uF
-maleńki rezystorek???R
-UKŁAD SCALUNY 8 pinowy
Nazwa tego nieistniejącego w internecie scalaka to:
M1346-1
H980

Jesli komuś uda się go znaleźć, problem zasilania RGB sprowadzi się do tego układu i dwóch elementów! Może ma ktoś znajomego w Chinach?
Pozdrawiam.

Main Page -> Forum Index -> DIY Structures -> Mikrokomputer a raczej termometr z zegarem :))

Page 2 of 2

Go to page Previous 1, 2

Similar topics
Mikrokomputer w akwarium (28)
Dwupunktowy termometr z zegarem i alarmem. (25)

Page generation time: 0.193 seconds

FAQ || Administrator || Moderators || Widgets and banners || Contact