Como criar animações no Visual Basic 6.0

O Visual Basic 6.0 é uma das linguagens de programação mais usadas pelos desenvolvedores. O VB é frequentemente usado para criar aplicativos de interface gráfica com o usuário e com acesso a bancos de dados. Além disso, você pode criar animações com o programa, pois os controles têm as posições X e Y, que podem ser alteradas para criar movimentos no tempo de execução.

Passo 1

Vá para “Iniciar”, depois “Todos os programas”. Clique em “Visual Basic 6.0”. Em seguida, em “Arquivo”, “Novo” e selecione “Aplicativo do Windows” na janela de diálogo Novo Projeto. Clique em “Image Control” e coloque-o no formulário. Clique com o botão direito do mouse no projeto, selecione “Propriedades” e digite a guia “Recursos”. No Gerenciador de recursos, adicione duas imagens de cães. É necessário que as duas imagens estejam no mesmo diretório em que o projeto está. Nas duas imagens, o cão é delineado à esquerda ou à direita.

Etapa 2

Clique duas vezes na parte inferior do formulário para abrir o manipulador de eventos Form_Load. Atribua a imagem do cão que está delineada à esquerda em direção ao controle de imagem. O cão pode percorrer o formulário da esquerda para a direita ou na direção oposta. Assim, existem quatro estados para o cão: esquerda ou direita e ande para a esquerda ou direita. Digite o seguinte código de enumeração para definir os quatro estados do cão: Enum DogState FacingLeftWalkingLeft = 1 FacingLeftWalkingRight = 2 FacingRightWalkingRight = 3 FacingRightWalkingLeft = 4 End Enum

Etapa 3

Adicione um cronômetro para alterar o movimento do cachorro clicando no ícone “Relógio” na barra lateral geral. Defina o cronômetro para ativar uma marca a cada 100 milissegundos. Defina o estado inicial como FacingLeftWalkingLeft e a velocidade de 10 pixels por etapa usando o seguinte código: state = DogState.FacingLeftWalkingLeft speed = 10 DogImg.Image = My.Resources.Dog

Etapa 4

Mova o controle de imagem para a esquerda com velocidade fixa e altere a imagem. Verifique a localização do controle de imagem ao mover para a esquerda ou direita. Verifique se a imagem não sai do formulário. Vire as imagens quando chegar às extremidades esquerda ou direita. Isso pode ser alcançado através da seguinte cláusula Case e If-Else:

Selecionar estado do caso Caso DogState.FacingLeftLeftLegs

DogImg.Left = DogImg.Left – velocidade DogImg.Image = My.Resources.Dog2 If DogImg.Left> 5 Em seguida, state = DogState.FacingLeftRightLegs Outro estado = DogState.FacingRightLeftLegs End If

Referências

 

Você pode estar interessado:

Deixe um comentário