Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

"Zabavni" Kurs - Učite vežbajući!!!

[es] :: Visual Basic 6 :: "Zabavni" Kurs - Učite vežbajući!!!

Strane: 1 2

[ Pregleda: 6975 | Odgovora: 21 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net


+44 Profil

icon "Zabavni" Kurs - Učite vežbajući!!!23.07.2006. u 01:03 - pre 216 meseci
evo na predlog korisnika U Prolazu otvaram ovaj naš zajednički kurs (mada više dođe ko neko takmičenje :p) sa željom da što više ljudi učestvuje i da što više nauče ovde :D

svrha svega ovoga je da ljudi nauče programiranje praveći zadate aplikacije, što je najbolji vid učenja.

elem, evo nekih pravila (čisto radi nekog reda):

1 - U kursu mogu da učestvuju svi članovi foruma
2 - Zadatke takođe mogu da postavljaju svi članovi foruma
3 - Kada se zadatak postavi ne može se postaviti novi dok se taj nereši
4 - Svaki zadatak će imati određeno vreme za koje treba da bude rešen (određuje onaj ko postavlja zadatak)
5 - Zadatke pregleda "stručna komisija" i najbolji rad nagrađuje sa jednim (imaginarnim) bambijem (da održavamo takmičarski duh :D)
6 - I članovi komisije mogu da učestvuju u izradi zadatka ali oni ne mogu da ocenjuju svoj rad
7 - Onaj ko najboilje reši zadatak po mišljenju "stručne komisije" :), ima pravo da postavi sledeći zadatak (čisto kao malo veća nagrada od imaginarnog bambija :))
8 - Kod mora biti isključivo vaš, odnosno nije dozvoljeno uzeti tuđ kod sa recimo www.planet-source-code.com i okačiti ga kao svoj, što je u principu lako proveriti (naravno nije zabranjeno koristiti se bilo kojim sajtom kao ispomoć)
9 - Kao dodatak sprečavanja varanja, svaki deo koda mora biti detaljno komentarisan, kako bi znali da zaista razumete kod koji ste napisali, odnosno da je vaš.
10 - Kad neko postavi zadatak, "stručna komisija" zadržava pravo da ga ne prihvati, kako bi izbegli zloupotrebu da neko putem zadatka zatraži da mu se uradi "domaći" ili još gore komercijalna aplikacija koju će on posle masno da naplati, ipak je cilj učenje.
11 - "Stručna komisija" ne prima mito, osim ako se ne radi o gajbi 'ladnog piva i kilogramu ćevapa :)
13 - Neko od clanova "strucne komisije" bi trebao da za svaki zadatak uradi aplikaciju i da napise tutorijal za izradu iste (po prinicipu "korak po korak")

"Stručnu" komisiju cine:
- krckoorascic
- icobh
ko god želi može da se priključi komisiji.


evo odmah prvog zadatka:

Zadatak br 1:

potrebno je napraviti aplikaciju koja ce da cita sadržaj cd-a i da upisuje te podatke u bazu (tip baze možete birati: access, xml, txt, you name it), takođe mora da prikazuje rezultate i da ima opciju da se sadržaj diska exportuje u neki format (takođe po izboru: txt, xml, html...)

pomoć:
- File System Object - rad sa fajlovima i folderima
- listing cd-a i generisanje txt fajla
- All you need
- takodje se obratite u ovoj temi za bilo kakvu pomoc!

Radove treba slati (kačiti uz poruku u ovoj temi) do 30. Jula 2006.

[Ovu poruku je menjao krckoorascic dana 24.07.2006. u 01:41 GMT+1]

[Ovu poruku je menjao krckoorascic dana 24.07.2006. u 02:27 GMT+1]
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: "Zabavni" Kurs - Učite vežbajući!!!23.07.2006. u 21:29 - pre 216 meseci
Ja bih samo dodao još par pravila.
7. Onaj ko najboilje reši zadatak po mišljenju "stručne komisije" :), ima pravo da postavi sledeći zadatak (čisto kao malo veća nagrada od imaginarnog bambija :))
8. Kod mora biti isključivo vaš, odnosno nije dozvoljeno uzeti tuđ kod sa recimo www.planet-source-code.com i okačiti ga kao svoj, što je u principu lako proveriti (naravno nije zabranjeno koristiti se bilo kojim sajtom kao ispomoć)
9. Kao dodatak sprečavanja varanja, svaki deo koda mora biti detaljno komentarisan, kako bi znali da zaista razumete kod koji ste napisali, odnosno da je vaš.
10. Kad neko postavi zadatak, "stručna komisija" zadržava pravo da ga ne prihvati, kako bi izbegli zloupotrebu da neko putem zadatka zatraži da mu se uradi "domaći" ili još gore komercijalna aplikacija koju će on posle masno da naplati, ipak je cilj učenje.
11. "Stručna komisija" ne prima mito, osim ako se ne radi o gajbi 'ladnog piva i kilogramu ćevapa :)

Srećno !
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
 
Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net


+44 Profil

icon Re: Zabavni Kurs - Učite vežbajući!!!24.07.2006. u 00:34 - pre 216 meseci
Marko hvala na dodatim pravilima ja sam bas planirao da dodam slicna (sinoc sam bio malo pospan :p), evo sta bih ja jos dodao:

12. Neko od clanova "strucne komisije" bi trebao da za svaki zadatak uradi aplikaciju i da napise tutorijal za izradu iste (po prinicipu "korak po korak")

sto se tice ovog zadatka (br 1) ja sam vec poceo da pravim program mada ide sporo iz razloga sto objasnjavam svaki korak dovoljno opsirno i gde god je potrebno potkrepljujem tekst screenshotovima... nadam se da ce biti gotov do 30-og.

p.s. ubacio sam nova pravila u "glavnu" poruku

p.p.s. sto se tice mita, neka bude kilo cevapa po clanu komisije :D

[Ovu poruku je menjao krckoorascic dana 24.07.2006. u 01:47 GMT+1]
 
Odgovor na temu

icobh
Igor Pejašinović
Network Admin
Navigo SC d.o.o.
Banja Luka

Član broj: 18738
Poruke: 1319
*.inecco.net.

Sajt: www.nsc.ba


+4 Profil

icon Re: "Zabavni" Kurs - Učite vežbajući!!!24.07.2006. u 01:17 - pre 216 meseci
Je li mogu i ja kako u tu komisiju Ja sam napravio programčić koji izvršava zadati problem, nisam ga još dokumentovao (komentari i sl.), i neću ga postavljati do 30-og, čisto da vidimo ko je šta pripremio i da nebi bilo copy/paste... Kad odradimo ovo, ja predlažem malu analizu urađenog i onog što slijedi poslije prve verzije, tj. dodatna optimizacija, nove mogućnosti itd., pošto mene uvijek više zanima problem programiranja nego samo programiranje, a nadam se i još ponekog
I ♥ ♀

Ovaj post je zlata vrijedan!
 
Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net


+44 Profil

icon Re: "Zabavni" Kurs - Učite vežbajući!!!24.07.2006. u 01:33 - pre 216 meseci
igore, od sada se smatraj clanom komisije :D

sto se tice tvog programa mozes slobodno da ga okacis jer ostali mogu da nesto nauce iz tvog koda i da to primene u svojim programima (rigorozno cemo kaznjavati copy/paste tako da se ne moras toga plasiti :p)
 
Odgovor na temu

icobh
Igor Pejašinović
Network Admin
Navigo SC d.o.o.
Banja Luka

Član broj: 18738
Poruke: 1319
*.inecco.net.

Sajt: www.nsc.ba


+4 Profil

icon Re: "Zabavni" Kurs - Učite vežbajući!!!24.07.2006. u 21:22 - pre 216 meseci
Evo da ja okačim svoju verziju programa, koji je sinoć nabrzaka sklepan ali ipak u krajnoj mjeri funkcionalan ( Možda malo bagovit i nisam sve predvidio ali će da posluži ). Pošto sam uključio sve potrebno za rad ovog programa na drugim računarima te Inno Setup Skriptu, poželjno je da sadržaj ove CAB arhive extraktujete u „C:\“. Znači, sve je uključeno od source coda do distribucije daljim korisnicima...

Mislio sam da ovo ne okačim do 30-og, čisto da vidimo koliko je ko imao ideja, u kojem pravcu se razvija GUI itd... Sad je sve drugačije kad postoje smjernice, tj. ovaj moj programčić...

U svakom slučaju, hoću da vidim još najmanje 10 radova

P.S. Vidim Željko se javio, biće izuzetno korisno ako i se on ponekad osvrne na ovu temu

P.S. P.S. Zaboravio sam da kažem, da je ovo programčić koji samo skida sadržaj nekog CD-a i može ga sačuvati u TXT fajl. Možda sutra ako budem imao vremena da napravim kompletan program, nešto tipa CD Catalog...

[Ovu poruku je menjao icobh dana 25.07.2006. u 23:25 GMT+1]
I ♥ ♀

Ovaj post je zlata vrijedan!
Prikačeni fajlovi
 
Odgovor na temu

BGoran

Član broj: 91587
Poruke: 85
*.dlp78.bih.net.ba.



Profil

icon Re: "Zabavni" Kurs - Učite vežbajući!!!25.07.2006. u 23:34 - pre 216 meseci
Evo samo da dam svoj glas podrske za ovako nesto, posto je ideja odlicna. Nadam se da tema nece brzo umrijet. Ako bog da, i ja cu da se prikljucim takmicenju (ovo prvo preskacem), i nadam se jos ko. Sto vise to bolje. Mrzi me da programiram bez veze - cisto onako da ostanem aktivan i ne zaboravim ovo sto znam, posto posla ne mogu da nadjem, pa smatram da je ovako nesto super.
 
Odgovor na temu

icobh
Igor Pejašinović
Network Admin
Navigo SC d.o.o.
Banja Luka

Član broj: 18738
Poruke: 1319
*.inecco.net.

Sajt: www.nsc.ba


+4 Profil

icon Re: "Zabavni" Kurs - Učite vežbajući!!!27.07.2006. u 00:57 - pre 216 meseci
Pošto danas, tj. juče nisam bio u mogućnosti da završim projekat, nadam se da ću to uspjeti u naredna 24h. Ostalo mi je još da implementujem Save to File opciju, ispravim greške te malo izkomentarišem kod. Evo i slike kako trenutno izgleda:


I ♥ ♀

Ovaj post je zlata vrijedan!
Prikačeni fajlovi
 
Odgovor na temu

U prolazu
Beograd

Član broj: 93007
Poruke: 17
*.vdial.verat.net.



Profil

icon Re: "Zabavni" Kurs - Učite vežbajući!!!27.07.2006. u 11:47 - pre 216 meseci
Kad budes slao fajl obrati paznju na komentare. Pokusavam da rijesim zadatak, ali posto prvi put radim sa FSO-om koji je ovdje neophodan ne znam kad sam uzela podatak o folderu i fajlu da mogu da ga dodijelim access bazi opcijom:
rsImeRecordseta.Fields(broj).Value = ???npr.oSubFolder.Name

pa ako mozes da kad uradis neku komandu koju imas u svom fajlu tipa:
Code:

   Set oFSO = New scripting.FileSystemObject
    
    Set oDrive = oFSO.GetDrive(Left(Folder, 3))

    If Not oDrive.IsReady Then GoTo Err2
    
    Set oFolder = oFSO.GetFolder(Folder)
    
    Set oFolders = oFolder.SubFolders
    
    For Each oSubFolder In oFolders
        listContent.Text = listContent.Text & vbCrLf & _
                                    "    Folder Name: " & oSubFolder.Name
        listContent.Text = listContent.Text & vbCrLf & _
                                    "    Parent Folder: " & oSubFolder.ParentFolder
        listContent.Text = listContent.Text & vbCrLf & _
                                    "    Folder Size: " & oSubFolder.Size & vbCrLf
        GetCDDVDContent (oSubFolder.Path)
    Next
    
    Set oFiles = oFolder.Files
    
    For Each oFile In oFiles
        listContent.Text = listContent.Text & vbCrLf & _
                                    "        File Name: " & oFile.Name
        listContent.Text = listContent.Text & vbCrLf & _
                                    "        Parent Folder: " & oFile.ParentFolder
        listContent.Text = listContent.Text & vbCrLf & _
                                    "        File Size: " & oFile.Size & vbCrLf
    Next
  

objasni kojim podatkom u kom trenutku raspolazes.
Mora li ova tvoja f-ja GetCDDVDContent da ima argument folder i sta on sve moze da bude?
 
Odgovor na temu

icobh
Igor Pejašinović
Network Admin
Navigo SC d.o.o.
Banja Luka

Član broj: 18738
Poruke: 1319
*.inecco.net.

Sajt: www.nsc.ba


+4 Profil

icon Re: "Zabavni" Kurs - Učite vežbajući!!!27.07.2006. u 13:13 - pre 216 meseci
Ovako se upisuje u access bazu:

Code:

'Moras imati u referencama ukljuceno Microsoft AciveX 
'Data Object od verzije 2.5 pa naviše
'Npr. ako imaš bazu koja se zove imebaze.mdb, unutar 
'baze imaš tabelu koja se zove imetabele,
'i imaš dvije kolone koje se zovu Kolona1 i Kolona2,
'onda ovaj kod dole daje rezultat kao na slici

        Dim adokonekcija As Connection
        Dim adorekordset As Recordset

        Set adokonekcija = New Connection
        adokonekcija.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=imebaze.mdb;"
        
        Set adorekordset = New Recordset
        
        adorekordset.Open "Insert into imetabele(Kolona1,Kolona2)" & _
        "Values ('Test1','Test2');", adokonekcija, adOpenDynamic
        
        Set adorekordset = Nothing
        Set adokonekcija = Nothing 



Ovaj gore kod daje ovakav rezultat u bazi:




Kojim podatkom trenutno raspolažeš je određen sa ParentFolder, jer onda znaš gdje se nalaziš a imaš i ostale podatke vezane za oFile i oSubFolder kao što su Name, Size, Children ...

Mora imati jer je to ustvari Folder u kojem se trenutno izčitavaju podaci. U prvom slučaju kod poziva f-je je to (Left(CDDVDBox.Text, 3)), ustvari npr. "E:\"


P.S. Evo RC1 verzije mog programa bez Source coda, jer nisam ispravio sve greške i iskomentarisao, to ću do noći pokušati riješiti Ako neko nađe kakav Bug, neka se javi na PP sa kratkim opisom šta se dešava...
I ♥ ♀

Ovaj post je zlata vrijedan!
Prikačeni fajlovi
 
Odgovor na temu

U prolazu
Beograd

Član broj: 93007
Poruke: 17
*.vdial.verat.net.



Profil

icon Re: "Zabavni" Kurs - Učite vežbajući!!!27.07.2006. u 15:33 - pre 216 meseci
:) Znam kako se upisuje u access bazu, nego sam pitala kako radi FSO, u kom trenutku imam podatak koji mogu da upisem.
 
Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.ded.ameritech.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: "Zabavni" Kurs - Učite vežbajući!!!27.07.2006. u 16:06 - pre 216 meseci
Informacije su ti dostupne nakon linije

Code:

For Each ...


 
Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net


+44 Profil

icon Re: Zabavni Kurs - Učite vežbajući!!!27.07.2006. u 16:39 - pre 216 meseci
@U Prolazu
ako jos imas problema sa fsoom probaj ovo:
Code:

For Each oSubFolder In oFolders
' ove se nalaze podaci o svim podfolderima unutar oFolder foldera
   debug.print "Ime foldera: ",oSubFolder.Name
   debug.print "Parent folder: ",oSubFolder.ParentFolder
   debug.print "velicina:",oSubFolder.Size
   debug.print "putanja:",oSubFolder.Path
   ' ovde iskoristi oSubFolder.Path da pozoves reurzivnu funkciju
Next

For Each oFile In oFiles
' ovde se nalaze podaci o svim fajlovima u oFolder folderu
   debug.print "ime fajla:", oFile.Name
   debug.print "parent folder:", oFile.ParentFolder
   debug.print "velicina:",oFile.Size & vbCrLf
Next

to ubaci u onaj kod sto si postovala

@icobh:
ukrao si mi ideju za gui :)
 
Odgovor na temu

icobh
Igor Pejašinović
Network Admin
Navigo SC d.o.o.
Banja Luka

Član broj: 18738
Poruke: 1319
*.inecco.net.

Sajt: www.nsc.ba


+4 Profil

icon Re: "Zabavni" Kurs - Učite vežbajući!!!27.07.2006. u 17:25 - pre 216 meseci
Citat:
krckoorascic:
@icobh:
ukrao si mi ideju za gui


Pa da, ja volim da čitam tuđe misli i da izvlačim korist iz njih

Evo ja sam završio sve što sam danas mogao, od predhodnog posta sam ispravio nekoliko nepravilnosti i uz skoro svaku liniju koda stavio mali komentar, čemu šta služi ili šta radi itd... Uglavnom dosta za danas... Nemam više živaca da bilo šta više prepravljam u toku dana.
I ♥ ♀

Ovaj post je zlata vrijedan!
Prikačeni fajlovi
 
Odgovor na temu

U prolazu
Beograd

Član broj: 93007
Poruke: 17
*.vdial.verat.net.



Profil

icon Re: "Zabavni" Kurs - Učite vežbajući!!!28.07.2006. u 14:17 - pre 216 meseci
Prvo da kazem da se meni vise svidjala prva verzija Igorovog programa. Lakse sam se snalazila (kao korisnik) iako poslednja ima izgled WE pa je mozda prihvatljivija. Poslednja ima dosta komentara ali je meni ipak ostalo nejasnih stvari. Npr. ne znam sta oznacava broj 3 ovdje:

(Left(CDDVDBox1.Text, 3))

Drugo, ja sam zadatak shvatila i pokusala da rijesim na sledeci nacin:
Htjela sam da imam opciju da se sadrzaj CD-a upisuje u access bazu, ali jednostavno klikom na jedno dugme i pri tome ja ne vidim kako se to desava, ne nudim korisniku dijalog gdje ce da sacuva taj fajl. Zatim da imam dugme da izlistam sadrzaj CD-a, bilo onog koji je trenutno u CD-ROM-u, bilo nekog od prije koji je sacuvan u access bazi. I na kraju da mogu da ga sacuvam kao txt fajl, sa biranjem putanjem (to je ono sto je Igor uradio). Medjutim, posto prvi put radim sa FSO objektima nisam ukapirala kako to da uradim.
Mozda je bilo bolje da je zadatak radjen postupno, korak po korak a ne ovako gotov pa je pocetnicima tesko da isprate. Ako je ovo ostalima jasno, onda da nastavimo ovako a ja cu pokusati da bolje pratim.
 
Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.ded.ameritech.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: "Zabavni" Kurs - Učite vežbajući!!!28.07.2006. u 14:24 - pre 216 meseci
Citat:
U prolazu: Npr. ne znam sta oznacava broj 3 ovdje:
(Left(CDDVDBox1.Text, 3))


Ovo znaci uzmi prva tri karaktera sa leve strane iz stringa CDDVDBox1.Text. To bi trebalo da da ime drajva, npr. C:\

Mozda je jasnije ako se umesto ovoga koristi

Code:

oFSO.GetDriveName(CDDVDBox1.Text)

 
Odgovor na temu

icobh
Igor Pejašinović
Network Admin
Navigo SC d.o.o.
Banja Luka

Član broj: 18738
Poruke: 1319
*.inecco.net.

Sajt: www.nsc.ba


+4 Profil

icon Re: "Zabavni" Kurs - Učite vežbajući!!!28.07.2006. u 15:36 - pre 216 meseci
Pošto sam uradio skoro već čitav program, tj. ovaj naš za učenje, počeo sam da radim novu verziju koja će imati pokoju opciju više i simpatičniji izgled, ovu ću verziju objaviti kao freeware, ne kao Open Source. Evo i slike:


I ♥ ♀

Ovaj post je zlata vrijedan!
Prikačeni fajlovi
 
Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net


+44 Profil

icon Re: Zabavni Kurs - Učite vežbajući!!!30.07.2006. u 18:31 - pre 215 meseci
posto niko sem igora nista nije uradio produzicemo rok do 10-og kada cu ja okaciti moj step-by-step tutorial
 
Odgovor na temu

X-Cite
Goran Tadić
Mediacija, Tušmobil
Ljubljana

Član broj: 28706
Poruke: 625
*.dial-up.dsl.siol.net.

Sajt: www.baza-ukradenih-gsm.co..


Profil

icon Re: "Zabavni" Kurs - Učite vežbajući!!!17.08.2006. u 08:52 - pre 215 meseci
Dooopust je ljuuudiiii


Pozdrav
GoGy
 
Odgovor na temu

U prolazu
Beograd

Član broj: 93007
Poruke: 17
*.vdial.verat.net.



Profil

icon Re: "Zabavni" Kurs - Učite vežbajući!!!26.11.2006. u 14:20 - pre 211 meseci
Zdravo svima,

Vidim da je tema zamrla i pored dobre volje krckaorascica i icobh-a da pomognu pa da pokusam da je ozivim. Mislim da je sam koncept proslog (za sad i jedinog :) ) zadatka bio pogresan. Posto je ovo predvidjeno kao kurs za one koji zele da uce VB (i po mogucnosti baze podataka) onda zadatak treba da se izdijeli, da se resava postepeno jer nije cilj samo da se zadatak rijesi nego da naucimo kako se resava. Ako nisam dovoljno jasna onda da objasnim na konkretnom primjeru. Recimo da treba da uradimo projekat za kucnu biblioteku. Prvo treba da napravimo ER dijagram i treba da se zadrzimo na toj pocetnoj fazi dovoljno dugo dok svi koji ucestvuju u kursu ne shvate zasto se neke tabele bas tako kreiraju. Onda u sledecoj fazi npr. pravimo konekciju ka bazi iz VB-a, pa pravimo f-ju koja radi to i to.. Zato nam je potreban neko iskusan ko ima 2 sata nedeljno da izvoji za pojedinu fazu. Uopste nije bitno koliko ce da traje resavanje nekog zadatka, bitno je ucenje.
Ima li zainteresovanih da ovo ozivi? :)
Naravno, navela sam ovaj zadatak kao primjer, ko bude vodio projekat i postavljace ga.
 
Odgovor na temu

[es] :: Visual Basic 6 :: "Zabavni" Kurs - Učite vežbajući!!!

Strane: 1 2

[ Pregleda: 6975 | Odgovora: 21 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.