Ciclo di 24 Estrazioni Presenze almeno 7 con relativi abbinamenti

[vinci]

Sub Main
'Ciclo di 24 Estrazioni Presenze almeno 7

Dim T,abb,aN(3),afreq(3),Ru(1),L(4)
Ini = EstrazioneFin - 24
fin = EstrazioneFin
fine = EstrazioneFin
Scrivi Ini & vbTab & fin
T = Array(T,"Ruota","Numero","Presenze","Ritardo","Abbinamenti Num","Freq Abb")
Call InitTabella(T)
For r = 1 To 10
Ru(1) = r
For n = 1 To 90
ef = EstrattoFrequenza(r,n,ini,fin)
er = EstrattoRitardo(r,n,Ini,fin)
If ef > 6 Then
k = k + 1
kk = kk + 1
ReDim Preserve aNum(k)
aNum(k) = n
Call Abbinamenti(aNum(k),abb,8117,fin,r)
aN(1) = abb(1,1)
aN(2) = abb(2,1)
aN(3) = abb(3,1)
afreq(1) = abb(1,2)
afreq(2) = abb(2,2)
afreq(3) = abb(3,2)
'----------------------
L(1) = aNum(1) : L(2) = aN(1) : L(3) = aN(2) : L(4) = aN(3)

End If
If k > 0 Then
Call VerificaEsito(L,Ru,fin + 1,1,10,,,clp,esa,id)
T = Array(T,SiglaRuota(r),StringaNumeri(aNum),ef,er,StringaNumeri(aN),StringaNumeri(afreq),esa,clp)
Call AddRigaTabella(T)
End If
k = 0
Next
Next
CreaTabella
Scrivi
Scrivi "Totali... " & kk
End Sub

.............................................

Ciao a tutti quanti, chiedo aiuto per questo script in parte da me modificato.
Cerco di spiegarmi meglio se posso:

lo script a ritroso di 24 estrazioni elabora su ogni ruota solo ed esclusivamente i numeri frequenti usciti almeno 7 volte
dopo di che elabora i tre migliori abbinamenti al capo gioco frequente che non so con quale criterio.

La mia richiesta a questo punto consiste nel seguente modo:
se facciamo girare lo script, ad oggi ci da come esito nel ciclo di 24 estrazioni con uscita almeno 7 volte
CAGLIARI 20
TORINO 84
gli abbinamenti che propone a me non interessano
a me servirebbero i numeri di abbinamento che nelle 7 estrazioni dove si è presentato il numero frequente (capo gioco) sono usciti più di una volta
nel caso specifico

CAGLIARI con il numero 20 si è presentato due volte il numero 25
quindi la previsione sarebbe CAGLIARI 20-25

TORINO con il numero 84 si sono presentati due volte i numeri 26-47-59-69
quindi la previsione sarebbe TORINO 84-26-47-59-69

Spero di essere stato chiaro e ringrazio anticipatamente chi riuscirà a mettere in tabella quanto da me richiesto

 

[vinci]

Grazie per chi mi può aiutare

 

[galup]

ciao , da provare

Option Explicit
Sub Main
   'Ciclo di 24 Estrazioni Presenze almeno 7
   Dim Ini,fin,fine
   Dim T,r,n,ef,er,k,kk,abb
   Dim clp,esa,id
   Dim aN(3),afreq(3),Ru(1),L(4)
   Ini = EstrazioneFin - 24
   fin = EstrazioneFin
   fine = EstrazioneFin
   Scrivi Ini & vbTab & fin
   T = Array(T,"Ruota","Numero","Presenze","Ritardo","Abbinamenti Num","Freq Abb","Esito","Colpo","id")
   Call InitTabella(T)
   For r = 1 To 11
      If r = 11 Then r = 12
      Ru(1) = r
      For n = 1 To 90
         ef = EstrattoFrequenzaTurbo(r,n,Ini,fin)
         er = EstrattoRitardoTurbo(r,n,Ini,fin)
         If ef > 6 Then
            k = k + 1
            kk = kk + 1
            ReDim Preserve aNum(k)
            aNum(k) = n
            Call Abbinamenti(aNum(k),abb,Ini,fin,r)
            aN(1) = abb(1,1)
            aN(2) = abb(2,1)
            aN(3) = abb(3,1)
            afreq(1) = abb(1,2)
            afreq(2) = abb(2,2)
            afreq(3) = abb(3,2)
            '----------------------
            L(1) = aNum(1) : L(2) = aN(1) : L(3) = aN(2) : L(4) = aN(3)
         End If
         If k > 0 Then
            Call VerificaEsitoTurbo(L,Ru,Ini,2,10,,,clp,esa,id)
            T = Array(T,SiglaRuota(r),StringaNumeri(aNum),ef,er,StringaNumeri(aN),StringaNumeri(afreq),esa,clp,id)
            Call AddRigaTabella(T)
         End If
         k = 0
      Next
   Next
   CreaTabella
   Scrivi
   Scrivi "Totali... " & kk
End Sub

 

[vinci]

Ciao galup, grazie per il tuo intervento però ancora manca qualcosa.
Gli abbinamenti non devono essere per forza tre.
Esempio per la ruota di CAGLIARI solo il numero 25 si è presentato più di una volta quindi il 34 e il 28 non rientrano nei prescelti
dunque l'abbinamento sarà solo di un numero nello specifico il 25
per la ruota di TORINO invece si sono presentati più di una volta i numeri 59 - 69 - 26 (come riportato in tabella) e il numero 47
dunque gli abbinamenti in questo caso saranno quattro nello specifico 59 - 69 - 26 - 47
Vediamo se si riesce a fare questa modifica
Grazie in anticipo a chi mi può aiutare