ATNEL tech-forum

Re: Pierwszy program DS1307 + TEA5767 Bascom

2014-12-03T01:58:57+01:00

Mam coś takiego ale nie działa
chcę ustawić na sztywno jedna stacje 103.3
[syntax=basic4gl]$regfile = "m16adef.dat"
$crystal = 16000000

$lib "mcsbyte.lbx"

Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Porta.2 , E = Porta.3 , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7
Cursor Off
Cls

Config Scl = Portc.0 'SCL
Config Sda = Portc.1 'SDA

Config I2cdelay = 10 ' i2c delay
'_____________________________________________
'Config

Dim Pll As Single
Dim Fset As Word
Dim Freq As Single ' set freq

Dim 1st As Byte
Dim 2nd As Byte
Dim 3rd As Byte
Dim 4st As Byte
Dim 5th As Byte
Const Fref = 32.768 ' cristal freq radio module
Const Fg = 250

I2cinit

Enable Interrupts

'_____________________________________________

'Main Program

Do

Freq = 103.0

Cls

Lcd "Radio East Coast"

Pll = Pll * 1000000
Pll = Pll + 225000
Pll = Pll * 4
Pll = Pll / 32768
Fset = Int(pll)

1st = High(fset)
Reset 1st.7 'not mute
Reset 1st.6 'not search
2nd = Low(fset)
3rd = &B00010000
4st = &B00010010
5th = &B00000000

I2cstart
I2cwbyte &HC0
I2crbyte 1st , Ack
I2crbyte 2nd , Ack
I2crbyte 3rd , Ack
I2crbyte 4st , Ack
I2crbyte 5th , Nack
I2cstop

Loop

End
[/syntax]

Statystyki: Napisane przez kulamario — 3 gru 2014, o 01:58

Re: Pierwszy program DS1307 + TEA5767 Bascom

2014-12-02T17:18:56+01:00

kulamario napisał(a):

Widziałem już ten artykuł
ale kod nie jest działający autor pisze ze nie udało mu się uruchomić tego radia

A sprawdzałeś?
Śmię twierdzić że kod jest funkcjonujący a problem może tkwić gdzie indziej.

Komunikacja działa, układ prawidłowo reaguje i interpretuje polecenia i wysyła dane. Niemniej spodziewanego efektu brak. Jak dotąd nie udało się namierzyć problemu.

Statystyki: Napisane przez kaktus — 2 gru 2014, o 17:18

Re: Pierwszy program DS1307 + TEA5767 Bascom

2014-12-02T02:11:37+01:00

Widziałem już ten artykuł
ale kod nie jest działający autor pisze ze nie udało mu się uruchomić tego radia

Statystyki: Napisane przez kulamario — 2 gru 2014, o 02:11

Re: Pierwszy program DS1307 + TEA5767 Bascom

2014-12-01T17:09:38+01:00

kulamario napisał(a):

Witam kolegów
Czy ma może ktoś działający kod do TEA5767 ?
Bardzo bym był wdzięczny

Zerknij na ten link.

Statystyki: Napisane przez LA72 — 1 gru 2014, o 17:09

Re: Pierwszy program DS1307 + TEA5767 Bascom

2014-12-01T16:48:48+01:00

Witam kolegów
Czy ma może ktoś działający kod do TEA5767 ?
Bardzo bym był wdzięczny

Statystyki: Napisane przez kulamario — 1 gru 2014, o 16:48

Re: Pierwszy program DS1307 + TEA5767 Bascom

2014-04-24T18:31:36+01:00

Ehh ale matekogon u ciebie z bascomem też nie lepiej a wystarczyło helpa przeczytać a nie wprowadzać kolegę w błąd.

Ponieważ używasz bibliotek $lib "ds1307clock_ger.lib" sub-rutyny są zadeklarowane wiec ich już nie trzeba deklarować.

A mając ds1307 grzechem jest nie wykorzystanie wyjścia sqwe i podania np na int0 wtedy zamiast wywoływać getdatetime w pętli można ustawić flagę np co sekundę i pobrać z ds1307 czas.

Statystyki: Napisane przez pikczu — 24 kwi 2014, o 18:31

Re: Pierwszy program DS1307 + TEA5767 Bascom

2014-04-15T20:36:18+01:00

Matekogon - Dzięki wielkie za pomoc udało mi się uruchomić działa. Zastosowałem się do sposobu nr.2 opisywanego przez ciebie to było takie oczywiste a ja głupi nie widziałem tego. Widzę że jeszcze dużo nauki przede mną.
Dziękuje ci jeszcze raz i Pozdrawia.

Statystyki: Napisane przez azbest — 15 kwi 2014, o 20:36

Re: Pierwszy program DS1307 + TEA5767 Bascom

2014-04-13T13:18:38+01:00

Kolego problem w twoim kodzie polega na braku znajomości zasady działania pętli Do... Loop. Więc ci ją przybliżę Jest to pętla nieskończona (pewnie wiesz lub nie ) a co to oznacza. Jeśli jest wykonywany program od pierwszej lini. To sobie leci po kolei deklaruje zmienne procedury itp. Napotyka pętle Do...Loop i wskakuje do niej ,czyli zaczyna wykonywać wszystko po słowie "DO" aż do momentu w którym napotka słowo LOOP i co się w tedy dzieje? Procesor zaczyna wykonywać kod od nowa czyli od miejsca w którym zaczyna się pętla "DO". Jako że pętla DO....LOOP jest nie skończona, procesor sobie wykonuje kod zawarty między słowem DO LOOP do końca swojego życia. Czyli analizując twój kod będzie się wykonywać tylko ta pętla
[syntax=basic4gl]Do
Locate 1 , 1
Lcd Time$
Locate 2 , 1
Lcd Date$
Getdatetime
Fm
'Zmiana
Loop[/syntax]
Teraz nasuwa się pytanie Jak wykonać kod po słowie LOOP. Jest kilka sposobów. Wymienię dwa bo reszty nie pamiętam lub nie znam Pierwszy to słowo "until" czyli piszesz loop until wyjście =1 "jakaś zmienna zezwalająca na opuszczenie pętli " i w tedy jeśli zmenna wyjście będzie równa jeden w tedy opuszczasz pętle i wykonujesz wszystko po słowie LOOP. Kolejny sposób to wykorzystanie procedur. Właśnie w twoim kodzie wykorzystany jest ten drugi sposób "procedury" .Jak to przeanalizować . Procesor wykonuje kod, napotyka procedurę Fm i co robi. Można nazwać że teleportuje się do innego pomieszczenia w którym jest zapisany kod tej procedury:
[syntax=basic4gl]Sub Fm

I2cinit

Freq_soll(1) = 96.0
Station(1) = "RMF FM "
Freq_soll(2) = 96.7
Station(2) = "RMF MAX "
Freq_soll(3) = 97.7
Station(3) = "ESKA "
Freq_soll(4) = 104.1
Station(4) = "R.ZET "
Freq_soll(5) = 103.8
Station(5) = "ROXY FM "
Freq_soll(6) = 89.4
Station(6) = "PR.1 "
Freq_soll(7) = 102.0
Station(7) = "PR.2 "
Freq_soll(8) = 99.4
Station(8) = "PR.3 "
Freq_soll(9) = 92.5
Station(9) = "ZLOTE PRZEB."

Sender = 9
I = 1

Schreiben

End Sub[/syntax]
Po wykonaniu tego kodu w innym pomieszczeniu musi teleportować się z powrotem do głównego pokoju, czyli do pętli DO LOOP na samej górze.To samo się dzieje z procedurą Getdatetime Wykonując dalej kod główny procesor napotyka procedurę "zmiana" co robie teleportuje się do innego pokoju :
[syntax=basic4gl]Sub Zmiana
Do
Debounce Pina.0 , 0 , Hoch , Sub
Debounce Pina.1 , 0 , Runter , Sub
'Return
Loop

End Sub[/syntax]
i co tu się dzieje ? Procesor napotyka słowo DO co to oznacza? Jest tutaj pętla nieskończona. Procek wskakuje do tej pętli sprawdza czy pierwszy przycisk wciśnięty , drugi wciśnięty Następnie napotyka słowo LOOP, które informuje go o powrocie do początku tej procedury. Procesor wraca z wykonywaniem do słowa DO, sprawdza przycisk pierwszy drugi i znowu słowo LOOP i tak do końca swojego życia. A przecież założenie było takie że po sprawdzeniu przycisków ma teleportować się do głównej pętli. Wydaje mi się że po tym wytłumaczeniu znajdziesz problem dlaczego nie możesz zmieniać stacji i zegarek ci nie zmienia czasu jak włączysz procedurę "zmiana"

A tak to mniej więcej działa z wykonywaniem procedur (kliknij na obrazek aby zobaczyć animację )

Podprogram=procedura

Statystyki: Napisane przez matekogon — 13 kwi 2014, o 13:18

Re: Pierwszy program DS1307 + TEA5767 Bascom

2014-04-12T21:56:19+01:00

Witam,
Zapisu godziny i daty dokonuję na sztywno linia 33 oraz 34 w kodzie wystarczy mi to na razie. Chcę docelowo pobawić się i ustawiać czas po Rs232. Procedura "zmiana" wywołuję z pętli Do..Loop linia 73 w powyższym kodzie odnosi się do linii 106. Gdy usunę pętlę z procedury zmiana zaczyna działać zegar ale przestają działać guziki ze zmianą zakresu po wprowadzeniu jej z powrotem zaczyna działać zmiana zakresów ale przestaje zegar. Czy przypadkiem w tej pętli nie jest problem.
Pozdrawiam

Statystyki: Napisane przez azbest — 12 kwi 2014, o 21:56

Re: Pierwszy program DS1307 + TEA5767 Bascom

2014-04-11T05:29:31+01:00

Kolego jak mogą ci działać przyciski jak zrobiłeś procedure "zmiana" a nigdzie jej nie wywołujesz. Daj obsługę tych przycisków do głównej pętli. A tak na dzień dobry proponował bym ci napisać kod od nowa. Bo masz zegar, procedurę zapisu ustawień godziny, a nigdzie znowu nie widzę możliwości ustawiania tego zegarka.

Statystyki: Napisane przez matekogon — 11 kwi 2014, o 05:29

Re: Pierwszy program DS1307 + TEA5767 Bascom

2014-04-10T22:44:11+01:00

Witam,
No dobrze to stwierdziłeś z bascomem u mnie cienko jest widzę u siebie jeszcze sporo do nauki i poprawy ale trzeba się czymś bardziej ambitnym końcu zająć niż zapalanie diodek mniejsza z tym. Dokonałem poprawek w programie zadeklarowałem wszystkie procedury poprawiłem pętle ale coś dalej jest nie tak Dalej zegar stoi ale chyba znalazłem przyczynę takiego stanu rzeczy związana jest ona z funkcją jaką zadeklarowałem jako procedurę "Zmiana" mianowicie kiedy zakonotuje w pętli Do... Loop tą procedurę zegar rusza odmierza czas bezproblemowo radio też się włącza tylko nie da się zmienić stacji brak reakcji na przyciski po dodaniu "Reset" zaczyna reagować na przyciski słychać trzaski w głośniku i widać na wyświetlaczu że wskazania stacji się migają ale niestety nie zmienia się stacja czas odmierza się normalnie:

Przykład:

[syntax=bash]Sub Zmiana
Do
Debounce Pina.0 , 0 , Hoch , Sub
Debounce Pina.1 , 0 , Runter , Sub
'Return
Loop[/syntax]

Oto cały kod po dokonaniu poprawek:
Co tutaj jeszcze jest nie tak

[syntax=basic4gl]$regfile = "m16def.dat"
$crystal = 800000
$hwstack = 40
$swstack = 16
$framesize = 32

$lib "DS1307CLOCK_GER.LIB"
Dim _weekday As Byte
Config Lcd = 20 * 4
Config Lcdpin = Pin , Db4 = Portd.5 , Db5 = Portd.6 , Db6 = Portd.7 , Db7 = Portb.0 , E = Portd.3 , Rs = Portd.2
Porta = &B00000011

Cursor Off
Cls

'---- zmienne zegar ----
Config Sda = Portb.2
Config Scl = Portb.1

Const Modulfrequenz = 32768
Const Frequenzi = 225000

Const Tea5767w = &HC0 'Adres TEA5767
Const Tea5767r = &HC1

Config Clock = User
Config Date = Dmy , Separator = .
Const Ds1307w = &HD0 ' Adres Ds1307
Const Ds1307r = &HD1
'Time$ = "21:40:00"
'Date$ = "10.04.14"

'---- zmienne radio ----
Dim Pll As Single
Dim Pllfrequenz As Word
Dim Adresse As Byte
Dim 1st As Byte
Dim 2nd As Byte
Dim 3rd As Byte
Dim 4th As Byte
Dim 5th As Byte
Dim Weekday As Byte
Dim Freq_soll(20) As Single
Dim Station(20) As String * 16
Dim Sender As Byte
Dim I As Byte
Dim W As String * 5
Dim Z As Byte

Declare Sub Hoch
Declare Sub Runter
Declare Sub Schreiben
Declare Sub Lesen
Declare Sub Fm
Declare Sub Getdatetime
Declare Sub Setdate
Declare Sub Settime
Declare Sub Zmiana

Do
Locate 1 , 1
Lcd Time$
Locate 2 , 1
Lcd Date$
Getdatetime
Fm
'Zmiana
Loop

Sub Fm

I2cinit

Freq_soll(1) = 96.0
Station(1) = "RMF FM "
Freq_soll(2) = 96.7
Station(2) = "RMF MAX "
Freq_soll(3) = 97.7
Station(3) = "ESKA "
Freq_soll(4) = 104.1
Station(4) = "R.ZET "
Freq_soll(5) = 103.8
Station(5) = "ROXY FM "
Freq_soll(6) = 89.4
Station(6) = "PR.1 "
Freq_soll(7) = 102.0
Station(7) = "PR.2 "
Freq_soll(8) = 99.4
Station(8) = "PR.3 "
Freq_soll(9) = 92.5
Station(9) = "ZLOTE PRZEB."

Sender = 9
I = 1

Schreiben

End Sub
Sub Zmiana
Do
Debounce Pina.0 , 0 , Hoch , Sub
Debounce Pina.1 , 0 , Runter , Sub
'Return
Loop

End Sub

Sub Schreiben

Pll = Freq_soll(i) * 1000000
Pll = Pll + Frequenzi
Pll = Pll * 4
Pll = Pll / Modulfrequenz
Pllfrequenz = Int(pll)
1st = High(pllfrequenz)
Reset 1st.6
Reset 1st.7
2nd = Low(pllfrequenz)
3rd = &B00010000
4th = &B00010010
5th = &B00000000
I2cstart
I2cwbyte Tea5767w
I2cwbyte 1st
I2cwbyte 2nd
I2cwbyte 3rd
I2cwbyte 4th
I2cwbyte 5th
I2cstop

W = Fusing(freq_soll(i) , "#.#")

Thirdline
Locate 3 , 1
Lcd W ; " MHz "

Fourthline
Locate 4 , 1
Lcd Station(i)

End Sub
Sub Hoch

'Cls
Incr I
If I > Sender Then I = 1
Schreiben

End Sub
Sub Runter

'Cls
Decr I
If I < 1 Then I = Sender
Schreiben

End Sub

Sub Getdatetime

I2cstart
I2cwbyte Ds1307w
I2cwbyte 0

I2cstart
I2cwbyte Ds1307r ' wyslij adres
I2crbyte _sec , Ack
I2crbyte _min , Ack ' min
I2crbyte _hour , Ack ' godz
I2crbyte _weekday , Ack ' Dzien
I2crbyte _day , Ack ' Dzien
I2crbyte _month , Ack ' miesiac
I2crbyte _year , Nack ' rok
I2cstop
_sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
_day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)
Return
End Sub

Sub Setdate
_day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
I2cstart
I2cwbyte Ds1307w ' send address
I2cwbyte 4 ' start ds1307
I2cwbyte _day ' data
I2cwbyte _month ' minuty
I2cwbyte _year ' godz
I2cstop
Return
End Sub

Sub Settime
_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
I2cstart
I2cwbyte Ds1307w ' adres
I2cwbyte 0 ' start ds1307
I2cwbyte _sec ' data
I2cwbyte _min ' minuty
I2cwbyte _hour ' gzodz
I2cstop
Return
End Sub

End[/syntax]

Dziękuje i Pozdrawiam.

Statystyki: Napisane przez azbest — 10 kwi 2014, o 22:44

Re: Pierwszy program DS1307 + TEA5767 Bascom

2014-04-10T05:34:48+01:00

Kolego wydaje mi się że troszkę leżysz z bascomem. Czy zadeklarowałeś procedury na początku programu Następnie pooprawiłeś kod i robisz coś takiego w pętli: Odczytujesz czas a następnie ten sam czas wpisujesz do DS-a więc jak on ma ci się zmieniać? Jeśłi odczytasz np sekunda=10 i za raz ja wpisujesz tą "10" do DS-a no to jak ma ci się zmienić na 11? Dołóż sobie przerwanie co 1s i tam wstaw wywoływanie odczytu DS-a

Statystyki: Napisane przez matekogon — 10 kwi 2014, o 05:34

Re: Pierwszy program DS1307 + TEA5767 Bascom

2014-04-09T22:30:38+01:00

Witam,
Racja procedury Getdatetime,Setdate,Settime nie były z znikąd wywoływane moja pomyłka.
Zrobiłem coś takiego ( kod poniżej ) i dalej jest to samo radio gra da się zmieniać zakresy a zegar dalej stoki na 1 wskazaniu.

[syntax=basic4gl]Do
Gosub Getdatetime
Gosub Setdate
Gosub Settime
Locate 1 , 1
Lcd Time$
Locate 2 , 1
Lcd Date$
Gosub Fm
Loop[/syntax]

Co może być jeszcze nie tak czy to dobrze zrobiłem ??
Proszę o pomoc.
Pozdrawiam

Statystyki: Napisane przez azbest — 9 kwi 2014, o 22:30

Re: Pierwszy program DS1307 + TEA5767 Bascom

2014-04-09T05:31:10+01:00

Kolego patrzę i patrzę i nie mogę dostrzec w którym miejscu wywołujesz procedury Getdatetime,Setdate,Settime, Gdzie je masz zadeklarowane ?

Statystyki: Napisane przez matekogon — 9 kwi 2014, o 05:31

Pierwszy program DS1307 + TEA5767 Bascom

2014-04-08T22:46:34+01:00

Witam,
Proszę o poradę co w przedstawionym poniżej kodzie jest nie tak mianowicie zbudowałem w oparciu o atmega32, RTC- ds1307 oraz TEA5767 radio FM z zegarkiem
Oba kody osobno RTC oraz FM działają prawidłowo problem pojawia się kiedy to próbuje połączyć oba programy. Efekt tego jest taki że mogę zmieniać zakres stacji FM ale zegar cały cas wskazuje tą samą godzinę. Widać że RTC pracuje ponieważ jak zresetuje procesor godzina odświeża się. Są to moje początki z Bascom AVR więc proszę o wyrozumiałość.

oto kod:

[syntax=basic4gl]$regfile = "m16def.dat"
$crystal = 800000
$hwstack = 40
$swstack = 16
$framesize = 32
Config Debounce = 50

$lib "DS1307CLOCK_GER.LIB"
Dim _weekday As Byte
Config Lcd = 20 * 4
Config Lcdpin = Pin , Db4 = Portd.5 , Db5 = Portd.6 , Db6 = Portd.7 , Db7 = Portb.0 , E = Portd.3 , Rs = Portd.2
Porta = &B00000011
Cursor Off
Cls

'---- zmienne zegar ----
Config Sda = Portb.2
Config Scl = Portb.1

Const Modulfrequenz = 32768
Const Frequenzi = 225000

Const Tea5767w = &HC0 'Adres TEA5767
Const Tea5767r = &HC1

Dim Weekday As Byte
Config Clock = User
Config Date = Dmy , Separator = .
Const Ds1307w = &HD0 ' Adres Ds1307
Const Ds1307r = &HD1
'Time$ = "23:25:00"
'Date$ = "08.04.14"

'---- zmienne radio ----
Dim Pll As Single
Dim Pllfrequenz As Word
Dim Adresse As Byte
Dim 1st As Byte
Dim 2nd As Byte
Dim 3rd As Byte
Dim 4th As Byte
Dim 5th As Byte

Dim Freq_soll(20) As Single
Dim Station(20) As String * 16
Dim Sender As Byte
Dim I As Byte
Dim W As String * 5
Dim Z As Byte

Declare Sub Hoch
Declare Sub Runter
Declare Sub Schreiben
Declare Sub Lesen
Declare Sub Zmiana

Do
Locate 1 , 1
Lcd Time$
Locate 2 , 1
Lcd Date$
Gosub Fm
Loop

Fm:

I2cinit

Freq_soll(1) = 96.0
Station(1) = "RMF FM "
Freq_soll(2) = 96.7
Station(2) = "RMF MAX "
Freq_soll(3) = 97.7
Station(3) = "ESKA "
Freq_soll(4) = 104.1
Station(4) = "R.ZET "
Freq_soll(5) = 103.8
Station(5) = "ROXY FM "
Freq_soll(6) = 89.4
Station(6) = "PR.1 "
Freq_soll(7) = 102.0
Station(7) = "PR.2 "
Freq_soll(8) = 99.4
Station(8) = "PR.3 "
Freq_soll(9) = 92.5
Station(9) = "ZLOTE PRZEB."

Sender = 9
I = 1

Schreiben

Do
Debounce Pina.0 , 0 , Hoch , Sub
Debounce Pina.1 , 0 , Runter , Sub
Loop

Sub Schreiben

Pll = Freq_soll(i) * 1000000
Pll = Pll + Frequenzi
Pll = Pll * 4
Pll = Pll / Modulfrequenz
Pllfrequenz = Int(pll)
1st = High(pllfrequenz)
Reset 1st.6
Reset 1st.7
2nd = Low(pllfrequenz)
3rd = &B00010000
4th = &B00010010
5th = &B00000000
I2cstart
I2cwbyte Tea5767w
I2cwbyte 1st
I2cwbyte 2nd
I2cwbyte 3rd
I2cwbyte 4th
I2cwbyte 5th
I2cstop

W = Fusing(freq_soll(i) , "#.#")

Thirdline
Locate 3 , 1
Lcd W ; " MHz "

Fourthline
Locate 4 , 1
Lcd Station(i)

End Sub
Sub Hoch
'Cls
Incr I
If I > Sender Then I = 1
Schreiben

End Sub
Sub Runter

'Cls
Decr I
If I < 1 Then I = Sender
Schreiben
End Sub

Getdatetime:
I2cstart
I2cwbyte Ds1307w
I2cwbyte 0
I2cstart
I2cwbyte Ds1307r ' wyslij adres
I2crbyte _sec , Ack
I2crbyte _min , Ack ' min
I2crbyte _hour , Ack ' godz
I2crbyte _weekday , Ack ' Dzien
I2crbyte _day , Ack ' Dzien
I2crbyte _month , Ack ' miesiac
I2crbyte _year , Nack ' rok
I2cstop
_sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
_day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)
Return

Setdate:
_day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
I2cstart
I2cwbyte Ds1307w ' send address
I2cwbyte 4 ' start ds1307
I2cwbyte _day ' data
I2cwbyte _month ' minuty
I2cwbyte _year ' godz
I2cstop
Return

Settime:
_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
I2cstart
I2cwbyte Ds1307w ' adres
I2cwbyte 0 ' start ds1307
I2cwbyte _sec ' data
I2cwbyte _min ' minuty
I2cwbyte _hour ' gzodz
I2cstop
Return
End[/syntax]

W przypadku kiedy usunę pętlę Do .. Loop dla

[syntax=basic4gl]Do
Debounce Pina.0 , 0 , Hoch , Sub
Debounce Pina.1 , 0 , Runter , Sub
Loop[/syntax]

Zegar zaczyna pracować ale znowu nie mogę zmienić zakresu słyszę tyko trzaski w głośniku i widać na wyświetlaczu że wartość z częstotliwością i nazwą radia miga ale bez żadnej reakcji

Proszę o pomoc bo ja już zgłupiałem co może być nie tak

Statystyki: Napisane przez azbest — 8 kwi 2014, o 22:46