E ovako napravio sam gotovo sve samo mi fali jos jedna sitnica koju ne znam kako da uklopim u kod. Radi mi rasporedjivanje, pomijeranje i sve samo mi se igrica zavrsava kada se spoje 3 polja.. ja sam uradio kod za ostatak samo mi fali da to uklopim..
Napravio sam da radi ovako:
Code:
Public Function krajPartije() As Boolean
Dim k As Boolean
Dim pobjednik As Integer
k = False
If prvopolje And drugo polje And Trece polje Then --- Ta polja iz forme sto prave micu..
pobjednik = 1
k = True
krajPartije = k
End Function
Ali meni treba da se na svaku napravljenu micu Prvi igrac Drugom uzme jedan zeton dok neki ne dodje na 2 i tu je kraj,pa da bude ovako:
Na nesto sta ce da se provjerava --- ovaj dio ne znam... da uslov bude ovaj kao gore za micu:
E SAd treba li ovdje da se ubaci neka funkcija... pa da ide:
Code:
If prvopolje And drugo polje And Trece polje Then --- Ta polja iz forme sto prave micu..
pa ako jeste mica da se ubaci operacija UZIMANJE ???? ne znam kako ovo da uradim, a uzimanje i kraj igre sam sad definisao ovako:
Public Sub Uzimanje(i As Integer) Moze li ovo na Sub ili ide Funkcija ?? jer treba na klik da radi sa tim poljem ne znam ima li veze...tako sam vidio nedje u kodu..
If igrac = 1 Then
If frmMain.shpPosition(i).BackColor = vbBlue Then
frmMain.shpPosition(i).BackColor = vbWhite
prvomOstalo = prvomOstalo - 1
prviPotez = False
MsgBox ("Uzeli ste jedan zeton Plavom igracu")
Else
MsgBox ("Mozes ponijeti samo Plavi zeton")
End If
ElseIf igrac = 2 Then
If frmMain.shpPosition(i).BackColor = vbRed Then
frmMain.shpPosition(i).BackColor = vbWhite
drugomOstalo = drugomOstalo - 1
prviPotez = True
MsgBox ("Uzeli ste jedan zeton Crvenom igracu")
Else
MsgBox ("Mozes ponijeti samo Crveni zeton")
End If
End If
End If
End Sub
I kraj igre da bude ovako:
Public Function krajPartije() As Boolean
Dim k As Boolean
Dim pobjednik As Integer
k = False
If prvomOstalo = 2 Or drugomOstalo = 2 Then
If igrac = 1 Then
MsgBox ("Pobijedio je crveni igrac")
ElseIf igrac = 2 Then
MsgBox ("Pobijedio je plavi igrac")
End If
End If
krajPartije = k
End Function
[Ovu poruku je menjao Aleksandar Ružičić dana 17.05.2008. u 01:57 GMT+1]