MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Detectar colisão

    Compartilhe

    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.]

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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.


    .................................................................................
    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.]

    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.]

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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.


    .................................................................................
    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.]

    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.]

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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



    .................................................................................
    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.]

    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.]

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Detectar colisão

    Mensagem  JPaulo em Ter 04 Ago 2015, 14:56

    Só vendo acontecer mesmo, assim é dificil.


    .................................................................................
    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.]

    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.]

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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.]


    .................................................................................
    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.]

    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.]

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Detectar colisão

    Mensagem  JPaulo em Ter 04 Ago 2015, 15:20

    Tranquilo.


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

    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: Dom 04 Dez 2016, 20:19