Mi hai dato questo script in un post ma ti chiedo:
Fa vedere solo le formazioni sfaldate? Non quelle ancora in gioco o sbaglio?
A me serviva avere anche quelle in gioco che non hanno dato ancora esito, puoi postarlo? Grazie
Option Explicit
Sub Main
''''''' B E P P I G N E L L O
Dim numericercati,n,i,fine,fineciclo,xl,s,finale,retrit,retritmax,r,ct,w,rmin,j,jk,ia,k,xt,AmbiRitardovalido,ritardoattuale,rminn,cz,v
Dim RetIncrRitMax,RetFre,Inizio,Iniz,Ini,pj,n2,rt,o,Primirit,RUo,lu,jj,f,retestratti,retidestr
Dim numeri(90),maxnumero(90),ruote(11),comb(999999,5),minim(90,90),ru(1)
'''''input
finale = InputBox("Estrazione n.",,EstrazioneFin)
numericercati = CInt(InputBox("Lunghetta di n.",,5))
s = CInt(InputBox("Sorte lunghetta ",,2))
rmin = "0.0.50.45.40.30.25.25.23.19.18.18.17.15.15.1 2.12.11.11.9.9.9.8.7.6.5.5.5.5.5"
Inizio = TimeValue(Time)
ReDim maxmax(30)
Call SplitByChar(rmin,".",maxmax)
'''''10 ruote
For r = 1 To 11
ruote(r) = r
Next
''''''''numeri
For i = 1 To numericercati
maxnumero(i) = 90 + i - numericercati
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''
'''' 'memorizza il ritardo minimo dei 4005 ambi sulle ruote individuate
For ia = 1 To 89
For j =(ia + 1) To 90
minim(ia,j) = AmboRitardoTurbo(11,ia,j,EstrazioneIni,finale)
xt = xt + 1
Messaggio(xt & " - " & numericercati)
Next
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''
n = 1
numeri
= 1
'inizia la ricerca dei numeri
Do
fine = 1
n = n + 1
numeri = numeri(n - 1) + 1
xl = xl + 1
Messaggio("Attendere,per classi >5 tempi lunghi di elab.." & xl)
' Call AvanzamentoElab(1,99,xl)
If ScriptInterrotto Then Exit Do
Do
If ScriptInterrotto Then Exit Do
If numeri > maxnumero Then
Do
n = n - 1
If n = 0 Then
fine = 0
Exit Do
End If
numeri = numeri + 1
If ScriptInterrotto Then Exit Do
Loop Until numeri <= maxnumero
'''''
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''
''''' per la sorte delL'AMBO valorizza ritardo ed esclude lunghetta se il ritardo minore del minimo
If n > 1 Then
fineciclo = 1
AmbiRitardovalido = 0
For jk = 1 To(n - 1)
ritardoattuale = minim(numeri(jk),numeri)
If Int(ritardoattuale) < Int(maxmax(numericercati)) Then
Exit For
Else
AmbiRitardovalido = AmbiRitardovalido + 1
End If
Next
If AmbiRitardovalido =(n - 1) Then
If n = numericercati Then
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''
''''''trova per i 2 capogiochi i primi ambi ritardatari
If s = 2 And numericercati = 2 Then
Iniz = EstrazioneIni
Ini = finale
Primirit = " | "
For pj = 1 To 2
ReDim rita(90,2)
For n2 = 1 To 90
If Int(numeri(pj)) <> Int(n2) Then
rt = AmboRitardoTurbo(11,numeri(pj),n2,Iniz,Ini)
rita(n2,1) = FormattaStringa(rt,"000")
rita(n2,2) = n2
End If
Next
Call OrdinaMatrice(rita,- 1,1)
For o = 1 To 6
If rita(o,1) <> "" Then
Primirit = Primirit & rita(o,1) & "-"
End If
Next
Primirit = Primirit & " |"
Next
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''
Call StatisticaFormazioneTurbo(numeri,ruote,s,retrit,retritmax,RetIncrRitMax,RetFre,EstrazioneIni,finale)
cz = cz + 1
comb(cz,1) = FormattaStringa(retrit,"0000") & " / " & FormattaStringa(retritmax,"0000") & " " & Format2(RetFre) & " " & Primirit
lu = ""
For jj = 1 To n
lu = lu & Format2(numeri(jj)) & "."
Next
comb(cz,2) = lu
comb(cz,5) = 9999
'''LOOP 10 RUOTE x trovare sulle 10 ruote quelle con retrit>=retritmax
For RUo = 1 To 10
ru(1) = RUo
Call StatisticaFormazioneTurbo(numeri,ru,s,retrit,retritmax,RetIncrRitMax,RetFre,EstrazioneIni,finale)
If retrit >= retritmax Then
comb(cz,3) = comb(cz,3) & SiglaRuota(ru(1)) & "-"
comb(cz,4) = comb(cz,4) + 1
If retrit < comb(cz,5) Then
comb(cz,5) = FormattaStringa(retrit,"0000")
End If
End If
Next
'''''''''
numeri = numeri + 1
Else
fineciclo = 0
End If
Else
numeri = numeri + 1
fineciclo = 1
End If
Else
fineciclo = 0
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''
If fine = 0 Then Exit Do End If
Loop Until fineciclo = 0
Loop Until fine = 0
ColoreTesto(2)
Scrivi "BEPxBYRON-5 ---- Combinazioni per ambo a Tutte e/o su Ruota aventi ritardo al Top",1
Scrivi "Lunghette con ritardo minimo " & maxmax(numericercati) & " Sviluppate in classe = " & numericercati & " Per la sorte di.." & s,1
Scrivi "da rilevazione a Tutte......." & finale & " / " & DataEstrazione(finale),1
If numericercati = 2 Then Scrivi "RC RX Freq. Ritardi Attuali 1°Capogioco 2° Capogioco Combinazione Lunghetta ",1
If numericercati <> 2 Then Scrivi "RcTT RxTT Frq. Combinazione Lunghetta ",1
Call OrdinaMatrice(comb,- 1,1)
ColoreTesto(0)
If cz = 0 Then
Scrivi " NEssuna combinazione nel ritardo minimo di " & maxmax(numericercati),1
Else
For v = 1 To cz
If comb(v,4) > 2 Then
If comb(v,1) <> " " Then Scrivi comb(v,1) & " " & comb(v,2) & " Rmin. " & comb(v,5) & " " & comb(v,4) & "- Ruote.." & comb(v,3),1
'''verificaesito
ReDim nm(10),nur(10)
Call SplitByChar(comb(v,2),".",nm)
For f = 0 To numericercati - 1
nur(f + 1) = nm(f)
Next
Call VerificaEsitoTurbo(nur,ruote,finale + 1,s,,,,,retestratti,retidestr)
If retestratti <> "" Then
ColoreTesto(2)
Scrivi "---------- " & retidestr & ":.." & retestratti,1
ColoreTesto(0)
End If
End If
Next
End If
Scrivi:Scrivi:Scrivi "Totale Combinazioni...." & v - 1,1
ColoreTesto(2)
Scrivi "Tempo elaborazione.." & TempoTrascorso,1
End Sub
Fa vedere solo le formazioni sfaldate? Non quelle ancora in gioco o sbaglio?
A me serviva avere anche quelle in gioco che non hanno dato ancora esito, puoi postarlo? Grazie
Option Explicit
Sub Main
''''''' B E P P I G N E L L O
Dim numericercati,n,i,fine,fineciclo,xl,s,finale,retrit,retritmax,r,ct,w,rmin,j,jk,ia,k,xt,AmbiRitardovalido,ritardoattuale,rminn,cz,v
Dim RetIncrRitMax,RetFre,Inizio,Iniz,Ini,pj,n2,rt,o,Primirit,RUo,lu,jj,f,retestratti,retidestr
Dim numeri(90),maxnumero(90),ruote(11),comb(999999,5),minim(90,90),ru(1)
'''''input
finale = InputBox("Estrazione n.",,EstrazioneFin)
numericercati = CInt(InputBox("Lunghetta di n.",,5))
s = CInt(InputBox("Sorte lunghetta ",,2))
rmin = "0.0.50.45.40.30.25.25.23.19.18.18.17.15.15.1 2.12.11.11.9.9.9.8.7.6.5.5.5.5.5"
Inizio = TimeValue(Time)
ReDim maxmax(30)
Call SplitByChar(rmin,".",maxmax)
'''''10 ruote
For r = 1 To 11
ruote(r) = r
Next
''''''''numeri
For i = 1 To numericercati
maxnumero(i) = 90 + i - numericercati
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''
'''' 'memorizza il ritardo minimo dei 4005 ambi sulle ruote individuate
For ia = 1 To 89
For j =(ia + 1) To 90
minim(ia,j) = AmboRitardoTurbo(11,ia,j,EstrazioneIni,finale)
xt = xt + 1
Messaggio(xt & " - " & numericercati)
Next
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''
n = 1
numeri
= 1'inizia la ricerca dei numeri
Do
fine = 1
n = n + 1
numeri
= numeri(n - 1) + 1xl = xl + 1
Messaggio("Attendere,per classi >5 tempi lunghi di elab.." & xl)
' Call AvanzamentoElab(1,99,xl)
If ScriptInterrotto Then Exit Do
Do
If ScriptInterrotto Then Exit Do
If numeri
> maxnumero ThenDo
n = n - 1
If n = 0 Then
fine = 0
Exit Do
End If
numeri
= numeri + 1If ScriptInterrotto Then Exit Do
Loop Until numeri
<= maxnumero'''''
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''
''''' per la sorte delL'AMBO valorizza ritardo ed esclude lunghetta se il ritardo minore del minimo
If n > 1 Then
fineciclo = 1
AmbiRitardovalido = 0
For jk = 1 To(n - 1)
ritardoattuale = minim(numeri(jk),numeri
)If Int(ritardoattuale) < Int(maxmax(numericercati)) Then
Exit For
Else
AmbiRitardovalido = AmbiRitardovalido + 1
End If
Next
If AmbiRitardovalido =(n - 1) Then
If n = numericercati Then
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''
''''''trova per i 2 capogiochi i primi ambi ritardatari
If s = 2 And numericercati = 2 Then
Iniz = EstrazioneIni
Ini = finale
Primirit = " | "
For pj = 1 To 2
ReDim rita(90,2)
For n2 = 1 To 90
If Int(numeri(pj)) <> Int(n2) Then
rt = AmboRitardoTurbo(11,numeri(pj),n2,Iniz,Ini)
rita(n2,1) = FormattaStringa(rt,"000")
rita(n2,2) = n2
End If
Next
Call OrdinaMatrice(rita,- 1,1)
For o = 1 To 6
If rita(o,1) <> "" Then
Primirit = Primirit & rita(o,1) & "-"
End If
Next
Primirit = Primirit & " |"
Next
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''
Call StatisticaFormazioneTurbo(numeri,ruote,s,retrit,retritmax,RetIncrRitMax,RetFre,EstrazioneIni,finale)
cz = cz + 1
comb(cz,1) = FormattaStringa(retrit,"0000") & " / " & FormattaStringa(retritmax,"0000") & " " & Format2(RetFre) & " " & Primirit
lu = ""
For jj = 1 To n
lu = lu & Format2(numeri(jj)) & "."
Next
comb(cz,2) = lu
comb(cz,5) = 9999
'''LOOP 10 RUOTE x trovare sulle 10 ruote quelle con retrit>=retritmax
For RUo = 1 To 10
ru(1) = RUo
Call StatisticaFormazioneTurbo(numeri,ru,s,retrit,retritmax,RetIncrRitMax,RetFre,EstrazioneIni,finale)
If retrit >= retritmax Then
comb(cz,3) = comb(cz,3) & SiglaRuota(ru(1)) & "-"
comb(cz,4) = comb(cz,4) + 1
If retrit < comb(cz,5) Then
comb(cz,5) = FormattaStringa(retrit,"0000")
End If
End If
Next
'''''''''
numeri
= numeri + 1Else
fineciclo = 0
End If
Else
numeri
= numeri + 1fineciclo = 1
End If
Else
fineciclo = 0
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''
If fine = 0 Then Exit Do End If
Loop Until fineciclo = 0
Loop Until fine = 0
ColoreTesto(2)
Scrivi "BEPxBYRON-5 ---- Combinazioni per ambo a Tutte e/o su Ruota aventi ritardo al Top",1
Scrivi "Lunghette con ritardo minimo " & maxmax(numericercati) & " Sviluppate in classe = " & numericercati & " Per la sorte di.." & s,1
Scrivi "da rilevazione a Tutte......." & finale & " / " & DataEstrazione(finale),1
If numericercati = 2 Then Scrivi "RC RX Freq. Ritardi Attuali 1°Capogioco 2° Capogioco Combinazione Lunghetta ",1
If numericercati <> 2 Then Scrivi "RcTT RxTT Frq. Combinazione Lunghetta ",1
Call OrdinaMatrice(comb,- 1,1)
ColoreTesto(0)
If cz = 0 Then
Scrivi " NEssuna combinazione nel ritardo minimo di " & maxmax(numericercati),1
Else
For v = 1 To cz
If comb(v,4) > 2 Then
If comb(v,1) <> " " Then Scrivi comb(v,1) & " " & comb(v,2) & " Rmin. " & comb(v,5) & " " & comb(v,4) & "- Ruote.." & comb(v,3),1
'''verificaesito
ReDim nm(10),nur(10)
Call SplitByChar(comb(v,2),".",nm)
For f = 0 To numericercati - 1
nur(f + 1) = nm(f)
Next
Call VerificaEsitoTurbo(nur,ruote,finale + 1,s,,,,,retestratti,retidestr)
If retestratti <> "" Then
ColoreTesto(2)
Scrivi "---------- " & retidestr & ":.." & retestratti,1
ColoreTesto(0)
End If
End If
Next
End If
Scrivi:Scrivi:Scrivi "Totale Combinazioni...." & v - 1,1
ColoreTesto(2)
Scrivi "Tempo elaborazione.." & TempoTrascorso,1
End Sub
