[VB6] Lotto e frequenza di ambi

[Magicolotto]

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

Do Until rs.EOF

conteggio(rs("BA1")) = conteggio(rs("BA1")) + 1
conteggio(rs("BA2")) = conteggio(rs("BA2")) + 1
conteggio(rs("BA3")) = conteggio(rs("BA3")) + 1
conteggio(rs("BA4")) = conteggio(rs("BA4")) + 1
conteggio(rs("BA5")) = conteggio(rs("BA5")) + 1

comb(1) = (rs("BA1"))
comb(2) = (rs("BA2"))
comb(3) = (rs("BA3"))
comb(4) = (rs("BA4"))
comb(5) = (rs("BA5"))
' da qui mi conteggio i 10 ambi sortiti ad estrazione
For i = 1 To 5
For j = i + 1 To 5
' controllo se questi ambi hanno la caratterista di avere un numero in comune
If comb(i) = numric Or comb(j) = numric Then
' li scrivo nella listabox
List3.AddItem comb(i) & " - " & comb(j)
End If
Next j
Next i

rs.MoveNext


Loop


For ix = 1 To 90
If ix = numric Then ' qui scelgo il numero
' se questo numero è uscito un tot di volte allora
If conteggio(ix) >= presenze Then

List2.AddItem conteggio(ix) & " presenze del : " & ix
List3.AddItem conteggio(ix) & " presenze del : " & ix

End If
End If

Next ix


rs.Close

al codice sopra riportato, con un minimo di spiegazione rilevo un numero su una ruota che si frequente un tott di volte

se viene trovato, scrivo tutti i numeri che sono usciti insieme a questo numero, e da codice scrivo gli ambi del numero ritravo con i numeri che si sono accoppiati a questo


ADESSO :
dovrei verificare se fra i moltecipli ambi ritrovati cioè in questa parte di codice :

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 j = i + 1 To 5
If comb(i) = numric Or comb(j) = numric Then

End If
Next j

Next i

quali sono gli ambi che si sono ripetuti piu di una volta....

[Magicolotto]

up
1/3

[Magicolotto]

UP
2/3


grazie

[Magicolotto]

up
3/4


:rollo: