vinci
Super Member >GOLD<
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
'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
Ultima modifica:
