[ erminmo @ 01.02.2012. 11:59 ] @
Pozzz

Ovako mislim da je za nekoga jednostavno ali ja sam zapeo...
u access bazu sam upisao 5000 kombinacija ovako

1 5 6 7 9 10
3 10 11 5 20 33
22 20 21 25 1 2
1 2 3 4 5 6
6 5 2 1 48 85
9 8 7 52 32 22
56 47 55 33 16 8
40 48 8 16 2 3

i tako sam unio brojeve od 1 do 48 5000 razliciti kombinacija e kako sad da mi iz baze svako dvije minute izvuce jedan red...
i jos jedno pitanje
kakou accessu da napravim drugu bazu u koju ja u roku od dvije minute unosim 6 brojeva ali visekombinacija npr.

1 2 3 10 11 48

2 47 16 40 48 8

i da on iz ove prve baze nadje npr 80% brojeva koje sam uipsao i njih pokaze na ekranu.

PS: pravim jedan lokalni BINGO SISTEM...

ako iko ista zna ili ima neki prijedloga molim vas da iznese... hvala unaprijed,,,
[ banem @ 01.02.2012. 12:28 ] @
Programski.

Napravi formu i aktiviraj Event OnTimer, gde je Timer postavljen na 120.000 (milisekundi) što je dva minuta. Ne treba Record Source. Možeš da staviš samo jedno Text polje na nju.

Onda napišeš program koji slučajnim uzorkom "vadi" jedan red i upisuje ga u to polje.

Neka se forma zove frmIzvlacenje, a polje na njoj txtBrojevi. Tabela sa brojevima se zove tblBrojevi

Onda napišeš ovakav neki program (iz glave, verovatno neće raditi odmah):

Code:

Dim i As Long, lngRnd As Long, rst As DAO.Recordset, txtBroj As String
Set rst = CurrentDb.OpenRecordset("tblBrojevi")
With rst
    .MoveLast
    .MoveFirst
    i = rst.RecordCount
    lngRnd = Int(rnd(i) * i)
    .Move lngRnd
    txtBroj = .Fields("Broj")
    'MsgBox "Izvučen je zapis broj: " & i
End With
rst.Close
Set rst = Nothing
Forms!frmizvlacenje!txtBrojevi = txtBroj


Zameni polje "Broj" sa stvarnim nazivom polja. Eventualno proglasiš proceduru za Public (umesto Private), zatim dodaš jedan taster pod nazivom "Izvuci sad" sa sledećim programom na OnClick

Call Form_Timer

I to je to, dosta jednostavno.
[ erminmo @ 01.02.2012. 12:59 ] @
super...
da li mogu jos da dodam da kada ja unesim brojeve da mi iz moje baze izvuce neke koji su najslicniji tim unesenim brojevima da pojednostavim ovako

pravim bingo ovako izgleda:

10000 € 300 € 10 €

7500 € 200 € 5 €

5000 € 100 € 4€

2000 € 50 € 3€

1000 € 30 € 2€

500 € 25 € 1€


ovako izgleda i sada iz moje baze od 5000 kombinacija on nadje kombinaciju neku i izbacuje 6 brojeva ako 6 broj pane na 100€ neko je dobio 100€ ako me kuzite... zato zelim da po unosu brojeva koje korisnici igraju da on nadje neku kombinaciju gdje ima slicnih brojeva i da nekom nesto znaci prosto da daje 80% a uzima 20%

evo sta zelim da napravim

http://www.youtube.com/watch?v=bzDNytcRxFs&feature=related

ili ovako nesto

http://rekic.dyndns.org/bingo/keno.rar
[ banem @ 01.02.2012. 14:26 ] @
Traženje ne istog, ali sličnog broja je zaseban algoritam. Imao sam negde funkciju sa pretragu reči "look like" ("nalik na") gde recimo upišeš "godrana" a on vrati u rezultatima "gordana". Verovatno bi moglo da se napravi nešto slično, ali to sad već nije jednostavno. A i nisam siguran da potpuno razumem. Ovo je već za ozbiljnije programiranje. Onaj keno što si dao link ne radi na Win 7.

ISPRAVKA: to je u stvari funkcija soundex() (a ne "look like") koja ne postoji u VBA, ali može da se napravi. Ima recimo kod Browna http://allenbrowne.com/vba-Soundex.html od Alberta Kallala (obojica bivših "kolega":).
[ erminmo @ 01.02.2012. 15:58 ] @
ok super hvala ti

a koju gresku keno izbaci...

trebate imati instaliran framework 2.0 ili veci