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

Lod.

Duvidas no jogo da forca

9 mensagens neste tópico

Estou com umas duvidazinhas no jogo da forca :wallbash:

se puderem dar umas dicas agradecia

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Estou com umas duvidazinhas no jogo da forca :wallbash:

se puderem dar umas dicas agradecia

Tens um quadrado, dividido em quadrados mais pequenos fazendo uma grelha de 3x3

tictactoe12625448oh0.gif

Cada jogador terá um símbolo diferente, um uma Cruz e o outro um circulo, cada um marca um quadrado pequeno na sua vez com o seu símbolo, o primeiro que conseguir fazer uma linha completa de 3 símbolos ganha.

É simples, boa sorte!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tens um quadrado, dividido em quadrados mais pequenos fazendo uma grelha de 3x3

tictactoe12625448oh0.gif

Cada jogador terá um símbolo diferente, um uma Cruz e o outro um circulo, cada um marca um quadrado pequeno na sua vez com o seu símbolo, o primeiro que conseguir fazer uma linha completa de 3 símbolos ganha.

É simples, boa sorte!

Ele falou no jogo da forca e não o jogo do galo.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

OMG! Isto anda mau! Como é que eu li jogo do galo  :P

My bad!

Descansa, não és o único :P eu também quando vi a tua resposta também não reparei :D

Malditas férias, nunca mais chegam eheh :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Estou a fazer em Console Aplication.

A duvida é: o bonequinho quando erro uma letra não vai adicionando nada, e nunca perco. não estou a perceber o que tenho mal no codigo

Fica aqui o codigo que escrevi para me darem sugestões:

   Sub Main()
        Dim op As Char
        Dim numlet As Integer
        Dim frase As String
        Dim fun As String = ""
        Dim L As Integer
        Dim y As Integer
        Dim letra As String
        Dim bone As Byte = 0
        Dim dec As Boolean = False
        Dim tent As Integer
        Console.Clear()
        Console.ForegroundColor = ConsoleColor.White
        Console.WriteLine("                 JOGO DA FORCA                     ")
        Console.WriteLine()
        Console.WriteLine("                      Menu                          ")
        Console.WriteLine()
        Console.WriteLine("                     1-Jogar                        ")
        Console.WriteLine("                     2-Sair                         ")
        Console.WriteLine()
        Console.WriteLine("                  Escolher opção                    ")
        op = Console.ReadLine
        Select Case op
            Case "1"
                Console.Clear()
                Console.WriteLine("Inserir uma palavra para jogar,por favor")
                frase = Console.ReadLine
                Console.Clear()
                numlet = Len(frase)
                y = 10
                For L = 0 To numlet - 1
                    If frase(L) = " " Then
                        Console.SetCursorPosition(y + 1, 15)
                        y = y + 2
                        Console.WriteLine(fun & " ")
                    Else
                        Console.SetCursorPosition(y + 1, 15)
                        y = y + 2
                        Console.WriteLine(fun & "_  ")
                    End If
                Next

                L = 0
                y = 10
                Do Until bone = 6 Or tent = numlet
                    Console.SetCursorPosition(1, 20)
                    y = 10
                    Console.WriteLine("Insira uma letra")
                    letra = Console.ReadLine
                    While L <= numlet - 1
                        If frase(L) = letra Then
                            Console.SetCursorPosition(y + 1, 15)
                            Console.WriteLine(letra)
                            dec = True
                            L = L + 1
                            y = y + 2
                            tent = tent + 1
                        Else
                            L = L + 1
                            y = y + 2
                        End If
                    End While
                    L = 0
                    If dec = False Then
                        bone = bone + 1
                        Select Case bone
                            Case 1
                                Console.SetCursorPosition(15, 5)
                                Console.WriteLine("O")
                                dec = False
                            Case 2
                                Console.SetCursorPosition(15, 6)
                                Console.WriteLine("|")
                                dec = False
                            Case 3
                                Console.SetCursorPosition(14, 6)
                                Console.WriteLine("/")
                                dec = False
                            Case 4
                                Console.SetCursorPosition(16, 6)
                                Console.WriteLine("\")
                                dec = False
                            Case 5
                                Console.SetCursorPosition(14, 7)
                                Console.WriteLine("/")
                                dec = False
                            Case 6
                                Console.SetCursorPosition(16, 7)
                                Console.WriteLine("\")
                                dec = False
                            Case Else
                                dec = True
                        End Select
                    Else
                    End If
                Loop
                L = 0

                If bone = 6 And tent <> numlet Then
                    Console.SetCursorPosition(15, 9)
                    Console.ForegroundColor = ConsoleColor.Red
                    Console.WriteLine("!!!!!PERDEU!!!!")
                Else
                    Console.ForegroundColor = ConsoleColor.Green
                    Console.SetCursorPosition(15, 9)
                    Console.WriteLine("!!!!GANHOU!!!!!")
                End If
                Console.ReadLine()
        End Select
    End Sub

EDIT: o que porcaria, quando acabo de postar, vou tentar novamente altero uma pequena coisa e consigo por a funcionar.

obrigado a todos que me ajudaram

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Acho que te falta um

dec = False

algures no código; talvez aqui?

                    Console.WriteLine("Insira uma letra")
                    letra = Console.ReadLine
                    dec = False
                    While L <= numlet - 1

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Acho que te falta um

dec = False

algures no código; talvez aqui?

                    Console.WriteLine("Insira uma letra")
                    letra = Console.ReadLine
                    dec = False
                    While L <= numlet - 1

experimentei noutro sitio antes de dizeres e também deu.

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