Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
LuigiB;n1966673 ha scritto:ragazzi buona Pasqua a tutti ..
nel frattempo chi mi puo verificare se queste sono le combinazioni piu ritardate nel periodo analizzato che si vede nell'immagine stessa
Ciao
Cordiali saluti
Saluti a tutte/i.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(n) = 1
'inizia la ricerca dei numeri
Do
fine = 1
n = n + 1
numeri(n) = 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(n) > maxnumero(n) Then
Do
n = n - 1
If n = 0 Then
fine = 0
Exit Do
End If
numeri(n) = numeri(n) + 1
If ScriptInterrotto Then Exit Do
Loop Until numeri(n) <= maxnumero(n)
'''''
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(n))
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(n) = numeri(n) + 1
Else
fineciclo = 0
End If
Else
numeri(n) = numeri(n) + 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
sul faccino.
Joe91;n1966508 ha scritto:Ciao Surmang,
Si sono giuste con archivio aggiornato al 22/03/2016.
Come detto ... NON più attuali, con la caduta a Napoli
dell' Ambo 18.88 in data 24/03/2016.
