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.
Option Explicit
Sub Main
Dim aruote(10),uscite2(4950,2),uscite3(484950,2)
Dim listapd,es,Inizio,I,RU,P,ES1,ES2,RU2,P2,ritardo,selx,sel,R,fine,Poru,Popo,g,ambi,terni,P1,N1,R1,P3,R3,N3,N2,R2,RU1,RU3
Dim lunga,q,e,nu,ct,Classe,coltot,acol,num,sorte,Retestratti,retidestr,a,b,key,key2,key3,c,nu1,nu2,nu3,cts,det,ctt,retesito,cst
fine = InputBox("Situazione all'estrazione ",,9659)
es = CInt(InputBox("Quante estrazioni vuoi controllare ?",,100))
Classe = InputBox("Sviluppa Lunga in classe",,2)
sorte = InputBox("Sorte 2,3",,2)
det = InputBox("Vuoi elenco dettagliato S/N ",,"N")
Inizio = fine + 1 - es
Scrivi " P.ghio.04 PERIODO Estrazioni Esaminate " & Inizio & " : " & fine,1
For R = 1 To 10
aruote(R) = R
Next
'''ciclo
For es = Inizio To fine
ct = ct + 1
num = 0 : I = 0
Messaggio(es)
ReDim nuMERI(50),anum(50)
For RU = 1 To 10
For P = 1 To 5
nu = Estratto(es,RU,P)
num = num + 1
nuMERI(num) = Format2(nu)
anum(num) = num
Next
Next
lunga = "": q = 0
For e = 1 To 50
If nuMERI(e) > 0 Then
q = q + 1
lunga = lunga & Format2(nuMERI(e)) & "."
End If
Next
' ColoreTesto(0)
' Scrivi es & " qt." & q & " " & lunga,1
ReDim acol2(Classe)
coltot = InitSviluppoIntegrale(anum,Classe)
If coltot > 0 Then
Do While GetCombSviluppo(acol) = True
For g = 1 To Classe
acol2(g) = nuMERI(acol(g))
Next
I = I + 1
Messaggio(es & " / " & I)
Call VerificaEsitoTurbo(acol2,aruote,es + 1,sorte,1,,,,Retestratti,retidestr)
If Retestratti <> "" Then
If Classe = 2 Then
key = Format2(acol(1)) & Format2(acol(2))
uscite2(key,1) = uscite2(key,1) + 1
uscite2(key,2) = key
End If
'''
If Classe = 3 Then
key = Format2(acol(1)) & Format2(acol(2)) & Format2(acol(3))
uscite3(key,1) = uscite3(key,1) + 1
uscite3(key,2) = key
End If
If det = "s" Then
ColoreTesto(1)
Scrivi retidestr & " Pos." & Format2(acol(1)) & " " & Format2(acol(2)) & " Nr. " & StringaNumeri(acol2," ") & " colpo n. " & retidestr - es & " " & Retestratti
ColoreTesto(0)
End If
End If
Loop
End If
Next
Scrivi "Esaminate n.estr." & ct,1
''''''''' per elaborazione coppie o ambi
If Classe = 2 Then
Call OrdinaMatrice(uscite2,- 1,1)
For a = 1 To 4950
If uscite2(a,1) > 0 Then
'''''decodifica ed intercetta nuove in gioco
N1 = "" : N3 = "":RU1 = "" : RU3 = ""
P1 = Int(Left(uscite2(a,2),2)) : P3 = Int(Right(uscite2(a,2),2))
Call ambiattuali(fine,P1,P3,nu1,nu2,RU1,RU3,N1,N3)
'''
Scrivi uscite2(a,2) & " " & uscite2(a,1) & " >>>> " & RU1 & "..." & Format2(N1) & " " & RU3 & "..." & Format2(N3) & " // " & fine & " .. " & Format2(nu1) & "." & Format2(nu2)
ReDim aN(2),aRT(10)
aN(1) = nu1 : aN(2) = nu2 : aRT(1) = 11
Call VerificaEsitoTurbo(aN,aRT,fine + 1,2,,,retesito,,Retestratti,retidestr)
If Retestratti <> "" Then
cts = cts + 1
ColoreTesto(2)
Scrivi "--------->>> " & retidestr & " COLPO N." & retidestr - fine & "..." & Retestratti & " " & retesito,1
ColoreTesto(0)
End If
ambi = ambi + 1
End If
Next
End If
'''' per elaborazione terzine
If Classe = 3 Then
Call OrdinaMatrice(uscite3,- 1,1)
For a = 1 To 484950
If uscite3(a,1) > 0 Then
'''''decodifica ed intercetta nuove in gioco
N1 = "" : N2 = "" : N3 = "":R1 = "" : R2 = "" : R3 = ""
P1 = Int(Left(uscite3(a,2),2)) : P2 = Mid(uscite3(a,2),3,2) : P3 = Int(Right(uscite3(a,2),2))
Call terniattuali(fine,P1,P2,P3,nu1,nu2,nu3,R1,R2,R3,N1,N2,N3)
'''
Scrivi uscite3(a,2) & " " & uscite3(a,1) & " >>>> " & R1 & ".." & Format2(N1) & " " & R2 & ".." & Format2(N2) & " " & R3 & ".." & Format2(N3) & " // " & fine & " .. " & Format2(nu1) & "." & Format2(nu2) & "." & Format2(nu3)
ReDim aN(3),aRT(10)
aN(1) = nu1 : aN(2) = nu2 : aN(3) = nu3 : aRT(1) = 11
Call VerificaEsitoTurbo(aN,aRT,fine + 1,sorte,,,retesito,,Retestratti,retidestr)
If Retestratti <> "" Then
If sorte = 2 Then ctt = ctt + 1
If sorte = 3 Then cst = cst + 1
ColoreTesto(2)
Scrivi "--------->>> " & retidestr & " COLPO N." & retidestr - fine & "..." & Retestratti & "...." & retesito,1
ColoreTesto(0)
End If
Scrivi uscite3(a,2) & " " & uscite3(a,1)
terni = terni + 1
End If
Next
End If
ColoreTesto(1)
Scrivi "Totale ambi " & ambi,1
Scrivi "Ambi Usciti a Tutte negli ultimi 13 concorsi " & cts,1
Scrivi
Scrivi "Totale Terni " & terni,1
Scrivi "Terzine Uscite a Tutte negli ultimi 13 concorsi " & ctt,1
Scrivi "Terni Usciti a Tutte negli ultimi 13 concorsi " & cst,1
Scrivi
Scrivi "Richiesta classe sviluppo " & Classe,1
Scrivi "Richiesta per la sorte " & sorte,1
Scrivi TempoTrascorso,1
End Sub
Function ambiattuali(fine,P1,P3,nu1,nu2,ru1,ru3,N1,N3)
Dim MatriceEstrRitorno,r1,pos,x
Dim cinquanta(50)
nu1 = "":nu2 = "":pos = 0:x = 0
'''
Call GetEstrazioneCompleta(fine,MatriceEstrRitorno)
For r1 = 1 To 10
For pos = 1 To 5
x = x + 1
cinquanta(x) = MatriceEstrRitorno(r1,pos)
Next
Next
nu1 = cinquanta(P1)
nu2 = cinquanta(P3)
If P1 < 6 Then
ru1 = SiglaRuota(1)
N1 = P1
Else
ru1 = SiglaRuota(Int((P1/5) + 1))
If ru1 = "TT" Then ru1 = "VE"
If Int(Right(P1,1)) > 5 Then
N1 = Int(Right(P1,1)) - 5
Else
N1 = Int(Right(P1,1))
End If
If N1 = 0 Then N1 = 5
End If
If P3 < 6 Then
ru3 = SiglaRuota(1)
N3 = P3
Else
ru3 = SiglaRuota(Int((P3/5) + 1))
If ru3 = "TT" Then ru3 = "VE"
If Int(Right(P3,1)) > 5 Then
N3 = Int(Right(P3,1)) - 5
Else
N3 = Int(Right(P3,1))
End If
If N3 = 0 Then N3 = 5
End If
End Function
Function terniattuali(fine,P1,P2,P3,nu1,nu2,nu3,R1,R2,R3,N1,N2,N3)
Dim MatriceEstrRitorno,Rx1,pos,x
Dim cinquanta(50)
nu1 = "":nu2 = "":nu3 = "" : pos = 0:x = 0
'''
Call GetEstrazioneCompleta(fine,MatriceEstrRitorno)
For Rx1 = 1 To 10
For pos = 1 To 5
x = x + 1
cinquanta(x) = MatriceEstrRitorno(Rx1,pos)
Next
Next
nu1 = cinquanta(P1)
nu2 = cinquanta(P2)
nu3 = cinquanta(P3)
If P1 < 6 Then
R1 = SiglaRuota(1)
N1 = P1
Else
R1 = SiglaRuota(Int((P1/5) + 1))
If R1 = "TT" Then R1 = "VE"
If Int(Right(P1,1)) > 5 Then
N1 = Int(Right(P1,1)) - 5
Else
N1 = Int(Right(P1,1))
End If
If N1 = 0 Then N1 = 5
End If
''''
If P2 < 6 Then
R2 = SiglaRuota(1)
N2 = P2
Else
R2 = SiglaRuota(Int((P2/5) + 1))
If R2 = "TT" Then R2 = "VE"
If Int(Right(P2,1)) > 5 Then
N2 = Int(Right(P2,1)) - 5
Else
N2 = Int(Right(P2,1))
End If
If N2 = 0 Then N2 = 5
End If
''''
If P3 < 6 Then
R3 = SiglaRuota(1)
N3 = P3
Else
R3 = SiglaRuota(Int((P3/5) + 1))
If R3 = "TT" Then R3 = "VE"
If Int(Right(P3,1)) > 5 Then
N3 = Int(Right(P3,1)) - 5
Else
N3 = Int(Right(P3,1))
End If
If N3 = 0 Then N3 = 5
End If
End Function
26-08-2019, 20:18
prova per ambo secco
validità 13 colpi max
torino e Tutte
ambi secchi 69 80 - 77 27 - 66 65 - 57 65 - 84 65 - 87 80 - 39 65
Somma 25 79.23.13 79.23.13//
Somma 25 71.13.49 71.13.49//
Somma 25 21.56.65 21.56.65//
Somma 25 52.84.06 52.84.06//
Somma 25 76.21.27 76.21.27//
Somma 25 29.73.13 29.73.13//
Somma 25 69.06.40 69.06.40//
Somma 25 19.27.06 19.27.06//
Somma 25 53.06.65 53.06.65//
Somma 25 39.16.06 39.16.06//
Somma 25 39.40.27 39.40.27//
Somma 25 52.39.06 52.39.06//
Somma 25 24.69.13 24.69.13//
Somma 25 57.27.13 57.27.13//
Somma 25 24.67.06 24.67.06//
Somma 24 76.52.13 76.52.13//
Somma 24 69.23.13 69.23.13//
Somma 24 77.13.06 77.13.06//
Somma 24 52.27.80 52.27.80//
Somma 24 40.79.13 40.79.13//
Somma 24 87.14.13 87.14.13//
Somma 24 19.23.27 19.23.27//
Somma 24 81.40.65 81.40.65//
Somma 24 76.23.06 76.23.06//
Somma 24 67.23.06 67.23.06//
Somma 24 53.52.27 53.52.27//
Somma 24 52.13.49 52.13.49//
Somma 24 52.65.06 52.65.06//
Somma 24 69.23.13 69.23.13//
Somma 24 81.16.80 81.16.80//
Somma 24 76.52.13 76.52.13//
Somma 24 16.06.65 16.06.65//
Somma 24 66.71.13 66.71.13//
Somma 24 55.80.06 55.80.06//
Somma 24 32.69.13 32.69.13//