MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Detectar colisão

    Compartilhe
    avatar
    roberval
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 69
    Registrado : 17/05/2015

    [Resolvido]Detectar colisão

    Mensagem  roberval em Ter 04 Ago 2015, 13:23

    Bom dia...
    Bom estou criando um form onde no fim dele tem uma caixa (Caixa0) e no inicio do form tem uma outra caixa (Caixa1)
    Quando inicia, a Caixa1 começa a descer, mas quando chega na Caixa0 ele passa... Tem algum jeito dele detectar a colisão e para, ao invés de passar direto?

    Vlw..


    Última edição por roberval em Ter 04 Ago 2015, 19:47, editado 1 vez(es)


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9337
    Registrado : 04/11/2009

    Re: [Resolvido]Detectar colisão

    Mensagem  JPaulo em Ter 04 Ago 2015, 14:10

    Ola;

    Não entendi direito, mas o que você deve querer é:

    Com o form aberto em modo de estrutura, botão direito do mouse em cima do detalhe do form e ir a "Tab Order", agora é só colocar os campos por ordem.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    roberval
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 69
    Registrado : 17/05/2015

    Re: [Resolvido]Detectar colisão

    Mensagem  roberval em Ter 04 Ago 2015, 14:15

    Não é exatamente isso...
    Bom vamos supor que seja um jogo...
    No caso a Caixa0 será o personagem
    E a Caixa1 será uma parede, então a Caixa0 não pode atravessar a Caixa1..
    Bom foi a melhor explicação que eu encontrei... What a Face


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9337
    Registrado : 04/11/2009

    Re: [Resolvido]Detectar colisão

    Mensagem  JPaulo em Ter 04 Ago 2015, 14:17

    Então terá de utilizar a função IF.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    roberval
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 69
    Registrado : 17/05/2015

    Re: [Resolvido]Detectar colisão

    Mensagem  roberval em Ter 04 Ago 2015, 14:23

    "Esse é o problema"...
    Quais as condições que tem que ser?


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9337
    Registrado : 04/11/2009

    Re: [Resolvido]Detectar colisão

    Mensagem  JPaulo em Ter 04 Ago 2015, 14:25

    Criando o simples, pode testar;

    Num modulo VBA, apenas digite a variavel e salve;

    Código:
    Public x As Variant

    No form, ao perder o foco da Caixa0;

    Código:
    Private Sub Caixa0_LostFocus()
        x = 0
        x = 1
    End Sub

    Ao receber o foco na Caixa1;

    Código:
    Private Sub Caixa1_GotFocus()
        If x = 1 Then
          MsgBox "Erro", vbCritical
          x = 0
          DoCmd.CancelEvent
          Me.Caixa0.SetFocus
          Else
        Exit Sub
        End If
    End Sub



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    roberval
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 69
    Registrado : 17/05/2015

    Re: [Resolvido]Detectar colisão

    Mensagem  roberval em Ter 04 Ago 2015, 14:38

    Bem... Não é bem isso...

    É que eu estou na empresa e não posso anexar o meu projeto, pois aqui não posso abrir o dropbox ou 4shared

    Mas assim... O objeto Caixa0 se movimenta pelo form, e não pode atravessar o objeto Caixa1...


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9337
    Registrado : 04/11/2009

    Re: [Resolvido]Detectar colisão

    Mensagem  JPaulo em Ter 04 Ago 2015, 14:56

    Só vendo acontecer mesmo, assim é dificil.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    roberval
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 69
    Registrado : 17/05/2015

    Re: [Resolvido]Detectar colisão

    Mensagem  roberval em Ter 04 Ago 2015, 15:04

    tem como eu te enviar por email?


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9337
    Registrado : 04/11/2009

    Re: [Resolvido]Detectar colisão

    Mensagem  JPaulo em Ter 04 Ago 2015, 15:10

    Claro;

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    roberval
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 69
    Registrado : 17/05/2015

    Re: [Resolvido]Detectar colisão

    Mensagem  roberval em Ter 04 Ago 2015, 15:17

    Desculpe...

    Esqueci que não da pra mandar mensagens para outros emails de fora :/

    quando eu chegar em casa te mando pelo meu email pessoal... por enquanto eu continuo usando uma gambiarra que eu fiz Wink


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9337
    Registrado : 04/11/2009

    Re: [Resolvido]Detectar colisão

    Mensagem  JPaulo em Ter 04 Ago 2015, 15:20

    Tranquilo.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Ricardo Ivan
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 28/04/2015

    Re: [Resolvido]Detectar colisão

    Mensagem  Ricardo Ivan em Ter 04 Ago 2015, 19:03

    Adicione dois retangulos em um form com os nomes caixa0 e caixa1.
    Deixe o caixa0 acima do caixa1.

    Cole o código no módulo do form:

    Código:


    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    Select Case KeyCode

    Case vbKeyDown
        
        If Me.Caixa0.Top <= Me.Caixa1.Top - Me.Caixa1.Height Then
            Me.Caixa0.Top = Me.Caixa0.Top + 20
        End If
            
    End Select



    End Sub




    Agora pressione a tecla para baixo para ver o funcionamento!  Very Happy

    Acredito que era isso que você queria!
    avatar
    roberval
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 69
    Registrado : 17/05/2015

    Re: [Resolvido]Detectar colisão

    Mensagem  roberval em Ter 04 Ago 2015, 19:45

    Ricardo Ivan...
    Vlw cara!... era exatamente isso! cheers


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Sex 28 Jul 2017, 11:44