Skuffman - pomoc

Skuffman...ovdje cemo nastaviti nas razgovor i tako da ti osim mene mogu pomoci i drugi clanovi naseg teama i drugi gosti...jer tu ima i boljih od mene...puno boljih...!
Skuffman, molio bi te da se predstavis tu ispod, i ako imas bilo kakvo pitanje slobodno pitaj jer ovdje su samo dobri ljudi...

Ovako Skuffman je nedavno poceo programirati u VB-u i treba mu pomoc...ja i on smo se vec culi preko private-a i cini mi se da decko ima volje...a ovdje mu mi mozemo prenjeti znanje !

Skuffman, pogledao sam ono sto si poceo raditi, i mislim da bi za tebe bilo bolje da pocnes raditi obican Krizic Kruzic, a kada ga zavrsis onda probaj usavrsavati igru...

Ja cu ipak umjesto tutoriala tebi dati nekih tjedan dva, probaj napraviti obican Krizic Kruzic, za dva igraca na istom racunalu, a onda ako zablokiras, svrati ovdje za pomoc...htio bi vidjeti koliko mozes kada se potrudis...!

Bok ja sam zoran i ?ivim u rijeci.Imam 15 godina i u?im vb.Po?eo sam radi kri?i? kru?i? ali ne ku?im(ne znam ni kako krenuti)kako da kada korisnik sakupi sva tri x-a u redu da pobjedi.Zasad sam napravio da kada korisnik klikne na polje otvori se nova forma te u njoj pitanja.Ako pogodi postavi se x na odabrano polje.


Hvala

Bok,
za rjesenje tvog problema trebao bi napraviti nekakav Sub u kojem bi provjeravao po redovima, stupcima i po dijagonali ima li gdje 3 ista znaka. Za nerjesenu igru provjeravas da li su sva polja zauzeta, ako jesu i ako nema pobjednika igra je nerjesena. Nadam se da sam pomogao, ako ti jos nesto nije jasno, samo pitaj

Sav sam se zbunio..ne?to sam poku?ao ali ne ide.

Kako da napravim da provjerava po objektu u mojem slu?aju command kontrolu.

Po?to sam tek krenuo..sa petljama jo? nisam radio.

Naime vidio sam par tutora na netu ali tamo su primjeri u kojima kada klikne? na command1 pita te da upi?e? neki broj i ako je broj manji od 5..javlja gre?ku.
Mislim da to na ovu foru ne ide.

Ne znam kako si radio tj. u koje varijable si spremao vrijednosti X i O, ali recimo da si ih stavljao u Command.Caption. Sjetio sam se jednog nacina baz petlji, ali je nezgrapniji.
Ovdje je pretpostavljeno da imas 9 botuna koji se zovu redom command1, command2, itd.
[vb]Public Sub provjeri_pobjedu()
If command1.caption="x" and command2.caption="x" and command3.caption="x" then
pobjedio="X"
else if command4.caption="x" and command5.caption="x" and command6.caption="x" then
pobjedio="X"
...
End Sub[/vb]

ovdje se provjeravaju prva 2 reda da li je "x" pobjedio
I tako dalje picis za svaki red i svaki stupac te dijagonale, napravis isto to i za "o". Ovaj Sub pozoves nakon svakog klika recimo...
Probaj ovako, pa ako ne uspije - pitaj opet
Kad sredis da ti ovo radi, onda cu ti (ako ti bude trebalo) napisat i kako provjeravati nerijesenu igru.

--Edit--
tipfeller na public

postavio sam commandima caption x.Prvo mi je javilo gre?ku na pubic sub
promjenio sam u public(nisam siguran dali sam trebao)ali opet ne radi.
Dali ovaj kod moram napisati ispod svake kontrole.

Naprimjer:

Command1_click()

Command1.Picture = LoadPicture(App.Path & "\x.jpg") ----moj kod
tvoj kod

Command2_click()

Command2.Picture = LoadPicture(App.Path & "\x.jpg")
Tvoj kod

Probao sam i to ali ne radi.

Mo?e? li mi pomo?i te re?i gdje grje?im

Pa da, ali to bi se sve moglo rijesiti sa jednim dobrim loop-om...
Poslao sam ti nekakav tutorial (skoro cijela igra)...
Po tome mozes skuziti nacin...
Ja sam Tag-ove koristio, ali inace to ne bi napravio na taj nacin...
Si probao tutor? ti je dobar? si sta skuzio?

jo? ga nisam vidio..kad vidim javim ti..


Hvala

bacio sam oko..i sve mi je jasno

Posebice tagovi...
Jako jednostavno..
Poku?at ?u sada sam ispo?etka sastaviti svoju igru..i nastojat je nadopuniti.

Hvala dino

Dino wrote:

Pa da, ali to bi se sve moglo rijesiti sa jednim dobrim loop-om...

Mislim da bi to bilo najbolje, loopovi su jednostavni i prakticni pogotovo za ovakve stvari.

Ja jo? neznam raditi s njima..pa ako znate gdje bi moga vidjeti koji tutor o tome.Ako ga vi ve? imate molio bi vas da mi ga po?aljete na mail
zoran000@net.hr

ok..idem vidjet malo

Pa ako dobro znas engleski, najbolje ti je otici na http://www.planet-source-code.com
Odes lijepo na search i upises loop tutorial ili tako nesto...
Kada zvrsis igru bez loopova, pomoci cemo ti nauciti loopove, nisu oni teski...treba ti samo malo logike...vidjeti ces...!

kako sam poludio..jeb** se ve? 2 sata s tim.

Naime radim isto ?to i dino da kada korisnik klikne na neki command
da mu se otvori forma sa pitanjima.
Uspijem postaviti sve ljepo ?ak sam i vrijeme stavio..i sad kada bi korisnik
odgovorijo to?no trebao bi se pojaviti x ili o.

Mislim da bi ovaj kod koji ide u command kontrolu trebao zaljepiti:

If Not P2.Tag = "" Then Exit Sub
P2.Picture = LoadPicture(App.Path & "\" & NaPotezu & ".jpg")
P2.Tag = NaPotezu
If NaPotezu = "X" Then NaPotezu = "O" Else NaPotezu = "X"
End Sub

ja sam stavio za sada ovo(to sam postavio da o?ita se u formi1)

form1.p2.picture = loadpicture(App.Path & "\" & NaPotezu & ".jpg")
form2.P2.Tag = NaPotezu

ali ?ta da napravim sa

If Not P2.Tag = "" Then Exit Sub
If NaPotezu = "X" Then NaPotezu = "O" Else NaPotezu = "X"

to nikako da u?itam

Sorry, ne kuzim sta oces pitat. Taj kod je u redu, kako mislis da ne mozes ucitat??? Ako je ono sto ja mislim onda stavi ovo u Sub Form_Load
[vb]NaPotezu="X"[/vb]

gle ja imam formu2 sa pitanjima.ako budem napiao samo Na potezu="x"
ono ?e to poku?ati u?itati iz form2...a ja moram iz forme1.

Moram napisati ne?to u stilu Form1.ne?to...
ali primjetio sam da to mogu samo sa svojstvima koja ta kontrola sadr?i u propertisu, a ovo ne mogu napisati form1.Na potezu = "X"
[/vb]

Ajde molim te objavi code za download...!
Bolje da ti ja to nisam pokazivao sa Tag-ovima, jer sam te samo smutio...

evo vidite ?to sam napravio.


http://www.skate.kcs.hr/kod.zip

imao je igor pravo...trebo sam napisati Na potezu = "O" jer je o na redu.
dali moram ru?no namjestiti tko je na redu ili sa mo?e namjestiti automatski.