MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    Chaves de competição

    Beter
    Beter
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 9
    Registrado : 26/07/2014

    Chaves de competição Empty Chaves de competição

    Mensagem  Beter 11/7/2016, 02:49

    Pessoal, preciso fazer um sistema de sorteio de chaves para competição de judo.

    Este sistema teria o seguinte cadastro:

    Nome do atleta
    Agremiação
    Classe (pelo ano de nascimento)
    Categoria (peso)
    Faixa

    Após este cadastro, eu queria que o sistema SORTEASSE e montasse uma chave de competição com filtro para cada item acima.

    Alguém sabe fazer isso?
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3711
    Registrado : 04/04/2010

    Chaves de competição Empty Re: Chaves de competição

    Mensagem  Avelino Sampaio 11/7/2016, 11:42

    Olá!

    Deve oferecer mais detalhes sobre a montagem.  

    Cada categoria de peso é uma competição, correto ?  Qual é faixa de peso para cada categoria ?

    Supondo que vc tenha 12 participantes por categoria de peso. Os doze vão competir numa única chave?  Exemplo de um sorteio:

    (1 x 7);(3 x 4);(5 x 12);(2 x 8 );(10 x 9);(6 x 11)

    O participante 1 vai lutar com o 7.  o 3 vai lutar com o 4 e assim vai

    supondo que os ganhadores sejam 1;4;12;8;9 e 6.  Deverá haver um novo sorteio para estes?

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Beter
    Beter
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 9
    Registrado : 26/07/2014

    Chaves de competição Empty Re: Chaves de competição

    Mensagem  Beter 11/7/2016, 18:53

    Obrigada pela resposta, Avelino Sampaio!

    Então, eu só preciso montar a chave que ao decorrer da competição será preenchida manualmente pelos oficiais de mesa.

    Seria mais ou menos assim:


    Chaves de competição Tta%20world%20masters%202013


    Eu preciso que o sistema sorteie aleatoriamente os nomes na chave.


    E deve seguir o seguinte filtro:

    Classe por idade (11 e 12 anos)

    Chave 1: Até 28 kg

    Chave 2: +28 a 31 kg

    Chave 3: + 31 a 34 kg

    ... e por aí vai..


    Eu só preciso fazer o sorteio no sistema, o resto será feito manualmente.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3711
    Registrado : 04/04/2010

    Chaves de competição Empty Re: Chaves de competição

    Mensagem  Avelino Sampaio 11/7/2016, 19:20

    Kelsores,

    levando em consideração uma numeração para os participantes:

    1- Avelino
    2- Pedro
    3- João
    4 - ...
    16 - Antonio

    Utilize esta função para gerar os confrontos:

    Public Function fncMontaChaves(nParticipantes%) As String
    Dim seq$, intRnd%, v, p%, Sorteado As Boolean, k As Boolean, Resultado$
    If nParticipantes Mod 2 <> 0 Then
       MsgBox "Entre com número par de participantes ....", vbInformation, "Aviso"
       Exit Function
    End If
    Do While j < nParticipantes
       intRnd = Int(Rnd() * nParticipantes) + 1
       v = Split(seq, ",")
       Sorteado = False
       'verifica se o número já foi sorteado
       For p = 0 To UBound(v)
           If v(p) = intRnd Then
               Sorteado = True
               Exit For
           End If
       Next
       ' monta o sorteio
       If Sorteado = False Then
           If k = False Then
               Resultado = Resultado & "(" & intRnd
               k = True
           Else
               Resultado = Resultado & " x " & intRnd & ");"
               k = False
           End If
           seq = seq & intRnd & ","
           j = j + 1
       End If
       Randomize
    Loop
    fncMontaChaves = Left(Resultado, Len(Resultado) - 1)
    End Function


    Ao executar a função

    fncMontaChaves(16), terá como resultado os confrontos sorteados.  Algo assim:

    (12 x 2);(14 x 4);(1 x 15);(3 x 6);(13 x 9);(8 x 16);(10 x 11);(5 x 7)

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Beter
    Beter
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 9
    Registrado : 26/07/2014

    Chaves de competição Empty Re: Chaves de competição

    Mensagem  Beter 12/7/2016, 18:16

    Obrigada, Avelino Sampaio!
    Vou fazer aqui e assim que terminar dou o feedback.
    Very Happy
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3711
    Registrado : 04/04/2010

    Chaves de competição Empty Re: Chaves de competição

    Mensagem  Avelino Sampaio 14/7/2016, 09:52

    kelsores, conseguiu ?

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Beter
    Beter
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 9
    Registrado : 26/07/2014

    Chaves de competição Empty Re: Chaves de competição

    Mensagem  Beter 5/9/2016, 05:15

    Oi, Avelino Sampaio!

    Não consegui Crying or Very sad Crying or Very sad

    Como achei complicadinho, resolvi adiar este projeto e estudar um pouco mais sobre o assunto.

    No momento estou aprimorando um sistema de controle de alunos que criei para o meu uso e assim que finalizar retornarei ao projeto das chaves.

    De qualquer forma, agradeço de coração as mensagens de apoio que são fundamentais para a produção dos nossos sistemas.

    Abraço a todos! What a Face What a Face

      Data/hora atual: 12/4/2021, 02:23