Ne mora da bude grafika kao u pravom kvizu.Bolje da mi smislimo nesto.Bice orginalnije.
Potpis
Underground
Da li je moguce napraviti kviz TV SLAGALICA u VB?
Zaključano
Zakačeno
evo za berzu, pogledajte pa mi javite da li da nastavim sa istim ili da promenim nesto
Potpis
Exit,nishta nisi propustio na chetu...Cekali smo krcka ali se nije pojavio...
poz
poz
Potpis
I Smrt ,je deo zivota!
volja,rad,uspeh
volja,rad,uspeh
:D pa rekao sam da verovatno necu doci... evo sinoc sam skinuo JAJC i evo me sad sa Shadowedom na Jabberu. Predlazem vam da i vi skinete JAJC ili neki drugi jabber client i da se svi nadjemo jedno vece na [email protected]. ovaj jabber je mnogo bolji od irc-a!
poz!
poz!
evo sad sam malo prepravio onaj kod, samo modul (Shadowed radi formu) ali i dalje zakiva u petljama... verovatno zato sto je baza mala. A mozda bi trebali da napravimo drugaciju bazu - da ima pored 'Word' i 'Associate' i 'MainWord' kolonu u kojoj ce biti konacna resenja (onda bi u 'Word' bila resenja kolona a u 'Associate' bi bile reci koje ce e naci u poljima). Ako baza bude bila ovakva (pretpostavljam) program ce sljakati k'o leptir!
Ali i dalje nam ostaje to ko ce da popunjava bazu. Ja predlazem da to budu ili Exit ili Pr0gr4m3r (ili neko treci koji hoce da se prikljuci u tim).
A sto se tice one ekavice, ijekavice... mislim da bi trebali da dodamo jos jednu kolonu (jesam dosadan, zar ne?) u kojoj bi bili snimljeni sinonimi (svaka rec ima svoje sinonime) razdvojeni po nekom separatoru (recimo , [zarez])...
Ali i dalje nam ostaje to ko ce da popunjava bazu. Ja predlazem da to budu ili Exit ili Pr0gr4m3r (ili neko treci koji hoce da se prikljuci u tim).
A sto se tice one ekavice, ijekavice... mislim da bi trebali da dodamo jos jednu kolonu (jesam dosadan, zar ne?) u kojoj bi bili snimljeni sinonimi (svaka rec ima svoje sinonime) razdvojeni po nekom separatoru (recimo , [zarez])...
krcko,ja sam vec dosta dugo koristio irc,i pre neki dan sam poceo da koristim jabber...mogu ti reci da sam prijatno iznenadjen...Shvatio sam da je jabber mnogo bolji od irc!!!
Sto se tice kviza,i dalje imamo problem sa grafikom,niko se nije javio da hoce da pomogne oko grafike...pa ukoliko vi znate nekog dobro ce nam doci...
Postavicu forum tamo negde u grafici pa mozda se neko bude javio...
poz svima
(Da li ste razmisljali o sigurnosti ovog foruma?)
Sto se tice kviza,i dalje imamo problem sa grafikom,niko se nije javio da hoce da pomogne oko grafike...pa ukoliko vi znate nekog dobro ce nam doci...
Postavicu forum tamo negde u grafici pa mozda se neko bude javio...
poz svima
(Da li ste razmisljali o sigurnosti ovog foruma?)
Potpis
I Smrt ,je deo zivota!
volja,rad,uspeh
volja,rad,uspeh
Citat:
evo sad sam malo prepravio onaj kod, samo modul (Shadowed radi formu) ali i dalje zakiva u petljama... verovatno zato sto je baza mala. A mozda bi trebali da napravimo drugaciju bazu - da ima pored 'Word' i 'Associate' i 'MainWord' kolonu u kojoj ce biti konacna resenja (onda bi u 'Word' bila resenja kolona a u 'Associate' bi bile reci koje ce e naci u poljima). Ako baza bude bila ovakva (pretpostavljam) program ce sljakati k'o leptir!
Najbolje rešenje je da se napravi izlaz iz petlje ukoliko se ne pronađe dovoljno reči i da se automatski pređe na generisanje drugačije asocijacije.Ukoliko se tako ne uradi, program će se zakivati svaki put kada ne bude mogao da izgeneriše asocijaciju, a to ne možeš da predvidiš, pogotovo ako je baza reči velika.Po meni, generisanje asocijacije bi trebalo da funkcioniše ovako:
Prvo se po random principu odabere jedna reč koja će biti konačno rešenje.Onda se izvrši SQL upit koji će da izlista sve reči koje asociraju na tu reč, tačnije eventualna rešenja kolona.Onda se proveri da li je broj rekorda jednak ili veći od 4 (pošto toliko kolona ima), i ukoliko nije, automatski izlaziš iz petlje i tražiš neku drugu reč za konačno rešenje, a ako jeste onda za svako rešenje kolone izvršiš SQL upit koji izlistava reči koje asociraju na reč koja predstavlja rešenje kolone, gde takođe sva 4 SQL upita moraju vratiti 4 ili više rekorda, a ukoliko neka vrati manje od 4 rekorda, onda se pristupa selektovanju neke druge reči koja asocira na konačno rešenje.Ukoliko se ne nađe rešenje, onda se program vraća na početak i ponovo bira neko drugo konačno rešenje, pa sve iznova.Naravno, negde bi trebalo upisivati reči (konačna rešenja i rešenja kolona) koje su već isprobane i za koje je utvrđeno da ne mogu biti niti konačno rešenje, niti rešenje kolone (odnosno, ne postoje 4 asocijacije na tu reč), kako se ne bi ponavljale, čime bi se sprečilo zakucavanje programa i ubrzalo generisanje.Time bi se postiglo da ukoliko može da se izgeneriše barem jedna asocijacija, program će je i generisati, a ukoliko ne može ni jedna, onda uradi nešto drugo (bitno je da se izađe iz petlje u tom slučaju).Samim tim, što je više reči u bazi, veća je šansa za brzo generisanje asocijacije, a ukoliko je baza reči mala veća je šansa da će se program više puta vraćati na početak.U svakom slučaju, bitno je da se spreči zakucavanje programa ukoliko ne može da se izgeneriše nijedna asocijacija, odnosno zakucavanje u bilo kojoj petlji.
Citat:
(Da li ste razmisljali o sigurnosti ovog foruma?)
Na kakvu sigurnost misliš ?
Potpis
-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
-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
pa ima smisla (i to mnogo) ovo sto si predlozio ali ja imam jedan problem:
.RecordCount mi je uvek -1 !?! Pokusavao sam i da promenim kursorr al ne vredi, da nemas neku ideju?
.RecordCount mi je uvek -1 !?! Pokusavao sam i da promenim kursorr al ne vredi, da nemas neku ideju?
Eh, imao sam ispit juce pa me nije bilo. Za sad nista (zbog pomenutog ispita). Samo da vam skrenem paznju da je najbolje da se ne uzbudjujete previse oko UI-a jer je najbolje stvar raditi tako da sto manje zavisi od UI-a a opsle menjati i prepravljati UI po zelji.
Dakle, bitan je engine.
Dakle, bitan je engine.
pa,kako si proshao na ispitu?(ako sme da se pita)
Potpis
I Smrt ,je deo zivota!
volja,rad,uspeh
volja,rad,uspeh
Offtopic, ali, necu ni ja znati skoro...
Citat:
.RecordCount mi je uvek -1 !?! Pokusavao sam i da promenim kursorr al ne vredi, da nemas neku ideju?
Nisam stigao detaljno da pregledam tvoj kod, ali na brzaka sam primetio sledeće.Naime, mnogo koristiš "on error resume next", što u principu nije dobra ideja, pogotovo ukoliko dalje u kodu može da postoji više različitih grešaka, jer onda nikada ne možeš biti siguran koja je greška u pitanju.Ovo ne važi ukoliko je u pitanju neka greška za koju očekuješ da se pojavi i koja ni na koji način neće uticati na dalji rad programa.Sledeća stvar, bilo bi brže da pre nego što kreneš da popunjavaš array, proveriš da li imaš dovoljno elemenata za isti, dakle prvo preko upita pozoveš reči koje asociraju na nešto, a onda ih prebrojiš sa recordcount.Ukoliko ima elemenata, sigurno neće vratiti -1, naravno pod uslovom da je SQL upit dobro postavljen.Proveri i to.
Potpis
-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
-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
I ukoliko ima elemenata vraca -1. Svakako, dobra ideja za uklanjanje On Error Resume Next i dodavanje obrade (tj. identifikacije) gresaka ako postoje.
pa izbegao sam to sa recordCount na ovaj nacin:
ako bi samo uradio:
onda bi uvek dobio -1 dok za istu rec (npr. "garfild") ako se koristi gornji primer dobio 6 (koliko ih i ima u bazi). Cudno zar ne?
Code:
Public Function ascCount(sRec As String) As Long
Dim rs As New ADODB.Recordset
ascCount = 0
Set rs = DBConn.Execute("SELECT DISTINCT Associate FROM" & _
"Associates WHERE Word = '" & sRec & "'")
Do Until rs.EOF
ascCount = ascCount + 1
Loop
rs.Close
Set rs = Nothing
End Function
Public Function ascCount(sRec As String) As Long
Dim rs As New ADODB.Recordset
ascCount = 0
Set rs = DBConn.Execute("SELECT DISTINCT Associate FROM" & _
"Associates WHERE Word = '" & sRec & "'")
Do Until rs.EOF
ascCount = ascCount + 1
Loop
rs.Close
Set rs = Nothing
End Function
ako bi samo uradio:
Code:
Public Function ascCount(sRec As String) As Long
Dim rs As New ADODB.Recordset
Set rs = DBConn.Execute("SELECT DISTINCT Associate FROM" & _
"Associates WHERE Word = '" & sRec & "'")
ascCount = rs.RecordCount
rs.Close
Set rs = Nothing
End Function
Public Function ascCount(sRec As String) As Long
Dim rs As New ADODB.Recordset
Set rs = DBConn.Execute("SELECT DISTINCT Associate FROM" & _
"Associates WHERE Word = '" & sRec & "'")
ascCount = rs.RecordCount
rs.Close
Set rs = Nothing
End Function
onda bi uvek dobio -1 dok za istu rec (npr. "garfild") ako se koristi gornji primer dobio 6 (koliko ih i ima u bazi). Cudno zar ne?
Citat:
I ukoliko ima elemenata vraca -1.
Ah, pa to je ADO, sorry, nisam obratio pažnju :) On vraća -1 kad ne može da utvrdi broj rekorda.Elem, pa onda prebroj rekorde pomoću SQL upita, dok ne smislimo nešto pametnije.Ovako:
Code:
SQL = "SELECT COUNT(ime polja) as brojrekorda FROM Associates WHERE Word = '" & sRec & "'"
ascCount = rs.Felds(0).Value
SQL = "SELECT COUNT(ime polja) as brojrekorda FROM Associates WHERE Word = '" & sRec & "'"
ascCount = rs.Felds(0).Value
Potpis
-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
-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
hvala, sad cu da probam...
Ljudi,dobre vesti javio se jedan lik za grafiku...Mislim da ce biti od velike koristi!
Za koji dan cu da zavrshim sa igrom "Ko zna zna"...
Mislim da je baza od 1223 pitanja sasvim dovoljna?
poz
Za koji dan cu da zavrshim sa igrom "Ko zna zna"...
Mislim da je baza od 1223 pitanja sasvim dovoljna?
poz
Potpis
I Smrt ,je deo zivota!
volja,rad,uspeh
volja,rad,uspeh
super za grafiku!
1223 pitanja!?! to je FENOMENALNO (jesi lih ti sastavljao? - neverujem, nisi imao vremena :D)
ja nisam imao mnogo vremena da radim na kodu al cu nocas do jedno 3-4 visiti na kompu (uobicajeno) pa cu srediti kod za asocijacije (da jednom konacno zavrsimo sa njima!)
poz svima!
1223 pitanja!?! to je FENOMENALNO (jesi lih ti sastavljao? - neverujem, nisi imao vremena :D)
ja nisam imao mnogo vremena da radim na kodu al cu nocas do jedno 3-4 visiti na kompu (uobicajeno) pa cu srediti kod za asocijacije (da jednom konacno zavrsimo sa njima!)
poz svima!
Super za grafiku.
Koja bi da je igra ko zna zna?
Zaboravio sam :D
Koja bi da je igra ko zna zna?
Zaboravio sam :D
Potpis
Underground
Pa to ti je ono ...klasican kviz.Imash 10 pitanja svako tacno odgovoreno nosi 10poena a svako netacno oduzima isti toliki broj poena,inace mislim da je to 4 igra po redu...
Naravno da nisam ja sastavljao tolika pitanja...neshto sam nashao na netu a neshto mi je drug dao(on je pravio neki kviz pa mu je ostala baza s'pitanjima)
poz
Naravno da nisam ja sastavljao tolika pitanja...neshto sam nashao na netu a neshto mi je drug dao(on je pravio neki kviz pa mu je ostala baza s'pitanjima)
poz
Potpis
I Smrt ,je deo zivota!
volja,rad,uspeh
volja,rad,uspeh