Jump to content
ritinha549

projecto "jogo de perguntas"

Recommended Posts

ritinha549

Boas noites a todos..

eu estou no 12ºano e tenho que fazer um projecto final em programação..

vou fazer um jogo adaptado do monopolio.. ja fiz a parte dos dados a correr, e por exemplo calha o nº 6 e o jogador A vai para a casa 6, mas não sei como fazer com que o jogador B jogue a seguir..

será que alguém me pode ajudar?

obrigada,

Bjnhs

Share this post


Link to post
Share on other sites
Andrepereira9

Boas.

Bem vinda ao fórum  :thumbsup:

Podes mostrar o código que tens para fazer com que o Jogador A, jogue?


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
Lfscoutinho

Boas,

Tal como fazes com o jogador A jogue, deves fazer com que o jogador B jogue. Ou seja, deves utilizar o mesmo método...

Share this post


Link to post
Share on other sites
ritinha549

Boas..

Obrigada :P

é assim eu inicio o jogo para dois jogadores ainda, dou o dois nomes e depois tenho dois botões que ficam com esses nomes como se fossem tipos os objectos do jogo. depois já tenho o código que diga quem é o primeiro a lançar os dados..

depois carrego no botão lançar dados e sai 4 o botão "a" vai para essa posição.. entretanto o botão lançar dados fica enabled.

tenho que o por a false, e depois fazer com que o botão "b" jogue e assim sucessivamente..

E não sei como fazer..

no botão lançar dados tenho este codigo:

" Dim UltimoJogar As String 'Irá conter o último jogador que jogou para saber quem joga a seguir"

uso um select case para as posições..tipo a soma dos dados der 2 o botão "a" vai para a posição 2 :

Case 2

                    btnJogadorA.Location = New Point(407, 576)

                    posicao = 2

fiz um select case para todas as posições e para o jogador a e b..

Select Case soma

                Case 2

                    btnJogadorA.Location = New Point(407, 576)

                    posicao = 2

                Case 3

                    btnJogadorA.Location = New Point(307, 576)

                    posicao = 3

                Case 4

                    btnJogadorA.Location = New Point(128, 575)

                    posicao = 4

                Case 5

                    btnJogadorA.Location = New Point(32, 576)

                    posicao = 5

                Case 6

                    btnJogadorA.Location = New Point(28, 492)

                    posicao = 6

                Case 7

                    btnJogadorA.Location = New Point(28, 377)

                    posicao = 7

                Case 8

                    btnJogadorA.Location = New Point(28, 251)

                    posicao = 8

                Case 9

                    btnJogadorA.Location = New Point(28, 165)

                    posicao = 9

                Case 10

                    btnJogadorA.Location = New Point(29, 28)

                    posicao = 10

                Case 11

                    btnJogadorA.Location = New Point(129, 12)

                    posicao = 11

                Case 12

                    btnJogadorA.Location = New Point(295, 12)

                    posicao = 12

            End Select

            UltimoJogar = "A"

o jodador b é igual, dizendo no fim Ultimojogar= "B".. só que isto não é o necessário e nao sei como fazer..

peço desculpa pela confusão..

Obrigada pela ajuda ;)

Cumps

Ritinha

Share this post


Link to post
Share on other sites
Lfscoutinho

Boas,

Muito sinceramente, não percebi praticamente nada, desculpa :s

Acho que seria mais fácil se postasses um print screen e explicasses por pontos, o que queres fazer e o que não consegues fazer. Mas, é só a minha opinião... Se esperares um pouco, talvez apareça alguém que tenha entendido e te consiga ajudar.

Share this post


Link to post
Share on other sites
Andrepereira9

Ola Ritinha549  ;)

Isto assim, não faz o que pretendes  :P

Dim soma, posicao As Integer
Dim UltimoJogar As String = "A" 'Irá conter o último jogador que jogou para saber quem joga a seguir"uso um select case para as posições..tipo a soma dos dados der 2 o botão "a" vai para a posição 2 :

    Private Sub Lançar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lançar.Click
        soma = Val(TextBox1.Text)

        If UltimoJogar = "B" Then
            Select Case soma
                Case 2
                    btnjogadorA.Location = New Point(407, 576)
                    posicao = 2
                Case 3
                    btnjogadorA.Location = New Point(307, 576)
                    posicao = 3
                Case 4
                    btnjogadorA.Location = New Point(128, 575)
                    posicao = 4
                Case 5
                    btnjogadorA.Location = New Point(32, 576)
                    posicao = 5
                Case 6
                    btnjogadorA.Location = New Point(41, 146)
                    posicao = 6
                Case 7
                    btnjogadorA.Location = New Point(219, 74)
                    posicao = 7
                Case 8
                    btnjogadorA.Location = New Point(28, 251)
                    posicao = 8
                Case 9
                    btnjogadorA.Location = New Point(28, 165)
                    posicao = 9
                Case 10
                    btnjogadorA.Location = New Point(29, 28)
                    posicao = 10
                Case 11
                    btnjogadorA.Location = New Point(129, 12)
                    posicao = 11
                Case 12
                    btnjogadorA.Location = New Point(295, 12)
                    posicao = 12
            End Select
            UltimoJogar = "A"
        Else
            Select Case soma
                Case 2
                    btnJogadorB.Location = New Point(407, 576)
                    posicao = 2
                Case 3
                    btnJogadorB.Location = New Point(307, 576)
                    posicao = 3
                Case 4
                    btnJogadorB.Location = New Point(128, 575)
                    posicao = 4
                Case 5
                    btnJogadorB.Location = New Point(32, 576)
                    posicao = 5
                Case 6
                    btnJogadorB.Location = New Point(41, 146)
                    posicao = 6
                Case 7
                    btnJogadorB.Location = New Point(219, 74)
                    posicao = 7
                Case 8
                    btnJogadorB.Location = New Point(28, 251)
                    posicao = 8
                Case 9
                    btnJogadorB.Location = New Point(28, 165)
                    posicao = 9
                Case 10
                    btnJogadorB.Location = New Point(29, 28)
                    posicao = 10
                Case 11
                    btnJogadorB.Location = New Point(129, 12)
                    posicao = 11
                Case 12
                    btnJogadorB.Location = New Point(295, 12)
                    posicao = 12
            End Select
            UltimoJogar = "B"
        End If

        Label1.Text = UltimoJogar.ToString
End Sub


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
ritinha549

no botão lançar dados tenho este código:

Private Sub btnLancarDados_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLancarDados.Click

        Dim posicao As Integer    ' servirá para saber em que casa está o jogador e realizar nova contagem

        Dim UltimoJogar As String 'Irá conter o último jogador que jogou para saber quem joga a seguir

        btnLancarDados.Enabled = False

        Randomize()

        btnDados1.Text = (Int(6 * Rnd()) + 1)

        btnDados2.Text = (Int(6 * Rnd()) + 1)

        soma = CInt(btnDados1.Text) + CInt(btnDados2.Text)

        If QuemComeca = 1 Then

            Select Case soma

                Case 2

                    btnJogadorA.Location = New Point(407, 576)

                    posicao = 2

                Case 3

                    btnJogadorA.Location = New Point(307, 576)

                    posicao = 3

                Case 4

                    btnJogadorA.Location = New Point(128, 575)

                    posicao = 4

                Case 5

                    btnJogadorA.Location = New Point(32, 576)

                    posicao = 5

                Case 6

                    btnJogadorA.Location = New Point(28, 492)

                    posicao = 6

                Case 7

                    btnJogadorA.Location = New Point(28, 377)

                    posicao = 7

                Case 8

                    btnJogadorA.Location = New Point(28, 251)

                    posicao = 8

                Case 9

                    btnJogadorA.Location = New Point(28, 165)

                    posicao = 9

                Case 10

                    btnJogadorA.Location = New Point(29, 28)

                    posicao = 10

                Case 11

                    btnJogadorA.Location = New Point(129, 12)

                    posicao = 11

                Case 12

                    btnJogadorA.Location = New Point(295, 12)

                    posicao = 12

            End Select

            UltimoJogar = "A"

        Else

            Select Case soma

                Case 2

                    btnJogadorB.Location = New Point(482, 576)

                    posicao = 2

                Case 3

                    btnJogadorB.Location = New Point(309, 605)

                    posicao = 3

                Case 4

                    btnJogadorB.Location = New Point(203, 576)

                    posicao = 4

                Case 5

                    btnJogadorB.Location = New Point(32, 605)

                    posicao = 5

                Case 6

                    btnJogadorB.Location = New Point(28, 530)

                    posicao = 6

                Case 7

                    btnJogadorB.Location = New Point(28, 406)

                    posicao = 7

                Case 8

                    btnJogadorB.Location = New Point(28, 280)

                    posicao = 8

                Case 9

                    btnJogadorB.Location = New Point(28, 165)

                    posicao = 9

                Case 10

                    btnJogadorB.Location = New Point(29, 57)

                    posicao = 10

                Case 11

                    btnJogadorB.Location = New Point(203, 12)

                    posicao = 11

                Case 12

                    btnJogadorB.Location = New Point(368, 12)

                    posicao = 12

            End Select

            UltimoJogar = "B"

        End If

    End Sub

caso nao entendam ainda a minha duvida eu posso por printscreen..

Obrigada

Ritinha

Share this post


Link to post
Share on other sites
Lfscoutinho

Boas,

Eu não sou de VB.NET, mas penso que as tuas variáveis posicao e ultimoJogar deviam ser globais. Depois, usar esse método do if...else, não é o método mais adequado... Imagina que tens mais jogadores: vais estar a criar um elseif para cada jogador?

Share this post


Link to post
Share on other sites
ritinha549

Por acaso esqueci me de retirar, pois já tinha posto a variável posição como global..

então que método achas que devia usar?

Cumps

Ritinha

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.