[Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

tá aí um uma coisa que eu queria ver tambem. será que dá para fazer isso no access?

Dá para fazer mas como não se trata de tirar dúvida mas de um programa, tem o fazer por si próprio e ir tirando as dúvidas caso surjam

como que eu faço para o access pegar os numeros aleatoriamente de 1 a 60 por exemplo para fazer esse sorteio? acho que vou tentar aprender a fazer esse bingo.

Utilize a função rnd

eu não to conseguindo usar esse rnd alguem podeira me dar uma luz? aonde e como eu uso isso? só esse rnd é capaz de fazer a contagem randômica de uma sequência de números?

Boa tarde amigos;

Se eu tivesse tempo, ajudaria na construção dos cartões de Bingo (cartelas).

A função Rnd funciona assim e nem necessita de tabela alguma.

Int((LimiteMaximo - LimiteMinimo + 1) * Rnd + LimiteMinimo)

Numa consulta nova, coloque esta instrução num campo:


NumeroRandomico:Int((6 - 1 + 1) * Rnd + 1) Numeros aleatórios entre 1 e 6.
Ou
NumeroRandomico:Int((60 - 1 + 1) * Rnd + 1) Numeros aleatórios entre 1 e 60
Ou
NumeroRandomico:Int((600 - 100 + 1) * Rnd + 100) Numeros aleatórios entre 100 e 600

Perdoem a minha ignorancia, mas o bindo não é de 75 ou 90 numeros ?

Definição wikipedia para bingo:

O Bingo é um jogo de azar, onde bolas numeradas são colocadas dentro de um globo, e sorteadas uma a uma. O jogo é comum em cassinos, casas de bingo, festas juninas (no Brasil) e como diversão caseira entre famíliares e amigos.
Os números devem ser marcados em cartelas aleatórias, geralmente com 24 números, dispostos no formato de 5 colunas por 5 linhas, para facilitar a localização dos mesmos, quando sorteados.
Uma coluna para os números de 1 a 9, uma outra para os números de 10 a 19, outra para os números de 20 a 29, e dai por diante, até o número 99, na maioria dos bingos.
Tradicionalmente, os vencedores são aqueles que completam primeiramente uma linha ou uma coluna ou aquele que fechar (ou seja, completar todos os números) a cartela.
Em algumas casas de bingo, a cada rodada são acertadas as regras, podendo assim, valer as 3 linhas, também as colunas.
Os ganhadores devem alertar que ganharam, gritando a palavra "Bingo!". Assim o sorteio é parado e o chefe de mesa vem conferir a cartela.
Outra modalidade muito semelhante ao bingo comum é o Keno, jogado em cassinos. Neste tipo de jogo as regras são basicamente as mesmas, mas - ao contrário de ter os número pré-definidos na cartela - é o jogado quem escolhe os número com os quais jogar.Alem desse bingo de 99 números, eu já vi tambem cartelas de 60 e de 70 números.

Se prefererirem em função, esta funciona com as horas e randomiza entre dois valores, por exemplo (1, 60)

Num modulo novo, colem sem alterar nada:

Public LançarAleatorio As Variant
Public NumAleatorio As Variant

Public Function GeradorNumerosRandomicos(X As Long, Y As Long) As Variant
'JPaulo Maximo Access
On Error GoTo ErroLinha
Dim LNumAleatorio As Integer
Dim Llançar As Variant

LançarAleatorio = Format(Now(), "mm:ss")
LançarAleatorio = Replace(LançarAleatorio, ":", "")
Randomize (CInt(LançarAleatorio))
LNumAleatorio = Int((X - Y) * Rnd + Y)
GeradorNumerosRandomicos = LNumAleatorio

SaírLinha:
Exit Function
ErroLinha:
Select Case Err.Number
Case Else
MsgBox "Erro: " & Err.Number & " " & Err.Description, vbCritical, ""
GoTo SaírLinha
End Select
End Function

Esta função pode ser chamada na origem dos campos ou onde quiserem;

=GeradorNumerosRandomicos(1, 60)

grandejpaulo sempre com grandes ideias, só uma duvida com essa função dá para sortear sem repetir número?

Não testei, mas se não der, alteramos para guardar em variaveis e não repetir.

não estou conseguindo fazer funcionar, será que estou colocando no lugar errado? a minha ideia é chamar a função com um clique em um botão de um formulário e queria fazer os números sorteados aparecerem em um quadro. queria tambem a opção de fornecer um tempo em segundos para fazer sorteio automático sem precisar clicar no botão.

Seria interessante criar uma tabela para armazenar os sorteios realizados, tabela essa contendo uma PK, os números sorteados e o número da cartela vencedora. Tudo isso registrado automaticamente ao fim do sorteio. E para que o ganhador não precise gritar bingoooo fazer a função gritar Bingo quando detectar que uma cartela completou a numeração.

olha oq eu axei





la no forum julio battisti.[url=http://www.esnips.com/doc/b1008439-f431-4938-adc1-ac70a13a242a/Sistema-bingo ]http://www.esnips.com/doc/b1008439-f431-4938-adc1-ac70a13a242a/Sistema-bingo [/url]

Marsolin todo o código acima é colocado num Modulo e salve com o nome que quiser.

Já no form, no evento ao pressionar do seu botão, é colocar:

Me.SeuCampo1.Value=GeradorNumerosRandomicos(1, 60)
Me.SeuCampo2.Value=GeradorNumerosRandomicos(1, 60)
Me.SeuCampo3.Value=GeradorNumerosRandomicos(1, 60)

etc.............

está dando um erro aqui

Erro de compilação:
Era esperado: =

eu criei umas caixas de texto e nomeei como 01, 02, 03, 04... e tentei escever os códigos assim:

Private Sub Comando0_Click()
Me.01.Value = GeradorNumerosRandomicos(1, 60)
Me.02.Value = GeradorNumerosRandomicos(1, 60)
Me.03.Value = GeradorNumerosRandomicos(1, 60)
...
End Sub

mas a cada vez que dou enter para passar para a próxima linha acusa esse erro.

Tente mudar o nome desses textboxes colocando um nome alfa ao invés de numérico.

troquei os nomes e deu certo só que tem um problema, eu coloquei 24 caixa texto para simular a geração de uma cartela com números de 1 a 60 e fiz de maneira a ficar de 1 a 12 na primeira coluna, de 13 a 24 na segunda coluna, de 25 a 36 na terceira coluna e etc, o problema é que ele está gerando muito número repetido e algumas vezes repete número em mais de uma coluna. como fazer para não repetir número? E tem como pedir para ele gerar um deteminado número de cartelas enumeradas para impressão? tipo de 1 a 100 por exemplo e como que faço para não ter cartela repetida?
agradeço muito pela ajuda estou aprendendo muita coisa com vocês.

estou progredindo no trem aqui, até já consegui fazer o sistema jogar os números sorteados em uma tabela do formulário que criei com 60 caixa de texto e a cada número sorteado ele é jogado na sua devida posição.
mas não consigo fazer ele parar de repetir número de jeito nenhum.

Amigos, a minha contribuíção termina aqui.

Podem alterar o que quiserem, mas por favor mantenham os créditos.

Versão final:
Download

Grande jpaulo muito bom. agora vou tentar fazer minhas implementações aqui. só ainda não sei como vou fazer para ele alertar quando a cartela de número tal ganhar. quero guardar os sorteios realizados em uma tabela que constará a data, a hora, o número do sorteio (pk), a cartela vencedora e os números sorteados. acho que eu já sei como vou fazer para gravar os números sorteados a partir da tabela dos números que irão aparecendo assim que forem saindo.
agora essa de avisar na hora que a cartela ou as cartelas ganharem informando o número é que ainda estou empacato aqui sem saber como fazer, hehehe.

Amigo jpaulo desculpe eu voltar a falar do assunto mas é que eu tinha feito um form para sortear as pedras uma a uma. nesse form eu tenho uma textbox maior que é aonde os números sorteados deverão ir aparecendo um a um a cada vez que eu clicar no botão e tenho 60 textbox nomeadas de um a sessenta que deverão ir pegando o número sorteado através do código abaixo:

If Me.Text0 = 1 Then
Me.um = 1
End If

If Me.Text0 = 2 Then
Me.dois = 2
End If

If Me.Text0 = 3 Then
Me.tres = 3
End If
...

Text0 é a caixa de texto que deve aparecer cada número sorteado.
pois bem com o código que você passou primeiro eu consegui fazer essa implementação mas com esse eu não estou conseguindo.
o que você fez até aqui é exclusivo para gerar as cartelas? ou seja, não tem como fazer que apareça só um número em uma textbox por vez até rodar os 60 sem repetir?
desculpe por estar enchendo as paciências e obrigado pelo empenho.

ola tudo bem? eu estou com um probleminha aqui que não consigo resolver eu consegui fazer o sistema sortear os números um a um fazendo cada número sorteado aparecer no seu devido lugar na lista de números sorteados. fiz isso alterando um pouco o código só que agora está repetindo números de novo e não consigo resolver. a parte de geração de cartela está funcionando perfeitamente mas o principal do sistema para mim seria fazer o sorteio dos números e nessa hora ele repete ou seja se clico 60 vezes no botão ele deveria sortear os 60 números mas como está repetindo fica entre 10 e 20 números sem ser sorteados em 60 cliques. olha uma imagem da tela de sorteio:

aqui as alterações que fiz no código:

Private Sub Sortear_Click()
'By JPaulo Maximo Access
Dim arr1(1 To 1) 'para aparecer o número em apenas uma caixa de texto
'sorteia os numeros de A a Z e coloca-os numa array
PreencheArray arr1(), 1, 60 'Faz o sorteio de 1 a 60

'preencher as caixas de texto com os valores sorteados, sem os repetir
PreencheCaixas arr1(), 1, 60

If Me.Text0 = 1 Then
Me.um = 1
End If
If Me.Text0 = 2 Then
Me.dois = 2
End If
If Me.Text0 = 3 Then
Me.tres = 3
End If
If Me.Text0 = 4 Then
Me.quatro = 4
End If
If Me.Text0 = 5 Then
Me.cinco = 5
End If
If Me.Text0 = 6 Then
Me.seis = 6
End If
If Me.Text0 = 7 Then
Me.sete = 7
End If
If Me.Text0 = 8 Then
Me.oito = 8
End If
...
End Sub

Text0 é a textbox grande aonde aparece os números sorteados e as textbox um, dois, três, quatro até sessenta é aonde cada número sorteado aparecerão. já tentei de vários jeito e não consigo fazer ele parar de repetir números.
Se puder me ajudar em mais essa eu ficaria muito grato.

http://dl.dropbox.com/u/771097/teste_B.mdb

estou quebrando a cabeça aqui e não chegou a lugar nenhum, hehehe. tentei um monte de coisa aqui e até agora não andei nenhum centímetro. coisa complicada, hehehe. esses números insistem em se repetir...

Amigão não tenho tido tempo de ver isso, porque estou a fazer testes no Access 2010.

Mas vamos lá à questão.

Para esse passo que você quer dar, a minha ideia será esta.

1º Esqueça o código que lhe passei, ele é bom sim, mas para gerar cartões sem repetir os numeros.

2º Colocar uma listbox oculta, com a linha de origem em "Lista de Valores" de 1 a 60.

3º Sortear esse numeros e ir apagando um a um.

Assim nunca mais se repetirá e tem o seu problema resolvido.

olá jpaulo, muito trabalho né? hehehe
bem, e como seria essa ligação da listbox com o sorteio? eu teria que nomear ela com o nome da textbox que pega o número sorteado? e apagar os números à medida que forem sendo sorteados. isso quer dizer entrar no modo formulário,sorter um número, abrir no modo design, apagar o número sorteado da listbox e voltar no modo formulário de novo? isso vai dar um trabalhão danado, mas se for isso mesmo vou fazer para ver se dá certo, hehehe.

Nada disso....rsrsrsrs

Estou aos poucos a fazer um pequeno exemplo para lhe mostrar o caminho das pedras.

Segunda-feira coloco aqui.

Bom dia a todos;

Demorou porque não foi fácil;

Sorteia 60 numeros sem repetir:

Download

JPaulo, ficou chick o trabalho. Agora é só cada um adaptar ao próprio gosto.
Parabens.
Eu ainda vou incluir no tempo oportuno funcionalidades como sortear os números automaticamente em intervalos de alguns segundos e falar os números sorteados a partir de arquivos wav. Acho que pode ser interessante. Tambem penso criar uma tabela para armazenar os sorteios, para que os mesmos possam ser cadastrados afim de serem realizados posteriormente e guardar os números das cartelas criadas para que quando uma for contemplada, o sistema possa mostrar o número da cartela vencedora.
São só ideias por enquanto que pretendo aplicar.

grande jpaulo muito obrigado pelo seu empenho e dedicação não só a mim mas a todos que precisam de uma forcinha. ficou muito bom de fato. para falar a verdade eu não fiz quase nada aqui, estou só aprendendo. esse cidadão que se intitula criquio aí é que está fazendo o trabalho pesado, mas como ele esteve uns dias sem poder me orientar, foi que eu te amolei mais ainda, mas é ele quem está fazendo tudo aqui eu fico só observando e aprendendo, ja aprendi muita coisa, hehehe.
mto obrigado mais uma vez. o sistema vai

Depois quero ver esse final.

JPaulo, como você faria para não precisar passar as cartelas geradas no relatório página por página para então poder cadastrá-las na tabela?