Per salvo50 o altri esperti sos x correzione script

[Matematico]

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

 

[*blacklotto*]

... 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

 

[Matematico]

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

 

[Master]

Ciao
Qua trovi la soluzione

Per Luigib

Ciao Luigi , stò monitorando da tempo le prev. di questo tuo Listato , volevo chiederti come mai sulla NZ mi da errore. Gli esisti sono superlativi , grazie se mi risponderai. Option Explicit Class clsAmbo Private aNum(2) Private aCicli() Private bUsato Private QcicliCopertiSeUsato...

forum.lottoced.com

 

[Matematico]

Ciao
Qua trovi la soluzione

Per Luigib

Ciao Luigi , stò monitorando da tempo le prev. di questo tuo Listato , volevo chiederti come mai sulla NZ mi da errore. Gli esisti sono superlativi , grazie se mi risponderai. Option Explicit Class clsAmbo Private aNum(2) Private aCicli() Private bUsato Private QcicliCopertiSeUsato...

forum.lottoced.com

Ciao Master, grazie1000

 

[*blacklotto*]

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

Anticipazione (Spoiler)

....................................................................................................
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 )

Anticipazione (Spoiler)

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*]

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*]

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*]

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]

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

RESOCONTO

Anticipazione (Spoiler)

....................................................................................................
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 )

Anticipazione (Spoiler)

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*]

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*]

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]

Qui c'è qualche considerazione.

copertura ambo (richiesta spiegazione)

Ciao , volevo da Voi una spiegazione riguardo questo script (presente nel forum) che ottiene ottimi risultati, inoltre vorrei sapere come mai ad ogni estrazione non aggiorna la previsione successiva Option Explicit Class clsAmbo Private aNum(2) Private aCicli() Private bUsato...

forum.lottoced.com

 

[Serpico 90]

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]

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

 

[giuseppe lasaracina]

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*]

ciao,

in cosa posso aiutarti ?

 

[*blacklotto*]

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]

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*]

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