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


2 participantes

    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 : 3877
    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 : 3877
    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 : 3877
    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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 05:24