Visual Basic 6 - gioco del lotto

Perche' questo ?

Non lo spieghi ... come faccio a capire ?

la parte numerica a destra---- indicata dalle frecce , è una parte che nn cè l'ho messa per far vedere la differenza tra il
tabellone analitico ----> estrazioni normali

non la devi considerare

Continui a NON spiegare (a parole) quali sono le regole che formano questo "tabellone" ...

Finche' non le spieghi chiaramente (ed in maniera esaustiva, non impiegare 4 parole), non si potra' mai dirti COSA fare ...

12 52 04 -- 33 |---> 1252 04 61 33
73 -- 47 77 -- |---> 73 61 47 77 82
35 75 34 61 20 |---> 35 75 34 61 20

prendiamo in esame come sopra dicevo queste tre estrazioni
adesso prendiamo e simuliamo il tutto

leggiamo l'estrazione cioè il primo recordset :

1252 04 61 33
memorizziamo i numeri

poi leggiamo il 2° recordset
61 47 77 82
vediamo che tra essi il 61
e presente
quindi si dovra scrivere :
73 -- 47 77 --

i due doppi --
si inseriscono uno e per il 61
l'altro e x il 12

questo sino all'alutimo recordset ( cioè ultima estrazione)

alla fine compare come sopra

eccola la ripresento completa :

Tabellone Analitico
giovedì 24.01.2008

Rit   Bari             
-----------------------
 98   -- 10 -- -- --   
 97   -- -- -- -- --   
 96   -- -- -- -- --   
 95   -- -- -- -- --   
 94   -- -- -- -- --   
 93   -- -- -- -- --   
 92   -- -- -- -- --   
 91   -- -- -- -- --   
 90   -- -- -- -- --   
 89   -- -- -- -- --   
 88   -- -- -- -- --   
 87   -- -- -- -- --   
 86   -- -- -- -- --   
 85   -- -- -- -- --   
 84   -- -- -- -- --   
 83   -- -- -- -- --   
 82   -- -- -- -- --   
 81   -- -- -- -- --   
 80   -- -- -- -- --   
 79   -- -- -- -- --   
 78   -- -- -- -- --   
 77   -- -- -- -- --   
 76   -- -- -- -- --   
 75   -- -- -- -- --   
 74   -- -- -- 15 --   
 73   -- -- -- -- --   
 72   -- -- -- -- --   
 71   -- -- -- -- --   
 70   -- -- -- -- --   
 69   -- -- -- -- --   
 68   -- -- -- -- --   
 67   -- -- -- -- --   
 66   -- -- -- -- --   
 65   -- -- -- -- --   
 64   -- -- -- -- --   
 63   -- -- -- -- --   
 62   -- -- -- -- --   
 61   -- -- -- -- --   
 60   -- -- -- -- --   
 59   -- -- -- -- --   
 58   -- -- -- -- --   
 57   -- -- -- 76 --   
 56   -- -- -- -- --   
 55   -- -- -- -- --   
 54   -- -- -- -- --   
 53   -- -- -- -- --   
 52   -- -- -- -- --   
 51   -- -- -- -- --   
 50   -- -- -- -- --   
 49   -- -- -- -- --   
 48   -- -- -- -- --   
 47   -- -- -- -- --   
 46   -- -- -- -- --   
 45   -- -- -- 16 --   
 44   -- -- -- 80 --   
 43   -- -- -- -- --   
 42   -- -- -- -- 62   
 41   -- -- -- -- --   
 40   -- 44 -- -- --   
 39   -- -- -- -- --   
 38   -- -- -- -- 24   
 37   -- -- -- -- --   
 36   31 25 -- 41 --   
 35   -- -- -- -- --   
 34   -- -- -- -- --   
 33   -- -- -- 13 --   
 32   -- 72 -- 11 --   
 31   02 -- -- -- 56   
 30   -- -- -- 45 --   
 29   -- 63 18 -- --   
 28   -- -- -- -- --   
 27   -- -- 54 -- 06   
 26   -- 83 -- -- 67   
 25   -- 90 -- -- --   
 24   -- -- 29 -- --   
 23   -- 57 78 66 --   
 22   -- -- 17 -- --   
 21   84 68 -- -- --   
 20   -- -- -- -- 85   
 19   -- -- -- -- --   
 18   -- 71 87 -- --   
 17   -- -- -- -- --   
 16   -- -- -- 26 --   
 15   -- 60 32 79 --   
 14   14 -- 08 -- 88   
 13   -- 46 -- -- --   
 12   -- 89 53 -- --   
 11   -- -- -- 38 51   
 10   40 -- -- 01 --   
  9   64 48 27 05 30   
  8   86 58 42 -- 49   
  7   74 -- -- 81 43   
  6   23 36 69 37 65   
  5   -- -- 50 03 39   
  4   12 52 04 -- 33   
  3   73 -- 47 77 --   
  2   35 75 34 61 20   
  1   19 70 09 82 22   
  0   28 55 07 59 21   
-----------------------

si noti il 10 sopra in alto tutto solo ...

xchè???

xchè da quel record set in poi non è mai uscito x 98 volte

in pratica è il ritardatario di bari

Ok adesso si e' capito il principio ... anche se hai confuso il 12 con l' 82 ...

E poi e' meglio parlare di record non recordset ....

In ogni caso, penso che dovresti iniziare eseguendo la SELECT per ottenere i dati in ordine inverso di data, ovvero

SELECT * FROM TabellaEstrazioni ORDER BY Data DESC

Poi dovresti scorrere il recordset ottenuto, e prelevare i singoli estratti, record per record, riempiendo un vettore di 90 numeri (ruota per ruota) in modo da memorizzare il numero se questo non e' presente nel vettore oppure un -- se e' gia' presente (fin quando il vettore non e' pieno).

Tutte queste informazioni memorizzate (dove vuoi tu anche in un file di appoggio) andranno visualizzate al contrario ....

List1.Clear
strConn = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ESTRAZIONI.mdb"
cn.Open strConn

 rs.Open " select ID,Data,BA1,BA2,BA3,BA4,BA5 From Archivio ORDER BY Data DESC;", cn, 3, 3

Do Until rs.EOF


    comb(1) = (rs("BA1"))
    comb(2) = (rs("BA2"))
    comb(3) = (rs("BA3"))
    comb(4) = (rs("BA4"))
    comb(5) = (rs("BA5"))
      For i = 1 To 5
      For ix = 1 To 90




         [b]QUI DOVREI FARE : 
             Poi dovresti scorrere il recordset ottenuto, e prelevare i singoli estratti, record per record, riempiendo un vettore di 90 numeri (ruota per ruota) in modo da memorizzare il numero se questo non e' presente nel vettore oppure un -- se e' gia' presente (fin quando il vettore non e' pieno). 

Tutte queste informazioni memorizzate (dove vuoi tu anche in un file di appoggio) andranno visualizzate al contrario .... 
         [/b]





  
      List1.AddItem " CHE METTO?"
      
     Next ix
     Next i
 
    rs.MoveNext
Loop

mi aiuti tu?

Guarda che non c'e' alcun bisogno di usare un vettore per leggere i 5 campi ... e poi per assegnare il valore di un campo di un record, devi scrivere

v = rs.Fields("BA1".Value

... le parentesi prima non hanno senso ed e' sempre bene indicare le proprieta' correttamente ...

In ogni caso, mi sembra che tu da solo non sia capace di scrivere il resto del codice, neanche dopo suggerimento ... sara' per questo che ti lamentavi dell'altro forum? Forse nessuno ti ha scritto TUTTO il codice al posto tuo? Beh ... ci credo ...

Comunque, se mi passi il database, ti faccio un esempio completo, SPERANDO che sia tu ad adattarlo al tuo programma ...

Fai in modo che io possa scaricare da un sito il tuo database con le estrazioni ...

questo è il link
magicolotto.net/software/metodi/…

ti ringrazio infinitamentee