Buon giorno Beppignello
volevo segnalare due lunghette da 26 numeri sulla ruota di Torino con ritardo ambo da 65 estrazioni,
3-4-6-8-11-13-14-16-18-22-27-30-32-33-38-41-57-58-60-65-68-74-78-79-87-90
2-3-6-8-11-13-14-16-18-20-27-28-30-32-33-37-38-41-51-58-60-62-65-74-85-87
volevo sapere se con questo script facendo delle modifiche posso trovare delle lunghette da 26 numeri
superiore alle mie, se non ricordo male questo script lavora su tutte le ruote cercando lunghette con ritardo minimo,
nel mio caso mi serve trovare lunghette con il ritardo massimo.
Option Explicit
Sub Main
''''''' variante e modifica 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
Dim numeri(90),maxnumero(90),ruote(11),comb(9999,2),minim(90,90)
'''''input
finale = InputBox("Estrazione n.",,EstrazioneFin)
numericercati = CInt(InputBox("Lunghetta di n.",,10))
s = CInt(InputBox("Sorte lunghetta ",,2)) '''''' sorte 2 (ambo) 3 (Terno)
rmin = "0.0.200.140.75.65.45.40.38.35.24.23.20.17.15.15.12.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,Fino a 11 numeri(tempi 1 minuti circa,oltre durata 'n ore').." & 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
comb(cz,2) = StringaNumeri(numeri,".")
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 "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 "Ritardo Freq. Ritardi Attuali 1°Capogioco 2° Capogioco Combinazione Lunghetta ",1
If numericercati <> 2 Then Scrivi "Ritardo Freq. 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,1) <> " " Then Scrivi comb(v,1) & " " & comb(v,2),1
Next
End If
Scrivi:Scrivi:Scrivi "Totale Combinazioni...." & v - 1,1
ColoreTesto(2)
Scrivi "Tempo elaborazione.." & Inizio & " : " & TimeValue(Time),1
End Sub
un saluto
edesimone
