ATNEL tech-forum 2014-12-03T20:23:08+01:00 https://forum.atnel.pl/feed.php?f=12&t=9328&mode 2014-12-03T20:23:08+01:00 2014-12-03T20:23:08+01:00 https://forum.atnel.pl/viewtopic.php?t=9328&p=107271#p107271 <![CDATA[Re: ATmega32 BASCOM-Sterownik domowy/pokojowy]]> Statystyki: Napisane przez Jaglarz — 3 gru 2014, o 20:23

]]> 2014-12-03T19:02:41+01:00 2014-12-03T19:02:41+01:00 https://forum.atnel.pl/viewtopic.php?t=9328&p=107246#p107246 <![CDATA[Re: ATmega32 BASCOM-Sterownik domowy/pokojowy]]> Statystyki: Napisane przez matrix — 3 gru 2014, o 19:02

]]> 2014-12-03T18:57:01+01:00 2014-12-03T18:57:01+01:00 https://forum.atnel.pl/viewtopic.php?t=9328&p=107243#p107243 <![CDATA[Re: ATmega32 BASCOM-Sterownik domowy/pokojowy]]> warunek muszą mieć nagłówek:
Z autorem, adresem email, wersją, znanymi bugami lub nie itp.

Jeśli to jakiś scalak to dodatkow link do PDF-a
I koniecznie komentarze w języku angielskim.
Co wy na to ??

Paweł

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

Chyba że zrobimy githuba ?

Statystyki: Napisane przez pikczu — 3 gru 2014, o 18:57

]]> 2014-12-03T11:30:07+01:00 2014-12-03T11:30:07+01:00 https://forum.atnel.pl/viewtopic.php?t=9328&p=107165#p107165 <![CDATA[Re: ATmega32 BASCOM-Sterownik domowy/pokojowy]]> Niveasoft napisał(a):

Drugie bo nie rezerwuje RAM`u dla wszystkich dni

Słuszna uwaga! - przeoczyłem, bo i tak moim ulubionym sposobem były linie data i lookup toteż nie zwróciłem w tym wypadku uwagi na ram.

Statystyki: Napisane przez SylwekK — 3 gru 2014, o 11:30

]]> 2014-12-03T11:32:40+01:00 2014-12-03T11:28:05+01:00 https://forum.atnel.pl/viewtopic.php?t=9328&p=107164#p107164 <![CDATA[Re: ATmega32 BASCOM-Sterownik domowy/pokojowy]]> Niveasoft napisał(a):

Drugie bo nie rezerwuje RAM`u dla wszystkich dni. I jedno i drugie musi zapisać we Flash bo do tego RAM`u też musi to skądś wziąć. Nie buduje się dużych tablic w pamięci.

Więc zastosuje to drugie rozwiązanie :)
SylwekK napisał(a):

Zrób test, który kod mniej zajmuje i wszystko będzie jasne :) Jak mam wątpliwości to tak robię.

Akurat jedno i drugie rozwiązanie zajmuje u mnie tyle samo pamieci :P
Niveasoft napisał(a):

Miłego dnia.

Również życzę miłego dnia ;)

Statystyki: Napisane przez pimowo — 3 gru 2014, o 11:28

]]> 2014-12-03T11:22:14+01:00 2014-12-03T11:22:14+01:00 https://forum.atnel.pl/viewtopic.php?t=9328&p=107162#p107162 <![CDATA[Re: ATmega32 BASCOM-Sterownik domowy/pokojowy]]> Jak mam wątpliwości to tak robię.

Statystyki: Napisane przez SylwekK — 3 gru 2014, o 11:22

]]> 2014-12-03T11:10:24+01:00 2014-12-03T11:10:24+01:00 https://forum.atnel.pl/viewtopic.php?t=9328&p=107160#p107160 <![CDATA[Re: ATmega32 BASCOM-Sterownik domowy/pokojowy]]> Które rozwiązanie wyświetlania dnia tygodnia jest lepsze/mądrzejsze?
1.
[syntax=basic4gl]Dim Nazwa_dnia(7) As String * 12

Nazwa_dnia(1) = "poniedzialek"
Nazwa_dnia(2) = " wtorek "
Nazwa_dnia(3) = " sroda "
Nazwa_dnia(4) = " czwartek "
Nazwa_dnia(5) = " piatek "
Nazwa_dnia(6) = " sobota "
Nazwa_dnia(7) = " niedziela "

Do
Loop

Zegar:
(...)
Locate 4 , 1
Lcd Nazwa_dnia(dzien_tygodnia)


Return[/syntax]
2.
[syntax=basic4gl]Zegar:
(...)
locate 4 , 1
Lcd Lookupstr(dzien_tygodnia , Nazwa_dnia)

Return

Nazwa_dnia:

Data "poniedzialek"
Data " wtorek "
Data " sroda "
Data " czwartek "
Data " piatek "
Data " sobota "
Data " niedziela "[/syntax]
Jedno i drugie oczywiście działa.

Statystyki: Napisane przez pimowo — 3 gru 2014, o 11:10

]]> 2014-12-02T23:42:33+01:00 2014-12-02T23:42:33+01:00 https://forum.atnel.pl/viewtopic.php?t=9328&p=107097#p107097 <![CDATA[Re: ATmega32 BASCOM-Sterownik domowy/pokojowy]]>

Statystyki: Napisane przez pimowo — 2 gru 2014, o 23:42

]]> 2014-12-02T22:41:32+01:00 2014-12-02T22:41:32+01:00 https://forum.atnel.pl/viewtopic.php?t=9328&p=107076#p107076 <![CDATA[Re: ATmega32 BASCOM-Sterownik domowy/pokojowy]]> [syntax=basic4gl]Dim Odczyt(2) As Byte , T As Integer , T1 As Single , H As Byte , Wynik As String * 5
Dim Piec_flaga As Bit , Tryb_pieca As Byte , Termostat As Byte

Temperatura:

1wreset
1wwrite &HCC
1wwrite &HBE
Odczyt(1) = 1wread(2)
T = Odczyt(2)
Shift T , Left , 8
T = T + Odczyt(1)
T1 = T * 0.0625
H = T1
Wynik = Fusing(t1 , "#.#")

Locate 4 , 14
Lcd Chr(124) ; Wynik ; Chr(223) ; "C"

Locate 2 , 16
If Piec_flaga = 1 Then
Lcd "zal."
Termostat = 21
Else
Lcd "wyl."
Termostat = 18
End If

Locate 3 , 15
If H < Termostat Then
Set Piec
Lcd " **** "
End If

If H > Termostat Then
Reset Piec
Lcd Spc(6)
End If

'tu DS przygotowuje nowy odczyt
1wreset
1wwrite &HCC
1wwrite &H44

Return[/syntax]
Teraz, gdy piec_flaga=1 czyli piec włączony to:
-osiąga temperaturę 22st przekaźnik się wyłącza
-przy temperaturze 20.9st przekaźnik się włącza
Czyli (teoretycznie) jest OK.

Statystyki: Napisane przez pimowo — 2 gru 2014, o 22:41

]]> 2014-12-02T13:00:56+01:00 2014-12-02T13:00:56+01:00 https://forum.atnel.pl/viewtopic.php?t=9328&p=106994#p106994 <![CDATA[Re: ATmega32 BASCOM-Sterownik domowy/pokojowy]]> Niveasoft napisał(a):

To nieskomplikowane

Ja mam zawsze pod górkę :(

Nie mogłem sobie poradzić z dodawaniem, odejmowaniem danych itp.
Zrobiłem coś takiego:
[syntax=basic4gl]Temperatura:

'tu czytasz temperature
1wreset
1wwrite &HCC
1wwrite &HBE
Odczyt(1) = 1wread(2)
T = Odczyt(2)
Shift T , Left , 8
T = T + Odczyt(1)
T1 = T * 0.0625
Wynik = Fusing(t1 , "#.#")

Locate 2 , 16
If Piec_flaga = 1 Then
Lcd "zal."
Termostat1 = "21"
Termostat2 = "22"
Else
Lcd "wyl."
Termostat1 = "18"
Termostat2 = "19"
End If

Locate 3 , 15
If Wynik <= Termostat1 Then
Set Piec
Lcd " **** "
End If

If Wynik >= Termostat2 Then
Reset Piec
Lcd Spc(6)
End If

Locate 4 , 14
Lcd Chr(124) ; Wynik ; Chr(223) ; "C"

'tu DS przygotowuje nowy odczyt
1wreset
1wwrite &HCC
1wwrite &H44

Return[/syntax]
Pewnie to będzie nie tak, ale tylko coś takiego udało mi się tylko wymyślić, że zadziałało.

Statystyki: Napisane przez pimowo — 2 gru 2014, o 13:00

]]> 2014-11-30T18:29:17+01:00 2014-11-30T18:29:17+01:00 https://forum.atnel.pl/viewtopic.php?t=9328&p=106808#p106808 <![CDATA[Re: ATmega32 BASCOM-Sterownik domowy/pokojowy]]>
Czy dobrze myślę, że przydałaby się jakaś histereza czy coś?

Quote:

Zaczynałem C kilka razy bez powodzenia, ale dopiero Mirka książka pozwoliła mi bezboleśnie przejść granicę...

Właśnie zbieram pieniążki na tę książkę i jak zakupię to w tedy mam zamiar przysiąść do C.
Quote:

Ja tylko mam jedną uwagę odnośnie schematu. Z tego co pamiętam i chyba w nocie układu DS1307 też napisane że wyjście SQW (pin 7) też należy podciągnąć do +5V za pomocą rezystora 4k7.

Dzięki. Rezystor dodany. Już gdzieś o tym czytałem, ale całkowicie o nim zapomniałem.

Statystyki: Napisane przez pimowo — 30 lis 2014, o 18:29

]]> 2014-11-30T13:34:57+01:00 2014-11-30T13:34:57+01:00 https://forum.atnel.pl/viewtopic.php?t=9328&p=106737#p106737 <![CDATA[Re: ATmega32 BASCOM-Sterownik domowy/pokojowy]]> Nawet na mojej płytce z PROPOXU pin 7 jest podciągnięty.

Statystyki: Napisane przez matrix — 30 lis 2014, o 13:34

]]> 2014-11-30T13:31:55+01:00 2014-11-30T13:31:55+01:00 https://forum.atnel.pl/viewtopic.php?t=9328&p=106736#p106736 <![CDATA[Re: ATmega32 BASCOM-Sterownik domowy/pokojowy]]> Po prostu przychodzi taki czas, że zaczyna czegoś brakować w bascomie, a to zazwyczaj dlatego, że poważnie myślimy o programowaniu i wtedy zamiast tracić czas na szukanie protez lepiej od razu zainteresować się C :) Jak przeglądniecie moje projekty na elektrodzie to niemal w każdym gdzie padało pytanie dlaczego bascom a nie C , to wszędzie stanowczo odpowiadałem, że mi to wystarczy... Wystarczało do czasu ;)
Zaczynałem C kilka razy bez powodzenia, ale dopiero Mirka książka pozwoliła mi bezboleśnie przejść granicę... :)

Statystyki: Napisane przez SylwekK — 30 lis 2014, o 13:31

]]> 2014-11-30T13:19:28+01:00 2014-11-30T13:19:28+01:00 https://forum.atnel.pl/viewtopic.php?t=9328&p=106731#p106731 <![CDATA[Re: ATmega32 BASCOM-Sterownik domowy/pokojowy]]>

Pisząc wcześniej swoją wypowiedź miałem namyśli tylko to, że w większości ludzie piszą (różne fora) BASCOM jest be, C jest super. Zamiast porozmawiać na temat problemu/projektu, to zawsze się kończy to wojną-podobnie jak Windows vs Linux... :(

Ja już zostałem całkowicie przekonany, że warto się zainteresować C-teraz tylko kwestia czasu i będę go poznawał.

Statystyki: Napisane przez pimowo — 30 lis 2014, o 13:19

]]> 2014-11-30T13:00:18+01:00 2014-11-30T13:00:18+01:00 https://forum.atnel.pl/viewtopic.php?t=9328&p=106727#p106727 <![CDATA[Re: ATmega32 BASCOM-Sterownik domowy/pokojowy]]> Niveasoft napisał(a):

Negowanie Bascom w miejscu gdzie ktoś pisząc w nim program prosi o pomoc uważam za niemerytoryczne i pozbawione taktu. I domyślam się czym jest podyktowane, ale to przemilczę.

Czy to do mnie ?? Jeśli tak to ktoś tu chyba nie zrozumiał mojej wypowiedzi ;)

Statystyki: Napisane przez SylwekK — 30 lis 2014, o 13:00

]]> 2014-11-30T12:10:24+01:00 2014-11-30T12:10:24+01:00 https://forum.atnel.pl/viewtopic.php?t=9328&p=106718#p106718 <![CDATA[Re: ATmega32 BASCOM-Sterownik domowy/pokojowy]]>

pimowo napisał(a):

Widziałem tego konia już wcześniej i od razu sobie pomyślałem o ludziach którzy cały czas negują BASCOM'a, że BASCOM jest be i nic ciekawego w nim nie da się zrobić.


Ech, musiałem to zacytować ;) Kiedyś pisałem dokładnie to co Ty teraz chociaż nadal twierdzę, że w bascomie da się naprawdę skomplikowane projekty zrobić, bo sam kilka dość poważnych zdziałałem. Jednak gdy teraz zacząłem praktykować z C, dopiero mi się oczy otworzyły o ile prościej (mimo częstego braku gotowych instrukcji!) da się rozwiązać pewne problemy i połączyć funkcjonalność wielu bloków, aby sobie wzajemnie nie przeszkadzały, a o wydajności już nie wspomnę. Przykładowo gdy przerobiłem sobie bibliotekę od LCD na buforowaną, mogę bez najmniejszych przeszkód wykonywać dość skomplikowane obliczenia w pętli głównej z jednoczesnym ich natychmiastowym wyświetleniem na ekranie nie spowalniając tych obliczeń (ich blokowanie przez zwykłe wyświetlanie spowodowało, by w moim przypadku baaaardzo rwany ruch silnikiem, który dyskwalifikuje takie rozwiązanie) - w bascomie efekt niestety nie do zrealizowania. Wiele by pisać na ten temat, dlatego jeśli jeszcze nie przesiąkłeś do końca bascomem polecam zainteresować się C, bo czym później to nastąpi tym ciężej się przestawić (wiem z autopsji).

Statystyki: Napisane przez SylwekK — 30 lis 2014, o 12:10

]]> 2014-11-30T10:18:11+01:00 2014-11-30T10:18:11+01:00 https://forum.atnel.pl/viewtopic.php?t=9328&p=106698#p106698 <![CDATA[Re: ATmega32 BASCOM-Sterownik domowy/pokojowy]]> Niveasoft napisał(a):

Przy wyjściu z menu po CLS spróbuj dopisac "Flaga_1s = 10" zeby nie czekac sekundy.

Oczywiście działa. Po wyjściu z ustawień natychmiast mam "ekran główny"
Całe to menu ustawień to w sumie i tak nie będzie zbyt często używane, bo ile razy ustawiamy czas/datę? ale działa jak należy :)
Niveasoft napisał(a):

Zapomnialem pochwalić że naprawde ładne cacko

Dziękuję, ale to tak naprawdę w dużej mierze Twoja zasługa-podsuwasz takie ciekawe pomysły, kody, że moje szare komórki, aż się gotują ;)
Quote:

Koń biegnie po wyświetlaczu

Widziałem tego konia już wcześniej i od razu sobie pomyślałem o ludziach którzy cały czas negują BASCOM'a, że BASCOM jest be i nic ciekawego w nim nie da się zrobić.
Niveasoft napisał(a):

Wymaga to trochę pomyślunku jeśli chodzi o wspólne wyświetlanie dużych cyfr i ogonków ale nie jest nie do zrobienia.

Nad tym muszę jeszcze pomyśleć, ponieważ troszkę brakuje mi naszych polskich ogonków.

Możesz mi jeszcze powiedzieć co sądzisz o schemacie jaki "namalowałem"?

Statystyki: Napisane przez pimowo — 30 lis 2014, o 10:18

]]> 2014-11-29T22:19:33+01:00 2014-11-29T22:19:33+01:00 https://forum.atnel.pl/viewtopic.php?t=9328&p=106649#p106649 <![CDATA[Re: ATmega32 BASCOM-Sterownik domowy/pokojowy]]> Na moje (nie)szczęście na stronie Kolegi @Niveasoft znalazłem sposób na wyświetlanie dużych cyfr na wyświetlaczu. Postanowiłem u siebie wyświetlać zegar w dużych cyfrach.
Obrazek
Wszystko działa, ale jak wejdę w "menu" ustawień czasu/daty, wszystko sobie ustawie (tu jest OK) ale gdy chcę wyjść to dłuższą chwilę mam czysty LCD i dopiero później wszystko wraca do normy. Co robię nie tak? :(
[syntax=basic4gl]$regfile = "m32def.dat"
$crystal = 11059200
$baud = 115200
$hwstack = 128
$swstack = 64
$framesize = 64

Config Lcd = 20 * 4
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.6 , Rs = Portc.7

Config Porta = Input
Porta = &B11111111
Config Portb = Output
Portb = &B00000000
Outputs Alias Portb

Config Print0 = Portd.3 , Mode = Set
Config Portd.3 = Output
Config Portd.4 = Output : Portd.4 = 0 : Piec Alias Portd.4
Config Portd.5 = Output : Portd.5 = 0 : Led Alias Portd.5
Config Portd.6 = Output : Portd.6 = 1 : Led_buzzer Alias Portd.6

Config Timer2 = Timer , Prescale = 256 , Compare = Disconnect , Clear Timer = 1
Enable Compare2 : On Compare2 Timer2_isr : Compare2 = 215

On Urxc Przerwanie_od_rxd
On Int0 Rc5
Config Int0 = Falling

Declare Sub Czekaj
Declare Sub Set_clock(byval Numer_b As Byte , Byval Wartosc As Byte)

Dim Sekunda As Byte , Minuta As Byte , Godzina As Byte
Dim Dzien_tygodnia As Byte , Nazwa_dnia(7) As String * 12
Dim Dzien As Byte , Miesiac As Byte , Rok As Byte
Dim Flaga_5ms As Byte , Flaga_100ms As Byte , Minelo_400ms As Byte , Flaga_1s As Byte , Timerek As Byte , Timerek2 As Byte
Dim Odczyt(2) As Byte , T As Integer , T1 As Single , Wynik As String * 5
Dim Piec_flaga As Bit , Termostat As String * 5
Dim Adress As Byte , Kod As Byte , Odebrany_kod As Bit
Dim Bufor(10) As Byte , Dana As Byte , A As Byte , B As Byte , C As Byte
Dim Opoznienie As Byte , Adres As Byte , Karta As Byte , Urzadzenie As Byte , Stan As Byte
Dim Pik As Byte
Dim Pk As Byte , N As Byte
Dim Tryb As Byte , Index As Byte
Dim Przyciski_port As Byte , Wyjscia_port As Byte , Bufor_port As Byte
Dim Mig As Bit , Temp_b As Byte , Offset As Byte , Flaga_grzanie As Byte
Dim Pierwsza As Byte , Druga As Byte , Trzecia As Byte , Czwarta As Byte
Dim Linia_g(10) As String * 3 , Linia_d(10) As String * 3
Dim Flaga_big_zegar As Bit

Nazwa_dnia(1) = "poniedzialek"
Nazwa_dnia(2) = " wtorek "
Nazwa_dnia(3) = " sroda "
Nazwa_dnia(4) = " czwartek "
Nazwa_dnia(5) = " piatek "
Nazwa_dnia(6) = " sobota "
Nazwa_dnia(7) = " niedziela "

'--- deklaracja znakow
Deflcdchar 0 , 32 , 32 , 4 , 14 , 14 , 4 , 32 , 32 ' dwukropek
Deflcdchar 1 , 28 , 24 , 32 , 32 , 32 , 32 , 24 , 28 ' prawy naroznik
Deflcdchar 2 , 31 , 31 , 32 , 32 , 32 , 32 , 32 , 32 ' gorna kreseczka
Deflcdchar 3 , 32 , 32 , 32 , 32 , 32 , 32 , 31 , 31 ' dolna kreseczka
Deflcdchar 4 , 31 , 31 , 32 , 32 , 32 , 32 , 31 , 31 ' dwie kreseczki
Deflcdchar 5 , 28 , 30 , 30 , 30 , 30 , 30 , 30 , 28 ' prawa belka
Deflcdchar 6 , 7 , 15 , 15 , 15 , 15 , 15 , 15 , 7 ' lewa belka
Deflcdchar 7 , 7 , 3 , 32 , 32 , 32 , 32 , 3 , 7 ' lewy naroznik


'--- tablica na duze cyfry
'Cyfra 0
Linia_g(10) = Chr(6) + Chr(2) + Chr(5)
Linia_d(10) = Chr(6) + Chr(3) + Chr(5)

'Cyfra 1
Linia_g(1) = " " + Chr(5) + " "
Linia_d(1) = " " + Chr(5) + " "

'Cyfra 2
Linia_g(2) = Chr(7) + Chr(4) + Chr(5)
Linia_d(2) = Chr(6) + Chr(3) + Chr(3)

'Cyfra 3
Linia_g(3) = Chr(2) + Chr(4) + Chr(5)
Linia_d(3) = Chr(3) + Chr(3) + Chr(5)

'Cyfra 4
Linia_g(4) = Chr(6) + Chr(3) + Chr(5)
Linia_d(4) = " " + Chr(5)

'Cyfra 5
Linia_g(5) = Chr(6) + Chr(4) + Chr(1)
Linia_d(5) = Chr(3) + Chr(3) + Chr(5)

'Cyfra 6
Linia_g(6) = Chr(6) + Chr(4) + Chr(1)
Linia_d(6) = Chr(6) + Chr(3) + Chr(5)

'Cyfra 7
Linia_g(7) = Chr(6) + Chr(2) + Chr(5)
Linia_d(7) = " " + Chr(5)

'Cyfra 8
Linia_g(8) = Chr(6) + Chr(4) + Chr(5)
Linia_d(8) = Chr(6) + Chr(3) + Chr(5)

'Cyfra 9
Linia_g(9) = Chr(6) + Chr(4) + Chr(5)
Linia_d(9) = Chr(3) + Chr(3) + Chr(5)

Config Rc5 = Pind.2 , Wait = 2000

Config Sda = Portc.1
Config Scl = Portc.0
Const Ds1307w = 208
Const Ds1307r = 209

Config 1wire = Portd.7
1wreset
1wwrite &HCC
1wwrite &H44

Adres = 01
A = 1
Piec_flaga = 0
Flaga_big_zegar = 1

Cursor Off
Cls

Lcd "jakies powitanie bla,bla,bla..."

Call Czekaj
Print "Karta nr: " ; Adres
Wait 3
Cls

Enable Interrupts
Enable Urxc
Enable Int0

'*** START ***
Do


'---
If Odebrany_kod = 1 Then
If Adress = 0 Then

Select Case Tryb

Case 0
N = Kod - 1
Select Case Kod
Case 1 To 8
Toggle Outputs.n

Case 9 : Toggle Piec_flaga

Case 13 : Gosub Wczytaj_dane
Tryb = 1

Case 32 : Print "S0610"

Case 33 : Print "S0611"
End Select
Pik = 2

Case 1
If Kod = 13 Then
Gosub Wczytaj_dane
Incr Index
If Index = 7 Then
Index = 0
Flaga_big_zegar = 1
Tryb = 0
Cls
End If
End If

If Kod = 16 Then
Select Case Index
Case 0
Incr Godzina
If Godzina > 23 Then Godzina = 1
Call Set_clock(2 , Godzina)
Case 1
Incr Minuta
If Minuta > 59 Then Minuta = 0
Call Set_clock(1 , Minuta)
Case 2
Incr Sekunda
If Sekunda > 59 Then Sekunda = 0
Call Set_clock(0 , Sekunda)
Case 3
Incr Dzien
If Dzien > 31 Then Dzien = 1
Call Set_clock(4 , Dzien)
Case 4
Incr Miesiac
If Miesiac > 12 Then Miesiac = 1
Call Set_clock(5 , Miesiac)
Case 5
Incr Rok
If Rok > 99 Then Rok = 00
Call Set_clock(6 , Rok)
Case 6
Incr Dzien_tygodnia
If Dzien_tygodnia > 7 Then Dzien_tygodnia = 1
Call Set_clock(3 , Dzien_tygodnia)
End Select
End If

If Kod = 17 Then
Select Case Index
Case 0
Decr Godzina
If Godzina > 23 Then Godzina = 1
Call Set_clock(2 , Godzina)
Case 1
Decr Minuta
If Minuta > 59 Then Minuta = 0
Call Set_clock(1 , Minuta)
Case 2
Decr Sekunda
If Sekunda > 59 Then Sekunda = 0
Call Set_clock(0 , Sekunda)
Case 3
Decr Dzien
If Dzien > 31 Then Dzien = 1
Call Set_clock(4 , Dzien)
Case 4
Decr Miesiac
If Miesiac > 12 Then Miesiac = 1
Call Set_clock(5 , Miesiac)
Case 5
Decr Rok
If Rok > 99 Then Rok = 00
Call Set_clock(6 , Rok)
Case 6
Decr Dzien_tygodnia
If Dzien_tygodnia > 7 Then Dzien_tygodnia = 1
Call Set_clock(3 , Dzien_tygodnia)
End Select
End If

End Select
End If
Odebrany_kod = 0
End If
'---

'--- co 5ms
If Flaga_5ms = 1 Then
Flaga_5ms = 0
Incr Timerek
Incr Timerek2
Gosub Przyciski
If Timerek = 20 Then
Timerek = 0
Flaga_100ms = 1
End If
If Timerek2 = 80 Then
Timerek2 = 0
Minelo_400ms = 1
End If
End If
'---

'---
If Minelo_400ms = 1 Then
Minelo_400ms = 0
If Tryb = 1 Then Gosub Miganie
End If
'---

'--- pikanie
If Flaga_100ms = 1 Then
Flaga_100ms = 0
Incr Flaga_1s
If Pik > 0 Then
Decr Pik
Toggle Led_buzzer
Set Led
Else
Reset Led
End If
End If
'--- koniec pikania

'--- co sekunde
If Flaga_1s = 10 Then
If Flaga_big_zegar = 1 Then
Flaga_1s = 0
Gosub Temperatura
Gosub Zegarek
Gosub Miganie_dwukropek
End If
End If
'---

Loop
'*** KONIEC ***
End
'---

'---
Sub Czekaj

For Opoznienie = 1 To Adres
Waitms 100
Next Opoznienie
End Sub
'---

'---
'*** obsluga DS18B20 ***
Temperatura:

'--- tu czytasz temperature
1wreset
1wwrite &HCC
1wwrite &HBE
Odczyt(1) = 1wread(2)
T = Odczyt(2)
Shift T , Left , 8
T = T + Odczyt(1)
T1 = T * 0.0625

Wynik = Fusing(t1 , "#.#")
Locate 4 , 14
Lcd Chr(124) ; Wynik ; Chr(223) ; "C"

'--- sterowanie piecem
Locate 2 , 16

If Piec_flaga = 1 Then
Lcd "zal."
Termostat = "23"
Else
Lcd "wyl."
Termostat = "19"
End If

Locate 3 , 15

If Wynik < Termostat Then
Set Piec
Flaga_grzanie = 1
Lcd " **** "
Else
Reset Piec
Flaga_grzanie = 0
Lcd Spc(6)
End If

'--- tu kazesz DS`owi przygotowaa nowy odczyt
1wreset
1wwrite &HCC
1wwrite &H44

Return
'---

'---
Timer2_isr:

Flaga_5ms = 1

Return
'---

'---
'*** obsluga pilota ***
Rc5:

Disable Int0
Gifr.intf0 = 1
Enable Interrupts

Getrc5(adress , Kod)
Kod = Kod And &B01111111
Odebrany_kod = 1

Disable Interrupts
Enable Int0
Gifr.intf0 = 1

Return
'---

'---
'*** obsluga RS485 ***
Przerwanie_od_rxd:

Inputbin Dana
Bufor(a) = Dana
Incr A

If A = 6 Then
If Bufor(1) = 83 Then

Karta = Bufor(2) - 48
Karta = Karta * 10
Karta = Karta + Bufor(3)
Karta = Karta - 48
Urzadzenie = Bufor(4) - 48
Stan = Bufor(5) - 48

If Karta = Adres Then

N = Urzadzenie - 1
Select Case Urzadzenie
Case 1 To 8
Select Case Stan
Case 0 To 1
Outputs.n = Stan
Case 2
If Outputs.n = 0 Then Print "off" Else Print "on"
End Select
Case 9
Select Case Stan
Case 0 To 1
Piec_flaga = Stan
Case 2
If Piec = 0 Then Print "off" Else Print "on"
End Select
End Select

A = 1
Else
A = 5
For B = 1 To 4
C = B
Incr C
Bufor(b) = Bufor(c)
Next
End If
Else
A = 5
For B = 1 To 4
C = B
Incr C
Bufor(b) = Bufor(c)
Next
End If

End If

Return
'---

'---
'*** obsluga przyciskow ***
Przyciski:

Przyciski_port = Pina And &B11111111

If Przyciski_port <> 255 Then
Bufor_port = Przyciski_port

If Pk < 255 Then Incr Pk
If Pk = 100 Then
Select Case Przyciski_port
Case 254 : Print "S0611"
Case 253 : Print "S0610"
Case 251 : Print "S0621"
Case 247 : Print "S0620"
Case 239 : Toggle Piec_flaga
Case 223 : Print "test1"
Case 191 : Print "test2"
Case 127 : Print "test3"
End Select
Pik = 2
End If
Else
If Pk > 1 Then
If Pk < 100 Then
Bufor_port = Not Bufor_port
Wyjscia_port = Pinb
Wyjscia_port = Wyjscia_port Xor Bufor_port
Portb = Wyjscia_port
Pik = 2
End If
Pk = 0
End If
End If

Return
'---

Zegarek:

I2cstart
I2cwbyte Ds1307w
I2cwbyte 0
I2cstart
I2cwbyte Ds1307r
I2crbyte Sekunda , Ack
I2crbyte Minuta , Ack
I2crbyte Godzina , Ack
I2crbyte Dzien_tygodnia , Ack
I2crbyte Dzien , Ack
I2crbyte Miesiac , Ack
I2crbyte Rok , Nack
I2cstop

Sekunda = Makedec(sekunda) : Minuta = Makedec(minuta) : Godzina = Makedec(godzina)
Dzien_tygodnia = Makedec(dzien_tygodnia) : Dzien = Makedec(dzien) : Miesiac = Makedec(miesiac) : Rok = Makedec(rok)

Pierwsza = Godzina / 10
If Pierwsza = 0 Then Pierwsza = 10
Druga = Godzina Mod 10
If Druga = 0 Then Druga = 10
Trzecia = Minuta / 10
If Trzecia = 0 Then Trzecia = 10
Czwarta = Minuta Mod 10
If Czwarta = 0 Then Czwarta = 10

Locate 1 , 1
Lcd Linia_g(pierwsza) ; Linia_g(druga) ; Chr(0) ; Linia_g(trzecia) ; Linia_g(czwarta) ; Chr(124) ; Spc(1) ; "piec"



Locate 2 , 1

Lcd Linia_d(pierwsza) ; Linia_d(druga) ; Chr(0) ; Linia_d(trzecia) ; Linia_d(czwarta) ; Chr(124)


Locate 3 , 2

If Dzien < 10 Then
Lcd "0" ; Dzien
Else
Lcd Dzien
End If

If Miesiac < 10 Then
Lcd "/0" ; Miesiac
Else
Lcd "/" ; Miesiac
End If

Lcd "/20" ; Rok ; Spc(2) ; Chr(124)

Locate 4 , 1

Lcd Nazwa_dnia(dzien_tygodnia)


Return


'---
Miganie:

Mig = Not Mig

Select Case Index
Case 0
Offset = 1
Temp_b = Godzina
Case 1
Offset = 4
Temp_b = Minuta
Case 2
Offset = 7
Temp_b = Sekunda
Case 3
Offset = 11
Temp_b = Dzien
Case 4
Offset = 14
Temp_b = Miesiac
Case 5
Offset = 19
Temp_b = Rok
End Select

Select Case Index
Case 0 To 5
Locate 1 , Offset
If Mig = 1 Then
If Temp_b > 9 Then Lcd Temp_b Else Lcd "0" ; Temp_b
Else
Lcd Spc(2)
End If
Case 6
Locate 2 , 2
If Mig = 1 Then
Lcd "dzis" ; Spc(1) ; Nazwa_dnia(dzien_tygodnia)
Else
Lcd "dzis" ; Spc(13)
End If
End Select

Return
'---

'---
Sub Set_clock(byval Numer_b As Byte , Byval Wartosc As Byte)

Wartosc = Makebcd(wartosc)
I2cstart
I2cwbyte Ds1307w
I2cwbyte Numer_b
I2cwbyte Wartosc
I2cstop

End Sub


'---
Miganie_dwukropek:

Mig = Not Mig

Locate 1 , 7
If Mig = 1 Then
Lcd Chr(0)
Else
Lcd Spc(1)
End If

Locate 2 , 7
If Mig = 1 Then
Lcd Chr(0)
Else
Lcd Spc(1)
End If

Return


Wczytaj_dane:

Flaga_big_zegar = 0
Cls
Locate 1 , 1

If Godzina < 10 Then
Lcd "0" ; Godzina ; ":" ;
Else
Lcd Godzina ; ":" ;
End If

If Minuta < 10 Then
Lcd "0" ; Minuta ; ":" ;
Else
Lcd Minuta ; ":" ;
End If

If Sekunda < 10 Then
Lcd "0" ; Sekunda
Else
Lcd Sekunda
End If

Locate 1 , 11

If Dzien < 10 Then
Lcd "0" ; Dzien
Else
Lcd Dzien
End If

If Miesiac < 10 Then
Lcd "/0" ; Miesiac
Else
Lcd "/" ; Miesiac
End If

Lcd "/20" ; Rok

Locate 2 , 1

Lcd " dzis" ; Spc(1) ; Nazwa_dnia(dzien_tygodnia)

Return[/syntax]
Dziś siedziałem pól dnia nad schematem w Eagle i wyszło mi coś takiego:
Obrazek
Czy takie połączenie wszystkiego będzie OK?

Statystyki: Napisane przez pimowo — 29 lis 2014, o 22:19

]]> 2014-11-25T13:59:00+01:00 2014-11-25T13:59:00+01:00 https://forum.atnel.pl/viewtopic.php?t=9328&p=105894#p105894 <![CDATA[Re: ATmega32 BASCOM-Sterownik domowy/pokojowy]]> Statystyki: Napisane przez pimowo — 25 lis 2014, o 13:59

]]> 2014-11-25T13:48:13+01:00 2014-11-25T13:48:13+01:00 https://forum.atnel.pl/viewtopic.php?t=9328&p=105891#p105891 <![CDATA[Re: ATmega32 BASCOM-Sterownik domowy/pokojowy]]> Statystyki: Napisane przez SylwekK — 25 lis 2014, o 13:48

]]> 2014-11-25T13:32:34+01:00 2014-11-25T13:32:34+01:00 https://forum.atnel.pl/viewtopic.php?t=9328&p=105888#p105888 <![CDATA[Re: ATmega32 BASCOM-Sterownik domowy/pokojowy]]> pimowo napisał(a):

Jak więc widzę że to Ty robisz coś dziesięć razy zamiast procesor to trochę mnie to irytuje

Przepraszam :oops:
Niveasoft napisał(a):

Druga sprawa.. znów widze Pik = 2 , Pik = 2, Pik = 2 a czy nie można na końcu, po End select, napisac raz? (Chyba że chodzi o zawężenie tego do kilku przycisków ale wtedy lepiej zadeklarować stałą "Const Krotki_pik = 2" i pisac Pik = Krotki_pik).

Tak, chodziło o to, że chciałem wykorzystać trochę więcej przycisków pilota i nie wszystkie miały "pikać" Zrobiłem tak jak mówisz-po End Select dałem "Pik=2" czyli dla wszystkich.
Quote:

Trzecia sprawa. O co chodzi z tymi przerwaniami, tam w obsłudze RC5? Takie zamieszanie, że ja nie wiem kiedy one są włączane z powrotem. Jakaś kolejność, albo coś tam chyba jest zatracone. Moim zdaniem, jak już tak to masz rozwiązane. To po wejściu do przerwania mógłbyś je wyłaczyć, odczytać komende i kod, skasować flagę przerwania, włączyć je z powrotem i wyjść

Kiedyś, jak poszukiwałem jak obsłużyć pilota w BASCOM'ie to duża część ludzi mówiła, że należy to robić tylko i wyłącznie w przerwaniu.
To jest kod o którym mówię i na nim się wzorowałem:
[syntax=basic4gl]'kody rc5 w przerwaniu int0

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

$hwstack = 64
$swstack = 32
$framesize = 32

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.5 , Db5 = Portd.6 , Db6 = Portd.7 , Db7 = Portd.4 , E = Portd.3 , Rs = Portc.0 'konfiguracja linii


Dim Adres As Byte , Kod As Byte , Odebr_kod As Bit
Dim Flaga As Bit


Config Rc5 = Pind.2 , Wait = 2000


On Int0 Rc5
Config Int0 = Falling
Enable Int0
Enable Interrupts

Cls
Cursor Off
Locate 1 , 1
Lcd "kod RC5"

Do

If Odebr_kod = 1 Then
If Adres <> 255 And Kod <> 127 Then
Locate 2 , 1
Lcd "adr: " ; Adres ; " kod: " ; Kod ; " "
End If
Reset Odebr_kod
End If


Loop
End


Rc5:

Disable Int0 ' wyłącz przerwanie INT0
Gifr.intf0 = 1 ' skasuj żądanie przerwania z INT0, UWAGA!!! to nie jest błąd, żeby zgasić ten bit należy wpisać 1
Enable Interrupts ' SEI


Getrc5(adres , Kod)
Kod = Kod And &B01111111
Set Odebr_kod

Disable Interrupts ' CLI
Enable Int0 ' włącz przerwanie INT0
Gifr.intf0 = 1 ' skasuj żądanie przerwania z INT0 , UWAGA!!! to nie jest błąd, żeby zgasić ten bit należy wpisać 1
' drugi raz tak na wszelki wypadek ;)
Return[/syntax]
Niveasoft napisał(a):

...wyniki każdy może sobie zinterpretować jak chce.

Przyznaję się bez bicia. Nie bardzo się znam na AVR, programowaniu itp. Rzuciłem się na dużą (ogromną) wodę i próbuję uczyć się pływać.

Dzięki Wam drodzy Koledzy wszystko już u mnie działa.
[syntax=basic4gl]$regfile = "m32def.dat"
$crystal = 11059200
$baud = 115200
$hwstack = 128
$swstack = 64
$framesize = 64

Config Lcd = 20 * 4
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.6 , Rs = Portc.7

Config Porta = Input
Porta = &B11111111

Config Portb.0 = Output : Portb.0 = 0 : Out1 Alias Portb.0
Config Portb.1 = Output : Portb.1 = 0 : Out2 Alias Portb.1
Config Portb.2 = Output : Portb.2 = 0 : Out3 Alias Portb.2
Config Portb.3 = Output : Portb.3 = 0 : Out4 Alias Portb.3
Config Portb.4 = Output : Portb.4 = 0 : Out5 Alias Portb.4
Config Portb.5 = Output : Portb.5 = 0 : Out6 Alias Portb.5
Config Portb.6 = Output : Portb.6 = 0 : Out7 Alias Portb.6
Config Portb.7 = Output : Portb.7 = 0 : Out8 Alias Portb.7

Config Portd.3 = Output
Config Print0 = Portd.3 , Mode = Set
Config Portd.4 = Output : Portd.4 = 0 : Piec Alias Portd.4
Config Portd.5 = Output : Portd.5 = 0 : Led Alias Portd.5
Config Portd.6 = Output : Portd.6 = 1 : Led_buzzer Alias Portd.6

Config Timer2 = Timer , Prescale = 256 , Compare = Disconnect , Clear Timer = 1
Enable Compare2 : On Compare2 Timer2_isr : Compare2 = 215

On Urxc Przerwanie_od_rxd
On Int0 Rc5
Config Int0 = Falling

Declare Sub Czekaj
Declare Sub Set_clock(byval Numer_b As Byte , Byval Wartosc As Byte)

Dim Sekunda As Byte , Minuta As Byte , Godzina As Byte
Dim Dzien_tygodnia As Byte , Nazwa_dnia(7) As String * 12
Dim Dzien As Byte , Miesiac As Byte , Rok As Byte
Dim Flaga_5ms As Byte , Flaga_100ms As Byte , Minelo_400ms As Byte , Flaga_1s As Byte , Timerek As Byte , Timerek2 As Byte
Dim Odczyt(2) As Byte , T As Integer , T1 As Single , Wynik As String * 5
Dim Piec_flaga As Bit , Termostat As String * 5
Dim Adress As Byte , Kod As Byte , Odebrany_kod As Bit
Dim Bufor(10) As Byte , Dana As Byte , A As Byte , B As Byte , C As Byte
Dim Opoznienie As Byte , Adres As Byte , Karta As Byte , Urzadzenie As Byte , Stan As Byte
Dim Pik As Byte
Dim Pk As Byte
Dim Tryb As Byte , Index As Byte
Dim Przyciski_port As Byte , Wyjscia_port As Byte , Bufor_port As Byte
Dim Mig As Bit , Temp_b As Byte , Offset As Byte

Nazwa_dnia(1) = "poniedzialek"
Nazwa_dnia(2) = "wtorek "
Nazwa_dnia(3) = "sroda "
Nazwa_dnia(4) = "czwartek "
Nazwa_dnia(5) = "piatek "
Nazwa_dnia(6) = "sobota "
Nazwa_dnia(7) = "niedziela "

'--- deklaracja znaków
Deflcdchar 0 , 4 , 10 , 10 , 10 , 27 , 17 , 17 , 14 'znak termometru
Deflcdchar 1 , 6 , 9 , 9 , 6 , 32 , 32 , 32 , 32 'znak stopnia
Deflcdchar 2 , 2 , 4 , 14 , 16 , 14 , 1 , 30 , 32 'znak ""
Deflcdchar 3 , 12 , 4 , 6 , 12 , 4 , 4 , 14 , 32 'znak "³"
Deflcdchar 4 , 32 , 32 , 14 , 1 , 15 , 17 , 14 , 1 'znak "¹"
Deflcdchar 5 , 32 , 32 , 21 , 14 , 27 , 14 , 21 , 32 'znak "*" grzanie
Deflcdchar 6 , 31 , 27 , 27 , 27 , 27 , 31 , 27 , 31 'znak "!" negatyw

Config Rc5 = Pind.2 , Wait = 2000
Config Sda = Portc.1
Config Scl = Portc.0

Const Ds1307w = 208
Const Ds1307r = 209

Config 1wire = Portd.7
1wreset
1wwrite &HCC
1wwrite &H44

Adres = 01
A = 1
Piec_flaga = 0

Cursor Off
Cls

Lcd "jakies powitanie bla,bla,bla..."

Call Czekaj
Print "Karta nr: " ; Adres
Wait 3
Cls

Enable Interrupts
Enable Urxc
Enable Int0

'*** START ***
Do


'---
If Odebrany_kod = 1 Then
If Adress = 0 Then

Select Case Tryb

Case 0
Select Case Kod
Case 1 : Toggle Out1

Case 2 : Toggle Out2

Case 3 : Toggle Out3

Case 4 : Toggle Out4

Case 5 : Toggle Out5

Case 6 : Toggle Out6

Case 7 : Toggle Out7

Case 8 : Toggle Out8

Case 9 : Toggle Piec_flaga

Case 13 : Cls
Tryb = 1

Case 32 : Print "S0610"

Case 33 : Print "S0611"
End Select
Pik = 2

Case 1
If Kod = 13 Then
Incr Index
If Index = 6 Then
Index = 0
Cls
Tryb = 0
End If
End If

If Kod = 16 Then
Select Case Index
Case 0
Incr Godzina
If Godzina > 23 Then Godzina = 1
Call Set_clock(2 , Godzina)
Case 1
Incr Minuta
If Minuta > 59 Then Minuta = 0
Call Set_clock(1 , Minuta)
Case 2
Incr Dzien
If Dzien > 31 Then Dzien = 1
Call Set_clock(4 , Dzien)
Case 3
Incr Miesiac
If Miesiac > 12 Then Miesiac = 1
Call Set_clock(5 , Miesiac)
Case 4
Incr Rok
If Rok > 99 Then Rok = 00
Call Set_clock(6 , Rok)
Case 5
Incr Dzien_tygodnia
If Dzien_tygodnia > 7 Then Dzien_tygodnia = 1
Call Set_clock(3 , Dzien_tygodnia)
End Select
End If

End Select
End If
Odebrany_kod = 0
End If
'---

'--- co 5ms
If Flaga_5ms = 1 Then
Flaga_5ms = 0
Incr Timerek
Incr Timerek2
Gosub Przyciski
If Timerek = 20 Then
Timerek = 0
Flaga_100ms = 1
End If
If Timerek2 = 80 Then
Timerek2 = 0
Minelo_400ms = 1
End If
End If
'---

'---
If Minelo_400ms = 1 Then
Minelo_400ms = 0
If Tryb = 1 Then Gosub Miganie
End If
'---

'--- pikanie
If Flaga_100ms = 1 Then
Flaga_100ms = 0
Incr Flaga_1s
If Pik > 0 Then
Decr Pik
Toggle Led_buzzer
Set Led
Else
Reset Led
End If
End If
'--- koniec pikania

'--- co sekunde
If Flaga_1s = 10 Then
Flaga_1s = 0
Gosub Temperatura
Gosub Zegarek
End If
'---

Loop
'*** KONIEC ***
End
'---

'---
Sub Czekaj

For Opoznienie = 1 To Adres
Waitms 100
Next Opoznienie
End Sub
'---

'---
'*** obsluga DS18B20 ***
Temperatura:

'--- tu czytasz temperature
1wreset
1wwrite &HCC
1wwrite &HBE
Odczyt(1) = 1wread(2)
T = Odczyt(2)
Shift T , Left , 8
T = T + Odczyt(1)
T1 = T * 0.0625

Wynik = Fusing(t1 , "#.#")
Locate 3 , 14
Lcd Chr(0) ; Wynik ; Chr(1) ; "C"

'--- sterowanie piecem
Locate 4 , 1

If Piec_flaga = 1 Then
Lcd "piec jest w" ; Chr(3) ; Chr(4) ; "czony "
Termostat = "24"
Else
Lcd "piec jest wy" ; Chr(3) ; Chr(4) ; "czony"
Termostat = "18"
End If

Locate 3 , 1

If Wynik < Termostat Then
Set Piec
Lcd Chr(5) ; Spc(1) ; "grzanie " ; Chr(5)
Else
Reset Piec
Lcd Spc(13)
End If
'---

'--- tu kazesz DS`owi przygotowaæ nowy odczyt
1wreset
1wwrite &HCC
1wwrite &H44

Return
'---

'---
Timer2_isr:

Flaga_5ms = 1

Return
'---

'---
'*** obsluga pilota ***
Rc5:

Disable Int0
Gifr.intf0 = 1
Enable Interrupts

Getrc5(adress , Kod)
Kod = Kod And &B01111111
Odebrany_kod = 1

Disable Interrupts
Enable Int0
Gifr.intf0 = 1

Return
'---

'---
'*** obsluga RS485 ***
Przerwanie_od_rxd:

Inputbin Dana
Bufor(a) = Dana
Incr A

If A = 6 Then
If Bufor(1) = 83 Then

Karta = Bufor(2) - 48
Karta = Karta * 10
Karta = Karta + Bufor(3)
Karta = Karta - 48
Urzadzenie = Bufor(4) - 48
Stan = Bufor(5) - 48

If Karta = Adres Then

If Stan = 0 Then
Select Case Urzadzenie
Case 1 : Reset Out1
Case 2 : Reset Out2
Case 3 : Reset Out3
Case 4 : Reset Out4
Case 5 : Reset Out5
Case 6 : Reset Out6
Case 7 : Reset Out7
Case 8 : Reset Out8
Case 9 : Reset Piec_flaga
End Select
End If


If Stan = 1 Then
Select Case Urzadzenie
Case 1 : Set Out1
Case 2 : Set Out2
Case 3 : Set Out3
Case 4 : Set Out4
Case 5 : Set Out5
Case 6 : Set Out6
Case 7 : Set Out7
Case 8 : Set Out8
Case 9 : Set Piec_flaga
End Select
End If

If Stan = 2 Then
Select Case Urzadzenie
Case 1 : If Out1 = 0 Then Print "off" Else Print "on"
Case 2 : If Out2 = 0 Then Print "off" Else Print "on"
Case 3 : If Out3 = 0 Then Print "off" Else Print "on"
Case 4 : If Out4 = 0 Then Print "off" Else Print "on"
Case 5 : If Out5 = 0 Then Print "off" Else Print "on"
Case 6 : If Out6 = 0 Then Print "off" Else Print "on"
Case 7 : If Out7 = 0 Then Print "off" Else Print "on"
Case 8 : If Out8 = 0 Then Print "off" Else Print "on"
Case 9 : If Piec = 0 Then Print "off" Else Print "on"
End Select
End If

A = 1
Else
A = 5
For B = 1 To 4
C = B
Incr C
Bufor(b) = Bufor(c)
Next
End If
Else
A = 5
For B = 1 To 4
C = B
Incr C
Bufor(b) = Bufor(c)
Next
End If

End If

Return
'---

'---
'*** obsluga przyciskow ***
Przyciski:

Przyciski_port = Pina And &B11111111

If Przyciski_port <> 255 Then
Bufor_port = Przyciski_port

If Pk < 255 Then Incr Pk
If Pk = 100 Then
Select Case Przyciski_port
Case 254 : Print "S0611"
Case 253 : Print "S0610"
Case 251 : Print "S0621"
Case 247 : Print "S0620"
Case 239 : Toggle Piec_flaga
Case 223 : Print "test1"
Case 191 : Print "test2"
Case 127 : Print "test3"
End Select
Pik = 2
End If
Else
If Pk > 1 Then
If Pk < 100 Then
Bufor_port = Not Bufor_port
Wyjscia_port = Pinb
Wyjscia_port = Wyjscia_port Xor Bufor_port
Portb = Wyjscia_port
Pik = 2
End If
Pk = 0
End If
End If

Return
'---

'---
'*** wyswietlanie czasu i daty ***
Zegarek:

I2cstart
I2cwbyte Ds1307w
I2cwbyte 0
I2cstart
I2cwbyte Ds1307r
I2crbyte Sekunda , Ack
I2crbyte Minuta , Ack
I2crbyte Godzina , Ack
I2crbyte Dzien_tygodnia , Ack
I2crbyte Dzien , Ack
I2crbyte Miesiac , Ack
I2crbyte Rok , Nack
I2cstop

Sekunda = Makedec(sekunda) : Minuta = Makedec(minuta) : Godzina = Makedec(godzina)
Dzien_tygodnia = Makedec(dzien_tygodnia) : Dzien = Makedec(dzien) : Miesiac = Makedec(miesiac) : Rok = Makedec(rok)

Locate 1 , 1

If Godzina < 10 Then
Lcd "0" ; Godzina ; ":" ;
Else
Lcd Godzina ; ":" ;
End If

If Minuta < 10 Then
Lcd "0" ; Minuta ; ":" ;
Else
Lcd Minuta ; ":" ;
End If

If Sekunda < 10 Then
Lcd "0" ; Sekunda
Else
Lcd Sekunda
End If

Locate 1 , 11

If Dzien < 10 Then
Lcd "0" ; Dzien
Else
Lcd Dzien
End If

If Miesiac < 10 Then
Lcd "/0" ; Miesiac
Else
Lcd "/" ; Miesiac
End If

Lcd "/20" ; Rok

Locate 2 , 1

Lcd " dzi" ; Chr(2) ; Spc(1) ; Nazwa_dnia(dzien_tygodnia)

Return
'---

'---
Miganie:

Mig = Not Mig

Select Case Index
Case 0
Offset = 1
Temp_b = Godzina
Case 1
Offset = 4
Temp_b = Minuta
Case 2
Offset = 11
Temp_b = Dzien
Case 3
Offset = 14
Temp_b = Miesiac
Case 4
Offset = 19
Temp_b = Rok
End Select

Select Case Index
Case 0 To 4
Locate 1 , Offset
If Mig = 1 Then
If Temp_b > 9 Then Lcd Temp_b Else Lcd "0" ; Temp_b
Else
Lcd Spc(2)
End If
Case 5
Locate 2 , 2
If Mig = 1 Then
Lcd "dzi" ; Chr(2) ; Spc(1) ; Nazwa_dnia(dzien_tygodnia)
Else
Lcd "dzi" ; Chr(2) ; Spc(13)
End If
End Select

Return
'---

'---
Sub Set_clock(byval Numer_b As Byte , Byval Wartosc As Byte)

Wartosc = Makebcd(wartosc)
I2cstart
I2cwbyte Ds1307w
I2cwbyte Numer_b
I2cwbyte Wartosc
I2cstop

End Sub
'---[/syntax]
Sterownik w sumie już działa, płytka stykowa wygląda jak przerośnięty pająk-mutant :lol:
Teraz będę próbował stworzyć schemat, PCB
Muszę jeszcze jakoś posprzątać ten kod, a przede wszystkim opisać sobie go w komentarzach bo za jakiś czas to nie będę wiedział sam o co chodzi.

Jeszcze zostało tylko znaleźć jakiś dobry sposób na przyciski dotykowe.
Czy do mojej ATmegi da się jeszcze dorzucić obsługę przycisków dotykowych czy to już byłoby za dużo i lepiej to zrobić na osobnym układzie?
Pozwolę sobie pokazać kod Kolegi @SylwekK
[syntax=basic4gl]'---------------------------------------------
' Przycisk dotykowy V1
'
' Sylwek Kuna
' 2013.08.13
'
'---------------------------------------------
$regfile "m32adef.dat"
$crystal = 8000000
$hwstack = 64
$swstack = 64
$framesize = 128
'- konfig LCD --------------------------------
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5
Cursor Off Noblink
Cls


'---------------------------------------------
'---------------------------------------------
Dim A As Bit

Ddrd = &B00001000
Portd = 0

'-------------------
Do
Config Portd.6 = Output
Reset Portd.6
Waitus 200 'czas na rozładowanie pojemności
Config Portd.6 = Input
Set Portd.6
nop 'opóźnienie - przy większej pojemności (zbliżony palec) napięcie podciągające
nop 'nie zdąży naładować pojemności przez co odczyt z pinu da w efekcie "0"
' nop
' nop
' nop
' nop
' nop
' nop
' nop
' nop
A = Pind.6
Portd.3 = A
Home : Lcd "Stan:" ; A




Loop
End[/syntax]

Statystyki: Napisane przez pimowo — 25 lis 2014, o 13:32

]]> 2014-11-25T08:39:23+01:00 2014-11-25T08:39:23+01:00 https://forum.atnel.pl/viewtopic.php?t=9328&p=105862#p105862 <![CDATA[Re: ATmega32 BASCOM-Sterownik domowy/pokojowy]]> Niveasoft napisał(a):

Programista ktory zna Assemblera, C i Bascom i na codzień programuje dla swojej firmy urządzenia zrobił na innym forum porównanie "Czasochłonności" pisania i testowania programu który czyta dane z Serial Portu i ustawia serwo do żądanej pozycji.
Cytuj:
The Assembler version took about 40 hours to write and test
The C version took about 8 hours to write and test
The Bascom version took about 2 hours to write and test

...wyniki każdy może sobie zinterpretować jak chce. Mogę i ja po swojemu - kiedy ktoś będzie jeszcze pisał to ja będę już robił coś innego.

Powiem przewrotnie - kiedy ja będę się cieszył, że program wyrabia mi w przerwaniach i mieści się w procku, a przy tym nic się ze sobą nie gryzie - ktoś kiedyś będzie jeszcze szukał większego procka i wciąż próbował zoptymalizować algorytmy. - To mówiłem ja, kiedyś zatwardziały bascomowiec, który kijem nie chciał tknąć C. ;)

Statystyki: Napisane przez SylwekK — 25 lis 2014, o 08:39

]]> 2014-11-24T20:36:52+01:00 2014-11-24T20:36:52+01:00 https://forum.atnel.pl/viewtopic.php?t=9328&p=105807#p105807 <![CDATA[Re: ATmega32 BASCOM-Sterownik domowy/pokojowy]]> pimowo napisał(a):

Nie wiem jak zrobić, aby cyfry które chcę ustawić/zmienić ładnie sobie mrugały.

Takie rzeczy najfajniej sie robi z wykorzystaniem timera programowego, którym w pętli głównej zarządzasz, np tak:

[syntax=basic4gl]if timer_p=0 then
timer_p=50 'jeśli przerwania chodzą na 10ms to co 0,5s będzie zmiana stanu zmiennej
toggle miga 'zmienna bitowa
end if[/syntax]

powyższe umieszczasz gdzieś pod koniec pętli głównej niech sobie działa cały czas, a mogą z tego korzystać różne fragmenty programu. I dalej samo miganie to już formalność:

[syntax=basic4gl]locate 0,0 'jakieś współrzędne napisu
if miga=1 then lcd "napis" else lcd " "[/syntax]

a timer w przerwaniach po prostu tak wygląda:

[syntax=basic4gl]if timer_p>0 then decr timer_p[/syntax]

Dodam, że w teraz kiedy piszę w C i działam na lcd buforowanym przykładowe miganie jest jeszcze prostsze, bo po else nie potrzebne są te puste spacje :)

Statystyki: Napisane przez SylwekK — 24 lis 2014, o 20:36

]]> 2014-11-24T19:43:45+01:00 2014-11-24T19:43:45+01:00 https://forum.atnel.pl/viewtopic.php?t=9328&p=105791#p105791 <![CDATA[Re: ATmega32 BASCOM-Sterownik domowy/pokojowy]]>
Kombinuję i już prawie wszystko mam, no właśnie prawie :(
Nie wiem jak zrobić, aby cyfry które chcę ustawić/zmienić ładnie sobie mrugały. Próbuję zaadoptować kod @Niveasoft, ale nie bardzo potrafię to zrobić :(
Zrobiłem, że cyfry (1-8) na pilocie zmieniają mi stan wyjść (Out1-Out8)
Guzik 9 włącza/wyłącza piec
Guzik MUTE przechodzi w stan ustawień i każde następne naciśnięcie zmienia co ma ustawiać(godziny, minuty, dzień, miesiąc, rok, dzień tygodnia), a guzik-strzałka w górę-to zmienia.
Kod teraz wygląda tak:
[syntax=basic4gl]$regfile = "m32def.dat"
$crystal = 11059200
$baud = 115200
$hwstack = 128
$swstack = 64
$framesize = 64

Config Lcd = 20 * 4
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.6 , Rs = Portc.7

Config Porta = Input
Porta = &B11111111

Config Portb.0 = Output : Portb.0 = 0 : Out1 Alias Portb.0
Config Portb.1 = Output : Portb.1 = 0 : Out2 Alias Portb.1
Config Portb.2 = Output : Portb.2 = 0 : Out3 Alias Portb.2
Config Portb.3 = Output : Portb.3 = 0 : Out4 Alias Portb.3
Config Portb.4 = Output : Portb.4 = 0 : Out5 Alias Portb.4
Config Portb.5 = Output : Portb.5 = 0 : Out6 Alias Portb.5
Config Portb.6 = Output : Portb.6 = 0 : Out7 Alias Portb.6
Config Portb.7 = Output : Portb.7 = 0 : Out8 Alias Portb.7

Config Portd.3 = Output
Config Print0 = Portd.3 , Mode = Set
Config Portd.4 = Output : Portd.4 = 0 : Piec Alias Portd.4
Config Portd.5 = Output : Portd.5 = 0 : Led Alias Portd.5
Config Portd.6 = Output : Portd.6 = 1 : Led_buzzer Alias Portd.6

Config Timer2 = Timer , Prescale = 256 , Compare = Disconnect , Clear Timer = 1
Enable Compare2 : On Compare2 Timer2_isr : Compare2 = 215

On Urxc Przerwanie_od_rxd
On Int0 Rc5
Config Int0 = Falling

Declare Sub Czekaj

Dim Sekunda As Byte , Minuta As Byte , Godzina As Byte
Dim Dzien_tygodnia As Byte , Nazwa_dnia(7) As String * 12
Dim Dzien As Byte , Miesiac As Byte , Rok As Byte
Dim Flaga_5ms As Byte , Flaga_100ms As Byte , Flaga_1s As Byte , Timerek As Byte
Dim Odczyt(2) As Byte , T As Integer , T1 As Single , Wynik As String * 5
Dim Piec_flaga As Bit , Termostat As String * 5
Dim Adress As Byte , Kod As Byte , Odebrany_kod As Bit
Dim Bufor(10) As Byte , Dana As Byte , A As Byte , B As Byte , C As Byte
Dim Opoznienie As Byte , Adres As Byte , Karta As Byte , Urzadzenie As Byte , Stan As Byte
Dim Pik As Byte
Dim Pk As Byte
Dim Tryb As Byte , Index As Byte
Dim Przyciski_port As Byte , Wyjscia_port As Byte , Bufor_port As Byte

Nazwa_dnia(1) = "poniedzialek"
Nazwa_dnia(2) = "wtorek "
Nazwa_dnia(3) = "sroda "
Nazwa_dnia(4) = "czwartek "
Nazwa_dnia(5) = "piatek "
Nazwa_dnia(6) = "sobota "
Nazwa_dnia(7) = "niedziela "

'----- deklaracja znaków -----
Deflcdchar 0 , 4 , 10 , 10 , 10 , 27 , 17 , 17 , 14 'znak termometru
Deflcdchar 1 , 6 , 9 , 9 , 6 , 32 , 32 , 32 , 32 'znak stopnia
Deflcdchar 2 , 2 , 4 , 14 , 16 , 14 , 1 , 30 , 32 'znak "ś"
Deflcdchar 3 , 12 , 4 , 6 , 12 , 4 , 4 , 14 , 32 'znak "ł"
Deflcdchar 4 , 32 , 32 , 14 , 1 , 15 , 17 , 14 , 1 'znak "ą"
Deflcdchar 5 , 32 , 32 , 21 , 14 , 27 , 14 , 21 , 32 'znak "*" grzanie

Config Rc5 = Pind.2 , Wait = 2000
Config Sda = Portc.1
Config Scl = Portc.0

Const Ds1307w = 208
Const Ds1307r = 209

Config 1wire = Portd.7
1wreset
1wwrite &HCC
1wwrite &H44

Adres = 01
A = 1
Piec_flaga = 0

Cursor Off
Cls

Lcd "jakies powitanie bla,bla,bla..."

Call Czekaj
Print "Karta nr: " ; Adres
Wait 3
Cls

Enable Interrupts
Enable Urxc
Enable Int0

'*** START ***
Do


If Odebrany_kod = 1 Then
If Adress = 0 Then

Select Case Tryb

Case 0
Select Case Kod
Case 1 : Toggle Out1
Pik = 2
Case 2 : Toggle Out2
Pik = 2
Case 3 : Toggle Out3
Pik = 2
Case 4 : Toggle Out4
Pik = 2
Case 5 : Toggle Out5
Pik = 2
Case 6 : Toggle Out6
Pik = 2
Case 7 : Toggle Out7
Pik = 2
Case 8 : Toggle Out8
Pik = 2
Case 9 : Toggle Piec_flaga
Pik = 2
Case 13 : Tryb = 1

Case 16 :

Case 17 :

Case 32 : Print "S0610"
Pik = 2
Case 33 : Print "S0611"
Pik = 2
End Select

Case 1
If Kod = 13 Then
Incr Index
If Index = 6 Then
Index = 0
Cls
Tryb = 0
End If
End If
If Kod = 16 Then
Select Case Index
Case 0
Incr Godzina
If Godzina > 23 Then Godzina = 1
Godzina = Makebcd(godzina)
I2cstart
I2cwbyte Ds1307w
I2cwbyte 2
I2cwbyte Godzina
I2cstop
Case 1
Incr Minuta
If Minuta > 59 Then Minuta = 0
Minuta = Makebcd(minuta)
I2cstart
I2cwbyte Ds1307w
I2cwbyte 1
I2cwbyte Minuta
I2cstop
Case 2
Incr Dzien
If Dzien > 31 Then Dzien = 1
Dzien = Makebcd(dzien)
I2cstart
I2cwbyte Ds1307w
I2cwbyte 4
I2cwbyte Dzien
I2cstop
Case 3
Incr Miesiac
If Miesiac > 12 Then Miesiac = 1
Miesiac = Makebcd(miesiac)
I2cstart
I2cwbyte Ds1307w
I2cwbyte 5
I2cwbyte Miesiac
I2cstop
Case 4
Incr Rok
If Rok > 99 Then Rok = 00
Rok = Makebcd(rok)
I2cstart
I2cwbyte Ds1307w
I2cwbyte 6
I2cwbyte Rok
I2cstop
Case 5
Incr Dzien_tygodnia
If Dzien_tygodnia > 6 Then Dzien_tygodnia = 1
Dzien_tygodnia = Makebcd(dzien_tygodnia)
I2cstart
I2cwbyte Ds1307w
I2cwbyte 3
I2cwbyte Dzien_tygodnia
I2cstop

End Select
End If
End Select
End If
Odebrany_kod = 0
End If

'co 5ms
If Flaga_5ms = 1 Then
Flaga_5ms = 0
Incr Timerek
Gosub Przyciski
If Timerek = 20 Then
Timerek = 0
Flaga_100ms = 1
End If
End If

'----------- pikanie --------------
If Flaga_100ms = 1 Then
Flaga_100ms = 0
Incr Flaga_1s
If Pik > 0 Then
Decr Pik
Toggle Led_buzzer
Set Led
Else
Reset Led
End If
End If
'--------- koniec pikania ---------

' co sekunde
If Flaga_1s = 10 Then
Flaga_1s = 0
Gosub Temperatura
Gosub Zegarek
End If


Loop
'*** KONIEC ***
End

Sub Czekaj

For Opoznienie = 1 To Adres
Waitms 100
Next Opoznienie
End Sub

'*** obsluga DS18B20 ***
Temperatura:

'tu czytasz temperature
1wreset
1wwrite &HCC
1wwrite &HBE
Odczyt(1) = 1wread(2)
T = Odczyt(2)
Shift T , Left , 8
T = T + Odczyt(1)
T1 = T * 0.0625

Wynik = Fusing(t1 , "#.#")
Locate 3 , 14
Lcd Chr(0) ; Wynik ; Chr(1) ; "C"

'----- sterowanie piecem
Locate 4 , 1

If Piec_flaga = 1 Then
Lcd "piec jest w" ; Chr(3) ; Chr(4) ; "czony "
Termostat = "21"
Else
Lcd "piec jest wy" ; Chr(3) ; Chr(4) ; "czony "
Termostat = "18"
End If

Locate 3 , 1

If Wynik < Termostat Then
Lcd Chr(5) ; " grzanie " ; Chr(5)
Set Piec
Else
Lcd " "
Reset Piec
End If

'tu kazesz DS`owi przygotować nowy odczyt
1wreset
1wwrite &HCC
1wwrite &H44

Return


Timer2_isr:

Flaga_5ms = 1

Return

'*** obsluga pilota ***
Rc5:

Disable Int0
Gifr.intf0 = 1
Enable Interrupts

Getrc5(adress , Kod)
Kod = Kod And &B01111111
Odebrany_kod = 1

Disable Interrupts
Enable Int0
Gifr.intf0 = 1

Return

'*** obsluga RS485 ***
Przerwanie_od_rxd:

Inputbin Dana
Bufor(a) = Dana
Incr A

If A = 6 Then
If Bufor(1) = 83 Then

Karta = Bufor(2) - 48
Karta = Karta * 10
Karta = Karta + Bufor(3)
Karta = Karta - 48
Urzadzenie = Bufor(4) - 48
Stan = Bufor(5) - 48

If Karta = Adres Then

If Stan = 0 Then
Select Case Urzadzenie
Case 1 : Reset Out1
Case 2 : Reset Out2
Case 3 : Reset Out3
Case 4 : Reset Out4
Case 5 : Reset Out5
Case 6 : Reset Out6
Case 7 : Reset Out7
Case 8 : Reset Out8
Case 9 : Reset Piec_flaga
End Select
End If


If Stan = 1 Then
Select Case Urzadzenie
Case 1 : Set Out1
Case 2 : Set Out2
Case 3 : Set Out3
Case 4 : Set Out4
Case 5 : Set Out5
Case 6 : Set Out6
Case 7 : Set Out7
Case 8 : Set Out8
Case 9 : Set Piec_flaga
End Select
End If

If Stan = 2 Then
Select Case Urzadzenie
Case 1 : If Out1 = 0 Then Print "off" Else Print "on"
Case 2 : If Out2 = 0 Then Print "off" Else Print "on"
Case 3 : If Out3 = 0 Then Print "off" Else Print "on"
Case 4 : If Out4 = 0 Then Print "off" Else Print "on"
Case 5 : If Out5 = 0 Then Print "off" Else Print "on"
Case 6 : If Out6 = 0 Then Print "off" Else Print "on"
Case 7 : If Out7 = 0 Then Print "off" Else Print "on"
Case 8 : If Out8 = 0 Then Print "off" Else Print "on"
Case 9 : If Piec = 0 Then Print "off" Else Print "on"
End Select
End If

A = 1
Else
A = 5
For B = 1 To 4
C = B
Incr C
Bufor(b) = Bufor(c)
Next
End If
Else
A = 5
For B = 1 To 4
C = B
Incr C
Bufor(b) = Bufor(c)
Next
End If

End If

Return

'*** obsluga przyciskow ***
Przyciski:

Przyciski_port = Pina And &B11111111 'Bajt= Cały portB And 111111111

If Przyciski_port <> 255 Then 'przykład: jesli różne od 11111111 i jest 11110111
Bufor_port = Przyciski_port

If Pk < 255 Then Incr Pk
If Pk = 100 Then
Select Case Przyciski_port
Case 254 : Print "S0611"
Case 253 : Print "S0610"
Case 251 : Print "S0621"
Case 247 : Print "S0620"
Case 239 : Toggle Piec_flaga
Case 223 : Print "test1"
Case 191 : Print "test2"
Case 127 : Print "test3"
End Select
Pik = 4
End If
Else
If Pk > 1 Then
If Pk < 100 Then
Bufor_port = Not Bufor_port 'to 11110111 odwracamy na 00001000
Wyjscia_port = Pinb 'odczytujemy port WYJŚĆ i zmieniamy tylko jeden pin
Wyjscia_port = Wyjscia_port Xor Bufor_port 'przykład: 11110111 Xor 00001000 = 11111111
Portb = Wyjscia_port 'i przepisujemy wartosc do portu
Pik = 2
End If
Pk = 0
End If
End If

Return


'*** wyswietlanie czasu i daty ***
Zegarek:

I2cstart
I2cwbyte Ds1307w
I2cwbyte 0
I2cstart
I2cwbyte Ds1307r
I2crbyte Sekunda , Ack
I2crbyte Minuta , Ack
I2crbyte Godzina , Ack
I2crbyte Dzien_tygodnia , Ack
I2crbyte Dzien , Ack
I2crbyte Miesiac , Ack
I2crbyte Rok , Nack
I2cstop

Sekunda = Makedec(sekunda) : Minuta = Makedec(minuta) : Godzina = Makedec(godzina)
Dzien_tygodnia = Makedec(dzien_tygodnia) : Dzien = Makedec(dzien) : Miesiac = Makedec(miesiac) : Rok = Makedec(rok)

Locate 1 , 1

If Godzina < 10 Then
Lcd "0" ; Godzina ; ":" ;
Else
Lcd Godzina ; ":" ;
End If

If Minuta < 10 Then
Lcd "0" ; Minuta ; ":" ;
Else
Lcd Minuta ; ":" ;
End If

If Sekunda < 10 Then
Lcd "0" ; Sekunda
Else
Lcd Sekunda
End If

Locate 1 , 11

If Dzien < 10 Then
Lcd "0" ; Dzien
Else
Lcd Dzien
End If

If Miesiac < 10 Then
Lcd "/0" ; Miesiac
Else
Lcd "/" ; Miesiac
End If

Lcd "/20" ; Rok

Locate 2 , 1

Lcd " dzi" ; Chr(2) ; Spc(1) ; Nazwa_dnia(dzien_tygodnia)

Return[/syntax]

Statystyki: Napisane przez pimowo — 24 lis 2014, o 19:43

]]> 2014-11-23T11:20:37+01:00 2014-11-23T11:20:37+01:00 https://forum.atnel.pl/viewtopic.php?t=9328&p=105562#p105562 <![CDATA[Re: ATmega32 BASCOM-Sterownik domowy/pokojowy]]> Niveasoft napisał(a):

Pamiętam że Sylwkowi się nie podobało że użyłem dwóch Timerów w urządzeniu do generowania sygnału prędkości.

Sytuacji niestety nie pamiętam wiem natomiast jedno, że jeśli od początku nie zacznie się prawidłowo programować to czym większy projekt tym większe problemy, które będą się nawarstwiać i nagle się okaże, że duże możliwości sprzętowe okażą się nie wystarczające, żeby zamigać jeszcze jedną diodką (oczywiście przejaskrawiam z tą diodą - chodzi o istotę)... A dwa timery do generowania prędkości jak by to nie miało wyglądać to przynajmniej o jeden za dużo ;)

Statystyki: Napisane przez SylwekK — 23 lis 2014, o 11:20

]]>