• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

godofwar

quatro em linha em vb

7 mensagens neste tópico

boas pessoal tou a desenvolver um jogo que é o quatro em linha ja devem conhecer mas precisava da vossa ajuda.

Do tipo inda so fiz a parte do object e tal so k agora precisava de outra cena, eu tava a pensar em por o jogo nestes dois modos com dois jogadores ou so o modo contra o pc, mas decidi fazer primeiro com 2 jogadores achei ser mais facil.

E tava a pensar como é que o jogo vai reconhecer qual é o player k está a jogar, sé e o jogador 1 ou 2 do tipo os jogadores escolhem 2 cores diferentes ao inicio e assim ele nao começa a por cores a toa... outrao pequeno pormenor é quando se joga as peças vao ter de cair sempre ate cá abaixo como vou fazer com ele nao jogue mais acima k o permitido será que me podem ajudar?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Private Sub Form_Load()
Picture1(0).Visible = True
Shape4.BackColor = CorA
Shape4.BackStyle = 1
Shape5.BackStyle = 1
Shape5.BackColor = CorB
End Sub

Private Sub picCirculo_DragDrop(Source As Control, X As Single, Y As Single)
Shape3(Index).BackStyle = 1 'solido
Shape3(Index).BackColor = Shape5.BackColor
End Sub

Private Sub Picquadrado_DragDrop(Source As Control, X As Single, Y As Single)
Shape3(Index).BackStyle = 1 'solido
Shape3(Index).BackColor = Shape4.BackColor
End Sub

fica aqui o código já agora se o puserem a correr vao ver que as cores tao malucas e nao as consigo por em ordem se souberem de um milagre digam xD

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Private Sub Form_Load()

Picture1(0).Visible = True

Shape4.BackColor = CorA

Shape4.BackStyle = 1

Shape5.BackStyle = 1

Shape5.BackColor = CorB

End Sub

Private Sub picCirculo_DragDrop(Source As Control, X As Single, Y As Single)

Shape3(Index).BackStyle = 1 'solido

Shape3(Index).BackColor = Shape5.BackColor

End Sub

Private Sub Picquadrado_DragDrop(Source As Control, X As Single, Y As Single)

Shape3(Index).BackStyle = 1 'solido

Shape3(Index).BackColor = Shape4.BackColor

End Sub

eu penso que o problema esta no que está a vermelho tens de fazer uma repetição com o for ou entao tens de especificar qual queres mostrar...espero que tenha ajudado.

Cumprimentos..

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

pessoal eu acho que não, tive a mudar o codigo agora adicionei uns jogadores, as cores ainda continuam trocadas mas posso dizer k esta melhor k antes loool

vejam:

Dim Jogador As String
Private Sub Form_Load()
Picture1(Index).Visible = True
Shape4.BackColor = CorA
Shape4.BackStyle = 1
Shape5.BackStyle = 1
Shape5.BackColor = CorB
Jogador = False
End Sub

Private Sub picCirculo_DragDrop(Source As Control, X As Single, Y As Single)
'Shape3(Index).BackStyle = 1 'solido
'Shape3(Index).BackColor = Shape5.BackColor
Jogador = "B"
End Sub

Private Sub Picquadrado_Click()
Jogador = "A"
End Sub

Private Sub Picture1_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
Shape3(Index).BackStyle = 1 'solido
If Jogador = "A" Then
    Shape3(Index).BackColor = Shape4.BackColor
    Jogador = "B"
Else
    Shape3(Index).BackColor = Shape5.BackColor
    Jogador = "A"
End If
End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora