Eu sou aluno do 3º ano do ensino médio técnico em informática, e me amarro na área de desenvolvimento de software; Então, um professor orientou-nos uma espécie de projeto, em que foi decidido a mim a criação do joguinho da cobrinha, o tão famoso snake dos celulares. Pois bem, foram poucas aulas de visual studio 2012 professional, e temos que fazer em console [exibição DOS]. Então, fiz a estrutura que na minha opinião, é base. Já tenho o caracter pronto, se mexendo de acordo com as setas pressionadas. Entretanto, o certo do jogo é o caracter se mover sozinho, e o jogador só o controle . Creio eu que, o controle o programa já possui, mas estou procurando um modo de conseguir fazer com que esse caracter se mexa em linha reta, e quando direcionado à outro lado de acordo com as setas, prossiga em movimento retilíneo. Eis que comecei desse jeito:
Module Module1
Sub Main()
Dim tecla, x, y, px, py, dx, dy As Integer
x = 40
y = 12
px = 1
py = 1
Do
Console.SetCursorPosition(x, y)
Console.ForegroundColor = ConsoleColor.Cyan
Console.Write(Chr(1))
tecla = Console.ReadKey().Key
Console.SetCursorPosition(x, y)
Console.Write(" ")
If tecla = 40 Then
y = y + py
End If
If tecla = 39 Then
x = x + px
End If
If tecla = 37 Then
x = x - px
End If
If tecla = 38 Then
y = y - py
End If
Loop Until tecla = 27
End Sub
End Module
Obs:. A "comida" da cobrinha e o fato de ela crescer de acordo com a obtenção da comida não está pronto (Ainda). A princípio quero saber como fazer com que esse caractere se mova da forma que especifiquei ali em cima... Alguém poderia me dar essa ajuda ?!
Abraços !
Editado por Jonathan Queiroz Adicionar tags (Jonathan)
Pergunta
Javinha ©
Boa noite galera '-'
Eu sou aluno do 3º ano do ensino médio técnico em informática, e me amarro na área de desenvolvimento de software; Então, um professor orientou-nos uma espécie de projeto, em que foi decidido a mim a criação do joguinho da cobrinha, o tão famoso snake dos celulares. Pois bem, foram poucas aulas de visual studio 2012 professional, e temos que fazer em console [exibição DOS]. Então, fiz a estrutura que na minha opinião, é base. Já tenho o caracter pronto, se mexendo de acordo com as setas pressionadas. Entretanto, o certo do jogo é o caracter se mover sozinho, e o jogador só o controle . Creio eu que, o controle o programa já possui, mas estou procurando um modo de conseguir fazer com que esse caracter se mexa em linha reta, e quando direcionado à outro lado de acordo com as setas, prossiga em movimento retilíneo. Eis que comecei desse jeito:
Module Module1 Sub Main() Dim tecla, x, y, px, py, dx, dy As Integer x = 40 y = 12 px = 1 py = 1 Do Console.SetCursorPosition(x, y) Console.ForegroundColor = ConsoleColor.Cyan Console.Write(Chr(1)) tecla = Console.ReadKey().Key Console.SetCursorPosition(x, y) Console.Write(" ") If tecla = 40 Then y = y + py End If If tecla = 39 Then x = x + px End If If tecla = 37 Then x = x - px End If If tecla = 38 Then y = y - py End If Loop Until tecla = 27 End Sub End ModuleObs:. A "comida" da cobrinha e o fato de ela crescer de acordo com a obtenção da comida não está pronto (Ainda). A princípio quero saber como fazer com que esse caractere se mova da forma que especifiquei ali em cima... Alguém poderia me dar essa ajuda ?!
Abraços !
Editado por Jonathan QueirozAdicionar tags (Jonathan)
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.