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

 

[claudio8]

Grazie per chi mi può aiutare

Innanzitutto se vuoi considerare solo 24 estrazioni nel ciclo di tuo interesse devi escludere solo 23 da estrazionefin.
Ini = EstrazioneFin - 23
Ho preso lo script di Galup e modificato qualche riga per filtrare gli abbinamenti con minFreq = 2

Lo script estrapola solo i primi 3 abbinamenti, se ne vuoi altri puoi aggiungere altre righe.

Provalo e controlla se gli output sono corretti.

Option Explicit
Sub Main
     'Ciclo di 24 Estrazioni Presenze almeno 7
     Dim Ini,fin,fine
     Dim T,r,n,ef,er,k,kk,aRetAbb
     Dim esito,clp,esa,id,minFreq
     Dim aN(3),afreq(3),Ru(1),L(4)
     Ini = EstrazioneFin - 23
     fin = EstrazioneFin
     'fine = EstrazioneFin
     minFreq = 2 ' frequenza minima per selezionare abbinamenti
     Scrivi "Es. Ini " & GetInfoEstrazione(Ini) & vbTab & "Es. Fin " & GetInfoEstrazione(fin)
     T = Array(T," Co ","Ruota","Numero","Presenze","Ritardo","Abbinamenti Num","Freq Abb","Esito","Colpo"," Estratti ","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) ' freq dei 90 numeri
               If ef > 6 Then ' se numero valido  eseguo quanto segue
                    er = EstrattoRitardoTurbo(r,n,Ini,fin)
                    k = k + 1
                    kk = kk + 1
                    ReDim Preserve aNum(k)
                    aNum(k) = n
                    Call Abbinamenti(aNum(k),aRetAbb,Ini,fin,r)
                    aN(1) = aRetAbb(1,1)
                    aN(2) = aRetAbb(2,1)
                    aN(3) = aRetAbb(3,1)
                    afreq(1) = aRetAbb(1,2)
                    afreq(2) = aRetAbb(2,2)
                    afreq(3) = aRetAbb(3,2)
                    '----------------------
                    L(1) = aNum(1)
                    If afreq(1) >= minFreq Then L(2) = aN(1) Else L(2) = " "
                    If afreq(2) >= minFreq Then L(3) = aN(2) Else L(3) = " "
                    If afreq(3) >= minFreq Then L(4) = aN(3) Else L(4) = " " ' aNum(1)
               End If
               If k > 0 Then
                    Call VerificaEsitoTurbo(L,Ru,fin + 1,1,9,,esito,clp,esa,id)
                    T = Array(T,kk,SiglaRuota(r),StringaNumeri(aNum),ef,er,StringaNumeri(aN),StringaNumeri(afreq),esito,clp,esa,id)
                    Call AddRigaTabella(T)
               End If
               k = 0
          Next
     Next
     CreaTabella
End Sub

Saluti