Saber posição numa grelha

[Antoliv]

Boas Noites,

ando aqui a tentar fazer um programa para o euromilhões. Tenho uma grelha de 50 numeros que sempre que há um sorteio é somado um valor ao lugar do número que saiu, para se saber quantas vezes é que saiu determinado número. Após isto tenho uma pequena rotina que me ordena a tabela da grelha para saber quais os numeros que sairam mais vezes, por ordem decrescente.

 For i As Integer = 0 To 49
For j As Integer = 0 To 48
If numeros(j) < numeros(j + 1) Then
Guardanumero = numeros(j)
numeros(j) = numeros(j + 1)
numeros(j + 1) = Guardanumero
End If
Next
Next

A seguir imprimo no ecran, neste caso numa MsgBox quais foras as vezes que sairam mais:

For i As Integer = 0 To 49
MsgBox("Números mais saídos" & " " & numeros(i), MsgBoxStyle.Exclamation)
Next

Mas o meu problema é que eu quero que saia o número do sorteio que saiu essas vezes e não o número de vezes que saiu.

Espero que entendam o que pretendo.

Desde já o meu obrigado pelo tempo dispendido.

Edited June 8, 2012 at 11:08 PM by Antoliv

[vbtipo]

Qual é o controlo que queres ver a tua posição?

[Antoliv]

Desculpa, mas não percebi a tua pergunta... O que queres dizer por controlo?

[acao]

boas

amigo tens que explicar isto melhor para alguém o poder ajudar.

1- os numeros são os reais do sorteio?

2 - os numeros são aleatorios?

3 - os numeros são do ciclo for?, se sim penso que o sorteio de certa forma é viciado.

Mas o meu problema é que eu quero que saia o número do sorteio que saiu essas vezes e não o número de vezes que saiu

só se aqui for:

For i As Integer = 0 To 49

MsgBox("Números mais saídos" & " " & numeros(J), MsgBoxStyle.Exclamation)

Next

cumps

acao

[Antoliv]

Boas, claro que os números são reais, são os que saiem em cada sorteio.

Sempre que introduzes uma chave, ele soma-te um valor á posição do número numa tabela.

Só depois é que faz a ordenação para ver qual é o maior números de vezes saído, mas ao fazer a ordenação perco a posição que me indica o número que saiui, eu queria era gravar numa tabela à parte essa posição, por exemplo quando estou a ordenar. Já tentei da várias maneiras e nunca consigo.

[acao]

Tenho uma grelha de 50 numeros que sempre que há um sorteio é somado um valor ao lugar do número que saiu,

boas

eu fiz-lhe aquelas perguntas porque não tinha percebido esta parte sitada,

mas pelo que percebi quer fazer uma contagem aos numeros.

a minha solução é esta:

Dim QtdNum as Byte

QtdNum = 0

For x = 1 To 49 'percorre os numero de 1 a 49

For i = 1 to totalLinhas 'percorre as linhas

For j = 1 To totalColunas 'percorre as colunas

if x = select da celula then

QtdNum = QtdNum + 1

end if

next j

next i

GuardaNaTbColunaA(Linha) = X 'X é o numero pesquisado

GuardaNaTbColunaB(Linha) = QtdNum 'QtdNum é as vezes que existe o numero X

QtdNum = 0

Linha = Linha + 1

next x

Ps: o seguinte numero é guardado na linha seguinte,depois é só ordenar desc as duas colunas da tabela pela coluna B e o primeiro numero é o numero que saiu mais vezes.

espero ter ajudado

cumps

acao

Edited June 17, 2012 at 01:17 AM by acao

[Antoliv]

DEsculpa só agora estar a responder, mas andei bastante ocupado, Eu tirei algumas ideias da tua solução e estou a tentar implementar a minha própria. Obigado pelo tempo dispendido.

[acao]

boas

é isso que se deve fazer, procurar ideias e depois implementar a nossa solução.

cumps

acao