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 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 !
