Novità

Estrazione del Lotto

Su LottoCED puoi seguire le estrazioni del lotto in diretta tra

Per salvo50 o altri esperti sos x correzione script

Matematico

Advanced Member
Ciao salvo50 ...ciao a tutti , io ho spaziometria 1.6.34 e i lseguente script mi dà il seguente errore i nquesta linea :
Set cAmbo = CollAmbi(s)

Option Explicit
Class clsAmbo
Private aNum(2)
Private aCicli()
Private bUsato
Private QcicliCopertiSeUsato
Private sBit
Property Get Bit
Bit = sBit
End Property
Property Let Usato(b)
bUsato = b
End Property
Property Get Usato
Usato = bUsato
End Property
Property Let QCicli(v)
ReDim aCicli(v)
End Property
Property Get QCicliCopertiSeInUso
QCicliCopertiSeInUso = QcicliCopertiSeUsato
End Property
Property Get QuantitaCicliRapp
Dim k,q
q = 0
For k = 1 To UBound(aCicli)
If aCicli(k) <> 0 Then
q = q + 1
End If
Next
QuantitaCicliRapp = q
End Property
Sub SetFlagCiclo(id,b)
aCicli(id) = b
End Sub
Function GetFlagCiclo(id)
GetFlagCiclo = aCicli(id)
End Function
Sub SetNumero(id,v)
aNum(id) = v
End Sub
Function GetNumeriString
GetNumeriString = StringaNumeri(aNum,,True)
End Function
Sub GetNumeri(aRet)
Dim k
ReDim aRet(UBound(aNum))
For k = 1 To UBound(aNum)
aRet(k) = aNum(k)
Next
End Sub
Sub AggiornaCicliCoperti
Dim k
sBit = ""
QcicliCopertiSeUsato = QuantitaCicliRapp
For k = 1 To UBound(aCicli)
If aCicli(k) <> 0 Then
sBit = sBit & "X"
Else
sBit = sBit & " "
End If
Next
End Sub
End Class
Sub Main
Dim CollAmbi,CollAmbiTrov
Dim Inizio,Fine,nTotNelRange
Dim nLenCiclo,qCicli
Dim idCiclo,k
Dim Ruota
Dim cAmbo
Dim nTrovati
ReDim aRuote(1)
ReDim aPoste(2)
nTrovati = 0
Ruota = ScegliRuota
nLenCiclo = CInt(InputBox("Colpi di gioco","Colpi","12"))
aRuote(1) = Ruota
aPoste(2) = 1
Inizio = EstrazioneIni
Fine = EstrazioneFin
nTotNelRange =(Fine + 1) - Inizio
If nTotNelRange Mod nLenCiclo = 0 Then
qCicli = nTotNelRange /nLenCiclo
Else
qCicli =((nTotNelRange -(nTotNelRange Mod nLenCiclo)) /nLenCiclo) + 1
End If
Call InitCollAmbi(CollAmbi,qCicli)
ReDim aCicli(qCicli,2) ' indice 0 InizioCiclo , Indice 1 Fine Ciclo , Indice 2 <> da 0 se coperto
Call GestioneRicercaAmbi(qCicli,aCicli,CollAmbi,nLenCiclo,Inizio,Fine,Ruota,nTrovati)
Call GestioneIntstazioneOutput(qCicli,Ruota,Inizio,Fine,nLenCiclo,nTrovati,CollAmbi)
Call GestioneQuadroCopertura(qCicli,aCicli,CollAmbi,nTrovati)
Call GestioneAnalisiGiocate(qCicli,aCicli,CollAmbi,aRuote,aPoste,nLenCiclo)
End Sub
Sub GestioneRicercaAmbi(qCicli,aCicli,collAmbi,nLenCiclo,Inizio,Fine,Ruota,nTrovati)
Dim idCiclo,k
Dim cAmbo
nTrovati = 0
ReDim aCicli(qCicli,2) ' indice 0 InizioCiclo , Indice 1 Fine Ciclo , Indice 2 <> da 0 se coperto
Call InitACicli(aCicli,nLenCiclo,Inizio)
Do
For idCiclo = 1 To qCicli
If aCicli(idCiclo,2) = 0 Then
For k = aCicli(idCiclo,0) To aCicli(idCiclo,1)
Call AggiornaAmbiUsciti(collAmbi,Ruota,k,idCiclo)
Next
End If
Call AvanzamentoElab(1,qCicli,idCiclo)
If ScriptInterrotto Then Exit Sub
Next
Call GetAmboConPiuCopertura(cAmbo,collAmbi)
If Not cAmbo Is Nothing Then
nTrovati = nTrovati + 1
cAmbo.Usato = True
Call cAmbo.AggiornaCicliCoperti
For idCiclo = 1 To qCicli
If cAmbo.GetFlagCiclo(idCiclo) <> 0 Then
aCicli(idCiclo,2) = 1
End If
Next
Else
Exit Do
End If
Call Messaggio("Ambi trovati " & nTrovati)
Call AzzeraCopertura(collAmbi,qCicli)
If ScriptInterrotto Then Exit Sub
Loop While IsScoperto(aCicli,qCicli)
End Sub
Sub GestioneAnalisiGiocate(qCicli,aCicli,CollAmbi,aRuote,aPoste,nLenCiclo)
Dim idCiclo,k
Dim cAmbo
Call Messaggio("Analisi Giocate")
For idCiclo = 1 To qCicli
k = 0
For Each cAmbo In CollAmbi
If cAmbo.usato Then
k = k + 1
ReDim aNum(0)
Call cAmbo.GetNumeri(aNum)
Call ImpostaGiocata(k,aNum,aRuote,aPoste,nLenCiclo,2,,1)
'Call Scrivi(StringaNumeri(aNum))
End If
Next
Call Gioca(aCicli(idCiclo,0) - 1,True)
Call AvanzamentoElab(1,qCicli,idCiclo)
If ScriptInterrotto Then Exit Sub
Next
Call ScriviResoconto
End Sub
Sub GestioneQuadroCopertura(qCicli,aCicli,CollAmbi,nTrovati)
Dim cAmbo
Dim idCiclo,k
Dim sTmp
Dim sRigaBit
Call Scrivi("Quadro copertura ambi")
ReDim aT(3 + qCicli)
aT(1) = " N. "
aT(2) = " Ambo "
aT(3) = " Cicli coperti "
For k = 1 To qCicli
aT(k + 3) = aCicli(k,0) & "-" & aCicli(k,1)
Next
Call Messaggio("Creazione tabella copertura")
Call InitTabella(aT)
ReDim aLineeBit(nTrovati)
nTrovati = 0
For Each cAmbo In CollAmbi
If cAmbo.usato Then
nTrovati = nTrovati + 1
aLineeBit(nTrovati) = cAmbo.Bit
ReDim aT(3 + qCicli)
aT(1) = nTrovati
aT(2) = cAmbo.GetNumeriString
aT(3) = cAmbo.QCicliCopertiSeInUso
For k = 1 To qCicli
aT(k + 3) = Mid(cAmbo.Bit,k,1)
Next
ReDim aColoreCelle(UBound(aT))
Call ImpostaArrayColoreCelle(aColoreCelle,aT)
Call AddRigaTabella(aT,aColoreCelle)
End If
If ScriptInterrotto Then Exit Sub
Next
sRigaBit = ""
For idCiclo = 1 To qCicli
sTmp = "-"
For k = 1 To UBound(aLineeBit)
If Mid(aLineeBit(k),idCiclo,1) = "X" Then
sTmp = "X"
Exit For
End If
Next
sRigaBit = sRigaBit & sTmp
Next
'Call Scrivi(Space(20) & sRigaBit)
ReDim aT(3 + qCicli)
For k = 1 To qCicli
aT(k + 3) = Mid(sRigaBit,k,1)
Next
ReDim aColoreCelle(UBound(aT))
Call ImpostaArrayColoreCelle(aColoreCelle,aT)
Call AddRigaTabella(aT,aColoreCelle)
Call CreaTabella
End Sub
Sub GestioneIntstazioneOutput(qCicli,Ruota,Inizio,Fine,nLenCiclo,nTrovati,Collambi)
Dim sTmp
Dim cAmbo
Call Scrivi(String(100,"."))
Call Scrivi("Ruota : " & NomeRuota(Ruota))
Call Scrivi("Periodo : " & GetInfoEstrazione(Inizio) & " - " & GetInfoEstrazione(Fine))
Call Scrivi("Colpi per singolo attacco : " & nLenCiclo)
Call Scrivi("Totale attacchi : " & qCicli)
Call Scrivi
Call Scrivi(Space(20) & "Descrizione del gioco",True)
Call Scrivi("Giocando i seguenti " & nTrovati & " ambi impostando il gioco in " & nLenCiclo & " colpi di gioco")
Call Scrivi("per ogni attacco e interrompendo alla prima vincita per riprenderlo")
Call Scrivi("con l'attacco successivo previsto al termine naturale dell'attacco")
Call Scrivi("in corso si sarebbero ottenuti i seguenti risutati di gioco")
Call Scrivi("Attenzione non è detto che giocando questa serie di ambi nelle estrazioni",,,,vbRed)
Call Scrivi("successive a quelle esaminate si otttenga per certo la vincita",,,,vbRed)
Call Scrivi(String(100,"."))
Call Scrivi()
sTmp = ""
For Each cAmbo In Collambi
If cAmbo.usato Then
sTmp = sTmp &(cAmbo.GetNumeriString) & ","
End If
Next
sTmp = Left(sTmp,Len(sTmp) - 1)
Call Scrivi("Ambi in gioco : " & sTmp)
Call Scrivi(String(100,"."))
Call Scrivi()
End Sub
Sub ImpostaArrayColoreCelle(aColoreCelle,aT)
Dim k
For k = 1 To UBound(aT)
If aT(k) = "X" Then
aColoreCelle(k) = vbGreen
Else
aColoreCelle(k) = vbWhite
End If
Next
End Sub
Sub AggiornaRigheBuf(aRighe,nInizio,nFine,idCiclo)
Dim k
Dim sChr
Dim sTmp
sTmp = FormatSpace(nInizio,4,True)
For k = 1 To 4
sChr = Mid(sTmp,k,1)
Call InsCar(aRighe(k),sChr,idCiclo)
Next
sTmp = FormatSpace(nFine,4,True)
For k = 6 To 9
sChr = Mid(sTmp,k - 5,1)
Call InsCar(aRighe(k),sChr,idCiclo)
Next
End Sub
Sub InsCar(sRiga,sChr,nPos)
Dim sLeft
Dim sRight
sLeft = Left(sRiga,nPos - 1)
sRight = Mid(sRiga,nPos + 1)
sRiga = sLeft & sChr & sRight
End Sub
Function IsScoperto(aCicli,qCicli)
Dim k,b
b = False
For k = 1 To qCicli
If aCicli(k,2) = 0 Then
b = True
Exit For
End If
Next
IsScoperto = b
End Function
Sub AzzeraCopertura(CollAmbi,qCicli)
Dim cAmbo
For Each cAmbo In CollAmbi
cAmbo.qCicli = qCicli
Next
End Sub
Sub GetAmboConPiuCopertura(cAmbo,CollAmbi)
Dim cAmboTmp
Dim nMax,n
nMax = 0
For Each cAmboTmp In CollAmbi
n = cAmboTmp.QuantitaCicliRapp
If n >= nMax Then
nMax = n
Set cAmbo = cAmboTmp
End If
Next
End Sub
Sub AggiornaAmbiUsciti(CollAmbi,Ruota,idEstr,idCiclo)
Dim k,kk,s
Dim cAmbo
ReDim aNum(0)
If GetArrayNumeriRuota(idEstr,Ruota,aNum) Then
Call OrdinaMatrice(aNum,1)
For k = 1 To 4
For kk = k + 1 To 5
s = "k" & Format2(aNum(k)) & "-" & Format2(aNum(kk))
Set cAmbo = CollAmbi(s) ------------------------------------------------------mi dà Errore In questa riga
Call cAmbo.SetFlagCiclo(idCiclo,1)
Next
Next
End If
End Sub
Sub InitACicli(aCicli,nLenCiclo,Inizio)
Dim k
Dim nStart
nStart = Inizio
For k = 1 To UBound(aCicli)
aCicli(k,2) = 0
aCicli(k,0) = nStart
aCicli(k,1) =(nStart - 1) + nLenCiclo
nStart = aCicli(k,1) + 1
Next
End Sub
Sub InitCollAmbi(CollAmbi,qCicli)
' sistemi che generano un elevato numero di combinazioni
Dim k,e,s
Dim nClasse
ReDim aNumeri(90)
Dim aColonne
Dim cAmbo
Set CollAmbi = GetNewCollection
nClasse = 2 ' sviluppo in ambi
' inizializzo i numeri da sviluppare in questo caso 90
' ma potrebbero essere anche di meno
For k = 1 To 90
aNumeri(k) = k
Next
' sviluppo il sistema valorizzando le colonne sviluppate
aColonne = SviluppoIntegrale(aNumeri,nClasse)
' scrivo le colonne in output
For k = 1 To UBound(aColonne)
Set cAmbo = New clsAmbo
cAmbo.qCicli = qCicli
s = "k"
' ciclo per leggere la colonna k
For e = 1 To nClasse
Call cAmbo.SetNumero(e,aColonne(k,e))
s = s & Format2(aColonne(k,e)) & "-"
Next
' tolgo l'ultimo trattino
s = Left(s,Len(s) - 1)
Call CollAmbi.Add(cAmbo,s)
Next
End Sub
 
Ultima modifica:

*blacklotto*

Senior Member
... strano che nella versione 1.6.26 no

Quadro copertura ambi

N.​
Ambo​
Cicli coperti​
9800-9811​
9812-9823​
9824-9835​
9836-9847​
1​
49.88​
3​
X​
X​
X​
2​
84.85​
1​
X​
X​
X​
X​
X​



Estrazione generatrice del pronostico 09799 [ 88 - 25/07/2020]
G 0001 Numeri in gioco : 49.88 su BA per Ambo

V N. [49.88 ] [BA] [.. 88 49 .. ..] C. 5 Ambo 09804 [ 93 - 06/08/2020]
Interrotta per esito verificato

G 0002 Numeri in gioco : 84.85 su BA per Ambo
Estrazione generatrice del pronostico 09811 [100 - 22/08/2020]
G 0001 Numeri in gioco : 49.88 su BA per Ambo
G 0002 Numeri in gioco : 84.85 su BA per Ambo

V N. [84.85 ] [BA] [85 84 .. .. ..] C. 10 Ambo 09821 [110 - 15/09/2020]
Interrotta per esito verificato

Estrazione generatrice del pronostico 09823 [112 - 19/09/2020]
G 0001 Numeri in gioco : 49.88 su BA per Ambo

V N. [49.88 ] [BA] [.. 49 .. .. 88] C. 8 Ambo 09831 [120 - 08/10/2020]
Interrotta per esito verificato

G 0002 Numeri in gioco : 84.85 su BA per Ambo
Estrazione generatrice del pronostico 09835 [124 - 17/10/2020]
G 0001 Numeri in gioco : 49.88 su BA per Ambo

V N. [49.88 ] [BA] [88 .. .. .. 49] C. 4 Ambo 09839 [128 - 27/10/2020]
Interrotta per esito verificato

G 0002 Numeri in gioco : 84.85 su BA per Ambo
 

Master

Advanced Member >GOLD<
Ciao
Qua trovi la soluzione

 

Matematico

Advanced Member
Ciao
Qua trovi la soluzione

Ciao Master, grazie1000
 

*blacklotto*

Senior Member
Ciao blacklotto , non sò che dirti ma ti chiedo se sai come correggere la riga dove mi dà errore grazie.

Credimi, non ho fatto nulla, l'ho copiato, incollato e fatto partire. Tutto qui.

RESOCONTO

....................................................................................................
Ruota : Bari
Periodo : [09500] [ 85] 17.07.2018 - [09846] [136] 12.11.2020
Colpi per singolo attacco : 12
Totale attacchi : 29

Descrizione del gioco
Giocando i seguenti 8 ambi impostando il gioco in 12 colpi di gioco
per ogni attacco e interrompendo alla prima vincita per riprenderlo
con l'attacco successivo previsto al termine naturale dell'attacco
in corso si sarebbero ottenuti i seguenti risutati di gioco
Attenzione non è detto che giocando questa serie di ambi nelle estrazioni
successive a quelle esaminate si otttenga per certo la vincita
....................................................................................................

Ambi in gioco : 09.20,20.78,26.61,43.72,49.90,51.78,63.81,71.84
....................................................................................................

Quadro copertura ambi

N.​
Ambo​
Cicli coperti​
9500-9511​
9512-9523​
9524-9535​
9536-9547​
9548-9559​
9560-9571​
9572-9583​
9584-9595​
9596-9607​
9608-9619​
9620-9631​
9632-9643​
9644-9655​
9656-9667​
9668-9679​
9680-9691​
9692-9703​
9704-9715​
9716-9727​
9728-9739​
9740-9751​
9752-9763​
9764-9775​
9776-9787​
9788-9799​
9800-9811​
9812-9823​
9824-9835​
9836-9847​
1​
09.20​
4​
X​
X​
X​
X​
2​
20.78​
3​
X​
X​
X​
3​
26.61​
3​
X​
X​
X​
4​
43.72​
2​
X​
X​
5​
49.90​
5​
X​
X​
X​
X​
X​
6​
51.78​
5​
X​
X​
X​
X​
X​
7​
63.81​
4​
X​
X​
X​
X​
8​
71.84​
3​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​



Estrazione generatrice del pronostico 09499 [ 84 - 14/07/2018]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo

V N. [63.81 ] [BA] [63 81 .. .. ..] C. 1 Ambo 09500 [ 85 - 17/07/2018]
Interrotta per esito verificato

G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09511 [ 96 - 11/08/2018]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo

V N. [26.61 ] [BA] [.. 61 26 .. ..] C. 6 Ambo 09517 [102 - 25/08/2018]
Interrotta per esito verificato

G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09523 [108 - 08/09/2018]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo

V N. [71.84 ] [BA] [.. 71 .. .. 84] C. 3 Ambo 09526 [111 - 15/09/2018]
Interrotta per esito verificato

Estrazione generatrice del pronostico 09535 [120 - 06/10/2018]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo

V N. [49.90 ] [BA] [.. 90 .. 49 ..] C. 10 Ambo 09545 [130 - 30/10/2018]
Interrotta per esito verificato

G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09547 [132 - 03/11/2018]
G 0001 Numeri in gioco : 09.20 su BA per Ambo

V N. [09.20 ] [BA] [.. 20 .. .. 09] C. 4 Ambo 09551 [136 - 13/11/2018]
Interrotta per esito verificato

G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09559 [144 - 01/12/2018]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo

V N. [71.84 ] [BA] [.. 84 .. 71 ..] C. 4 Ambo 09563 [148 - 11/12/2018]
Interrotta per esito verificato

Estrazione generatrice del pronostico 09571 [156 - 29/12/2018]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo

V N. [51.78 ] [BA] [.. .. .. 51 78] C. 9 Ambo 09580 [ 9 - 19/01/2019]
Interrotta per esito verificato

G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09583 [ 12 - 26/01/2019]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo

V N. [49.90 ] [BA] [.. 90 .. .. 49] C. 3 Ambo 09586 [ 15 - 02/02/2019]
Interrotta per esito verificato

G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09595 [ 24 - 23/02/2019]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo

V N. [63.81 ] [BA] [.. .. .. 81 63] C. 4 Ambo 09599 [ 28 - 05/03/2019]
Interrotta per esito verificato

G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09607 [ 36 - 23/03/2019]
G 0001 Numeri in gioco : 09.20 su BA per Ambo

V N. [09.20 ] [BA] [.. .. 20 09 ..] C. 2 Ambo 09609 [ 38 - 28/03/2019]
Interrotta per esito verificato

G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09619 [ 48 - 20/04/2019]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo

V N. [49.90 ] [BA] [.. 49 .. .. 90] C. 3 Ambo 09622 [ 51 - 27/04/2019]
Interrotta per esito verificato

G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09631 [ 60 - 18/05/2019]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo

V N. [63.81 ] [BA] [63 .. 81 .. ..] C. 7 Ambo 09638 [ 67 - 04/06/2019]
Interrotta per esito verificato

G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09643 [ 72 - 15/06/2019]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo

V N. [51.78 ] [BA] [51 78 .. .. ..] C. 2 Ambo 09645 [ 74 - 20/06/2019]
Interrotta per esito verificato

G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09655 [ 84 - 13/07/2019]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo

V N. [51.78 ] [BA] [.. 78 .. .. 51] C. 4 Ambo 09659 [ 88 - 23/07/2019]
Interrotta per esito verificato

G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09667 [ 96 - 10/08/2019]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo

V N. [20.78 ] [BA] [.. 20 78 .. ..] C. 2 Ambo 09669 [ 98 - 16/08/2019]
Interrotta per esito verificato

G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09679 [108 - 07/09/2019]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo

V N. [63.81 ] [BA] [81 .. .. .. 63] C. 1 Ambo 09680 [109 - 10/09/2019]
Interrotta per esito verificato

G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09691 [120 - 05/10/2019]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo

V N. [20.78 ] [BA] [.. .. .. 78 20] C. 11 Ambo 09702 [131 - 31/10/2019]
Interrotta per esito verificato

G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09703 [132 - 02/11/2019]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo

V N. [26.61 ] [BA] [.. 26 .. .. 61] C. 10 Ambo 09713 [142 - 26/11/2019]
Interrotta per esito verificato

G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09715 [144 - 30/11/2019]
G 0001 Numeri in gioco : 09.20 su BA per Ambo

V N. [09.20 ] [BA] [.. 09 20 .. ..] C. 3 Ambo 09718 [147 - 07/12/2019]
Interrotta per esito verificato

G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09727 [156 - 28/12/2019]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo

V N. [26.61 ] [BA] [.. .. 61 26 ..] C. 5 Ambo 09732 [ 4 - 09/01/2020]
Interrotta per esito verificato

G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09739 [ 11 - 25/01/2020]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo

V N. [43.72 ] [BA] [.. .. 43 72 ..] C. 8 Ambo 09747 [ 19 - 13/02/2020]
Interrotta per esito verificato

G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09751 [ 23 - 22/02/2020]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo

V N. [20.78 ] [BA] [.. 20 78 .. ..] C. 5 Ambo 09756 [ 28 - 05/03/2020]
Interrotta per esito verificato

G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09763 [ 35 - 21/03/2020]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo

V N. [71.84 ] [BA] [.. .. .. 71 84] C. 11 Ambo 09774 [ 63 - 28/05/2020]
Interrotta per esito verificato

Estrazione generatrice del pronostico 09775 [ 64 - 30/05/2020]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo

V N. [43.72 ] [BA] [43 .. 72 .. ..] C. 4 Ambo 09779 [ 68 - 09/06/2020]
Interrotta per esito verificato

G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09787 [ 76 - 27/06/2020]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo

V N. [51.78 ] [BA] [78 .. .. 51 ..] C. 4 Ambo 09791 [ 80 - 07/07/2020]
Interrotta per esito verificato

G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09799 [ 88 - 25/07/2020]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo

V N. [49.90 ] [BA] [.. .. 49 90 ..] C. 5 Ambo 09804 [ 93 - 06/08/2020]
Interrotta per esito verificato

G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09811 [100 - 22/08/2020]
G 0001 Numeri in gioco : 09.20 su BA per Ambo

V N. [09.20 ] [BA] [.. 20 09 .. ..] C. 12 Ambo 09823 [112 - 19/09/2020]
Interrotta per raggiunta durata
Interrotta per esito verificato

G 0002 Numeri in gioco : 20.78 su BA per Ambo
Interrotta per raggiunta durata

G 0003 Numeri in gioco : 26.61 su BA per Ambo
Interrotta per raggiunta durata

G 0004 Numeri in gioco : 43.72 su BA per Ambo
Interrotta per raggiunta durata

G 0005 Numeri in gioco : 49.90 su BA per Ambo
Interrotta per raggiunta durata

G 0006 Numeri in gioco : 51.78 su BA per Ambo
Interrotta per raggiunta durata

G 0007 Numeri in gioco : 63.81 su BA per Ambo
Interrotta per raggiunta durata

G 0008 Numeri in gioco : 71.84 su BA per Ambo
Interrotta per raggiunta durata

Estrazione generatrice del pronostico 09823 [112 - 19/09/2020]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo

V N. [49.90 ] [BA] [90 .. .. 49 ..] C. 6 Ambo 09829 [118 - 03/10/2020]
Interrotta per esito verificato

G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09835 [124 - 17/10/2020]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo

V N. [51.78 ] [BA] [.. 78 .. .. 51] C. 5 Ambo 09840 [129 - 29/10/2020]
Interrotta per esito verificato

G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo

+----------------------------------------+
| Prima Giocata : 9499 |
| Ultima Giocata : 9835 |
| Range : 337 |
| Casi giocab perc. : 8,605% |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| RESOCONTO | | DISTRIBUZIONE ESITI | | DISTRIBUZIONE ESITI PERCENTUALI | | DISTRIBUZIONE CASI |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati : 29 | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT | Q | |
| Casi vincenti : 29 | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos. : 100 % | | BA | | 29| | | | | BA | | 100| | | | | BA | 232| |
| Pronostici totali : 232 | | CA | | | | | | | CA | | | | | | | CA | | |
| Pronostici vinc. : 29 | | FI | | | | | | | FI | | | | | | | FI | | |
| Percentuale pos. : 12,5 % | | GE | | | | | | | GE | | | | | | | GE | | |
| Giocate in corso : 0 | | MI | | | | | | | MI | | | | | | | MI | | |
| Giocate terminate : 232 | | NA | | | | | | | NA | | | | | | | NA | | |
| Bollette giocate : 1.232 | | PA | | | | | | | PA | | | | | | | PA | | |
| Bollette vincenti : 29 | | RO | | | | | | | RO | | | | | | | RO | | |
| Attesa media : 5 | | TO | | | | | | | TO | | | | | | | TO | | |
| Spesa : 1.232,00 € | | VE | | | | | | | VE | | | | | | | VE | | |
| Vincita : 6.815,00 € | | NZ | | | | | | | NZ | | | | | | | NZ | | |
| Guadagno : 5.583,00 € | | TT | | | | | | | TT | | | | | | | TT | | |
| Perc. Rendimento : 453,166 % | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Mass. Esposizione : 96,00 € |
| Estratto su ruota : 58 |
| Ambo su ruota : 29 |
| |
+----------------------------------------+

LISTATO RICOPIATO DAL PROGRAMMA CHE HO ( Spaziometria 1.6.26 )
Option Explicit
Class clsAmbo
Private aNum(2)
Private aCicli()
Private bUsato
Private QcicliCopertiSeUsato
Private sBit
Property Get Bit
Bit = sBit
End Property
Property Let Usato(b)
bUsato = b
End Property
Property Get Usato
Usato = bUsato
End Property
Property Let QCicli(v)
ReDim aCicli(v)
End Property
Property Get QCicliCopertiSeInUso
QCicliCopertiSeInUso = QcicliCopertiSeUsato
End Property
Property Get QuantitaCicliRapp
Dim k,q
q = 0
For k = 1 To UBound(aCicli)
If aCicli(k) <> 0 Then
q = q + 1
End If
Next
QuantitaCicliRapp = q
End Property
Sub SetFlagCiclo(id,b)
aCicli(id) = b
End Sub
Function GetFlagCiclo(id)
GetFlagCiclo = aCicli(id)
End Function
Sub SetNumero(id,v)
aNum(id) = v
End Sub
Function GetNumeriString
GetNumeriString = StringaNumeri(aNum,,True)
End Function
Sub GetNumeri(aRet)
Dim k
ReDim aRet(UBound(aNum))
For k = 1 To UBound(aNum)
aRet(k) = aNum(k)
Next
End Sub
Sub AggiornaCicliCoperti
Dim k
sBit = ""
QcicliCopertiSeUsato = QuantitaCicliRapp
For k = 1 To UBound(aCicli)
If aCicli(k) <> 0 Then
sBit = sBit & "X"
Else
sBit = sBit & " "
End If
Next
End Sub
End Class
Sub Main
Dim CollAmbi,CollAmbiTrov
Dim Inizio,Fine,nTotNelRange
Dim nLenCiclo,qCicli
Dim idCiclo,k
Dim Ruota
Dim cAmbo
Dim nTrovati
ReDim aRuote(1)
ReDim aPoste(2)
nTrovati = 0
Ruota = ScegliRuota
nLenCiclo = CInt(InputBox("Colpi di gioco","Colpi","12"))
aRuote(1) = Ruota
aPoste(2) = 1
Inizio = 9500
Fine = EstrazioneFin
nTotNelRange =(Fine + 1) - Inizio
If nTotNelRange Mod nLenCiclo = 0 Then
qCicli = nTotNelRange /nLenCiclo
Else
qCicli =((nTotNelRange -(nTotNelRange Mod nLenCiclo)) /nLenCiclo) + 1
End If
Call InitCollAmbi(CollAmbi,qCicli)
ReDim aCicli(qCicli,2) ' indice 0 InizioCiclo , Indice 1 Fine Ciclo , Indice 2 <> da 0 se coperto
Call GestioneRicercaAmbi(qCicli,aCicli,CollAmbi,nLenCiclo,Inizio,Fine,Ruota,nTrovati)
Call GestioneIntstazioneOutput(qCicli,Ruota,Inizio,Fine,nLenCiclo,nTrovati,CollAmbi)
Call GestioneQuadroCopertura(qCicli,aCicli,CollAmbi,nTrovati)
Call GestioneAnalisiGiocate(qCicli,aCicli,CollAmbi,aRuote,aPoste,nLenCiclo)
End Sub
Sub GestioneRicercaAmbi(qCicli,aCicli,collAmbi,nLenCiclo,Inizio,Fine,Ruota,nTrovati)
Dim idCiclo,k
Dim cAmbo
nTrovati = 0
ReDim aCicli(qCicli,2) ' indice 0 InizioCiclo , Indice 1 Fine Ciclo , Indice 2 <> da 0 se coperto
Call InitACicli(aCicli,nLenCiclo,Inizio)
Do
For idCiclo = 1 To qCicli
If aCicli(idCiclo,2) = 0 Then
For k = aCicli(idCiclo,0) To aCicli(idCiclo,1)
Call AggiornaAmbiUsciti(collAmbi,Ruota,k,idCiclo)
Next
End If
Call AvanzamentoElab(1,qCicli,idCiclo)
If ScriptInterrotto Then Exit Sub
Next
Call GetAmboConPiuCopertura(cAmbo,collAmbi)
If Not cAmbo Is Nothing Then
nTrovati = nTrovati + 1
cAmbo.Usato = True
Call cAmbo.AggiornaCicliCoperti
For idCiclo = 1 To qCicli
If cAmbo.GetFlagCiclo(idCiclo) <> 0 Then
aCicli(idCiclo,2) = 1
End If
Next
Else
Exit Do
End If
Call Messaggio("Ambi trovati " & nTrovati)
Call AzzeraCopertura(collAmbi,qCicli)
If ScriptInterrotto Then Exit Sub
Loop While IsScoperto(aCicli,qCicli)
End Sub
Sub GestioneAnalisiGiocate(qCicli,aCicli,CollAmbi,aRuote,aPoste,nLenCiclo)
Dim idCiclo,k
Dim cAmbo
Call Messaggio("Analisi Giocate")
For idCiclo = 1 To qCicli
k = 0
For Each cAmbo In CollAmbi
If cAmbo.usato Then
k = k + 1
ReDim aNum(0)
Call cAmbo.GetNumeri(aNum)
Call ImpostaGiocata(k,aNum,aRuote,aPoste,nLenCiclo,2,,1)
'Call Scrivi(StringaNumeri(aNum))
End If
Next
Call Gioca(aCicli(idCiclo,0) - 1,True)
Call AvanzamentoElab(1,qCicli,idCiclo)
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto,0
End Sub
Sub GestioneQuadroCopertura(qCicli,aCicli,CollAmbi,nTrovati)
Dim cAmbo
Dim idCiclo,k
Dim sTmp
Dim sRigaBit
Call Scrivi("Quadro copertura ambi")
ReDim aT(3 + qCicli)
aT(1) = " N. "
aT(2) = " Ambo "
aT(3) = " Cicli coperti "
For k = 1 To qCicli
aT(k + 3) = aCicli(k,0) & "-" & aCicli(k,1)
Next
Call Messaggio("Creazione tabella copertura")
Call InitTabella(aT)
ReDim aLineeBit(nTrovati)
nTrovati = 0
For Each cAmbo In CollAmbi
If cAmbo.usato Then
nTrovati = nTrovati + 1
aLineeBit(nTrovati) = cAmbo.Bit
ReDim aT(3 + qCicli)
aT(1) = nTrovati
aT(2) = cAmbo.GetNumeriString
aT(3) = cAmbo.QCicliCopertiSeInUso
For k = 1 To qCicli
aT(k + 3) = Mid(cAmbo.Bit,k,1)
Next
ReDim aColoreCelle(UBound(aT))
Call ImpostaArrayColoreCelle(aColoreCelle,aT)
Call AddRigaTabella(aT,aColoreCelle)
End If
If ScriptInterrotto Then Exit Sub
Next
sRigaBit = ""
For idCiclo = 1 To qCicli
sTmp = "-"
For k = 1 To UBound(aLineeBit)
If Mid(aLineeBit(k),idCiclo,1) = "X" Then
sTmp = "X"
Exit For
End If
Next
sRigaBit = sRigaBit & sTmp
Next
'Call Scrivi(Space(20) & sRigaBit)
ReDim aT(3 + qCicli)
For k = 1 To qCicli
aT(k + 3) = Mid(sRigaBit,k,1)
Next
ReDim aColoreCelle(UBound(aT))
Call ImpostaArrayColoreCelle(aColoreCelle,aT)
Call AddRigaTabella(aT,aColoreCelle)
Call CreaTabella
End Sub
Sub GestioneIntstazioneOutput(qCicli,Ruota,Inizio,Fine,nLenCiclo,nTrovati,Collambi)
Dim sTmp
Dim cAmbo
Call Scrivi(String(100,"."))
Call Scrivi("Ruota : " & NomeRuota(Ruota))
Call Scrivi("Periodo : " & GetInfoEstrazione(Inizio) & " - " & GetInfoEstrazione(Fine))
Call Scrivi("Colpi per singolo attacco : " & nLenCiclo)
Call Scrivi("Totale attacchi : " & qCicli)
Call Scrivi
Call Scrivi(Space(20) & "Descrizione del gioco",True)
Call Scrivi("Giocando i seguenti " & nTrovati & " ambi impostando il gioco in " & nLenCiclo & " colpi di gioco")
Call Scrivi("per ogni attacco e interrompendo alla prima vincita per riprenderlo")
Call Scrivi("con l'attacco successivo previsto al termine naturale dell'attacco")
Call Scrivi("in corso si sarebbero ottenuti i seguenti risutati di gioco")
Call Scrivi("Attenzione non è detto che giocando questa serie di ambi nelle estrazioni",,,,vbRed)
Call Scrivi("successive a quelle esaminate si otttenga per certo la vincita",,,,vbRed)
Call Scrivi(String(100,"."))
Call Scrivi()
sTmp = ""
For Each cAmbo In Collambi
If cAmbo.usato Then
sTmp = sTmp &(cAmbo.GetNumeriString) & ","
End If
Next
sTmp = Left(sTmp,Len(sTmp) - 1)
Call Scrivi("Ambi in gioco : " & sTmp)
Call Scrivi(String(100,"."))
Call Scrivi()
End Sub
Sub ImpostaArrayColoreCelle(aColoreCelle,aT)
Dim k
For k = 1 To UBound(aT)
If aT(k) = "X" Then
aColoreCelle(k) = vbGreen
Else
aColoreCelle(k) = vbWhite
End If
Next
End Sub
Sub AggiornaRigheBuf(aRighe,nInizio,nFine,idCiclo)
Dim k
Dim sChr
Dim sTmp
sTmp = FormatSpace(nInizio,4,True)
For k = 1 To 4
sChr = Mid(sTmp,k,1)
Call InsCar(aRighe(k),sChr,idCiclo)
Next
sTmp = FormatSpace(nFine,4,True)
For k = 6 To 9
sChr = Mid(sTmp,k - 5,1)
Call InsCar(aRighe(k),sChr,idCiclo)
Next
End Sub
Sub InsCar(sRiga,sChr,nPos)
Dim sLeft
Dim sRight
sLeft = Left(sRiga,nPos - 1)
sRight = Mid(sRiga,nPos + 1)
sRiga = sLeft & sChr & sRight
End Sub
Function IsScoperto(aCicli,qCicli)
Dim k,b
b = False
For k = 1 To qCicli
If aCicli(k,2) = 0 Then
b = True
Exit For
End If
Next
IsScoperto = b
End Function
Sub AzzeraCopertura(CollAmbi,qCicli)
Dim cAmbo
For Each cAmbo In CollAmbi
cAmbo.qCicli = qCicli
Next
End Sub
Sub GetAmboConPiuCopertura(cAmbo,CollAmbi)
Dim cAmboTmp
Dim nMax,n
nMax = 0
For Each cAmboTmp In CollAmbi
n = cAmboTmp.QuantitaCicliRapp
If n >= nMax Then
nMax = n
Set cAmbo = cAmboTmp
End If
Next
End Sub
Sub AggiornaAmbiUsciti(CollAmbi,Ruota,idEstr,idCiclo)
Dim k,kk,s
Dim cAmbo
ReDim aNum(0)
If GetArrayNumeriRuota(idEstr,Ruota,aNum) Then
Call OrdinaMatrice(aNum,1)
For k = 1 To 4
For kk = k + 1 To 5
s = "k" & Format2(aNum(k)) & "-" & Format2(aNum(kk))
Set cAmbo = CollAmbi(s)
Call cAmbo.SetFlagCiclo(idCiclo,1)
Next
Next
End If
End Sub
Sub InitACicli(aCicli,nLenCiclo,Inizio)
Dim k
Dim nStart
nStart = Inizio
For k = 1 To UBound(aCicli)
aCicli(k,2) = 0
aCicli(k,0) = nStart
aCicli(k,1) =(nStart - 1) + nLenCiclo
nStart = aCicli(k,1) + 1
Next
End Sub
Sub InitCollAmbi(CollAmbi,qCicli)
' sistemi che generano un elevato numero di combinazioni
Dim k,e,s
Dim nClasse
ReDim aNumeri(90)
Dim aColonne
Dim cAmbo
Set CollAmbi = GetNewCollection
nClasse = 2 ' sviluppo in ambi
' inizializzo i numeri da sviluppare in questo caso 90
' ma potrebbero essere anche di meno
For k = 1 To 90
aNumeri(k) = k
Next
' sviluppo il sistema valorizzando le colonne sviluppate
aColonne = SviluppoIntegrale(aNumeri,nClasse)
' scrivo le colonne in output
For k = 1 To UBound(aColonne)
Set cAmbo = New clsAmbo
cAmbo.qCicli = qCicli
s = "k"
' ciclo per leggere la colonna k
For e = 1 To nClasse
Call cAmbo.SetNumero(e,aColonne(k,e))
s = s & Format2(aColonne(k,e)) & "-"
Next
' tolgo l'ultimo trattino
s = Left(s,Len(s) - 1)
Call CollAmbi.Add(cAmbo,s)
Next
End Sub
 

*blacklotto*

Senior Member
Lasciando EstrazioneIni come inizio ricerca non ti da possibilità alcuna di far funzionare la ricerca,
( io partivo dall'estrazione 9800 ) perché Bari incomincia dall'estrazione 174 nel maggio 1874, fai prova e ne vedrai effetto.
Solo che nel dare resoconto trova difficoltà nell'inserimento della tabella ambi, quindi dovrà essere tolta dall'elaborazione.
Togli Call CreaTabella
Da :
Inizio = EstrazioneIni
Fine = EstrazioneFin

diventa :
Inizio = 174
Fine = EstrazioneFin
Lo script incomincia col cercare gli ambi, poi ci vorrà del tempo per l'elaborazione dell' analisi giocate, al mio computer circa 8 minuti.
E vedrai tutto il suo resoconto.

Inizia così :

Ruota : Bari
Periodo : [00174] [ 18] 03.05.1874 - [09846] [136] 12.11.2020
Colpi per singolo attacco : 12
Totale attacchi : 807

Descrizione del gioco
Giocando i seguenti 49 ambi impostando il gioco in 12 colpi di gioco
per ogni attacco e interrompendo alla prima vincita per riprenderlo
con l'attacco successivo previsto al termine naturale dell'attacco
in corso si sarebbero ottenuti i seguenti risutati di gioco
Attenzione non è detto che giocando questa serie di ambi nelle estrazioni
successive a quelle esaminate si otttenga per certo la vincita
....................................................................................................

Ambi in gioco :
02.31,04.87,05.35,05.59,06.13,08.47,12.61,14.50,15.48,18.84,19.48,20.48,20.81,21.77,22.39,22.60
22.63,23.30,25.76,27.79,28.35,28.36,28.41,30.36,34.37,34.65,34.68,36.65,38.72,39.47,40.71,41.56
41.73,44.69,47.49,47.74,48.82,51.52,52.57,54.74,55.78,55.83,58.69,59.63,62.68,66.73,66.77,66.78,86.87
....................................................................................................
 

*blacklotto*

Senior Member
Ciao,

In base all'estrazione d'inizio ricerca che si inserisce, cambia il numero degli ambi che mette in previsione.
Se io metto l'estrazione n° 9000 avrò questo resoconto iniziale :

Ruota : Bari
Periodo : [09000] [ 55] 07.05.2015 - [09846] [136] 12.11.2020
Colpi per singolo attacco : 12
Totale attacchi : 71

Descrizione del gioco
Giocando i seguenti 15 ambi
impostando il gioco in 12 colpi di gioco
per ogni attacco e interrompendo alla prima vincita per riprenderlo
con l'attacco successivo previsto al termine naturale dell'attacco
in corso si sarebbero ottenuti i seguenti risutati di gioco
Attenzione non è detto che giocando questa serie di ambi nelle estrazioni
successive a quelle esaminate si otttenga per certo la vincita
....................................................................................................

Ambi in gioco : 05.89,33.86,34.79,38.83,39.64,40.84,46.58,47.80,48.51,58.69,60.75,68.83,70.83,77.81,77.82
....................................................................................................

se cambio l'estrazione inizio ricerca, e inserisco la n° 9300 avrò questo resoconto iniziale :

Ruota : Bari
Periodo : [09300] [ 41] 06.04.2017 - [09846] [136] 12.11.2020
Colpi per singolo attacco : 12
Totale attacchi : 46

Descrizione del gioco
Giocando i seguenti 12 ambi
impostando il gioco in 12 colpi di gioco
per ogni attacco e interrompendo alla prima vincita per riprenderlo
con l'attacco successivo previsto al termine naturale dell'attacco
in corso si sarebbero ottenuti i seguenti risutati di gioco
Attenzione non è detto che giocando questa serie di ambi nelle estrazioni
successive a quelle esaminate si otttenga per certo la vincita
....................................................................................................

Ambi in gioco : 03.84,30.73,46.63,49.88,51.78,52.70,59.74,62.69,65.83,75.77,78.90,88.89
....................................................................................................

come vedi gli ambi cambiano

vediamo un altro inizio estrazione, inserisco la n° 9700 e avrò altra stringa di ambi in previsione :

Ruota : Bari
Periodo : [09700] [129] 26.10.2019 - [09846] [136] 12.11.2020
Colpi per singolo attacco : 12
Totale attacchi : 13

Descrizione del gioco
Giocando i seguenti 5 ambi
impostando il gioco in 12 colpi di gioco
per ogni attacco e interrompendo alla prima vincita per riprenderlo
con l'attacco successivo previsto al termine naturale dell'attacco
in corso si sarebbero ottenuti i seguenti risutati di gioco
Attenzione non è detto che giocando questa serie di ambi nelle estrazioni
successive a quelle esaminate si otttenga per certo la vincita
....................................................................................................

Ambi in gioco : 16.66,40.80,81.82,83.84,85.88
....................................................................................................

a partire dall'estrazione di partenza scelta, fino a fine archivio, metterà in previsione solo quella quantità di ambi che non cambiano.
 

*blacklotto*

Senior Member
Impostando come estrazione iniziale, la 9848, cioè quella di DOMANI, Martedì,
mi consegna questo resoconto ...

Ruota : Bari
Periodo : - [09847] [137] 14.11.2020
Colpi per singolo attacco : 12
Totale attacchi : 0

Descrizione del gioco
Giocando i seguenti 1 ambi impostando il gioco in 12 colpi di gioco
per ogni attacco e interrompendo alla prima vincita per riprenderlo
con l'attacco successivo previsto al termine naturale dell'attacco
in corso si sarebbero ottenuti i seguenti risutati di gioco
Attenzione non è detto che giocando questa serie di ambi nelle estrazioni
successive a quelle esaminate si otttenga per certo la vincita
....................................................................................................

Ambi in gioco : 89.90
....................................................................................................

che ne pensi .... ?
 

Matematico

Advanced Member
Credimi, non ho fatto nulla, l'ho copiato, incollato e fatto partire. Tutto qui.

RESOCONTO

....................................................................................................
Ruota : Bari
Periodo : [09500] [ 85] 17.07.2018 - [09846] [136] 12.11.2020
Colpi per singolo attacco : 12
Totale attacchi : 29

Descrizione del gioco
Giocando i seguenti 8 ambi impostando il gioco in 12 colpi di gioco
per ogni attacco e interrompendo alla prima vincita per riprenderlo
con l'attacco successivo previsto al termine naturale dell'attacco
in corso si sarebbero ottenuti i seguenti risutati di gioco
Attenzione non è detto che giocando questa serie di ambi nelle estrazioni
successive a quelle esaminate si otttenga per certo la vincita
....................................................................................................

Ambi in gioco : 09.20,20.78,26.61,43.72,49.90,51.78,63.81,71.84
....................................................................................................

Quadro copertura ambi

N.​
Ambo​
Cicli coperti​
9500-9511​
9512-9523​
9524-9535​
9536-9547​
9548-9559​
9560-9571​
9572-9583​
9584-9595​
9596-9607​
9608-9619​
9620-9631​
9632-9643​
9644-9655​
9656-9667​
9668-9679​
9680-9691​
9692-9703​
9704-9715​
9716-9727​
9728-9739​
9740-9751​
9752-9763​
9764-9775​
9776-9787​
9788-9799​
9800-9811​
9812-9823​
9824-9835​
9836-9847​
1​
09.20​
4​
X​
X​
X​
X​
2​
20.78​
3​
X​
X​
X​
3​
26.61​
3​
X​
X​
X​
4​
43.72​
2​
X​
X​
5​
49.90​
5​
X​
X​
X​
X​
X​
6​
51.78​
5​
X​
X​
X​
X​
X​
7​
63.81​
4​
X​
X​
X​
X​
8​
71.84​
3​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​
X​



Estrazione generatrice del pronostico 09499 [ 84 - 14/07/2018]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo

V N. [63.81 ] [BA] [63 81 .. .. ..] C. 1 Ambo 09500 [ 85 - 17/07/2018]
Interrotta per esito verificato

G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09511 [ 96 - 11/08/2018]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo

V N. [26.61 ] [BA] [.. 61 26 .. ..] C. 6 Ambo 09517 [102 - 25/08/2018]
Interrotta per esito verificato

G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09523 [108 - 08/09/2018]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo

V N. [71.84 ] [BA] [.. 71 .. .. 84] C. 3 Ambo 09526 [111 - 15/09/2018]
Interrotta per esito verificato

Estrazione generatrice del pronostico 09535 [120 - 06/10/2018]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo

V N. [49.90 ] [BA] [.. 90 .. 49 ..] C. 10 Ambo 09545 [130 - 30/10/2018]
Interrotta per esito verificato

G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09547 [132 - 03/11/2018]
G 0001 Numeri in gioco : 09.20 su BA per Ambo

V N. [09.20 ] [BA] [.. 20 .. .. 09] C. 4 Ambo 09551 [136 - 13/11/2018]
Interrotta per esito verificato

G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09559 [144 - 01/12/2018]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo

V N. [71.84 ] [BA] [.. 84 .. 71 ..] C. 4 Ambo 09563 [148 - 11/12/2018]
Interrotta per esito verificato

Estrazione generatrice del pronostico 09571 [156 - 29/12/2018]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo

V N. [51.78 ] [BA] [.. .. .. 51 78] C. 9 Ambo 09580 [ 9 - 19/01/2019]
Interrotta per esito verificato

G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09583 [ 12 - 26/01/2019]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo

V N. [49.90 ] [BA] [.. 90 .. .. 49] C. 3 Ambo 09586 [ 15 - 02/02/2019]
Interrotta per esito verificato

G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09595 [ 24 - 23/02/2019]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo

V N. [63.81 ] [BA] [.. .. .. 81 63] C. 4 Ambo 09599 [ 28 - 05/03/2019]
Interrotta per esito verificato

G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09607 [ 36 - 23/03/2019]
G 0001 Numeri in gioco : 09.20 su BA per Ambo

V N. [09.20 ] [BA] [.. .. 20 09 ..] C. 2 Ambo 09609 [ 38 - 28/03/2019]
Interrotta per esito verificato

G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09619 [ 48 - 20/04/2019]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo

V N. [49.90 ] [BA] [.. 49 .. .. 90] C. 3 Ambo 09622 [ 51 - 27/04/2019]
Interrotta per esito verificato

G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09631 [ 60 - 18/05/2019]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo

V N. [63.81 ] [BA] [63 .. 81 .. ..] C. 7 Ambo 09638 [ 67 - 04/06/2019]
Interrotta per esito verificato

G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09643 [ 72 - 15/06/2019]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo

V N. [51.78 ] [BA] [51 78 .. .. ..] C. 2 Ambo 09645 [ 74 - 20/06/2019]
Interrotta per esito verificato

G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09655 [ 84 - 13/07/2019]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo

V N. [51.78 ] [BA] [.. 78 .. .. 51] C. 4 Ambo 09659 [ 88 - 23/07/2019]
Interrotta per esito verificato

G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09667 [ 96 - 10/08/2019]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo

V N. [20.78 ] [BA] [.. 20 78 .. ..] C. 2 Ambo 09669 [ 98 - 16/08/2019]
Interrotta per esito verificato

G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09679 [108 - 07/09/2019]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo

V N. [63.81 ] [BA] [81 .. .. .. 63] C. 1 Ambo 09680 [109 - 10/09/2019]
Interrotta per esito verificato

G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09691 [120 - 05/10/2019]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo

V N. [20.78 ] [BA] [.. .. .. 78 20] C. 11 Ambo 09702 [131 - 31/10/2019]
Interrotta per esito verificato

G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09703 [132 - 02/11/2019]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo

V N. [26.61 ] [BA] [.. 26 .. .. 61] C. 10 Ambo 09713 [142 - 26/11/2019]
Interrotta per esito verificato

G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09715 [144 - 30/11/2019]
G 0001 Numeri in gioco : 09.20 su BA per Ambo

V N. [09.20 ] [BA] [.. 09 20 .. ..] C. 3 Ambo 09718 [147 - 07/12/2019]
Interrotta per esito verificato

G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09727 [156 - 28/12/2019]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo

V N. [26.61 ] [BA] [.. .. 61 26 ..] C. 5 Ambo 09732 [ 4 - 09/01/2020]
Interrotta per esito verificato

G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09739 [ 11 - 25/01/2020]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo

V N. [43.72 ] [BA] [.. .. 43 72 ..] C. 8 Ambo 09747 [ 19 - 13/02/2020]
Interrotta per esito verificato

G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09751 [ 23 - 22/02/2020]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo

V N. [20.78 ] [BA] [.. 20 78 .. ..] C. 5 Ambo 09756 [ 28 - 05/03/2020]
Interrotta per esito verificato

G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09763 [ 35 - 21/03/2020]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo

V N. [71.84 ] [BA] [.. .. .. 71 84] C. 11 Ambo 09774 [ 63 - 28/05/2020]
Interrotta per esito verificato

Estrazione generatrice del pronostico 09775 [ 64 - 30/05/2020]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo

V N. [43.72 ] [BA] [43 .. 72 .. ..] C. 4 Ambo 09779 [ 68 - 09/06/2020]
Interrotta per esito verificato

G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09787 [ 76 - 27/06/2020]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo

V N. [51.78 ] [BA] [78 .. .. 51 ..] C. 4 Ambo 09791 [ 80 - 07/07/2020]
Interrotta per esito verificato

G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09799 [ 88 - 25/07/2020]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo

V N. [49.90 ] [BA] [.. .. 49 90 ..] C. 5 Ambo 09804 [ 93 - 06/08/2020]
Interrotta per esito verificato

G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09811 [100 - 22/08/2020]
G 0001 Numeri in gioco : 09.20 su BA per Ambo

V N. [09.20 ] [BA] [.. 20 09 .. ..] C. 12 Ambo 09823 [112 - 19/09/2020]
Interrotta per raggiunta durata
Interrotta per esito verificato

G 0002 Numeri in gioco : 20.78 su BA per Ambo
Interrotta per raggiunta durata

G 0003 Numeri in gioco : 26.61 su BA per Ambo
Interrotta per raggiunta durata

G 0004 Numeri in gioco : 43.72 su BA per Ambo
Interrotta per raggiunta durata

G 0005 Numeri in gioco : 49.90 su BA per Ambo
Interrotta per raggiunta durata

G 0006 Numeri in gioco : 51.78 su BA per Ambo
Interrotta per raggiunta durata

G 0007 Numeri in gioco : 63.81 su BA per Ambo
Interrotta per raggiunta durata

G 0008 Numeri in gioco : 71.84 su BA per Ambo
Interrotta per raggiunta durata

Estrazione generatrice del pronostico 09823 [112 - 19/09/2020]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo

V N. [49.90 ] [BA] [90 .. .. 49 ..] C. 6 Ambo 09829 [118 - 03/10/2020]
Interrotta per esito verificato

G 0006 Numeri in gioco : 51.78 su BA per Ambo
G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo
Estrazione generatrice del pronostico 09835 [124 - 17/10/2020]
G 0001 Numeri in gioco : 09.20 su BA per Ambo
G 0002 Numeri in gioco : 20.78 su BA per Ambo
G 0003 Numeri in gioco : 26.61 su BA per Ambo
G 0004 Numeri in gioco : 43.72 su BA per Ambo
G 0005 Numeri in gioco : 49.90 su BA per Ambo
G 0006 Numeri in gioco : 51.78 su BA per Ambo

V N. [51.78 ] [BA] [.. 78 .. .. 51] C. 5 Ambo 09840 [129 - 29/10/2020]
Interrotta per esito verificato

G 0007 Numeri in gioco : 63.81 su BA per Ambo
G 0008 Numeri in gioco : 71.84 su BA per Ambo

+----------------------------------------+
| Prima Giocata : 9499 |
| Ultima Giocata : 9835 |
| Range : 337 |
| Casi giocab perc. : 8,605% |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| RESOCONTO | | DISTRIBUZIONE ESITI | | DISTRIBUZIONE ESITI PERCENTUALI | | DISTRIBUZIONE CASI |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati : 29 | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT | Q | |
| Casi vincenti : 29 | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos. : 100 % | | BA | | 29| | | | | BA | | 100| | | | | BA | 232| |
| Pronostici totali : 232 | | CA | | | | | | | CA | | | | | | | CA | | |
| Pronostici vinc. : 29 | | FI | | | | | | | FI | | | | | | | FI | | |
| Percentuale pos. : 12,5 % | | GE | | | | | | | GE | | | | | | | GE | | |
| Giocate in corso : 0 | | MI | | | | | | | MI | | | | | | | MI | | |
| Giocate terminate : 232 | | NA | | | | | | | NA | | | | | | | NA | | |
| Bollette giocate : 1.232 | | PA | | | | | | | PA | | | | | | | PA | | |
| Bollette vincenti : 29 | | RO | | | | | | | RO | | | | | | | RO | | |
| Attesa media : 5 | | TO | | | | | | | TO | | | | | | | TO | | |
| Spesa : 1.232,00 € | | VE | | | | | | | VE | | | | | | | VE | | |
| Vincita : 6.815,00 € | | NZ | | | | | | | NZ | | | | | | | NZ | | |
| Guadagno : 5.583,00 € | | TT | | | | | | | TT | | | | | | | TT | | |
| Perc. Rendimento : 453,166 % | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Mass. Esposizione : 96,00 € |
| Estratto su ruota : 58 |
| Ambo su ruota : 29 |
| |
+----------------------------------------+

LISTATO RICOPIATO DAL PROGRAMMA CHE HO ( Spaziometria 1.6.26 )
Option Explicit
Class clsAmbo
Private aNum(2)
Private aCicli()
Private bUsato
Private QcicliCopertiSeUsato
Private sBit
Property Get Bit
Bit = sBit
End Property
Property Let Usato(b)
bUsato = b
End Property
Property Get Usato
Usato = bUsato
End Property
Property Let QCicli(v)
ReDim aCicli(v)
End Property
Property Get QCicliCopertiSeInUso
QCicliCopertiSeInUso = QcicliCopertiSeUsato
End Property
Property Get QuantitaCicliRapp
Dim k,q
q = 0
For k = 1 To UBound(aCicli)
If aCicli(k) <> 0 Then
q = q + 1
End If
Next
QuantitaCicliRapp = q
End Property
Sub SetFlagCiclo(id,b)
aCicli(id) = b
End Sub
Function GetFlagCiclo(id)
GetFlagCiclo = aCicli(id)
End Function
Sub SetNumero(id,v)
aNum(id) = v
End Sub
Function GetNumeriString
GetNumeriString = StringaNumeri(aNum,,True)
End Function
Sub GetNumeri(aRet)
Dim k
ReDim aRet(UBound(aNum))
For k = 1 To UBound(aNum)
aRet(k) = aNum(k)
Next
End Sub
Sub AggiornaCicliCoperti
Dim k
sBit = ""
QcicliCopertiSeUsato = QuantitaCicliRapp
For k = 1 To UBound(aCicli)
If aCicli(k) <> 0 Then
sBit = sBit & "X"
Else
sBit = sBit & " "
End If
Next
End Sub
End Class
Sub Main
Dim CollAmbi,CollAmbiTrov
Dim Inizio,Fine,nTotNelRange
Dim nLenCiclo,qCicli
Dim idCiclo,k
Dim Ruota
Dim cAmbo
Dim nTrovati
ReDim aRuote(1)
ReDim aPoste(2)
nTrovati = 0
Ruota = ScegliRuota
nLenCiclo = CInt(InputBox("Colpi di gioco","Colpi","12"))
aRuote(1) = Ruota
aPoste(2) = 1
Inizio = 9500
Fine = EstrazioneFin
nTotNelRange =(Fine + 1) - Inizio
If nTotNelRange Mod nLenCiclo = 0 Then
qCicli = nTotNelRange /nLenCiclo
Else
qCicli =((nTotNelRange -(nTotNelRange Mod nLenCiclo)) /nLenCiclo) + 1
End If
Call InitCollAmbi(CollAmbi,qCicli)
ReDim aCicli(qCicli,2) ' indice 0 InizioCiclo , Indice 1 Fine Ciclo , Indice 2 <> da 0 se coperto
Call GestioneRicercaAmbi(qCicli,aCicli,CollAmbi,nLenCiclo,Inizio,Fine,Ruota,nTrovati)
Call GestioneIntstazioneOutput(qCicli,Ruota,Inizio,Fine,nLenCiclo,nTrovati,CollAmbi)
Call GestioneQuadroCopertura(qCicli,aCicli,CollAmbi,nTrovati)
Call GestioneAnalisiGiocate(qCicli,aCicli,CollAmbi,aRuote,aPoste,nLenCiclo)
End Sub
Sub GestioneRicercaAmbi(qCicli,aCicli,collAmbi,nLenCiclo,Inizio,Fine,Ruota,nTrovati)
Dim idCiclo,k
Dim cAmbo
nTrovati = 0
ReDim aCicli(qCicli,2) ' indice 0 InizioCiclo , Indice 1 Fine Ciclo , Indice 2 <> da 0 se coperto
Call InitACicli(aCicli,nLenCiclo,Inizio)
Do
For idCiclo = 1 To qCicli
If aCicli(idCiclo,2) = 0 Then
For k = aCicli(idCiclo,0) To aCicli(idCiclo,1)
Call AggiornaAmbiUsciti(collAmbi,Ruota,k,idCiclo)
Next
End If
Call AvanzamentoElab(1,qCicli,idCiclo)
If ScriptInterrotto Then Exit Sub
Next
Call GetAmboConPiuCopertura(cAmbo,collAmbi)
If Not cAmbo Is Nothing Then
nTrovati = nTrovati + 1
cAmbo.Usato = True
Call cAmbo.AggiornaCicliCoperti
For idCiclo = 1 To qCicli
If cAmbo.GetFlagCiclo(idCiclo) <> 0 Then
aCicli(idCiclo,2) = 1
End If
Next
Else
Exit Do
End If
Call Messaggio("Ambi trovati " & nTrovati)
Call AzzeraCopertura(collAmbi,qCicli)
If ScriptInterrotto Then Exit Sub
Loop While IsScoperto(aCicli,qCicli)
End Sub
Sub GestioneAnalisiGiocate(qCicli,aCicli,CollAmbi,aRuote,aPoste,nLenCiclo)
Dim idCiclo,k
Dim cAmbo
Call Messaggio("Analisi Giocate")
For idCiclo = 1 To qCicli
k = 0
For Each cAmbo In CollAmbi
If cAmbo.usato Then
k = k + 1
ReDim aNum(0)
Call cAmbo.GetNumeri(aNum)
Call ImpostaGiocata(k,aNum,aRuote,aPoste,nLenCiclo,2,,1)
'Call Scrivi(StringaNumeri(aNum))
End If
Next
Call Gioca(aCicli(idCiclo,0) - 1,True)
Call AvanzamentoElab(1,qCicli,idCiclo)
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto,0
End Sub
Sub GestioneQuadroCopertura(qCicli,aCicli,CollAmbi,nTrovati)
Dim cAmbo
Dim idCiclo,k
Dim sTmp
Dim sRigaBit
Call Scrivi("Quadro copertura ambi")
ReDim aT(3 + qCicli)
aT(1) = " N. "
aT(2) = " Ambo "
aT(3) = " Cicli coperti "
For k = 1 To qCicli
aT(k + 3) = aCicli(k,0) & "-" & aCicli(k,1)
Next
Call Messaggio("Creazione tabella copertura")
Call InitTabella(aT)
ReDim aLineeBit(nTrovati)
nTrovati = 0
For Each cAmbo In CollAmbi
If cAmbo.usato Then
nTrovati = nTrovati + 1
aLineeBit(nTrovati) = cAmbo.Bit
ReDim aT(3 + qCicli)
aT(1) = nTrovati
aT(2) = cAmbo.GetNumeriString
aT(3) = cAmbo.QCicliCopertiSeInUso
For k = 1 To qCicli
aT(k + 3) = Mid(cAmbo.Bit,k,1)
Next
ReDim aColoreCelle(UBound(aT))
Call ImpostaArrayColoreCelle(aColoreCelle,aT)
Call AddRigaTabella(aT,aColoreCelle)
End If
If ScriptInterrotto Then Exit Sub
Next
sRigaBit = ""
For idCiclo = 1 To qCicli
sTmp = "-"
For k = 1 To UBound(aLineeBit)
If Mid(aLineeBit(k),idCiclo,1) = "X" Then
sTmp = "X"
Exit For
End If
Next
sRigaBit = sRigaBit & sTmp
Next
'Call Scrivi(Space(20) & sRigaBit)
ReDim aT(3 + qCicli)
For k = 1 To qCicli
aT(k + 3) = Mid(sRigaBit,k,1)
Next
ReDim aColoreCelle(UBound(aT))
Call ImpostaArrayColoreCelle(aColoreCelle,aT)
Call AddRigaTabella(aT,aColoreCelle)
Call CreaTabella
End Sub
Sub GestioneIntstazioneOutput(qCicli,Ruota,Inizio,Fine,nLenCiclo,nTrovati,Collambi)
Dim sTmp
Dim cAmbo
Call Scrivi(String(100,"."))
Call Scrivi("Ruota : " & NomeRuota(Ruota))
Call Scrivi("Periodo : " & GetInfoEstrazione(Inizio) & " - " & GetInfoEstrazione(Fine))
Call Scrivi("Colpi per singolo attacco : " & nLenCiclo)
Call Scrivi("Totale attacchi : " & qCicli)
Call Scrivi
Call Scrivi(Space(20) & "Descrizione del gioco",True)
Call Scrivi("Giocando i seguenti " & nTrovati & " ambi impostando il gioco in " & nLenCiclo & " colpi di gioco")
Call Scrivi("per ogni attacco e interrompendo alla prima vincita per riprenderlo")
Call Scrivi("con l'attacco successivo previsto al termine naturale dell'attacco")
Call Scrivi("in corso si sarebbero ottenuti i seguenti risutati di gioco")
Call Scrivi("Attenzione non è detto che giocando questa serie di ambi nelle estrazioni",,,,vbRed)
Call Scrivi("successive a quelle esaminate si otttenga per certo la vincita",,,,vbRed)
Call Scrivi(String(100,"."))
Call Scrivi()
sTmp = ""
For Each cAmbo In Collambi
If cAmbo.usato Then
sTmp = sTmp &(cAmbo.GetNumeriString) & ","
End If
Next
sTmp = Left(sTmp,Len(sTmp) - 1)
Call Scrivi("Ambi in gioco : " & sTmp)
Call Scrivi(String(100,"."))
Call Scrivi()
End Sub
Sub ImpostaArrayColoreCelle(aColoreCelle,aT)
Dim k
For k = 1 To UBound(aT)
If aT(k) = "X" Then
aColoreCelle(k) = vbGreen
Else
aColoreCelle(k) = vbWhite
End If
Next
End Sub
Sub AggiornaRigheBuf(aRighe,nInizio,nFine,idCiclo)
Dim k
Dim sChr
Dim sTmp
sTmp = FormatSpace(nInizio,4,True)
For k = 1 To 4
sChr = Mid(sTmp,k,1)
Call InsCar(aRighe(k),sChr,idCiclo)
Next
sTmp = FormatSpace(nFine,4,True)
For k = 6 To 9
sChr = Mid(sTmp,k - 5,1)
Call InsCar(aRighe(k),sChr,idCiclo)
Next
End Sub
Sub InsCar(sRiga,sChr,nPos)
Dim sLeft
Dim sRight
sLeft = Left(sRiga,nPos - 1)
sRight = Mid(sRiga,nPos + 1)
sRiga = sLeft & sChr & sRight
End Sub
Function IsScoperto(aCicli,qCicli)
Dim k,b
b = False
For k = 1 To qCicli
If aCicli(k,2) = 0 Then
b = True
Exit For
End If
Next
IsScoperto = b
End Function
Sub AzzeraCopertura(CollAmbi,qCicli)
Dim cAmbo
For Each cAmbo In CollAmbi
cAmbo.qCicli = qCicli
Next
End Sub
Sub GetAmboConPiuCopertura(cAmbo,CollAmbi)
Dim cAmboTmp
Dim nMax,n
nMax = 0
For Each cAmboTmp In CollAmbi
n = cAmboTmp.QuantitaCicliRapp
If n >= nMax Then
nMax = n
Set cAmbo = cAmboTmp
End If
Next
End Sub
Sub AggiornaAmbiUsciti(CollAmbi,Ruota,idEstr,idCiclo)
Dim k,kk,s
Dim cAmbo
ReDim aNum(0)
If GetArrayNumeriRuota(idEstr,Ruota,aNum) Then
Call OrdinaMatrice(aNum,1)
For k = 1 To 4
For kk = k + 1 To 5
s = "k" & Format2(aNum(k)) & "-" & Format2(aNum(kk))
Set cAmbo = CollAmbi(s)
Call cAmbo.SetFlagCiclo(idCiclo,1)
Next
Next
End If
End Sub
Sub InitACicli(aCicli,nLenCiclo,Inizio)
Dim k
Dim nStart
nStart = Inizio
For k = 1 To UBound(aCicli)
aCicli(k,2) = 0
aCicli(k,0) = nStart
aCicli(k,1) =(nStart - 1) + nLenCiclo
nStart = aCicli(k,1) + 1
Next
End Sub
Sub InitCollAmbi(CollAmbi,qCicli)
' sistemi che generano un elevato numero di combinazioni
Dim k,e,s
Dim nClasse
ReDim aNumeri(90)
Dim aColonne
Dim cAmbo
Set CollAmbi = GetNewCollection
nClasse = 2 ' sviluppo in ambi
' inizializzo i numeri da sviluppare in questo caso 90
' ma potrebbero essere anche di meno
For k = 1 To 90
aNumeri(k) = k
Next
' sviluppo il sistema valorizzando le colonne sviluppate
aColonne = SviluppoIntegrale(aNumeri,nClasse)
' scrivo le colonne in output
For k = 1 To UBound(aColonne)
Set cAmbo = New clsAmbo
cAmbo.qCicli = qCicli
s = "k"
' ciclo per leggere la colonna k
For e = 1 To nClasse
Call cAmbo.SetNumero(e,aColonne(k,e))
s = s & Format2(aColonne(k,e)) & "-"
Next
' tolgo l'ultimo trattino
s = Left(s,Len(s) - 1)
Call CollAmbi.Add(cAmbo,s)
Next
End Sub
Ciao blacklotto ,ci credo , sarà x via della differenza di versione ....comunque ora è tutto ok grazie.
 

*blacklotto*

Senior Member
Attenzione. Lottomatica comunica quanto segue: "A seguito delle disposizioni contenute nel DPCM del 3/11/2020 e al fine di limitare gli spostamenti dei funzionari, l’Agenzia delle Dogane e dei Monopoli ha disposto lo spostamento delle attività di estrazione del Gioco del Lotto delle sedi di Milano e Napoli presso la sede estrazionale di Roma. Pertanto, a partire dal concorso di martedì 17 novembre 2020,
tutte le ruote del Gioco del Lotto verranno estratte nella sede di Roma e, di conseguenza, le estrazioni si concluderanno alle 21:40 circa".
 

*blacklotto*

Senior Member
SE confermi quanto sopra .........
Spero di andare a Cassa .
Se non e cosi allora ......pazienza .....
Buon proseguimento di giornata e grazie di tutto
Saluti
Serpico

Ciao,

no, non era per confermare la previsione che ho inserito, anzi, è da considerarsi una curiosità sviluppata per caso.
Questo listato è da capire, io ho risposto soltanto per far vedere che a me funzionava, e mostrare alcuni passaggi fatti facendo capire il perché a me dava esito, poi viene tutto il resto.
Se tu mi chiedi quale sia il procedimento non ti saprei rispondere, adesso riprendo in mano tale ricerca, e vedo di capirne qualcosa.
Quello che non ho scritto è che inserendo ognuna delle 10 ruote inserendo l'estrazione 9848 mi dava lo stesso ambo 89 - 90,
se avresti fatto una prova per curiosità come ho fatto troppo tardi ieri sera, lo avresti visto anche tu.
Ma per quanto è nelle mie capacità voglio capirne di più, e se interessa potrei anche inserire gli sviluppi.
 

claudio8

Advanced Member >PLATINUM PLUS<
Qui c'è qualche considerazione.
 

Serpico 90

Advanced Member
Ciao Blacklotto..........grazie per la tua disponibilità a capire questo script che era troppo bello ,ma come avevo scritto nel mio primo intervento c' era qualcosa che non andava.
Grazie a Claudio8 che ha inserito una discussione e una risposta di Luigi B.che ha chiarito che lo script non è utile per le previsioni .
A questo punto ne prendo atto lo cancello e non andrò a cassa come scritto da Claudio8.
Buona serata e faccio finta che è stato uno scherzo di carnevale.
Chiedo scusa a Matematico che con questa mia richiesta ho invaso la sua discussione.

Saluti
Serpico
 

claudio8

Advanced Member >PLATINUM PLUS<
Anche se articolato, la sua interpretazione non è difficile.
Lo script cerca gli ambi che hanno coperto i cicli dalla estrazione" inizio= 9550" compresa, sino alla data di fine range se ultima dell'archivio di SPMT o oltre x quanto basta a coprire i cicli dallo script quantificati, detti cicli hanno una lunghezza uguale al numero di colpi.
Occorre quindi fare in modo che il ciclo finale non superi la data di fine range impostata su Spaziometria ( bisogna evitare ciò perchè se vi sono altre estrazioni sino a fine archivio lo script usa le mancanti x coprire il ciclo finale).
Al termine della elaborazione vengono elencati gli ambi che hanno coperto tutti i cicli.

es effettuato : Ambi in gioco : 04.84,14.29,49.90,50.64,63.81,71.84,75.87,81.82
Questi sono gli ambi elaborati per BA fine range 17/09/2020 (es9822 ) utilizzando quale ultimo ciclo 27° le estrazioni da 9812 a 9823, che messi in gioco hanno dato l'ambo 49.90 al 6° clp partendo dalla successiva alla es . 9823
Dopo il quadro di coperture ( tab con caselle in verde e la X ) vengono elencate le giocate ( possono essere anche omesse, lo script funziona correttamente) così come si sono susseguite nello storico dei cicli.
Bisogna controllare se gli ambi di copertura come quelli sopra elencati, hanno dato esito nelle estrazioni successive al fine range nei colpi impostati.


Saluti e buona notte
 
Ultima modifica:

giuseppe lasaracina

Junior Member
Lasciando EstrazioneIni come inizio ricerca non ti da possibilità alcuna di far funzionare la ricerca,
( io partivo dall'estrazione 9800 ) perché Bari incomincia dall'estrazione 174 nel maggio 1874, fai prova e ne vedrai effetto.
Solo che nel dare resoconto trova difficoltà nell'inserimento della tabella ambi, quindi dovrà essere tolta dall'elaborazione.
Togli Call CreaTabella
Da :
Inizio = EstrazioneIni
Fine = EstrazioneFin

diventa :
Inizio = 174
Fine = EstrazioneFin
Lo script incomincia col cercare gli ambi, poi ci vorrà del tempo per l'elaborazione dell' analisi giocate, al mio computer circa 8 minuti.
E vedrai tutto il suo resoconto.

Inizia così :

Ruota : Bari
Periodo : [00174] [ 18] 03.05.1874 - [09846] [136] 12.11.2020
Colpi per singolo attacco : 12
Totale attacchi : 807

Descrizione del gioco
Giocando i seguenti 49 ambi impostando il gioco in 12 colpi di gioco
per ogni attacco e interrompendo alla prima vincita per riprenderlo
con l'attacco successivo previsto al termine naturale dell'attacco
in corso si sarebbero ottenuti i seguenti risutati di gioco
Attenzione non è detto che giocando questa serie di ambi nelle estrazioni
successive a quelle esaminate si otttenga per certo la vincita
....................................................................................................

Ambi in gioco :
02.31,04.87,05.35,05.59,06.13,08.47,12.61,14.50,15.48,18.84,19.48,20.48,20.81,21.77,22.39,22.60
22.63,23.30,25.76,27.79,28.35,28.36,28.41,30.36,34.37,34.65,34.68,36.65,38.72,39.47,40.71,41.56
41.73,44.69,47.49,47.74,48.82,51.52,52.57,54.74,55.78,55.83,58.69,59.63,62.68,66.73,66.77,66.78,86.87
....................................................................................................
 

*blacklotto*

Senior Member
RESOCONTO ANNO 2020

02 - 31 = Ambo su ruota : 1 - 09768 [ 57 - 14/05/2020] [13.31.02.32.78]
04 - 87 = Ambo su ruota : 1 - 09738 [ 10 - 23/01/2020] [01.75.04.87.81]
05 - 35 = Ambo su ruota : negativo
05 - 59 = Ambo su ruota : negativo
06 - 13 = Ambo su ruota : 1 - 09818 [107 - 08/09/2020] [13.06.24.58.38]
08 - 47 = Ambo su ruota : negativo
12 - 61 = Ambo su ruota : negativo
14 - 50 = Ambo su ruota : 2 - 09792 [ 81 - 09/07/2020] [14.87.01.29.50] - 09808 [ 97 - 17/08/2020] [50.48.30.74.14]
15 - 48 = Ambo su ruota : negativo
18 - 84 = Ambo su ruota : 2 - 09821 [110 - 15/09/2020] [85.84.65.30.18] - 09832 [121 - 10/10/2020] [49.57.23.84.18]
19 - 48 = Ambo su ruota : 1 - 09753 [ 25 - 27/02/2020] [57.48.55.19.10]
20 - 48 = Ambo su ruota : negativo
20 - 81 = Ambo su ruota : negativo
21 - 77 = Ambo su ruota : 2 - 09828 [117 - 01/10/2020] [88.21.77.69.70] - 09846 [136 - 12/11/2020] [77.20.34.21.52]
22 - 39 = Ambo su ruota : 1 - 09809 [ 98 - 18/08/2020] [20.39.57.89.22]
22 - 60 = Ambo su ruota : 1 - 09819 [109 - 10/09/2020] [60.58.72.22.14]

22 - 63 = Ambo su ruota : negativo
23 - 30 = Ambo su ruota : negativo
25 - 76 = Ambo su ruota : negativo
27 - 79 = Ambo su ruota : negativo
28 - 35 = Ambo su ruota : negativo
28 - 36 = Ambo su ruota : negativo
28 - 41 = Ambo su ruota : negativo
30 - 36 = Ambo su ruota : 1 - 09775 [ 64 - 30/05/2020] [60.36.84.30.73]
34 - 37 = Ambo su ruota : negativo
34 - 65 = Ambo su ruota : negativo
34 - 68 = Ambo su ruota : negativo
36 - 65 = Ambo su ruota : negativo
38 - 72 = Ambo su ruota : negativo
39 - 47 = Ambo su ruota : negativo
40 - 71 = Ambo su ruota : 1 - 09774 [ 63 - 28/05/2020] [40.58.46.71.84]
41 - 56 = Ambo su ruota : negativo
41 - 73 = Ambo su ruota : 1 - 09751 [ 23 - 22/02/2020] [73.49.52.41.87]
44 - 69 = Ambo su ruota : negativo
47 - 49 = Ambo su ruota : negativo
47 - 74 = Ambo su ruota : negativo
48 - 82 = Ambo su ruota : negativo
51 - 52 = Ambo su ruota : negativo
52 - 57 = Ambo su ruota : 1 - 09734 [ 6 - 14/01/2020] [57.52.48.26.31]
54 - 74 = Ambo su ruota : negativo
55 - 78 = Ambo su ruota : negativo
55 - 83 = Ambo su ruota : 1 - 09771 [ 60 - 21/05/2020] [83.54.02.55.33]
58 - 69 = Ambo su ruota : negativo
59 - 63 = Ambo su ruota : negativo
62 - 68 = Ambo su ruota : negativo
66 - 73 = Ambo su ruota : negativo
66 - 77 = Ambo su ruota : 1 - 09843 [133 - 05/11/2020] [66.85.12.38.77]
66 - 78 = Ambo su ruota : 1 - 09742 [ 14 - 01/02/2020] [59.74.78.43.66]
86 - 87 = Ambo su ruota : 1 - 09743 [ 15 - 04/02/2020] [49.75.87.46.86]
 

Serpico 90

Advanced Member
Ciao Blacklotto.....ho cercato di capire con lo script che hai gentilmente postato .......ma la mia piccola esperienza non riesce a raccapezzarsi.
Ora hai postato questi risultati.......ma cortesemente se lo ritieni mi puoi far capire come estrapoli questi ambi????
in sostanza da quello che leggo si potrebbero andare molto spesso a cassa????
Io non riesco perchè come scritto in precedenza.....da quello che ho sperimentato io gli Ambi in previsione li vedo dopo che sono stati estratti.
Come fai????
Per essere piu chiaro l'ambo 2.31 del concorso n.57 del 14.05.2020 quando è stato previsTo????
scusa la mia franchezza ,e ignoranza in materia .

Grazie
 

*blacklotto*

Senior Member
Forse è meglio dare buone risposte alle tue giuste domande,
innanzi tutto non è un mio script, ma uno script postato da Matematico copiato a sua volta in forum.

Togliti dalla testa che uno script ti possa arricchire, o comunque portarti così facilmente alla vincita.
Uno script esegue solo un ordine impostato, cioè, spesso consegna un resoconto che è stato creato, impostato a dare quei risultati, e chi poi lo mostra al mondo sa che è un falso.
Ma aspetta, con questo non voglio dire che chiunque inserisca uno script in forum sia un falso, c'è invece da fare un'attenta valutazione.
C'è lo script che svolge una metodologia, c'è uno script che svolge una ricerca, c'è uno script che svolge frequenze e statistiche, e così via infinite possibilità d'usufruire un programma che ti permette tutto ciò che si vuole.
La cosa principale di uno script è capirlo, comprenderne le sue funzioni, non passare subito alla golosità che mostra il suo resoconto.
Fino a che non comprendi questa distinzione da fare tra gli script, non vai da nessuna parte.
Ma prima ancora, credimi, fino a prova contraria, nessuno script ti darà previsioni vincenti continue nel tempo, di nessuna tipologia elencata sopra, nemmeno se ti fai statistiche, frequenze o ritardi.
Se tu me lo trovi, vedremo poi insieme che altro non è che uno script costruito, calcolato, che serve solo per ingannare.
Oppure te ne potrei inserire uno al giorno, e credimi ci faremo delle belle risate !
Il fatto che tu mi chieda come si trovino gli ambi vuol dire che non sai il procedimento di tale script, o forse non ne hai capito lo svolgimento.
Se leggi bene è stato inserito come poterne capire la prassi.
Non credere che io ne sappia più di te in materia, e non credere che io possa insegnare, me ne guardo bene, pure io ho fatto le mie esperienze,
mi sono preso i miei inganni come del resto penso più o meno tutti.
Ma, anzi, fai bene a chiedere, ad informarti, ma senza vergogna, perché anche chi ti insegnerà avrà passato il suo primo periodo da neofita, poi col tempo arriva l'esperienza, sbagliando e facendo ... vere e proprie cazzate.
Io ho un forum, da anni, chiuso da anni dove ho come magazzino personale infiniti script " di tutte le salse " di oltre 35 anni, il tutto catalogato per formazioni numeriche, di infiniti utenti, di infiniti forum, di cui molti ormai chiusi.
Ma ... ricco non lo sono diventato.
Anzi, quando ho occasione e vedo delle richieste cerco di dare una mano, o perlomeno di avvicinarmi a ciò che cercano inserendo qualcosa.
Se c'è qualcosa che ti potrebbe interessare, chiedi pure, ma nessun script che ho raccolto ti cambierà la vita.
Ti saluto ricordandoti che se ci sarà chi davvero metterà a script una metodologia o ricerca che sia vincente davvero, ... non lo inserirà mai.
A presto
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 14 gennaio 2021
    Bari
    09
    40
    47
    26
    49
    Cagliari
    34
    64
    43
    78
    31
    Firenze
    45
    32
    17
    65
    37
    Genova
    65
    10
    81
    28
    29
    Milano
    59
    46
    84
    58
    03
    Napoli
    84
    41
    81
    25
    04
    Palermo
    20
    58
    29
    09
    69
    Roma
    56
    73
    61
    64
    03
    Torino
    19
    01
    06
    34
    39
    Venezia
    08
    85
    30
    45
    83
    Nazionale
    65
    71
    45
    73
    35
    Estrazione Simbolotto
    Bari
    12
    13
    05
    37
    11
Alto