ATNEL tech-forum

Re: Coraz bliżej święta :)

2017-12-29T20:38:48+01:00

Pojawiają się już nowe pomysły i prawdopodobnie powstanie wieża strażnicza z poruszającym się strażnikiem, latarnia morska i ciągnie mnie na wieże zegarowa z sekundnikiem napędzanym miniaturowym silnikiem krokowym 24V 24 kroki/obr który akurat posiadam i kurz na nim zalega. Szkoda tylko żę taka wieża...jak i w sumie latarnia to jakieś kilka...nascie wieków różnicy.

Statystyki: Napisane przez fysiek — 29 gru 2017, o 20:38

Re: Coraz bliżej święta :)

2017-12-24T15:47:53+01:00

Piękna sprawa z tą szopką, podoba mi się ta woda płynąca strumykiem [emoji16]

Statystyki: Napisane przez Andrzej — 24 gru 2017, o 15:47

Re: Coraz bliżej święta :)

2017-12-24T14:36:28+01:00

Quote:

No i co tu powiedzieć... Pozamiatane

Nic dodać, nic ująć

GRATULACJE - coś pięknego !

Wesołych świąt!

Statystyki: Napisane przez mirekk36 — 24 gru 2017, o 14:36

Re: Coraz bliżej święta :)

2017-12-24T13:51:02+01:00

No i co tu powiedzieć... Pozamiatane Nic tylko na jakiś konkurs wystawić! Zdrowych i wesołych świąt życzę

Statystyki: Napisane przez SylwekK — 24 gru 2017, o 13:51

Re: Coraz bliżej święta :)

2017-12-24T12:59:02+01:00

Witajcie. Chciałbym Wam przedstawić filmik przedstawiający zmontowaną całość. Tak jak pisałem wcześniej efekt końcowy to praca wielu osób zaangażowanych w ten projekt. Każdy coś włożył od siebie. Ja nie jestem obiektywny...sami oceńcie

iframe

Na koniec chciałbym Wam wszystkim życzyć świąt dających radość i odpoczynek, oraz nadzieję na Nowy Rok, żeby był jeszcze lepszy niż ten, który właśnie przemija.

Statystyki: Napisane przez fysiek — 24 gru 2017, o 12:59

Re: Coraz bliżej święta :)

2017-12-07T12:13:44+01:00

fysiek napisał(a):

to dodatkowo super kopniak by z jeszcze większym zapałem przerabiać treść Bluebooka

Jeśli to zadziałało jak dodatkowy bodziec to tym bardziej mnie również miło ... jeszcze raz gratuluję projektu!

Statystyki: Napisane przez mirekk36 — 7 gru 2017, o 12:13

Re: Coraz bliżej święta :)

2017-12-07T11:23:44+01:00

Gratulacje kolego
Dobry projekt i perfekcja należycie nagrodzona

Statystyki: Napisane przez SunRiver — 7 gru 2017, o 11:23

Re: Coraz bliżej święta :)

2017-12-06T19:26:59+01:00

drodzy forumowicze....dzisiaj czekała na mnie paczka a w niej:

Powiecie, że nic dziwnego...zamówił to ma....proste. No właśnie nie! Ta książka to prezent...nagroda...od Mirka za temat, który właśnie przeglądacie. Umieszczając zdjęcia, czy pisząc post na tym forum nie sądziłem, że spotka mnie coś tak miłego. Fakt, chyba każdy kto chce się czymś pochwalić, liczy po cichu na to, że znajdzie się ktoś komu się to także spodoba i usłyszy coś miłego. Mnie spotkało cos znacznie fajniejszego. Robić coś, co można nazwać pasją to cięzkie do opisania uczucie, ale niesamowicie miłe...a co dopiero poczuć, że w pewnym sensie opłacało się poświęcać te dziesiątki godzin, kupować metry plastra opatrunkowego na pocięte paluchy i starać się dopracować każdy szczegół najlepiej jak potrafię, bo to się zwraca....jak nie w ten to w inny sposób. Ja wygrałem książkę...cieszę się z tego niesamowicie. Nie dosyć że to miły gest to dodatkowo super kopniak by z jeszcze większym zapałem przerabiać treść Bluebooka. Dziękuję wszystkim za pozytywne opinie a Tobie Mirku za ten super prezent na Mikołaja.

Statystyki: Napisane przez fysiek — 6 gru 2017, o 19:26

Re: Coraz bliżej święta :)

2017-12-02T14:44:29+01:00

OK w takim razie, jeżeli brak przeciwwskazań podaję link do sklepu z którego korzystałem podczas budowy. W tym sklepie zamawiałem wszystkie figurki i dodatki w stylu wiadra, misy itp...nie moge o nich złego słowa powiedzieć.

https://www.figurydoszopki.pl/

Jeżeli chodzi o trawę i dodatki to tu już nie korzystałem z niczego konkretnego tylko w ciemno kupowałem na portalu aukcyjnym.

Statystyki: Napisane przez fysiek — 2 gru 2017, o 14:44

Re: Coraz bliżej święta :)

2017-12-02T14:36:07+01:00

Dziękuję za taki szeroki i fajny opis - a co do linków do takich różnych sklepów modelarskich - no to co ma być nie można? jak najbardziej można bo jak do nich trafić ? no chyba, że to twoja tajemnica ?

------------------------ [ Dodano po: 1 minucie ]

fysiek napisał(a):

ale to tylko dlatego że pomimo starań mojego wujka - rzeźbiarza sakralnego z ponad 30to letnim doświadczeniem

Pozdrowienia dla wujka ! ... jak widać niedaleko pada jabłko od rzeźbiarza - chociaż tutaj no takie troszkę rzeźbiartwo nieco inne i elektroniczne - ale widać, że coś w genach na ciebie przeszło!

Statystyki: Napisane przez mirekk36 — 2 gru 2017, o 14:36

Re: Coraz bliżej święta :)

2017-12-02T14:12:35+01:00

Witam. Podczas prac nad projektem starałem się jak najwięcej zrobić samodzielnie. Oczywiście kilka rzeczy musiałem zakupić, ale to tylko dlatego że pomimo starań mojego wujka - rzeźbiarza sakralnego z ponad 30to letnim doświadczeniem - nigdy nie udało mi się wkręcić w rzeźbiarstwo....no i szczerze mówiąc już od pierwszych prób było widać że raczej do tego smykałki nie mam. Figurki ludzi jak i zwierząt zostały więc zakupione w sklepie internetowym....nie wiem czy można tutaj wklejać adresy takich stron, więc dla bezpieczeństwa nie podaję linków. Jeżeli Mirek nie będzie miał nic przeciwko wtedy link wkleję - tu proszę o ewentualne info. Korzystałem głównie z figur wysokości do 10-11cm dla "dorosłych" postaci. Zamówiłem także kilka dodatków takich jak dzban z oliwkami, czy wiaderka, czy misa wisząca nad ogniskiem wędrowca. Cała reszta to w sumie moja praca.
Dla przykładu.... Bochenki chleba to twarde drewno - chyba bukowe - z trzonka starej szczotki drucianej obrobione na szlifierce ponacinane i pomalowane, beczki to obklejone patyczkami do lodów, czy patyczkami do waty cukrowej - dostępne w necie na portalu aukcyjnym - obcięte wałki tekturowe po folii kuchennej. Do klejenia używałem głównie Vicolu, ale takze klejów szybkowiążących a do klejenia figurek do podstawy klejów dwuskładnikowych.

No właśnie podłoże - nic innego jak żwirek akwariowy zmieszany z Vicelem nałożony na pomalowane także Vicolem drewniane podłoże. Po kilku godzinach jest twardy jak skała i bardzo ciężko to uszkodzić. Klej który na początku jest biały robi się półprzeźroczysty i jest praktycznie niewidoczny. Odrobina mchu, czy posypki urozmaiciła teren...tak samo jak trawa elektrostatyczna. Wszystko to kupuje się w sklepach modelarskich, jak i na znanym portalu aukcyjnym. Korzystałem głównie z trawy elektrostatycznej długości 3 i 5mm tworząc kępki także z użyciem Vicolu. Wygląda to mniej więcej tak:

Po wyschnięciu, czyli najczęściej po kilku godzinach taką kępkę się po prostu odrywa pensetą i przykleja w nowe miejsce.

Mniejsze elementy, zwłasza mechaniczne jak już pisałem wykonywałem z miedzi. Druty i rurki to główny materiał budowlany do mechanizmów jak i cięgien, ale także do różnych elementów ozdobnych. Dla przykładu przedstawiam zdjęcie z dzwonnicy. Koksownik to nic innego jak miedziany drut 2.5mm2 zlutowany i po wymyciu kalafonii pomalowany. Koszt zerowy a efekt....chyba warty włożonej pracy. Widoczne cięgno dzwonnicy to także miedź.

Budynki to nic innego jak drewno sosnowe. Porządna mocna rama i trochę dykty w mniej ważnych miejscach. Klej i wkręty robią z tego konstrukcję prawie pancerną. Dachy jak już wspominałem to tektura falista, albo....znowu patyczki do lodów.

Patyczki do waty cukrowej użyłem do wykonania drzwi czy ram okien. Stanowiły one także elementy balkonów czy poręczy.

Najgorsze to niestety mechanika i te wszystkie mechanizmy, które dają życie temu wszystkiemu. Nie sztuką było zamawianie wszystkiego u tokarzy...bo wiadomo...pieniądze, no i tak jakoś radośc z budowy mniejsza. Wszystko...oprócz sprzęgła wiatraka...wykonałem sam. Nie było to takie trudne a pracuje znakomicie, oferując wymaganą sztywnośc i trwałość. Dla przykładu mechanika gospodyni z piekarni, dzwonnicy i sprzęgło turbiny wiatraka:

Malowanie i farby....tutaj nie było łatwo i metodą prób i błędów powoli zaczynałem temat opanowywać. Korzystałem głównie z farb akrylowych. Są dostępne w rozsądnych cenach sklepach dla plastyków, gdzie je kupowałem. Najwięcej użyłem farby czarnej. Tutaj starałem się polować na promocje na duże tubki w hipermarketach....i w tym przypadku tylko duża tubka wchodziła w rachubę bo czarny kolor to w tym przypadku podstawa. Frba ta jest bardzo fajna bo szybko wyscha, jest mocna i trzyma zarówno na drewnie, pcv jak i metalu. Wada...niestety nie jest tania.

Statystyki: Napisane przez fysiek — 2 gru 2017, o 14:12

Re: Coraz bliżej święta :)

2017-12-02T12:46:07+01:00

Hehe, Mirku ja Ci odpowiem Przy tego typu pracach to najwyżej kolega figurki mógł kupić lub zaadoptować z jakiejś laleczki, obkleić modeliną i pomalować. Mam znajomych, którzy ze starych gazet, worka ziarna, kleju i plakatówek potrafią wyczarować cały świat bajek!

Statystyki: Napisane przez SylwekK — 2 gru 2017, o 12:46

Re: Coraz bliżej święta :)

2017-12-02T11:49:12+01:00

A ja mam pytanie do autora - czy możesz podpowiedzieć skąd bierzesz te wszystkie gadżety modelarskie ? Tzn widać, że większość robisz sam - a może wszystko ? każdy detal sam robisz ? .... ale jeśli korzystasz z jakichś gotowych elementów to gdzie można takie nabyć ?

Statystyki: Napisane przez mirekk36 — 2 gru 2017, o 11:49

Re: Coraz bliżej święta :)

2017-12-01T21:54:26+01:00

Nooo... wow! Fajna sprawa, oryginalne zastosowanie elektroniki i AVRków
Gratulacje!

Statystyki: Napisane przez zoom — 1 gru 2017, o 21:54

Re: Coraz bliżej święta :)

2017-12-01T20:51:18+01:00

Super! Lubię projekty gdzie trzeba wykazać się nie tylko programistyczne (choć w tym wypadku to po prostu ułatwiałeś sobie pracę co też na plus zasługuje), ale i manualnie. Widać, że jest w Tobie pasja i wielkie możliwości. Po takiej prezentacji można tylko oczekiwać z niecierpliwością nowych projektów

Statystyki: Napisane przez SylwekK — 1 gru 2017, o 20:51

Re: Coraz bliżej święta :)

2017-12-01T20:23:16+01:00

Osz ja cię. Kolego, czapki z głów. Jak ja lubię takie cacuszka gdzie liczy się pomysł i pozytywne zakręcenie . Gratuluję pomysłu a przede wszystkim wykonania. Pozdrawiam

Wysłane z mojego HTC One_M8 przy użyciu Tapatalka

Statystyki: Napisane przez adamBo — 1 gru 2017, o 20:23

Re: Coraz bliżej święta :)

2017-12-01T21:17:16+01:00

mirekk36 napisał(a):

W takim razie możesz skorzystać z kolejnego stopnia w "grze" ... czyli GreenBooka ! ... komu jak komu ale przy takiej dawce własnej inwencji - warto inwestować w tak cenne pomysłowe osoby !

Bardzo chętnie skorzystam i powiem Ci że jestem mile zaskoczony Cytując Twoje słowa Mirku...warto inwestować w pozycje warte uwagi...chodzi w tym przypadku o Twoje ksiązki które na prawdę wiele uczą

Statystyki: Napisane przez fysiek — 1 gru 2017, o 20:22

Re: Coraz bliżej święta :)

2017-12-01T20:19:53+01:00

fysiek napisał(a):

Bluebooka już oczywiście posiadam

W takim razie możesz skorzystać z kolejnego stopnia w "grze" ... czyli GreenBooka ! ... komu jak komu ale przy takiej dawce własnej inwencji - warto inwestować w tak cenne pomysłowe osoby !

Statystyki: Napisane przez mirekk36 — 1 gru 2017, o 20:19

Re: Coraz bliżej święta :)

2017-12-01T20:17:05+01:00

Dziękuję Wam wszystkim za tak miłe słowa. To dla mnie wiele znaczy...tym bardziej, że poświęciłem na ten projekcik wiele czasu i wysiłku. Dziękuję Ci drogi Mirku za tak miłego posta i propozycję. Bluebooka już oczywiście posiadam wraz z Twoim zestawem i powoli przetwarzam zawarte z nim informacje

Statystyki: Napisane przez fysiek — 1 gru 2017, o 20:17

Re: Coraz bliżej święta :)

2017-12-01T20:12:39+01:00

Jak bym powiedział REWELACJA - to bym skłamał!

To jest MEGA WYPASIONY projekt !

GRATUCLACJE

A jeśli kolegę zainteresuje kiedyś język C jeśli chodzi o programowanie procków - to proponuję zwrócić się do mnie po nagrodę w postaci Bluebooka ... WARTO takich ludzi doceniać !

Statystyki: Napisane przez mirekk36 — 1 gru 2017, o 20:12

Re: Coraz bliżej święta :)

2017-12-01T19:53:11+01:00

Jednym słowem piękne. A będzie jakiś filmik jak to wszystko żyje???

Statystyki: Napisane przez ELEKTRON105 — 1 gru 2017, o 19:53

Re: Coraz bliżej święta :)

2017-12-01T19:22:45+01:00

Jaglarz napisał(a):

No piękne cacko!

Cacko, to za mało powiedziane
Od razu zatęskniłem za makietą kolejki H0 którą budowałem jako szczeniak, chlip

Statystyki: Napisane przez Harry — 1 gru 2017, o 19:22

Re: Coraz bliżej święta :)

2017-12-01T19:11:18+01:00

Nie no, po prostu szacun.
Piękna sprawa;)

Statystyki: Napisane przez danielos — 1 gru 2017, o 19:11

Re: Coraz bliżej święta :)

2017-12-01T18:40:19+01:00

No piękne cacko!

Statystyki: Napisane przez Jaglarz — 1 gru 2017, o 18:40

Coraz bliżej święta :)

2017-12-24T13:39:17+01:00

Witam drodzy forumowicze. Temat świąteczny....w końcu już grudzień, pierwszy śnieg już był a sklepowe półki już od miesiąca uginając się od wszelkiego rodzaju ozdób. Chciałbym Wam przedstawić elementy stanowiące uzupełnienie Szopki Bożonarodzeniowej. Można to nazwać tłem...czy po prostu małym miasteczkiem będącym uzupełnieniem szopki. Wykonałem je samodzielnie przy pomocy najprostszych narzędzi, co zajęło mi około 4 miesiące.

Jako, że wszystkie elementy mają służyć długie lata nie oszczędzałem na materiałach. Wszystkie elementy elektroniczne sa fabrycznie nowe i możliwie wysokiej jakości - co głównie tyczy się kondensatorów elektrolitycznych które najbardziej są narażone na utratę parametrów z biegiem lat, ale i kondensatorów typu X2 w zasilaczach beztransformatorowych. Gdzie się dało, głównie do odsprzęgania obwodów niskoprądowych stosowałem kondensatory tantalowe. Byłem w tej dobrej sytuacji, że większość z elektroniki miałem zachomikowane w "szufladzie" i pomimo tych wszystkich starań koszt był minimalny. Starałem się także do minimum uprościć układy a to głównie tym, że nawet w prostych układach czasowych zamiast timerka 555 czy jakiegoś CMOS-a pracuje tani i łatwo dostępny attiny13...który także posiadam spory zapas. Płytka prostsza a i możliwości zmiany czasu, czy innych potrzebnych do pracy parametrów w zasadzie nieograniczone bez jakiejkolwiek ingerencji w sam układ....po prostu wystarczy zmienić kilka literek, czy cyfr w kodzie. Jeżeli chodzi o mechanikę to głównym materiałem jest drewno sosnowe, głównie w postaci gotowych półek o grubości 18mm dostępnych w hipermarketach budowlanych które pociąłem w zależności od potrzeb, jak i listwy sosnowe 20*20mm oraz 10*10mm, oraz tzw. dykta o grubości 10, 5 i 3mm. Wszystkie połączenia na wkręty plus klej do drewna. Nic nie miało prawa się ruszać...miało byc raz na zawsze. Dachy to głównie pocięte patyczki do lodów - tych płaskich poszło w sumie około 400 - oraz tektura falista przyklejone na dyktę, która stawi podstawowa część konstrukcyjną dachu, co daje dużo twardośc i sztywność całej konstrukcji. Efekt starego tynku udało się osiągnąc przy pomocy szpachli akrylowej do drewna odpowiednio potraktowanej szpachelką i pędzlem, a w późniejszym etapie prac przybrudzonej sproszkowanym grafitem ze startego wkładu ołówka jak i farbami akrylowymi. Farby to właśnie głównie akrylowe, ale większe powierzchnie zdarzało się malować plakatowymi. Podłoże to nic innego jak żwirek akwariowy zmieszany z Vicolem. Trawa elektrostatyczna i odrobina mchu uzupełniły całość. Wszystkie elementy zostało zabezpieczone wodorozcienczalnym lakierem bezbarwnym do drewna. Przydawały się też wałki tekturowe po papierze do pieczenia, tak powstały np. beczki. Figurki z tworzywa sztucznego zostały zamówione przez internet. Ich wysokość waha się między 7 a 10cm. Były to w zasadzie jedyne elementy, które zakupiłem.

Czytając dalszy opis, czy przeglądając zdjęcia zepewne zauważycie, że często stosowałem zasilacze baztransformatorowe. Zapewne wielu z was powie: Po co? Transformator kosztuje mniej więcej tyle samo co elementy potrzebne do konstrukcji beztransformatorowej, część pewnie podejmie kwestie bezpieczeństwa....co wybaczcie, ale z góry uważam za bezsensowne, bo przecież transformator także wymaga zasilania 230V. Zapewniam że nie ma nawet najmniejszego dostępu do nawet najmniejszej części elektronicznej, czy kawałka płytki drukowanej. Mało tego...każda płytka,na której można spotkać napięcie sieciowe została zamontowana nie bezpośrednio na drewnie, lecz na przekładce z tekstolitu. Nie bez znaczenia jest fakt, że posiadałem wszelkie elementy do wykonania zasilania beztransfomatorowego, czyli markowe kondensatory typu X2, diody Zenera o mocy 5W...czyli z ogromnym zapasem, metalizowane rezystory mocy i co najważniejsze zapas przekaźników z cewką 24V. Jako, ze miejsca miałem aż za nadto, nie starałem się nawet miniaturyzować płytek drukowanych. Odstępy miedzy ścieżkami - chodzi tu głównie o te z napięciem sieciowym - są przyjęte z dużym zapasem, a i same ścieżki nie należą do najcieńszych, więc i o płytkę można być spokojnym. Wszelkie obwody sieciowe sa zabezpieczone warystorem jak i bezpiecznikiem topikowym. W konstrukcjach z większym poborem mocy, czyli wiatrak, kurnik, stodoła stosowałem transformator, lub gotowy wtyczkowy zasilacz impulsowy. Tam gdzie pracował tylko PWM i nie było miejsca wystarczyła najzwyklejsza ładowarka do telefonu komórkowego z gniazdem USB. Tam, gdzie jednak miałem dużo miejsca, a pobór prądu był niewielki, tzn. 2mA dla procka i raz na jakiś czas 15mA gdy załączył się przekaźnik, czyli w przypadku dzwonnicy, prasy czy piekarni idealnym rozwiązanie był zasilacz beztransformatorowy. Zapewniam, że zasilacz beztransformatorowy może być niebezpieczny, tylko wtedy gdy jest zmontowany niechlujnie, z niewłaściwych elementów, lub w przypadku gdy jest dostęp do elementów samego zasilacza lub układu nim zasilanego. W tym przypadku nie ma takiej możliwości.

Płytki drukowane zostały zaprojektowane w programie Eagle i wykonane własnoręcznie metoda termotransferu. Wszędzie tam, gdzie pracuje mikrokontroler - attiny13, atmega8 i atmega644 - program został napisany w języku Bascom.

****************************************************************************************************************************
Pierwszy element który chciałbym Wam przedstawić jest jednocześnie najwyższym elementem. Dzwonnica, o której mowa ma prawie 60cm wysokości, a dzwon wykonany z mosiądzu ma 5.5cm średnicy, który z wielkim trudem udało mi sie upolować na znanym portalu aukcyjnym. Pracuje on wlutowany na wał z drutu miedzianego 16mm2 wzmocnionego miedzianymi rurkami, oczywiście zlutowanymi z wałem. Łozyskowany on jest w dwóch mosiężnych łożyskach ślizgowych wykonanych z redukcji do osprzętu pneumatycznego. Przeniesienie napędu z silnika to także konstrukcja wykonana z miedzi, a jako sprzęgło silnika idealnie pasowały tulejki elektryczne 35mm2. Odrobina farby akrylowej uzupełniła dzieło. Elektronika to nic innego jak attiny13 sterujący dzwonem na zasadzie 10 sekund pracy i 30 sekund przerwy. Pobór pradu układu jest niewielki co pozwoliło zastosować prosty zasilacz beztransformatorowy. Jako napęd dzwonu pracuje silnik SP36 z przekładnią redukująca obroty do 30 na minutę.

[syntax=basic4gl]'Dzwonnica
'Wybór pliku dyrektyw i częstotliwość taktowania
$regfile = "attiny13.dat"
$crystal = 9600000

'Konfiguracja stosu
$hwstack = 10
$swstack = 10
$framesize = 20

'Konfiguracja portów
Config Pinb.0 = Output
Przekaznik Alias Portb.0

'Pętla głowna
Do

Set Przekaznik

Wait 10

Reset Przekaznik

Wait 30

Loop
End[/syntax]

iframe

Drugim elementem pod względem czasu wykonania jak i wielkości jest wiatrak. Tutaj do napędy turbiny wiatrowej wykorzystałem silnik krokowy. Dlaczego? Po prostu zalegał w składziku częsci, a także pozwalało mi to swobodzie regulować prędkośc obrotową turbiny w sposób programowy. Nie bez znaczenia była także kultura pracy takiego silnika - brak przekładni i łozyska kulkowe pozwalają na znaczne zredukowanie wytwarzanego hałasu co podczas pracy ciągłej ma nie małe znaczenie. Problemem była praca przy bardzo niskiej prędkości obrotowej, ponieważ przy dosyć dużej średnicy samej turbiny było widoczne szarpanie, czyli poszczególne kroki...nawet przy sterowaniu półkrokowym. Rozwiązaniem okazało sie nieznaczne zwiekszenie prędkości, dzięki czemu kultura pracy było o wiele wyższa. Tutaj właśnie, nawet w tak prymitywnym przykładzie wychodzi o ile łatwiej budować tego typu układy z wykorzystaniem mikrokontrolera. Zmienić jedną linijkę w kodzie z czasem przerwy między kolejnymi półkrokami z "waitms 4" na "waitms 8" to dosłownie chwilka, no i pewność że czas się ten nie rozjedzie z biegiem czasu z powodu zwykłego starzenia elementów w tradycyjnym układzie czasowym. Silnik teoretycznie był przystosowany do pracy z napięciem 24V (opór uzwojeń 80omów), jednak bez problemu pracuje w tym przypadku z wtyczkowym zasilaczem impulsowym 12V wytwarzając moment obrotowy ze znacznym zapasem. Sprzęgło na oś 6.3mm zostało wytoczone przez znajomego tokarza za przysłowiową flaszeczkę co znacznie ułatwiło osadzenie nie małego wirnika - jest przykręcony za pomoca czterech śrub. Tutaj także pracuje attiny 13 i to on podaje na swoje porty przebieg potrzebny do sterowania półkrokowego. Lampion wykonany z grubej tektury, od środka podświetlony pomarańczową diodą led.

[syntax=basic4gl]'Wiatrak
'Wybór pliku dyrektyw i częstotliwość taktowania
$regfile = "attiny13.dat"
$crystal = 9600000

'Konfiguracja stosu
$hwstack = 10
$swstack = 10
$framesize = 20

'Konfiguracja portów
Config Pinb.0 = Output
Config Pinb.1 = Output
Config Pinb.2 = Output
Config Pinb.4 = Output

A1 Alias Portb.1
B1 Alias Portb.2
A2 Alias Portb.0
B2 Alias Portb.4

'Pętla głowna
Do

Set A1
Reset B1
Reset A2
Reset B2

Waitms 8

Set A1
Set B1
Reset A2
Reset B2

Waitms 8

Reset A1
Set B1
Reset A2
Reset B2

Waitms 8

Reset A1
Set B1
Set A2
Reset B2

Waitms 8

Reset A1
Reset B1
Set A2
Reset B2

Waitms 8

Set A1
Reset B1
Set A2
Set B2

Waitms 8

Reset A1
Reset B1
Reset A2
Set B2

Waitms 8

Set A1
Reset B1
Reset A2
Set B2

Waitms 8

Loop
End[/syntax]

iframe

Następny duży projekt...ale już nie gabarytowy, lecz pod względem technicznym to kurnik...z wbudowanym odtwarzaczem plików wav z karty microSD. Tu w pewnym sensie poszedłem na skróty i zakupiłem adapter microSD z firmy ATNEL. Uważam że to fajny moduł znacznie ułatwiający pracę. Posiada slot karty, bufor magistrali oraz stabilizator 3.3V. Sercem kurnika jest mikrokontroler atmega644...taki posiadałem i taki wpakowałem, nie patrząc nie niewiele wyższą cenę czy zasoby dużo większe od wymaganych dla tego projektu - w zupełności by wystarczył atmega32. Kod źródłowy znalazłem w jednym z tematów z forum, jednak dokonałem pewnych potrzebnych zmian, by dostosować go do swoich wymagań.

Myślę, że wypada podać link do oryginalnego artykułu:
https://www.elektroda.pl/rtvforum/topic1525524.html

Zasada pracy jest bardzo prosta i polega po prostu na odtwarzaniu w kółko ścieżki ze zmiksowanymi ze sobą różnymi odgłosami wsi w stylu kury, krowy, gęsi, koń, psy...ale także i odgłosy wydawane przez przejeżdżający wóz konny jak i pracę kowala. Część z tych odgłosów znalazłem w internecie, jednak najwięcej pochodzi ze starej gry Stronghold, gdzie można je znaleźć w folderze Media. Zostały one obrobione w Audacity i zapisane na karcie microSD. W załączniku znajduje się plik, który mozna znaleźc także na karcie wymienionego kurnika.
Jako wzmacniacz wyjściowy pracuje LM386. Regulacja głośności potencjometrem 10cio obrotowym umieszczonym na płytce (można także programowo - odsyłam do oryginalnego postu). Akurat w tym przypadku nie obyło się bez problemów. Pierwsza płytka, zaprojektowana trochę bezmyślnie, niestety wylądowała w koszu. Powód - złe rozmieszczenie ścieżek...a dokładnie nad ścieżkami magistrali SPI umieściłem zworkę, która akurat prowadziła do wejścia wzmacniacz LM386. Efekt był taki ze oprócz ściezki dźwiekowej słyszałem zakłócenia. Przecięcie zworki i poprowadzenie jej troszkę inaczej zwykłym kablem pomogło, ale sama swiadomośc takiej "papraniny" zmusiła mnie do zaprojektowania płytki od nowa. Kurnik zasilany jest z wtyczkowego zasilacza impulsowego 12V. Jest to napięcie zbyt duże dla wzmacniacza dlatego zredukowałem napięcie przy pomocy łańcucha diod 1N400x do wartości niższej nie katalogowe maksimum. Jest to sposób najprostszy, ale całkowicie wystarczający i dzięki temu uniknąłem stabilizatora liniowego z radiatorem, czy osobnej przetwornicy redukującej napięcie.

[syntax=basic4gl]$regfile = "M644pDef.dat"
$crystal = 16000000
$hwstack = 160
$swstack = 92
$framesize = 92

Dim Timer1_licznik As Byte
Dim Buffer(256) As Byte At 1024
Dim Write_position As Byte
Dim Read_position As Byte
Dim Write_position_word As Word
Dim Volume As Byte
Dim A As Byte
Dim B As Word
Dim Plik As String * 10
Dim Flaga As Bit

Config Porta = &B00000000
Config Portc = &B00000000
Config Portb = &B00000000
Config Portd = &B00100000

Porta = &B00000000
Portc = &B00000000
Portb = &B00000000
Portd = &B00000000

On Timer1 Timer1_handler Nosave
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Disconnect , Prescale = 1

Pwm1a = 129

$include "CONFIG_AVR-DOS.Bas"

Config Clock = Soft

Const Cmmc_soft = 0

Config Pinb.4 = Output
Mmc_cs Alias Portb.4
Set Mmc_cs

Config Pinb.7 = Output
Spi_ss Alias Portb.7
Set Spi_ss

Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4 , Noss = 1

Spsr.0 = 1
Spsr.0 = 1

Spiinit

Const Cperrdrivereset = 225
Const Cperrdriveinit = 226
Const Cperrdrivereadcommand = 227
Const Cperrdrivewritecommand = 228
Const Cperrdrivereadresponse = 229
Const Cperrdrivewriteresponse = 230
Const Cperrdrive = 231
Const Cperrdrivenotsupported = 232
Waitms 700
Dim Gbdriveerror As Byte
Dim Gbdriveerrorreg As Byte
Dim Gbdrivestatusreg As Byte
Dim Gbdrivedebug As Byte
$lib "MMC.LIB"
$external _mmc

Enable Interrupts

Config Watchdog = 1024
Start Watchdog

Flaga = 0
Volume = 255

Gbdriveerror = Driveinit()
B = Initfilesystem(1)

Do

If Flaga = 1 Then
Start Watchdog
For Write_position_word = 1 To 256
Buffer(write_position_word) = 129
Next Write_position_word

Disable Timer1
Close #2
Flaga = 0
Do

Loop
End If

Plik = "wies.wav"

Gosub Odtwarzacz

Reset Watchdog

Loop
End

Odtwarzacz:

Stop Watchdog

Open Plik For Binary As #2

Pwm1a = 129

For Write_position_word = 1 To 256
Get #2 , Buffer(write_position_word)
Next Write_position_word

For Write_position_word = 1 To 256
Get #2 , Buffer(write_position_word)
Next Write_position_word

Write_position = 0
Enable Timer1

Do

If Write_position <> Read_position Then
Get #2 , A

lds R16, {A}
subi R16, 128
lds R17, {Volume}
mulsu R16, R17
mov R16, R1
subi R16, 128

ldi R27, 4
lds R26, {Write_position}
st X+, R16
sts {Write_position}, R26

End If

Loop Until Eof(#2) <> 0

For Write_position_word = 1 To 256
Buffer(write_position_word) = 129
Next Write_position_word
Disable Timer1

Close #2

Flaga = 1

Start Watchdog

Return

Timer1_handler:
push R16
In R16, SREG
push R26
push R27

lds R26, {Timer1_licznik}
inc R26
sts {Timer1_licznik}, R26
cpi R26, 2
brlo R26_mniejsze_2
ldi R26, 0
sts {Timer1_licznik}, R26

ldi R27, 4
lds R26, {Read_position}
ld R27, X+
!Out OCR1AH, R27
!Out OCR1AL, R27

sts {Read_position}, R26
R26_mniejsze_2:

pop R27
pop R26
!Out SREG, R16
pop R16
Return[/syntax]

Jeszcze config avr-dos

[syntax=basic4gl]$nocompile
' Config File-System for Version 5.5:

' === User Settings ============================================================

' Count of file-handles, each file-handle needs 524 Bytes of SRAM
Const Cfilehandles = 1 ' [default = 2]

' Handling of FAT-Buffer in SRAM:
' 0 = FAT- and DIR-Buffer is handled in one SRAM buffer with 561 bytes
' 1 = FAT- and DIR-Buffer is handled in separate SRAM buffers with 1078 bytes
' Parameter 1 increased speed of file-handling
Const Csepfathandle = 0 ' [default = 1]

' Handling of pending FAT and Directory information of open files
' 0 = FAT and Directory Information is updated every time a data sector of the file is updated
' 1 = FAT and Directory Information is only updated at FLUSH and SAVE command
' Parameter 1 increases writing speed of data significantly
Const Cfatdirsaveatend = 1 ' [default = 1]

' Surrounding String with Quotation Marks at the Command WRITE
' 0 = No Surrounding of strings with quotation.marks
' 1 = Surrounding of strings with quotation.marks (f.E. "Text")
Const Ctextquotationmarks = 0 ' [default = 1]

' Write second FAT. Windows accepts a not updated second FAT
' PC-Command: chkdsk /f corrects the second FAT, it overwrites the
' second FAT with the first FAT
' set this parameter to 0 for high speed continuing saving data
' 0 = Second FAT is not updated
' 1 = Second FAT is updated if exist
Const Cfatsecondupdate = 0 ' [default = 1]

' Character to separate ASCII Values in WRITE - statement (and INPUT)
' Normally a comma (,) is used. but it can be changed to other values, f.E.
' to TAB (ASCII-Code 9) if EXCEL Files with Tab separated values should be
' written or read. This parameter works for WRITE and INPUT
' Parameter value is the ASSCII-Code of the separator
' 44 = comma [default]
' 9 = TAB ' [default = 44]
Const Cvariableseparator = 44

' === End of User Setting ======================================================

' === Variables for AVR-DOS ====================================================

' FileSystem Basis Informationen
Dim Gldrivesectors As Long
Dim Gbdoserror As Byte

' Master Boot Record
Dim Gbfilesystem As Byte
' Partition Boot Record
Dim Gbfilesystemstatus As Byte
Dim Glfatfirstsector As Long
Dim Gbnumberoffats As Byte
Dim Glsectorsperfat As Long
Dim Glrootfirstsector As Long
Dim Gwrootentries As Word
Dim Gldatafirstsector As Long
Dim Gbsectorspercluster As Byte
Dim Glmaxclusternumber As Long
Dim Gllastsearchedcluster As Long

' Additional info
Dim Glfs_temp1 As Long

' Block für Directory Handling

Dim Gldirfirstsectornumber As Long

Dim Gwfreedirentry As Word
Dim Glfreedirsectornumber As Long

Dim Gsdir0tempfilename As String * 11
Dim Gwdir0entry As Word ' Keep together with next, otherwise change _DIR
Dim Gldir0sectornumber As Long

Dim Gstempfilename As String * 11
Dim Gwdirentry As Word
Dim Gldirsectornumber As Long
Dim Gbdirbufferstatus As Byte
Dim Gbdirbuffer(512) As Byte
Const C_filesystemsramsize1 = 594
#if Csepfathandle = 1
Dim Glfatsectornumber As Long
Dim Gbfatbufferstatus As Byte
Dim Gbfatbuffer(512) As Byte
Const C_filesystemsramsize2 = 517
#else
Const C_filesystemsramsize2 = 0
#endif

' File Handle Block
Const Co_filenumber = 0
Const Co_filemode = 1
Const Co_filedirentry = 2 : Const Co_filedirentry_2 = 3
Const Co_filedirsectornumber = 4
Const Co_filefirstcluster = 8
Const Co_filesize = 12
Const Co_fileposition = 16
Const Co_filesectornumber = 20
Const Co_filebufferstatus = 24
Const Co_filebuffer = 25
Const C_filehandlesize = Co_filebuffer + 513 ' incl. one Additional Byte for 00 as string terminator
' for direct text reading from File-buffer
Const C_filehandlesize_m = 65536 - C_filehandlesize ' for use with add immediate word with subi, sbci
' = minus c_FileHandleSize in Word-Format

Const C_filehandlessize = C_filehandlesize * Cfilehandles

Dim Abfilehandles(c_filehandlessize) As Byte
Const C_filesystemsramsize = C_filesystemsramsize1 + C_filesystemsramsize2 + C_filehandlessize

' End of variables for AVR-DOS ================================================

' Definitions of Constants ====================================================

' Bit definiton for FileSystemStatus

Dfilesystemstatusfat Alias 0 : Const Dfilesystemstatusfat = 0 ' 0 = FAT16, 1 = FAT32
Dfilesystemsubdir Alias 1 : Const Dfilesystemsubdir = 1 ' 0 = Root-Directory, 1 = Sub-Directory
Const Dmfilesystemsubdir =(2 ^ Dfilesystemsubdir) ' not used yet
Const Dmfilesystemdirincluster =(2 ^ Dfilesystemstatusfat + 2 ^ Dfilesystemsubdir) ' not used yet
Dfatsecondupdate Alias 7 : Const Dfatsecondupdate = 7 ' Bit-position for parameter of
' Update second FAT in gbFileSystemStatus

' Bit Definitions for BufferStatus (FAT, DIR, File)

Deof Alias 1 : Const Deof = 1 : Const Dmeof =(2 ^ Deof)
Deofinsector Alias 2 : Const Deofinsector = 2 : Const Dmeofinsector =(2 ^ Deofinsector)
Dwritepending Alias 3 : Const Dwritepending = 3 : Const Dmwritepending =(2 ^ Dwritepending)
Dfatsector Alias 4 : Const Dfatsector = 4 : Const Dmfatsector =(2 ^ Dfatsector) ' For Writing Sector back (FATNumber times)
Dfileempty Alias 5 : Const Dfileempty = 5 : Const Dmfileempty =(2 ^ Dfileempty)

' New feature for reduce saving
Dfatdirwritepending Alias 6 : Const Dfatdirwritepending = 6 : Const Dmfatdirwritepending =(2 ^ Dfatdirwritepending)
Dfatdirsaveatend Alias 7 : Const Dfatdirsaveatend = 7 : Const Dmfatdirsaveatend =(2 ^ Dfatdirsaveatend)
Dfatdirsaveanyway Alias 0 : Const Dfatdirsaveanyway = 0 : Const Dmfatdirsaveanyway =(2 ^ Dfatdirsaveanyway)

Const Dmeofall =(2 ^ Deof + 2 ^ Deofinsector)
Const Dmeof_empty =(2 ^ Deof + 2 ^ Deofinsector + 2 ^ Dfileempty)

Const Cp_fatbufferinitstatus =(2 ^ Dfatsector)
Const Cp_dirbufferinitstatus = 0

#if Cfatdirsaveatend = 1
Const Cp_filebufferinitstatus =(2 ^ Dfatdirsaveatend)
#else
Const Cp_filebufferinitstatus = 0
#endif

#if Cfatsecondupdate = 0
Const Cp_fatsecondupdate =(2 ^ Dfatsecondupdate)
#else
Const Cp_fatsecondupdate = 0
#endif

' Bit definitions for FileMode (Similar to DOS File Attribut)
Dreadonly Alias 0 : Const Dreadonly = 0
'Const cpFileReadOnly = &H21 ' Archiv and read-only Bit set
Const Cpfilewrite = &H20 ' Archiv Bit set

' Error Codes

' Group Number is upper nibble of Error-Code
' Group 0 (0-15): No Error or File End Information
Const Cpnoerror = 0
Const Cpendoffile = 1

' Group 1 (17-31): File System Init
Const Cpnombr = 17
Const Cpnopbr = 18
Const Cpfilesystemnotsupported = 19
Const Cpsectorsizenotsupported = 20
Const Cpsectorsperclusternotsupported = 21
Const Cpcountofclustersnotsupported = 22

' Group 2 (32-47): FAT - Error
Const Cpnonextcluster = 33
Const Cpnofreecluster = 34
Const Cpclustererror = 35
' Group 3 (49-63): Directory Error
Const Cpnofreedirentry = 49
Const Cpfileexists = 50
Const Cpfiledeletenotallowed = 51
Const Cpsubdirectorynotempty = 52
Const Cpsubdirectoryerror = 53
Const Cpnotasubdirectory = 54
' Group 4 (65-79): File Handle
Const Cpnofreefilenumber = 65
Const Cpfilenotfound = 66
Const Cpfilenumbernotfound = 67
Const Cpfileopennohandle = 68
Const Cpfileopenhandleinuse = 69
Const Cpfileopenshareconflict = 70
Const Cpfileinuse = 71
Const Cpfilereadonly = 72
Const Cpfilenowildcardallowed = 73
Const Cpfilenumberinvalid = 74 ' Zero is not allowed

' Group 7 (97-127): other errors
Const Cpfilepositionerror = 97
Const Cpfileaccesserror = 98
Const Cpinvalidfileposition = 99
Const Cpfilesizetogreat = 100

Const Cpdrivererrorstart = &HC0

' Range 224 to 255 is reserved for Driver

' Other Constants
' File Open Mode / stored in File-handle return-value of Fileattr(FN#, [1])
Const Cpfileopeninput = 1 ' Read
Const Cpfileopenoutput = 2 ' Write sequential
'Const cpFileOpenRandom = 4 ' not in use yet
Const Cpfileopenappend = 8 ' Write sequential; first set Pointer to end
Const Cpfileopenbinary = 32 ' Read and Write; Pointer can be changed by user

' permission Masks for file access routine regarding to the file open mode
Const Cfilewrite_mode = &B00101010 ' Binary, Append, Output
Const Cfileread_mode = &B00100001 ' Binary, Input
Const Cfileseekset_mode = &B00100000 ' Binary
Const Cfileinputline = &B00100001 ' Binary, Input
Const Cfileput_mode = &B00100000 ' Binary
Const Cfileget_mode = &B00100000 ' Binary

' Directory attributs in FAT16/32
Const Cpfileopenallowed = &B00100001 ' Read Only and Archiv may be set
Const Cpfiledeleteallowed = &B00100000
Const Cpfilesearchallowed = &B00111101 ' Do no search hidden Files
' Bit 0 = Read Only
' Bit 1 = Hidden
' Bit 2 = System
' Bit 3 = Volume ID
' Bit 4 = Directory
' Bit 5 = Archiv
' Long File name has Bit 0+1+2+3 set
Dim Lastdosmem As Byte

$lib "AVR-DOS.Lbx"[/syntax]

iframe

wies.rar

Czas na prasę do oliwek. Projekt ruchomy...dwa kamienie obracają się w rynnie przez 60 sekund po czym następuje 15 sekund przerwy. Pobór prądu przez elekronikę nieznaczny i sterowanie znów na attiny13, co pozwoliło na zastosowanie zasilacza beztransformatorowego. Silnik ten sam jak wyżej, czyli SP36 30obr/min sterowany przekaźnikiem. Mechanika wykonana z polutowanej miedzi, pomalowana farbami akrylowymi, kamienie to sklejone ze sobą krążki tekturowe pokryte drobnym piaskiem sklejonym Vicolem. Misa prasy wykonana ze sklejki, oprócz podstawy silnika którą zrobiłem z tekstolitu. Oczywiście jest dostęp do silnika "od spodu" zakryty płytką z cienkiego tekstolitu.

[syntax=basic4gl]'Prasa
'Wybór pliku dyrektyw i częstotliwość taktowania
$regfile = "attiny13.dat"
$crystal = 9600000

'Konfiguracja stosu
$hwstack = 10
$swstack = 10
$framesize = 20

'Konfiguracja portów
Config Pinb.0 = Output
Przekaznik Alias Portb.0

'Pętla głowna
Do

Set Przekaznik

Wait 60

Reset Przekaznik

Wait 15

Loop
End[/syntax]

iframe

Piekarnia....projekt ruchomy dzięki gospodyni na balkonie. Elektronika i całe sterowanie to w zasadzie kopia prasy do oliwek z tą różnica ze wykorzystałem tu sprzętowy PWM w attiny13 do imitacji ognia z piecu piekarni. Wykorzystałem tutaj - w zasadzie ten sposób jest wykorzystany wszędzie gdzie PWM pracuje z dioda LED - Bascomowe polecenie "rnd()" ale i także korekcję charakterystyki Gamma dla diod led. Tutaj z pomocą przyszedł mi program mkAVRCalculator, który potrafi odpowiednie wartości wygenerować, co pozwala zachować liniowa charakterystykę i znacznie poprawia efekt wizualny. W tym miejscu może troszkę napisze o całej mechanice. Jako wszelkiego rodzaju podstawy zastosowałem tekstolit. Jest to materiał łatwy w obróbce a przy okazji bardzo mocny....niestety bardzo drogi jak na pocięte szmaty i żywicę. Łożyska dla wszelkiego rodzaju wałów stanowiąc odpowiednio przycięte i przewiercone elementy pneumatyczne typu redukcje i złączki wykonane z mosiądzu. Wały i cięgna to drut miedziany odpowiedni pogięty i polutowany. Jeżeli uważałem że jakieś miejsce wymaga większego wzmocnienia - na przykład w przypadku wału dzwonu w dzwonnicy to na drut miedziany nakładałem rurkę miedzianą i lutowałem na miękko. Tak wykonany element był bardzo trudny do zgięcia w rękach co myślę że z wielkim nadmiarem wystarczy w tego typu konstrukcji.

[syntax=basic4gl]'Piekarnia
'Wybór pliku dyrektyw i częstotliwość taktowania
$regfile = "attiny13.dat"
$crystal = 9600000

'Określenie wielkości stusu i ramki
$hwstack = 16
$swstack = 16
$framesize = 24

'Konfiguracja portów
Config Pinb.0 = Output
Config Pinb.2 = Output

'Stan początkowy na porcie
Reset Portb.2

'Konfiguracja Timera0 w tryb 8 bit PWM
Config Timer0 = Pwm , Compare A Pwm = Clear Down , Compare B Pwm = Disconnect , Prescale = 8
Start Timer0

'Deklaracja zmiennych
Dim Step_pwm As Byte
Dim Led_pwm As Byte

Dim Kolejnosc As Bit
Dim Licznik As Byte

Step_pwm = 0
Led_pwm = 0

Kolejnosc = 0
Licznik = 0

'Pętla główna
Do

'Piec
Step_pwm = Rnd(175)
Led_pwm = Lookup(step_pwm , Gamma_correction_red)
Ocr0a = Led_pwm

'Czas ruchu gospodyni
If Kolejnosc = 0 Then
Set Portb.2
Incr Licznik

If Licznik >= 50 Then
Licznik = 0
Kolejnosc = 1
End If

End If

'Czas postoju gospodyni
If Kolejnosc = 1 Then
Reset Portb.2
Incr Licznik

If Licznik >= 150 Then
Licznik = 0
Kolejnosc = 0
End If

End If

Waitms 100

Loop
End

'Tablica z wartościami wypełnienia dla współczynnika Gamma równego 2.5 - 176 elementów
Gamma_correction_red:
Data 14 , 14 , 15 , 15 , 16 , 16 , 17 , 17 , 18 , 18 , 19 , 19 , 20 , 20 , 21 , 21
Data 22 , 23 , 23 , 24 , 24 , 25 , 26 , 26 , 27 , 28 , 28 , 29 , 30 , 30 , 31 , 32
Data 33 , 33 , 34 , 35 , 36 , 36 , 37 , 38 , 39 , 39 , 40 , 41 , 42 , 43 , 44 , 45
Data 45 , 46 , 47 , 48 , 49 , 50 , 51 , 52 , 53 , 54 , 55 , 56 , 57 , 58 , 59 , 60
Data 61 , 62 , 63 , 64 , 65 , 67 , 68 , 69 , 70 , 71 , 72 , 73 , 75 , 76 , 77 , 78
Data 79 , 81 , 82 , 83 , 85 , 86 , 87 , 88 , 90 , 91 , 92 , 94 , 95 , 97 , 98 , 99
Data 101 , 102 , 104 , 105 , 107 , 108 , 110 , 111 , 113 , 114 , 116 , 117 , 119 , 121 , 122 , 124
Data 125 , 127 , 129 , 130 , 132 , 134 , 135 , 137 , 139 , 141 , 142 , 144 , 146 , 148 , 149 , 151
Data 153 , 155 , 157 , 159 , 161 , 162 , 164 , 166 , 168 , 170 , 172 , 174 , 176 , 178 , 180 , 182
Data 184 , 186 , 188 , 190 , 192 , 195 , 197 , 199 , 201 , 203 , 205 , 208 , 210 , 212 , 214 , 217
Data 219 , 221 , 223 , 226 , 228 , 230 , 233 , 235 , 237 , 240 , 242 , 245 , 247 , 250 , 252 , 255[/syntax]

iframe

Następne opisane elementy szopki są już statyczne, jednak i w nich można napotkać na odrobinę elektroniki. Jako pierwszy przykład podam wędrowca przy szałasie. Elektronika ogranicza się do attiny 13 wytwarzającego losowy przebieg PWM z zastosowaniem korekcji Gamma imitując w ten sposób światło ogniska. Jako zasilacz pracuje ładowarka do telefonu komórkowego z gniazdem USB. Ciężko w tym przypadku opisać cokolwiek więcej...niech zdjęcia mówią same za siebie:)

[syntax=basic4gl]'Wędrowiec
'Wybór pliku dyrektyw i częstotliwość taktowania
$regfile = "attiny13.dat"
$crystal = 4800000

'Określenie wielkości stusu i ramki
$hwstack = 10
$swstack = 10
$framesize = 20

'Konfiguracja portów
Config Pinb.0 = Output

'Konfiguracja Timera0 w tryb 8 bit PWM
Config Timer0 = Pwm , Compare A Pwm = Clear Up , Compare B Pwm = Disconnect , Prescale = 8
Start Timer0

'Deklaracja zmiennych
Dim Step_pwm As Byte
Dim Led_pwm As Byte

Step_pwm = 0
Led_pwm = 0

'Pętla główna
Do
Step_pwm = Rnd(175)
Led_pwm = Lookup(step_pwm , Gamma_correction_red)
Ocr0a = Led_pwm
Waitms 100
Loop
End

'Tablica z wartościami wypełnienia dla współczynnika Gamma równego 2.5 - 176 elementów
Gamma_correction_red:
Data 14 , 14 , 15 , 15 , 16 , 16 , 17 , 17 , 18 , 18 , 19 , 19 , 20 , 20 , 21 , 21
Data 22 , 23 , 23 , 24 , 24 , 25 , 26 , 26 , 27 , 28 , 28 , 29 , 30 , 30 , 31 , 32
Data 33 , 33 , 34 , 35 , 36 , 36 , 37 , 38 , 39 , 39 , 40 , 41 , 42 , 43 , 44 , 45
Data 45 , 46 , 47 , 48 , 49 , 50 , 51 , 52 , 53 , 54 , 55 , 56 , 57 , 58 , 59 , 60
Data 61 , 62 , 63 , 64 , 65 , 67 , 68 , 69 , 70 , 71 , 72 , 73 , 75 , 76 , 77 , 78
Data 79 , 81 , 82 , 83 , 85 , 86 , 87 , 88 , 90 , 91 , 92 , 94 , 95 , 97 , 98 , 99
Data 101 , 102 , 104 , 105 , 107 , 108 , 110 , 111 , 113 , 114 , 116 , 117 , 119 , 121 , 122 , 124
Data 125 , 127 , 129 , 130 , 132 , 134 , 135 , 137 , 139 , 141 , 142 , 144 , 146 , 148 , 149 , 151
Data 153 , 155 , 157 , 159 , 161 , 162 , 164 , 166 , 168 , 170 , 172 , 174 , 176 , 178 , 180 , 182
Data 184 , 186 , 188 , 190 , 192 , 195 , 197 , 199 , 201 , 203 , 205 , 208 , 210 , 212 , 214 , 217
Data 219 , 221 , 223 , 226 , 228 , 230 , 233 , 235 , 237 , 240 , 242 , 245 , 247 , 250 , 252 , 255[/syntax]

iframe

To samo, mogę powiedzieć w przypadku kolejnego elementu, czyli ogniska. Tutaj także sercem jest attiny13 i tak jak poprzednio pracuje ze sprzetowym PWMem z korekcją Gamma. Zasilanie to także ładowarka z gniazdem USB 5V.

[syntax=basic4gl]'Ognisko
'Wybór pliku dyrektyw i częstotliwość taktowania
$regfile = "attiny13.dat"
$crystal = 4800000

'Określenie wielkości stusu i ramki
$hwstack = 10
$swstack = 10
$framesize = 20

'Konfiguracja portów
Config Pinb.0 = Output

'Konfiguracja Timera0 w tryb 8 bit PWM
Config Timer0 = Pwm , Compare A Pwm = Clear Up , Compare B Pwm = Disconnect , Prescale = 8
Start Timer0

'Deklaracja zmiennych
Dim Step_pwm As Byte
Dim Led_pwm As Byte

Step_pwm = 0
Led_pwm = 0

'Pętla główna
Do
Step_pwm = Rnd(175)
Led_pwm = Lookup(step_pwm , Gamma_correction_red)
Ocr0a = Led_pwm
Waitms 100
Loop
End

'Tablica z wartościami wypełnienia dla współczynnika Gamma równego 2.5 - 176 elementów
Gamma_correction_red:
Data 14 , 14 , 15 , 15 , 16 , 16 , 17 , 17 , 18 , 18 , 19 , 19 , 20 , 20 , 21 , 21
Data 22 , 23 , 23 , 24 , 24 , 25 , 26 , 26 , 27 , 28 , 28 , 29 , 30 , 30 , 31 , 32
Data 33 , 33 , 34 , 35 , 36 , 36 , 37 , 38 , 39 , 39 , 40 , 41 , 42 , 43 , 44 , 45
Data 45 , 46 , 47 , 48 , 49 , 50 , 51 , 52 , 53 , 54 , 55 , 56 , 57 , 58 , 59 , 60
Data 61 , 62 , 63 , 64 , 65 , 67 , 68 , 69 , 70 , 71 , 72 , 73 , 75 , 76 , 77 , 78
Data 79 , 81 , 82 , 83 , 85 , 86 , 87 , 88 , 90 , 91 , 92 , 94 , 95 , 97 , 98 , 99
Data 101 , 102 , 104 , 105 , 107 , 108 , 110 , 111 , 113 , 114 , 116 , 117 , 119 , 121 , 122 , 124
Data 125 , 127 , 129 , 130 , 132 , 134 , 135 , 137 , 139 , 141 , 142 , 144 , 146 , 148 , 149 , 151
Data 153 , 155 , 157 , 159 , 161 , 162 , 164 , 166 , 168 , 170 , 172 , 174 , 176 , 178 , 180 , 182
Data 184 , 186 , 188 , 190 , 192 , 195 , 197 , 199 , 201 , 203 , 205 , 208 , 210 , 212 , 214 , 217
Data 219 , 221 , 223 , 226 , 228 , 230 , 233 , 235 , 237 , 240 , 242 , 245 , 247 , 250 , 252 , 255[/syntax]

iframe

Drzewo i drogowskaz to elementy całkowicie pozbawione jakiejkolwiek elektroniki. Wykonane jako uzupełnienie krajobrazu:)

Ostatnim elementem jest stodoła. Wykonałem ją głównie dla wygody osoby która będzie szopkę obsługiwać. Postanowiłem podzielić całość konstrukcji na elementy ciche i głośne....czyli potrzebowałem dwa osobne kanały do sterowania - stąd tez i dwa gniazda na ścianie tylnej stodoły. Pilot RC-5 okazał się najlepszym i najprostszym rozwiązaniem. Tutaj pracuje już atmega8 a program jak i w poprzednich przypadkach został napisany w języku Bascom i wykorzystuje gotowe polecenie do odbioru sygnału kodowanego w RC-5. Stodoła oprócz sterownika RC-5 została wyposazona w filtr sieciowy, wyłącznik główny, oraz bezpieczniki topikowe, zarówno dla całości jak i dla każdego gniazda osobno. Dla ułatwienia zamontowałem buzzer, który w zależności od ilości wydawanych dzięków informuje który kanał został załączony jak i wyłączony.

[syntax=basic4gl]'Stodoła - sterowania zasilania RC5

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

$lib "mcsbyte.lbx"

Config Pinc.3 = Output
Config Pinc.4 = Output
Config Pinc.5 = Output

Reset Portc.3
Reset Portc.4
Reset Portc.5

Dim Address As Byte
Dim Command As Byte
Dim Counter_time As Byte
Dim End_of_transmission As Bit
Dim Outlet_socket_1 As Bit
Dim Outlet_socket_2 As Bit
Dim Wait_1000ms As Bit

Set Portc.3
Waitms 50
Reset Portc.3
Waitms 100
Set Portc.3
Waitms 50
Reset Portc.3

Config Rc5 = Pind.2 , Wait = 2000

Enable Interrupts

Config Watchdog = 2048
Start Watchdog

Do

Getrc5(address , Command)

Command = Command And &B01111111

If End_of_transmission = 1 And Address = 255 And Command = 127 Then
Reset End_of_transmission
End If

If End_of_transmission = 0 And Address = 0 And Command < 127 Then
Set End_of_transmission

If Command = 1 Then
Toggle Outlet_socket_1

If Outlet_socket_1 = 0 Then
Reset Portc.5
Set Portc.3
Waitms 50
Reset Portc.3
Waitms 100
Set Portc.3
Waitms 50
Reset Portc.3
Set Wait_1000ms
End If

If Outlet_socket_1 = 1 Then
Set Portc.5
Set Portc.3
Waitms 50
Reset Portc.3
Set Wait_1000ms
End If
End If

If Command = 2 Then
Toggle Outlet_socket_2

If Outlet_socket_2 = 0 Then
Reset Portc.4
Set Portc.3
Waitms 50
Reset Portc.3
Waitms 100
Set Portc.3
Waitms 50
Reset Portc.3
Set Wait_1000ms
End If

If Outlet_socket_2 = 1 Then
Set Portc.4
Set Portc.3
Waitms 50
Reset Portc.3
Set Wait_1000ms
End If
End If

If Command = 0 Or Command > 2 Then
Set Portc.3
Waitms 50
Reset Portc.3
Waitms 100
Set Portc.3
Waitms 50
Reset Portc.3
Waitms 100
Set Portc.3
Waitms 50
Reset Portc.3
Waitms 100
Set Portc.3
Waitms 50
Reset Portc.3
Waitms 100
Set Portc.3
Waitms 50
Reset Portc.3
Set Wait_1000ms
End If

End If

If Wait_1000ms = 1 Then
Counter_time = 0
Reset Wait_1000ms
Do
Reset Watchdog
Incr Counter_time
Waitms 100
Loop Until Counter_time = 10
Else
Reset Watchdog
End If

Loop
End[/syntax]

Statystyki: Napisane przez fysiek — 1 gru 2017, o 18:18