Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Dario salles

Tabela de jogos - Criar tabela de jogos automaticamente

Recommended Posts

Bom dia, estou tentando criar um algoritmo para fazer uma tabela de jogos com tantos numeros de participantes e rodadas para um campeonato de futebol

 

Ex: tenho 8 participantes(times)

 

Seriam no caso 7 rodadas (isso no caso de um turno somente) que queria criar automaticamente via código e lançar num bd

 

Time 1 x Time 2

Time 3 x Time 4

Time 5 x Time 6

Time 7 x Time 8

 

e assim sucessivamente nas outras 6 rodadas não acontecendo duplicação de jogos iguais.

 

Alguem sabe por onde começar?

Compartilhar este post


Link para o post
Compartilhar em outros sites

terá que criar um array e gravar o Recordset em um Array Bidimensional e concatenar, depois um code tipo este para não repetir.

RANDOM com registros de um banco de dados sem repetição.

[code]
<%


' Gravamos o Recordset em um Array Bidimensional

Set strRS = Server.CreateObject("ADODB.RecordSet")

strRS.Open "SELECT * FROM membros ", strConexao, 3, 3

arySub = strRS.getRows()



' Fechamos a conexão pois não usaremos mais

strRS.Close

Set strRS = Nothing

strConexao.Close

Set strConexao = Nothing



Dim TotalReg, TotalNum, vran, x, encontrou, arrGerados(0)

Dim Numreg, verGerado, var_arrGerados, xLoop



Function GeraRegistros(TotalNum)

TotalReg=Cint(uBound(arySub,2)) ' Encontramos o Maior Array Gerado

vran = 1



For x = 0 To TotalNum-1 ' LOOP de 1 p/ Total solicitado

encontrou = 1

Randomize() ' Geramos o primeiro Random

NumReg = Cint((rnd*TotalReg))

verGerado = Split(var_arrGerados,",") ' Verifica se nº gerado

For xLoop = LBound(verGerado) To UBound(verGerado)

IF Trim(verGerado(xLoop)) = Trim(NumReg) Then

'Este "response" comentado abaixo, indica qual número se repetiram

'E não armazena no Array único, fazendo gerando um novo Random

'response.write "<b>[ "& verGerado(xLoop) &","& NumReg &" ]</b><br> "

x = x - 1

encontrou = 2

Exit For

End IF

Next

IF encontrou = 1 Then ' NÃO ENCONTROU, gera o próximo número



IF vran = 1 Then ' primeiro (Verificar este trecho)

arrGerados(0) = NumReg

vran = 2

Else

arrGerados(0) = arrGerados(0) &","& NumReg

End IF

var_arrGerados = Join(arrGerados)

End IF

Next

GeraRegistros = var_arrGerados

End Function

' Array gerado, podemos iniciar a formatação de perguntas

number = GeraRegistros(3)



verNum = Split(number, ",")

For x = LBound(verNum) to UBound(verNum)

response.write arySub(0,verNum(x)) &"."

response.write arySub(1,verNum(x)) &"<br>"

Next

%>[/code] 

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.