Oberdan
Member
In programmazione, la svista, il bug sono sempre dietro l'angolo. L'unico modo per evitarli del tutto è non programmare.
Vecchi metodi e vecchi script by BaffoBlù
- Creatore Discussione BaffoBlù
- Data di inizio
BaffoBlù
Advanced Member >PLATINUM<
Il metodo è incentrato sulla spia "33" rilevata in 3° posizione su qualunque ruota ed estrazione.
Ricava 2 Ambate per la ruota interessata
Una Cinquina per Ambo a Ruota
Una Cinquina per Ambo a Tutte
La cinquina potrebbe diventare una Quartina se eliminate la spia...
(ricavando 6 ambi secchi.)
Ma occhio anche ai 4 ambi secchi che si formano con la spia
Io ho messo la Cinquina solo per spicciarmela...
Lo script è impostato per partire dal 1871 (mica due mesi...)
ma se volete cambiate il range in InpuBox (sta lì apposta per quello
Un ultima cosa : He he he, Provate a cambiare la Spia (ho messo l'InputBox apposta...)
Lo script è aperto a possibili modifiche dei più smaliziati...
Ricava 2 Ambate per la ruota interessata
Una Cinquina per Ambo a Ruota
Una Cinquina per Ambo a Tutte
La cinquina potrebbe diventare una Quartina se eliminate la spia...
(ricavando 6 ambi secchi.)
Ma occhio anche ai 4 ambi secchi che si formano con la spia
Io ho messo la Cinquina solo per spicciarmela...
Lo script è impostato per partire dal 1871 (mica due mesi...)
ma se volete cambiate il range in InpuBox (sta lì apposta per quello
Un ultima cosa : He he he, Provate a cambiare la Spia (ho messo l'InputBox apposta...)
Lo script è aperto a possibili modifiche dei più smaliziati...
Codice:
Option Explicit
Sub Main()
Dim es,Ini,Fin,r,r1,Tm,Clp,co,a,b,d,e,f,g,sp1
Dim ruota(10)
Dim ruote(11)
Dim posta(10)
Dim poste(10)
Dim n(2)
Dim n1(4)
Dim n2(5)
posta(1) = 1
poste(2) = 1
ruota(1) = r
ruote(1) = r1
r1 = 11
sp1 = CInt(InputBox(" Spia ? ",,"33"))
Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"10444"))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"18"))
Ini = EstrazioneFin - Tm
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
For r = 1 To 10
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
ruota(1) = r
ruote(1) = r1
If Estratto(es,r,3) = sp1 Then
a = Estratto(es,r,1)
b = Estratto(es,r,2)
d = Estratto(es,r,4)
e = Estratto(es,r,5)
f = Fuori90(a + b + d + e)
g = Differenza(45,f)
n(1) = f
n(2) = g
n1(1) = a
n1(2) = b
n1(3) = d
n1(4) = e
'----------
n2(1) = a
n2(2) = b
n2(3) = d
n2(4) = e
n2(5) = sp1
ruota(1) = r
ruote(1) = r1
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " ** Numero Centrale " & Format2(sp1),1
Scrivi "Ambate : " & Format2(n(1)) & " * " & Format2(n(2)),1
Scrivi "Cinquina x Ambo a ruota e a tutte : " & Format2(n1(1)) & " * " & Format2(n1(2)) & " * " & Format2(n1(3)) & " * " & Format2(n1(4)),1
Scrivi String(100,"°"),1
ImpostaGiocata 1,n,ruota,posta,Clp,1
ImpostaGiocata 2,n2,ruota,poste,Clp,2
ImpostaGiocata 3,n2,ruote,poste,Clp,2
Gioca es,1,,1
End If
If ScriptInterrotto Then Exit For
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" Idea e Script by BaffoBlù "),1,3,0
ScriviResoconto
End Sub
Marco-elle
Advanced Member >PLATINUM PLUS<
C'è poco da modificare!....il metodo è ottimo già di suo....cmq,ho inserito una decina algoritmica
su ruota,giusto per provarci ma....niente di che!
PS:
gli algoritmi sono calcolati solo per la spia 33 e le ruote dove esce e non ho controllato cosa succede
con le altre spie ma credo che non valgano
Codice:
Sub Main()
Dim es,Ini,Fin,r,r1,Tm,Clp,co,a,b,d,e,f,g,sp1
Dim ruota(10)
Dim ruote(11)
Dim posta(10)
Dim poste(10)
Dim postee(4)
Dim n(2)
Dim n1(4)
Dim n2(5)
Dim n3(10)
posta(1) = 1
poste(2) = 1
postee(2) = 1
postee(3) = 1
postee(4) = 1
ruota(1) = r
ruote(1) = r1
r1 = 11
sp1 = CInt(InputBox(" Spia ? ",,"33"))
Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"1000"))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"18"))
Ini = EstrazioneFin - Tm
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
For r = 1 To 10
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
ruota(1) = r
ruote(1) = r1
If Estratto(es,r,3) = sp1 Then
a = Estratto(es,r,1)
b = Estratto(es,r,2)
d = Estratto(es,r,4)
e = Estratto(es,r,5)
f = Fuori90(a + b + d + e)
g = Differenza(45,f)
nu1 = Fuori90(Estratto(es,6,1) + Estratto(es,9,2) + 34)
nu2 = Fuori90(Estratto(es,3,1) + Estratto(es,5,2) + 67)
nu3 = Fuori90(Estratto(es,9,2) * Estratto(es,10,3) + 73)
nu4 = Fuori90(Estratto(es,3,4) * Estratto(es,6,2) + 32)
nu5 = Fuori90(90+(Estratto(es,10,3)) - Estratto(es,12,5) + 66)
nu6 = Fuori90(Estratto(es,7,4) + Estratto(es,10,5) + 39)
nu7 = Fuori90(90+(Estratto(es,6,4)) - Estratto(es,1,4) + 19)
nu8 = Fuori90(Estratto(es,9,1) * Estratto(es,10,4) + 68)
nu9 = Fuori90(Estratto(es,2,4) + Estratto(es,5,2) + 80)
nu10 = Fuori90(90+(Estratto(es,8,3)) - Estratto(es,2,4) + 26)
n(1) = f
n(2) = g
n1(1) = a
n1(2) = b
n1(3) = d
n1(4) = e
'----------
n2(1) = a
n2(2) = b
n2(3) = d
n2(4) = e
n2(5) = sp1
'-----------
n3(1) = nu1
n3(2) = nu2
n3(3) = nu3
n3(4) = nu4
n3(5) = nu5
n3(6) = nu6
n3(7) = nu7
n3(8) = nu8
n3(9) = nu9
n3(10) = nu10
ruota(1) = r
ruote(1) = r1
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " ** Numero Centrale " & Format2(sp1),1
Scrivi "Ambate : " & Format2(n(1)) & " * " & Format2(n(2)),1
Scrivi "Cinquina x Ambo a ruota e a tutte : " & Format2(n1(1)) & " * " & Format2(n1(2)) & " * " & Format2(n1(3)) & " * " & Format2(n1(4)),1
Scrivi String(100,"°"),1
ImpostaGiocata 1,n,ruota,posta,Clp,1
ImpostaGiocata 2,n2,ruota,poste,Clp,2
ImpostaGiocata 3,n3,ruota,postee,Clp,2
Gioca es,1,,1
End If
If ScriptInterrotto Then Exit For
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" Idea e Script by BaffoBlù "),1,3,0
ScriviResoconto
End Sub
Ultima modifica:
Marco-elle
Advanced Member >PLATINUM PLUS<
Questo listato analizza gli ambi con i numeretti usciti sulla NZ
e regala una previsione statistica su ruote congeniali
Buona lettura......
PS;
copiate bene lo script perchè è un rotolo di carta igienica
PPS;
manca l'ambo 6-9 perchè è uscito solo 1 volta nella storia
e quindi non fa statistica
e regala una previsione statistica su ruote congeniali
Buona lettura......
PS;
copiate bene lo script perchè è un rotolo di carta igienica
PPS;
manca l'ambo 6-9 perchè è uscito solo 1 volta nella storia
e quindi non fa statistica
Codice:
Sub Main()
ColoreTesto 2
Scrivi "AMBI CON I NUMERETTI USCITI SULLA NZ"
Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
Scrivi "RICERCA EPOCALE E LIST BY Marco"
ColoreTesto 0
Dim ruota(12)
Dim a3(3)
Dim a4(4)
Dim posta(3)
Dim postee(4)
posta(2) = 1
posta(3) = 1
postee(2) = 1
postee(3) = 1
postee(4) = 1
clp = 12
ini = EstrazioneFin - 3500
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For r1 = 12 To 12
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
ok = 0
If a = 1 And b = 2 Or a = 2 And b = 1 Then
a4(1) = 8
a4(2) = 9
a4(3) = 11
a4(4) = 42
ruota(1) = 1
ruota(2) = 2
ImpostaGiocata 2,a4,ruota,postee,clp
ok = 1
End If
If a = 1 And b = 3 Or a = 3 And b = 1 Then
a4(1) = 2
a4(2) = 6
a4(3) = 8
a4(4) = 56
ruota(1) = 1
ruota(2) = 2
ImpostaGiocata 2,a4,ruota,postee,clp
ok = 1
End If
If a = 1 And b = 4 Or a = 4 And b = 1 Then
a4(1) = 4
a4(2) = 11
a4(3) = 18
a4(4) = 41
ruota(1) = 1
ruota(2) = 3
ImpostaGiocata 2,a4,ruota,postee,clp
ok = 1
End If
If a = 1 And b = 5 Or a = 5 And b = 1 Then
a3(1) = 4
a3(2) = 12
a3(3) = 51
ruota(1) = 6
ruota(2) = 8
ImpostaGiocata 1,a3,ruota,posta,clp
ok = 1
End If
If a = 1 And b = 6 Or a = 6 And b = 1 Then
a3(1) = 2
a3(2) = 13
a3(3) = 26
ruota(1) = 4
ruota(2) = 6
ImpostaGiocata 1,a3,ruota,posta,clp
ok = 1
End If
If a = 1 And b = 7 Or a = 7 And b = 1 Then
a3(1) = 8
a3(2) = 11
a3(3) = 53
ruota(1) = 3
ruota(2) = 4
ImpostaGiocata 1,a3,ruota,posta,clp
ok = 1
End If
If a = 1 And b = 8 Or a = 8 And b = 1 Then
a3(1) = 7
a3(2) = 19
a3(3) = 35
ruota(1) = 2
ruota(2) = 10
ImpostaGiocata 1,a3,ruota,posta,clp
ok = 1
End If
If a = 1 And b = 9 Or a = 9 And b = 1 Then
a3(1) = 1
a3(2) = 12
a3(3) = 49
ruota(1) = 7
ruota(2) = 8
ImpostaGiocata 1,a3,ruota,posta,clp
ok = 1
End If
If a = 2 And b = 3 Or a = 3 And b = 2 Then
a3(1) = 2
a3(2) = 22
a3(3) = 57
ruota(1) = 1
ruota(2) = 6
ImpostaGiocata 1,a3,ruota,posta,clp
ok = 1
End If
If a = 2 And b = 4 Or a = 4 And b = 2 Then
a4(1) = 13
a4(2) = 28
a4(3) = 31
a4(4) = 33
ruota(1) = 1
ruota(2) = 5
ImpostaGiocata 2,a4,ruota,postee,clp
ok = 1
End If
If a = 2 And b = 5 Or a = 5 And b = 2 Then
a4(1) = 6
a4(2) = 13
a4(3) = 25
a4(4) = 89
ruota(1) = 1
ruota(2) = 5
ImpostaGiocata 2,a4,ruota,postee,clp
ok = 1
End If
If a = 2 And b = 6 Or a = 6 And b = 2 Then
a4(1) = 8
a4(2) = 9
a4(3) = 20
a4(4) = 51
ruota(1) = 1
ruota(2) = 4
ImpostaGiocata 2,a4,ruota,postee,clp
ok = 1
End If
If a = 2 And b = 7 Or a = 7 And b = 2 Then
a3(1) = 3
a3(2) = 4
a3(3) = 47
ruota(1) = 1
ruota(2) = 5
ImpostaGiocata 1,a3,ruota,posta,clp
ok = 1
End If
If a = 2 And b = 8 Or a = 8 And b = 2 Then
a4(1) = 2
a4(2) = 5
a4(3) = 10
a4(4) = 84
ruota(1) = 1
ruota(2) = 2
ImpostaGiocata 2,a4,ruota,postee,clp
ok = 1
End If
If a = 2 And b = 9 Or a = 9 And b = 2 Then
a4(1) = 9
a4(2) = 10
a4(3) = 18
a4(4) = 23
ruota(1) = 1
ruota(2) = 2
ImpostaGiocata 2,a4,ruota,postee,clp
ok = 1
End If
If a = 3 And b = 4 Or a = 4 And b = 3 Then
a3(1) = 2
a3(2) = 5
a3(3) = 54
ruota(1) = 1
ruota(2) = 3
ImpostaGiocata 1,a3,ruota,posta,clp
ok = 1
End If
If a = 3 And b = 5 Or a = 5 And b = 3 Then
a3(1) = 1
a3(2) = 3
a3(3) = 47
ruota(1) = 1
ruota(2) = 3
ImpostaGiocata 1,a3,ruota,posta,clp
ok = 1
End If
If a = 3 And b = 6 Or a = 6 And b = 3 Then
a4(1) = 13
a4(2) = 14
a4(3) = 24
a4(4) = 77
ruota(1) = 1
ruota(2) = 2
ImpostaGiocata 2,a4,ruota,postee,clp
ok = 1
End If
If a = 3 And b = 7 Or a = 7 And b = 3 Then
a3(1) = 1
a3(2) = 6
a3(3) = 60
ruota(1) = 1
ruota(2) = 4
ImpostaGiocata 1,a3,ruota,posta,clp
ok = 1
End If
If a = 3 And b = 8 Or a = 8 And b = 3 Then
a3(1) = 2
a3(2) = 48
a3(3) = 74
ruota(1) = 1
ruota(2) = 2
ImpostaGiocata 1,a3,ruota,posta,clp
ok = 1
End If
If a = 3 And b = 9 Or a = 9 And b = 3 Then
a4(1) = 9
a4(2) = 13
a4(3) = 28
a4(4) = 43
ruota(1) = 1
ruota(2) = 7
ImpostaGiocata 2,a4,ruota,postee,clp
ok = 1
End If
If a = 4 And b = 5 Or a = 5 And b = 4 Then
a3(1) = 11
a3(2) = 27
a3(3) = 29
ruota(1) = 5
ruota(2) = 8
ImpostaGiocata 1,a3,ruota,posta,clp
ok = 1
End If
If a = 4 And b = 6 Or a = 6 And b = 4 Then
a3(1) = 1
a3(2) = 28
a3(3) = 79
ruota(1) = 4
ruota(2) = 8
ImpostaGiocata 1,a3,ruota,posta,clp
ok = 1
End If
If a = 4 And b = 7 Or a = 7 And b = 4 Then
a4(1) = 7
a4(2) = 20
a4(3) = 60
a4(4) = 76
ruota(1) = 1
ruota(2) = 3
ImpostaGiocata 2,a4,ruota,postee,clp
ok = 1
End If
If a = 4 And b = 8 Or a = 8 And b = 4 Then
a4(1) = 2
a4(2) = 3
a4(3) = 34
a4(4) = 37
ruota(1) = 6
ruota(2) = 8
ImpostaGiocata 2,a4,ruota,postee,clp
ok = 1
End If
If a = 4 And b = 9 Or a = 9 And b = 4 Then
a3(1) = 3
a3(2) = 18
a3(3) = 39
ruota(1) = 6
ruota(2) = 9
ImpostaGiocata 1,a3,ruota,posta,clp
ok = 1
End If
If a = 5 And b = 6 Or a = 6 And b = 5 Then
a3(1) = 1
a3(2) = 37
a3(3) = 67
ruota(1) = 3
ruota(2) = 10
ImpostaGiocata 1,a3,ruota,posta,clp
ok = 1
End If
If a = 5 And b = 7 Or a = 7 And b = 5 Then
a3(1) = 5
a3(2) = 31
a3(3) = 50
ruota(1) = 1
ruota(2) = 10
ImpostaGiocata 1,a3,ruota,posta,clp
ok = 1
End If
If a = 5 And b = 8 Or a = 8 And b = 5 Then
a3(1) = 1
a3(2) = 12
a3(3) = 50
ruota(1) = 5
ruota(2) = 9
ImpostaGiocata 1,a3,ruota,posta,clp
ok = 1
End If
If a = 5 And b = 9 Or a = 9 And b = 5 Then
a4(1) = 2
a4(2) = 7
a4(3) = 9
a4(4) = 45
ruota(1) = 1
ruota(2) = 7
ImpostaGiocata 2,a4,ruota,postee,clp
ok = 1
End If
If a = 6 And b = 7 Or a = 7 And b = 6 Then
a4(1) = 7
a4(2) = 22
a4(3) = 69
a4(4) = 87
ruota(1) = 1
ruota(2) = 4
ImpostaGiocata 2,a4,ruota,postee,clp
ok = 1
End If
If a = 6 And b = 8 Or a = 8 And b = 6 Then
a4(1) = 27
a4(2) = 36
a4(3) = 65
a4(4) = 73
ruota(1) = 1
ruota(2) = 2
ImpostaGiocata 2,a4,ruota,postee,clp
ok = 1
End If
If a = 7 And b = 8 Or a = 8 And b = 7 Then
a4(1) = 4
a4(2) = 15
a4(3) = 51
a4(4) = 64
ruota(1) = 1
ruota(2) = 7
ImpostaGiocata 2,a4,ruota,postee,clp
ok = 1
End If
If a = 7 And b = 9 Or a = 9 And b = 7 Then
a4(1) = 4
a4(2) = 12
a4(3) = 15
a4(4) = 38
ruota(1) = 1
ruota(2) = 3
ImpostaGiocata 2,a4,ruota,postee,clp
ok = 1
End If
If a = 8 And b = 9 Or a = 9 And b = 8 Then
a4(1) = 8
a4(2) = 17
a4(3) = 20
a4(4) = 46
ruota(1) = 1
ruota(2) = 2
ImpostaGiocata 2,a4,ruota,postee,clp
ok = 1
End If
If ok = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(110,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1),1
Scrivi DataEstrazione(es) & " ambo di numeretti " & a & " - " & b,1
Scrivi String(110,"°"),1
ColoreTesto 0
Gioca es,1
End If
Next
Next
Next
Next
ScriviResoconto
End SubBaffoBlù
Advanced Member >PLATINUM<
La spia 33 ci porta anche questo :
Lo script ricava 3 ambate e una decina per sorti superiori
dal 1871, analizzati 1069 casi totali
Estratto su ruota : 2.982
Ambo su ruota : 1.177
Terno su ruota : 119
Quaterna su ruota : 5
Attesa media : 6 colpi
Così com'è, non ho scremato gli ambi, ma si potrebbe benissimo farlo...
Codice:
Option Explicit
Sub Main()
Dim es,Ini,Fin,r,r1,Tm,Clp,co,sp1
Dim ruota(10)
Dim ruote(10)
Dim posta(10)
Dim poste(10)
Dim n(3)
Dim n1(10)
posta(1) = 1
poste(2) = 1
ruota(1) = r
ruote(1) = r1
r1 = 11
sp1 = CInt(InputBox(" Spia ? ",,"33"))
Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"10444"))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"18"))
Ini = EstrazioneFin - Tm
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
For r = 1 To 10
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
ruota(1) = r
ruote(1) = r1
If Estratto(es,r,3) = sp1 Then
'-----------------------------------------------
'66.13.60.06.84.25.11.15.72.56...42.01.77.45.43.
'-----------------------------------------------
n(1) = 66
n(2) = 13
n(3) = 60
'---------
n1(1) = 66
n1(2) = 13
n1(3) = 60
n1(4) = 06
n1(5) = 84
n1(6) = 25
n1(7) = 11
n1(8) = 15
n1(9) = 72
n1(10) = 56
ruota(1) = r
ruote(1) = r1
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " * SPIA " & Format2(sp1),1
Scrivi "La Decina Micidiale : " & Format2(n1(1)) & " * " & Format2(n1(2)) & " * " & Format2(n1(3)) & " * " & Format2(n1(4)) & Format2(n1(5)) & " * " & Format2(n1(6)) & " * " & Format2(n1(7)) & " * " & Format2(n1(8)) & " * " & Format2(n1(9)) & " * " & Format2(n1(10)),1
Scrivi String(100,"°"),1
ImpostaGiocata 1,n,ruota,posta,Clp,1
ImpostaGiocata 2,n1,ruota,poste,Clp,2
Gioca es,1,,1
End If
If ScriptInterrotto Then Exit For
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" Idea e Script by BaffoBlù "),1,3,0
ScriviResoconto
End SubOberdan
Member
Ciao nadin,
i primi tre numeri sono per ambata. I restanti 10 per le sorti superiori.
Oberdan
BaffoBlù
Advanced Member >PLATINUM<
Scusate raga
Dopo che la spia 33 si è fatta vedere SOLO come 3° estratto
le Ambate 66.13.60 >>> ok
poi la Decina per sorti superiori
66.13.60.06.84.25.11.15.72.56 >>>ok
Le ambate sono anche dei ottimi capogioco...
Questa lista di 15 numeri che avete visto remmata nello script
ho scordato di togliere i 5 numeri che vedete a parte dopo i 3 puntini
66.13.60.06.84.25.11.15.72.56...42.01.77.45.43.
I 15 numeri erano destinati ad uno script (VerificaEsito) per via dei 15 numeri...
Come sapete su script normali si possono giocare max 10 numeri...
Divertitevi a controllare e fate le vostre valutazioni...
BaffoBlù
Advanced Member >PLATINUM<
Salve ragazzi
Avete già visto condizioni simili a quella che vedrete adesso
Per poter operare bisogna rilevare Tre elementi su Tre ruote diverse
ognuno su una ruota.
Non vi devono essere altri elementi simili (Ripetuti) oltre ai "TRE" rilevati,
in tal caso è da scartare.
Oggi vi faccio conoscere 2 numeri particolari (per comporre la sequenza dei tre elementi, di cui uno solo ripetuto)
Da gli Esagrammi Cinesi :
Il numero "21" (SCI HO) Il Morso che Spezza.
Il numero "34" (TA CIUANG) La Forza del Grande.
la sequenza dei (TRE) elementi da ricercare è la solita vista
21.21.34
34.34.21
21.34.21
34.21.34
21.34.34
34.21.21
Una volta individuata una di queste sequenze/condizione, porre in gioco sulle tre ruote
la seguente previsione
OCCHIO, RIPETO, Non vi devono essere altri elementi simili (Ripetuti) oltre ai "TRE" rilevati.
Previsione completa per le 3 ruote :
55. (Ambata capogioco)
23...06...12...(Abbinamenti principali per Ambo)
14..03..90..52..62..28..(Abbinamenti Secondari per Ambo)
-------------------------------------------------------------------
13. (Ambata capogioco)
23...32...(Abbinamenti principali per Ambo)
41..68...02..18..79..46...01..(Abbinamenti Secondari per Ambo)
****************************
PREVISIONE IN CORSO...
Napoli/Venezia/Nazionale
In tutto il 2023 e 2024 ha fatto piccole stragi (Ambi caduti insieme formando terni...)
Vorrei fare lo script, per farvi vedere quest'ultimo anno, ma non riesco ad eliminare le condizioni non valide (con piu di tre elementi in altre ruote...)
Comunque il 13 e il 55 escono fuori così :
21+34 = 55
34-21= 13
Avete già visto condizioni simili a quella che vedrete adesso
Per poter operare bisogna rilevare Tre elementi su Tre ruote diverse
ognuno su una ruota.
Non vi devono essere altri elementi simili (Ripetuti) oltre ai "TRE" rilevati,
in tal caso è da scartare.
Oggi vi faccio conoscere 2 numeri particolari (per comporre la sequenza dei tre elementi, di cui uno solo ripetuto)
Da gli Esagrammi Cinesi :
Il numero "21" (SCI HO) Il Morso che Spezza.
Il numero "34" (TA CIUANG) La Forza del Grande.
la sequenza dei (TRE) elementi da ricercare è la solita vista
21.21.34
34.34.21
21.34.21
34.21.34
21.34.34
34.21.21
Una volta individuata una di queste sequenze/condizione, porre in gioco sulle tre ruote
la seguente previsione
OCCHIO, RIPETO, Non vi devono essere altri elementi simili (Ripetuti) oltre ai "TRE" rilevati.
Previsione completa per le 3 ruote :
55. (Ambata capogioco)
23...06...12...(Abbinamenti principali per Ambo)
14..03..90..52..62..28..(Abbinamenti Secondari per Ambo)
-------------------------------------------------------------------
13. (Ambata capogioco)
23...32...(Abbinamenti principali per Ambo)
41..68...02..18..79..46...01..(Abbinamenti Secondari per Ambo)
****************************
PREVISIONE IN CORSO...
Napoli/Venezia/Nazionale
In tutto il 2023 e 2024 ha fatto piccole stragi (Ambi caduti insieme formando terni...)
Vorrei fare lo script, per farvi vedere quest'ultimo anno, ma non riesco ad eliminare le condizioni non valide (con piu di tre elementi in altre ruote...)
Comunque il 13 e il 55 escono fuori così :
21+34 = 55
34-21= 13
domenico79
Advanced Member >PLATINUM<
SALVE MA IL 55 E GIA' USCITO LO SI CONTINUA LO STESSO?
BaffoBlù
Advanced Member >PLATINUM<
Oberdan
Member
Ciao Baffoblù,
non vedo l'ora di vedere lo script completo!
Per risolvere il problema delle condizioni non valide potresti procedere in questo modo...
K1 = 0
K2 = 0
ok = 0
For r = 1 To 11
If r = 11 Then r = 12
for p = 1 to 5
If Estratto (es,r,p) = 21 Then K1 = K1 + 1
If Estratto (es,r,p) = 34 Then k2 = k2 + 1
Next
If (K1 = 1 And k2 = 2) Or (k1 = 2 And k2 = 1) Then ok = 1
If ok = 1 Then
' La condizione è verificata
Buona serata.
Oberdan
Ciao Baffo. Ho provato a realizzare lo script richiesto. Non so se le giocate sono come le vuoi tu. Verifica se fa quanto tu hai richiesto.
Codice:
Option Explicit
Sub Main()
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
TestoInBandaPassante(" *** Metodo By BaffoBlù ***"),1,3,0
ColoreTesto 0
Scrivi String(100," * ")
Dim es,Ini,Fin,r1,r2,r3,r11,Seq,Clp,co,ok,a,b,c,sp1,sp2,sp3,pos,Num1,Num2
Dim conta_tot,flag,N1,conta_ruota,Numero_spia(3),i,prod
Dim ruota(12)
Dim ruote(12)
Dim poste(10)
Dim posta(2)
Dim n(2)
Dim am1(2)
Dim am2(2)
Dim am3(2)
Dim am4(2)
Dim am5(2)
Dim am6(2)
Dim am7(2)
Dim am8(2)
Dim am9(2)
Dim am10(2)
Dim am11(2)
Dim am12(2)
Dim am13(2)
Dim am14(2)
Dim am15(2)
Dim am16(2)
Dim am17(2)
Dim am18(2)
posta(1) = 1
poste(2) = 1
r11 = 11
Clp = 12
Ini=1
Fin = EstrazioneFin
co = 0
Num1=21
Num2=34
For es = Ini To Fin
conta_tot=0
flag=0
Erase ruota
Erase Numero_spia
For r1 = 1 To 12
If r1 = 11 Then r1 = 12 End If
conta_ruota=0
For pos=1 To 5
N1=Estratto(es,r1,pos)
If N1= Num1 Or N1=Num2 Then
conta_ruota=conta_ruota+1
conta_tot=conta_tot+1
If conta_ruota<=1 And conta_tot<4 Then 'Uno solo dei due numeri sulla stessa ruota e max tre in totale
ruota(conta_tot)= r1
Numero_spia(conta_tot)= N1
Else
flag=1 'Se due numeri sulla stessa ruota o più di tre in totale esco dal ciclo
Exit For
End If
End If
If flag Then Exit For
Next
If flag Then Exit For
Next
prod=Numero_spia(1)*Numero_spia(2)*Numero_spia(3)
If conta_tot=3 And prod<>Num1*Num1*Num1 And prod<>Num2*Num2*Num2 And prod<>0 Then 'Solo tre numeri e non tutti uguali su tutte le ruote
sp1=Numero_spia(1)
sp2=Numero_spia(2)
sp3=Numero_spia(3)
r1 = ruota(1)
r2 = ruota(2)
r3 = ruota(3)
ruote(1) = r11
ok = 1
If ok = 1 Then
Call AvanzamentoElab(Ini,Fin,es)
n(1) = 55
n(2) = 13
am1(1) = 55
am1(2) = 23
am2(1) = 55
am2(2) = 6
am3(1) = 55
am3(2) = 12
am4(1) = 55
am4(2) = 14
am5(1) = 55
am5(2) = 03
am6(1) = 55
am6(2) = 90
am7(1) = 55
am7(2) = 52
am8(1) = 55
am8(2) = 62
am9(1) = 55
am9(2) = 28
am10(1) = 13
am10(2) = 23
am11(1) = 13
am11(2) = 32
am12(1) = 13
am12(2) = 41
am13(1) = 13
am13(2) = 68
am14(1) = 13
am14(2) = 02
am15(1) = 13
am15(2) = 18
am16(1) = 13
am16(2) = 79
am17(1) = 13
am17(2) = 46
am18(1) = 13
am18(2) = 01
co = co + 1
Scrivi
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " * " & SiglaRuota(r1) & " : " & sp1 & " / " & SiglaRuota(r2) & " : " & sp2 & " / " & SiglaRuota(r3) & " : " & sp3,1
Scrivi String(100,"°"),1
ImpostaGiocata 1,n,ruota,posta,Clp,1,,1
ImpostaGiocata 3,am1,ruota,poste,Clp,2,,3
ImpostaGiocata 4,am2,ruota,poste,Clp,2,,4
ImpostaGiocata 5,am3,ruota,poste,Clp,2,,5
ImpostaGiocata 6,am4,ruota,poste,Clp,2,,6
ImpostaGiocata 7,am5,ruota,poste,Clp,2,,7
ImpostaGiocata 8,am6,ruota,poste,Clp,2,,8
ImpostaGiocata 9,am7,ruota,poste,Clp,2,,9
ImpostaGiocata 10,am8,ruota,poste,Clp,2,,10
ImpostaGiocata 11,am9,ruota,poste,Clp,2,,11
ImpostaGiocata 12,am10,ruota,poste,Clp,2,,12
ImpostaGiocata 13,am11,ruota,poste,Clp,2,,13
ImpostaGiocata 14,am12,ruota,poste,Clp,2,,14
ImpostaGiocata 15,am13,ruota,poste,Clp,2,,15
ImpostaGiocata 16,am14,ruota,poste,Clp,2,,16
ImpostaGiocata 17,am15,ruota,poste,Clp,2,,17
ImpostaGiocata 18,am16,ruota,poste,Clp,2,,18
ImpostaGiocata 19,am17,ruota,poste,Clp,2,,19
ImpostaGiocata 20,am18,ruota,poste,Clp,2,,20
Gioca es,1,,1
End If
If ScriptInterrotto Then Exit For
End If
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
ScriviResoconto
End SubMarco-elle
Advanced Member >PLATINUM PLUS<
Questo listato esamina tutti i numeri uguali e isotopi tra BA e CA
è aggiornato al 1° semestre cosi non risulta troppo lungo da copiare
e da elaborare e poi richiede molto tempo e concentrazione nella
realizzazione.Spero apprezziate le idee del sottoscritto e l'impegno
Buona lettura.....
è aggiornato al 1° semestre cosi non risulta troppo lungo da copiare
e da elaborare e poi richiede molto tempo e concentrazione nella
realizzazione.Spero apprezziate le idee del sottoscritto e l'impegno
Buona lettura.....
Codice:
Sub Main()
ColoreTesto 2
Scrivi "NUMERI ISOTOPI E UGUALI TRA BA-CA( AGGIORNATO AL 1° SEMESTRE)"
Scrivi "GIOCA PREVISIONE RISTRETTA SU RUOTE CONGENIALI "
Scrivi "RICERCA EPOCALE E LIST BY Marco"
ColoreTesto 0
Dim ruota(12)
Dim n(1)
Dim n1(2)
Dim n2(2)
Dim posta(1)
Dim poste(2)
posta(1) = 1
poste(2) = 1
clp = 15
ini = EstrazioneFin - 10000
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For r1 = 1 To 1
For r2 = 2 To 2
For p1 = 1 To 5
For p2 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
ok = 0
If a = b And Mese(es) = 1 Then
If p1 = 1 And p2 = 1 Then
n(1) = 11
n1(1) = 11
n1(2) = 32
n2(1) = 11
n2(2) = 81
ruota(1) = 5
ruota(2) = 10
ok = 1
End If
End If
If a = b And Mese(es) = 1 Then
If p1 = 2 And p2 = 2 Then
n(1) = 2
n1(1) = 2
n1(2) = 11
n2(1) = 2
n2(2) = 34
ruota(1) = 5
ruota(2) = 7
ok = 1
End If
End If
If a = b And Mese(es) = 1 Then
If p1 = 3 And p2 = 3 Then
n(1) = 4
n1(1) = 4
n1(2) = 6
n2(1) = 4
n2(2) = 13
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
End If
If a = b And Mese(es) = 1 Then
If p1 = 4 And p2 = 4 Then
n(1) = 2
n1(1) = 2
n1(2) = 38
n2(1) = 2
n2(2) = 44
ruota(1) = 1
ruota(2) = 8
ok = 1
End If
End If
If a = b And Mese(es) = 1 Then
If p1 = 5 And p2 = 5 Then
n(1) = 4
n1(1) = 4
n1(2) = 57
n2(1) = 4
n2(2) = 61
ruota(1) = 4
ruota(2) = 10
ok = 1
End If
End If
If a = b And Mese(es) = 2 Then
If p1 = 1 And p2 = 1 Then
n(1) = 1
n1(1) = 1
n1(2) = 57
n2(1) = 1
n2(2) = 63
ruota(1) = 1
ruota(2) = 9
ok = 1
End If
End If
If a = b And Mese(es) = 2 Then
If p1 = 2 And p2 = 2 Then
n(1) = 1
n1(1) = 1
n1(2) = 45
n2(1) = 1
n2(2) = 60
ruota(1) = 1
ruota(2) = 7
ok = 1
End If
End If
If a = b And Mese(es) = 2 Then
If p1 = 4 And p2 = 4 Then
n(1) = 2
n1(1) = 2
n1(2) = 77
n2(1) = 2
n2(2) = 84
ruota(1) = 2
ruota(2) = 5
ok = 1
End If
End If
If a = b And Mese(es) = 2 Then
If p1 = 5 And p2 = 5 Then
n(1) = 3
n1(1) = 3
n1(2) = 20
n2(1) = 3
n2(2) = 22
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
End If
If a = b And Mese(es) = 3 Then
If p1 = 1 And p2 = 1 Then
n(1) = 9
n1(1) = 9
n1(2) = 3
n2(1) = 9
n2(2) = 82
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
End If
If a = b And Mese(es) = 3 Then
If p1 = 2 And p2 = 2 Then
n(1) = 4
n1(1) = 4
n1(2) = 18
n2(1) = 4
n2(2) = 71
ruota(1) = 2
ruota(2) = 10
ok = 1
End If
End If
If a = b And Mese(es) = 3 Then
If p1 = 3 And p2 = 3 Then
n(1) = 1
n1(1) = 1
n1(2) = 2
n2(1) = 1
n2(2) = 10
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
End If
If a = b And Mese(es) = 3 Then
If p1 = 4 And p2 = 4 Then
n(1) = 2
n1(1) = 2
n1(2) = 22
n2(1) = 2
n2(2) = 24
ruota(1) = 3
ruota(2) = 4
ok = 1
End If
End If
If a = b And Mese(es) = 3 Then
If p1 = 5 And p2 = 5 Then
n(1) = 1
n1(1) = 1
n1(2) = 12
n2(1) = 1
n2(2) = 61
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
End If
If a = b And Mese(es) = 4 Then
If p1 = 1 And p2 = 1 Then
n(1) = 3
n1(1) = 3
n1(2) = 12
n2(1) = 3
n2(2) = 74
ruota(1) = 1
ruota(2) = 8
ok = 1
End If
End If
If a = b And Mese(es) = 4 Then
If p1 = 2 And p2 = 2 Then
n(1) = 7
n1(1) = 7
n1(2) = 23
n2(1) = 7
n2(2) = 74
ruota(1) = 5
ruota(2) = 10
ok = 1
End If
End If
If a = b And Mese(es) = 4 Then
If p1 = 3 And p2 = 3 Then
n(1) = 2
n1(1) = 2
n1(2) = 60
n2(1) = 2
n2(2) = 62
ruota(1) = 1
ruota(2) = 5
ok = 1
End If
End If
If a = b And Mese(es) = 4 Then
If p1 = 4 And p2 = 4 Then
n(1) = 3
n1(1) = 3
n1(2) = 18
n2(1) = 3
n2(2) = 86
ruota(1) = 1
ruota(2) = 7
ok = 1
End If
End If
If a = b And Mese(es) = 4 Then
If p1 = 5 And p2 = 5 Then
n(1) = 2
n1(1) = 2
n1(2) = 49
ruota(1) = 3
ruota(2) = 10
ok = 1
End If
End If
If a = b And Mese(es) = 5 Then
If p1 = 1 And p2 = 1 Then
n(1) = 7
n1(1) = 7
n1(2) = 17
n2(1) = 7
n2(2) = 52
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
End If
If a = b And Mese(es) = 5 Then
If p1 = 2 And p2 = 2 Then
n(1) = 4
n1(1) = 4
n1(2) = 26
n2(1) = 4
n2(2) = 48
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
End If
If a = b And Mese(es) = 5 Then
If p1 = 3 And p2 = 3 Then
n(1) = 2
n1(1) = 2
n1(2) = 19
n2(1) = 2
n2(2) = 76
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
End If
If a = b And Mese(es) = 5 Then
If p1 = 4 And p2 = 4 Then
n(1) = 7
n1(1) = 7
n1(2) = 29
n2(1) = 7
n2(2) = 65
ruota(1) = 2
ruota(2) = 6
ok = 1
End If
End If
If a = b And Mese(es) = 5 Then
If p1 = 5 And p2 = 5 Then
n(1) = 6
n1(1) = 6
n1(2) = 10
n2(1) = 6
n2(2) = 31
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
End If
If a = b And Mese(es) = 6 Then
If p1 = 1 And p2 = 1 Then
n(1) = 6
n1(1) = 6
n1(2) = 23
n2(1) = 6
n2(2) = 28
ruota(1) = 5
ruota(2) = 10
ok = 1
End If
End If
If a = b And Mese(es) = 6 Then
If p1 = 2 And p2 = 2 Then
n(1) = 1
n1(1) = 1
n1(2) = 7
n2(1) = 1
n2(2) = 20
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
End If
If a = b And Mese(es) = 6 Then
If p1 = 3 And p2 = 3 Then
n(1) = 25
n1(1) = 25
n1(2) = 11
n2(1) = 25
n2(2) = 19
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
End If
If a = b And Mese(es) = 6 Then
If p1 = 4 And p2 = 4 Then
n(1) = 1
n1(1) = 1
n1(2) = 39
ruota(1) = 6
ruota(2) = 10
ok = 1
End If
End If
If a = b And Mese(es) = 6 Then
If p1 = 5 And p2 = 5 Then
n(1) = 4
n1(1) = 4
n1(2) = 25
n2(1) = 4
n2(2) = 81
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
End If
If ok = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(110,"°") & " Caso n°" & co,1
Scrivi "Data " & DataEstrazione(es) & " "
Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1)
Scrivi SiglaRuota(r2) & " " & StringaEstratti(es,r2)
Scrivi "Su " & FormatSpace(NomeRuota(r1),10) & " Spie " & a
Scrivi "Su " & FormatSpace(NomeRuota(r2),10) & " Spia " & b
ColoreTesto 0
ImpostaGiocata 1,n,ruota,posta,clp
ImpostaGiocata 2,n1,ruota,poste,clp
ImpostaGiocata 3,n2,ruota,poste,clp
Gioca es,1
End If
Next
Next
Next
Next
Next
ScriviResoconto
End SubBaffoBlù
Advanced Member >PLATINUM<
Grazie dello script, volevo analizzare l'andamento dell'ultimo anno (non è un metodo statistico...)
Così impostato, c'è una visione più chiara da inizio 2023, giù c'è anche l'output
Da quello che ho capito dello script,
questo è un altro modo per elaborare quelle 6 sequenze viste in altri miei metodi...
Grazie
Codice:
Option Explicit
Sub Main()
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
TestoInBandaPassante(" *** Metodo By BaffoBlù ***"),1,3,0
ColoreTesto 0
Scrivi String(100," * ")
Dim es,Ini,Fin,r1,r2,r3,r11,Seq,Clp,co,ok,a,b,c,sp1,sp2,sp3,pos,Num1,Num2
Dim conta_tot,flag,N1,conta_ruota,Numero_spia(3),i,prod
Dim ruota(12)
Dim ruote(12)
Dim poste(10)
Dim posta(2)
Dim n(2)
Dim am1(2)
Dim am2(2)
Dim am3(2)
Dim am4(2)
Dim am5(2)
Dim am6(2)
Dim am7(2)
Dim am8(2)
Dim am9(2)
Dim am10(2)
Dim am11(2)
Dim am12(2)
Dim am13(2)
Dim am14(2)
Dim am15(2)
Dim am16(2)
Dim am17(2)
Dim am18(2)
posta(1) = 1
poste(2) = 1
r11 = 11
Clp = 13
Ini = 10179
Fin = EstrazioneFin
co = 0
Num1 = 21
Num2 = 34
For es = Ini To Fin
conta_tot = 0
flag = 0
Erase ruota
Erase Numero_spia
For r1 = 1 To 12
If r1 = 11 Then r1 = 12 End If
conta_ruota = 0
For pos = 1 To 5
N1 = Estratto(es,r1,pos)
If N1 = Num1 Or N1 = Num2 Then
conta_ruota = conta_ruota + 1
conta_tot = conta_tot + 1
If conta_ruota <= 1 And conta_tot < 4 Then 'Uno solo dei due numeri sulla stessa ruota e max tre in totale
ruota(conta_tot) = r1
Numero_spia(conta_tot) = N1
Else
flag = 1 'Se due numeri sulla stessa ruota o più di tre in totale esco dal ciclo
Exit For
End If
End If
If flag Then Exit For
Next
If flag Then Exit For
Next
prod = Numero_spia(1)*Numero_spia(2)*Numero_spia(3)
If conta_tot = 3 And prod <> Num1*Num1*Num1 And prod <> Num2*Num2*Num2 And prod <> 0 Then 'Solo tre numeri e non tutti uguali su tutte le ruote
sp1 = Numero_spia(1)
sp2 = Numero_spia(2)
sp3 = Numero_spia(3)
r1 = ruota(1)
r2 = ruota(2)
r3 = ruota(3)
ruote(1) = r11
ok = 1
If ok = 1 Then
Call AvanzamentoElab(Ini,Fin,es)
n(1) = 55
n(2) = 13
am1(1) = 55
am1(2) = 23
am2(1) = 55
am2(2) = 6
am3(1) = 55
am3(2) = 12
am4(1) = 55
am4(2) = 14
am5(1) = 55
am5(2) = 03
am6(1) = 55
am6(2) = 90
am7(1) = 55
am7(2) = 52
am8(1) = 55
am8(2) = 62
am9(1) = 55
am9(2) = 28
am10(1) = 13
am10(2) = 23
am11(1) = 13
am11(2) = 32
am12(1) = 13
am12(2) = 41
am13(1) = 13
am13(2) = 68
am14(1) = 13
am14(2) = 02
am15(1) = 13
am15(2) = 18
am16(1) = 13
am16(2) = 79
am17(1) = 13
am17(2) = 46
am18(1) = 13
am18(2) = 01
co = co + 1
Scrivi
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " * " & SiglaRuota(r1) & " : " & sp1 & " / " & SiglaRuota(r2) & " : " & sp2 & " / " & SiglaRuota(r3) & " : " & sp3,1
Scrivi String(100,"°"),1
ImpostaGiocata 1,n,ruota,posta,Clp,1,,1
ImpostaGiocata 3,am1,ruota,poste,Clp,2,,3
ImpostaGiocata 4,am2,ruota,poste,Clp,2,,4
ImpostaGiocata 5,am3,ruota,poste,Clp,2,,5
ImpostaGiocata 6,am4,ruota,poste,Clp,2,,6
ImpostaGiocata 7,am5,ruota,poste,Clp,2,,7
ImpostaGiocata 8,am6,ruota,poste,Clp,2,,8
ImpostaGiocata 9,am7,ruota,poste,Clp,2,,9
ImpostaGiocata 10,am8,ruota,poste,Clp,2,,10
ImpostaGiocata 11,am9,ruota,poste,Clp,2,,11
ImpostaGiocata 12,am10,ruota,poste,Clp,2,,12
ImpostaGiocata 13,am11,ruota,poste,Clp,2,,13
ImpostaGiocata 14,am12,ruota,poste,Clp,2,,14
ImpostaGiocata 15,am13,ruota,poste,Clp,2,,15
ImpostaGiocata 16,am14,ruota,poste,Clp,2,,16
ImpostaGiocata 17,am15,ruota,poste,Clp,2,,17
ImpostaGiocata 18,am16,ruota,poste,Clp,2,,18
ImpostaGiocata 19,am17,ruota,poste,Clp,2,,19
ImpostaGiocata 20,am18,ruota,poste,Clp,2,,20
Gioca es,1,,1
End If
If ScriptInterrotto Then Exit For
End If
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
ScriviResoconto
End Subtutti i casi da inizio 2023
Codice:
****************************************************************************************************
*** Metodo By BaffoBlù ***
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°1
11.02.2023 * GE : 34 / RO : 21 / VE : 34
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Estrazione generatrice del pronostico 10198 [ 18 - 11/02/2023]
G 0001 Numeri in gioco : 55.13 su GE RO VE per Estratto
V N. [55.13 ] [RO] [.. .. .. .. 13] C. 3 Estratto 10201 [ 21 - 18/02/2023] [32.27.30.42.13]
V N. [55.13 ] [VE] [.. 55 .. .. ..] C. 3 Estratto 10201 [ 21 - 18/02/2023] [24.55.12.39.14]
Interrotta per esito verificato
G 0003 Numeri in gioco : 55.23 su GE RO VE per Ambo
G 0004 Numeri in gioco : 55.06 su GE RO VE per Ambo
G 0005 Numeri in gioco : 55.12 su GE RO VE per Ambo
V N. [55.12 ] [VE] [.. 55 12 .. ..] C. 3 Ambo 10201 [ 21 - 18/02/2023] [24.55.12.39.14]
Interrotta per esito verificato
G 0006 Numeri in gioco : 55.14 su GE RO VE per Ambo
V N. [55.14 ] [VE] [.. 55 .. .. 14] C. 3 Ambo 10201 [ 21 - 18/02/2023] [24.55.12.39.14]
Interrotta per esito verificato
G 0007 Numeri in gioco : 55.03 su GE RO VE per Ambo
G 0008 Numeri in gioco : 55.90 su GE RO VE per Ambo
G 0009 Numeri in gioco : 55.52 su GE RO VE per Ambo
G 0010 Numeri in gioco : 55.62 su GE RO VE per Ambo
G 0011 Numeri in gioco : 55.28 su GE RO VE per Ambo
G 0012 Numeri in gioco : 13.23 su GE RO VE per Ambo
G 0013 Numeri in gioco : 13.32 su GE RO VE per Ambo
V N. [13.32 ] [RO] [32 .. .. .. 13] C. 3 Ambo 10201 [ 21 - 18/02/2023] [32.27.30.42.13]
Interrotta per esito verificato
G 0014 Numeri in gioco : 13.41 su GE RO VE per Ambo
G 0015 Numeri in gioco : 13.68 su GE RO VE per Ambo
G 0016 Numeri in gioco : 13.02 su GE RO VE per Ambo
G 0017 Numeri in gioco : 13.18 su GE RO VE per Ambo
G 0018 Numeri in gioco : 13.79 su GE RO VE per Ambo
G 0019 Numeri in gioco : 13.46 su GE RO VE per Ambo
G 0020 Numeri in gioco : 13.01 su GE RO VE per Ambo
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°2
28.03.2023 * GE : 21 / TO : 34 / VE : 34
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Estrazione generatrice del pronostico 10217 [ 37 - 28/03/2023]
G 0001 Numeri in gioco : 55.13 su GE TO VE per Estratto
V N. [55.13 ] [VE] [.. .. .. 13 ..] C. 2 Estratto 10219 [ 39 - 01/04/2023] [46.36.19.13.76]
Interrotta per esito verificato
G 0003 Numeri in gioco : 55.23 su GE TO VE per Ambo
G 0004 Numeri in gioco : 55.06 su GE TO VE per Ambo
G 0005 Numeri in gioco : 55.12 su GE TO VE per Ambo
G 0006 Numeri in gioco : 55.14 su GE TO VE per Ambo
G 0007 Numeri in gioco : 55.03 su GE TO VE per Ambo
G 0008 Numeri in gioco : 55.90 su GE TO VE per Ambo
G 0009 Numeri in gioco : 55.52 su GE TO VE per Ambo
G 0010 Numeri in gioco : 55.62 su GE TO VE per Ambo
G 0011 Numeri in gioco : 55.28 su GE TO VE per Ambo
G 0012 Numeri in gioco : 13.23 su GE TO VE per Ambo
G 0013 Numeri in gioco : 13.32 su GE TO VE per Ambo
G 0014 Numeri in gioco : 13.41 su GE TO VE per Ambo
G 0015 Numeri in gioco : 13.68 su GE TO VE per Ambo
G 0016 Numeri in gioco : 13.02 su GE TO VE per Ambo
G 0017 Numeri in gioco : 13.18 su GE TO VE per Ambo
G 0018 Numeri in gioco : 13.79 su GE TO VE per Ambo
G 0019 Numeri in gioco : 13.46 su GE TO VE per Ambo
V N. [13.46 ] [VE] [46 .. .. 13 ..] C. 2 Ambo 10219 [ 39 - 01/04/2023] [46.36.19.13.76]
Interrotta per esito verificato
G 0020 Numeri in gioco : 13.01 su GE TO VE per Ambo
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°3
11.04.2023 * FI : 34 / MI : 21 / NZ : 21
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Estrazione generatrice del pronostico 10223 [ 43 - 11/04/2023]
G 0001 Numeri in gioco : 55.13 su FI MI NZ per Estratto
V N. [55.13 ] [NZ] [.. .. .. 55 ..] C. 3 Estratto 10226 [ 46 - 18/04/2023] [06.80.54.55.23]
Interrotta per esito verificato
G 0003 Numeri in gioco : 55.23 su FI MI NZ per Ambo
V N. [55.23 ] [NZ] [.. .. .. 55 23] C. 3 Ambo 10226 [ 46 - 18/04/2023] [06.80.54.55.23]
Interrotta per esito verificato
G 0004 Numeri in gioco : 55.06 su FI MI NZ per Ambo
V N. [55.06 ] [NZ] [06 .. .. 55 ..] C. 3 Ambo 10226 [ 46 - 18/04/2023] [06.80.54.55.23]
Interrotta per esito verificato
G 0005 Numeri in gioco : 55.12 su FI MI NZ per Ambo
G 0006 Numeri in gioco : 55.14 su FI MI NZ per Ambo
G 0007 Numeri in gioco : 55.03 su FI MI NZ per Ambo
G 0008 Numeri in gioco : 55.90 su FI MI NZ per Ambo
G 0009 Numeri in gioco : 55.52 su FI MI NZ per Ambo
G 0010 Numeri in gioco : 55.62 su FI MI NZ per Ambo
G 0011 Numeri in gioco : 55.28 su FI MI NZ per Ambo
G 0012 Numeri in gioco : 13.23 su FI MI NZ per Ambo
G 0013 Numeri in gioco : 13.32 su FI MI NZ per Ambo
G 0014 Numeri in gioco : 13.41 su FI MI NZ per Ambo
G 0015 Numeri in gioco : 13.68 su FI MI NZ per Ambo
G 0016 Numeri in gioco : 13.02 su FI MI NZ per Ambo
G 0017 Numeri in gioco : 13.18 su FI MI NZ per Ambo
G 0018 Numeri in gioco : 13.79 su FI MI NZ per Ambo
G 0019 Numeri in gioco : 13.46 su FI MI NZ per Ambo
G 0020 Numeri in gioco : 13.01 su FI MI NZ per Ambo
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°4
19.10.2023 * MI : 21 / RO : 34 / NZ : 21
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Estrazione generatrice del pronostico 10320 [140 - 19/10/2023]
G 0001 Numeri in gioco : 55.13 su MI RO NZ per Estratto
V N. [55.13 ] [NZ] [.. .. .. 55 ..] C. 5 Estratto 10325 [145 - 27/10/2023] [43.12.82.55.28]
Interrotta per esito verificato
G 0003 Numeri in gioco : 55.23 su MI RO NZ per Ambo
G 0004 Numeri in gioco : 55.06 su MI RO NZ per Ambo
G 0005 Numeri in gioco : 55.12 su MI RO NZ per Ambo
V N. [55.12 ] [NZ] [.. 12 .. 55 ..] C. 5 Ambo 10325 [145 - 27/10/2023] [43.12.82.55.28]
Interrotta per esito verificato
G 0006 Numeri in gioco : 55.14 su MI RO NZ per Ambo
G 0007 Numeri in gioco : 55.03 su MI RO NZ per Ambo
G 0008 Numeri in gioco : 55.90 su MI RO NZ per Ambo
G 0009 Numeri in gioco : 55.52 su MI RO NZ per Ambo
G 0010 Numeri in gioco : 55.62 su MI RO NZ per Ambo
G 0011 Numeri in gioco : 55.28 su MI RO NZ per Ambo
V N. [55.28 ] [NZ] [.. .. .. 55 28] C. 5 Ambo 10325 [145 - 27/10/2023] [43.12.82.55.28]
Interrotta per esito verificato
G 0012 Numeri in gioco : 13.23 su MI RO NZ per Ambo
G 0013 Numeri in gioco : 13.32 su MI RO NZ per Ambo
G 0014 Numeri in gioco : 13.41 su MI RO NZ per Ambo
G 0015 Numeri in gioco : 13.68 su MI RO NZ per Ambo
G 0016 Numeri in gioco : 13.02 su MI RO NZ per Ambo
G 0017 Numeri in gioco : 13.18 su MI RO NZ per Ambo
G 0018 Numeri in gioco : 13.79 su MI RO NZ per Ambo
G 0019 Numeri in gioco : 13.46 su MI RO NZ per Ambo
G 0020 Numeri in gioco : 13.01 su MI RO NZ per Ambo
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°5
09.11.2023 * FI : 34 / GE : 34 / TO : 21
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Estrazione generatrice del pronostico 10332 [152 - 09/11/2023]
G 0001 Numeri in gioco : 55.13 su FI GE TO per Estratto
V N. [55.13 ] [FI] [.. .. .. .. 13] C. 13 Estratto 10345 [165 - 01/12/2023] [21.20.86.68.13]
V N. [55.13 ] [GE] [.. .. 55 .. ..] C. 13 Estratto 10345 [165 - 01/12/2023] [12.53.55.25.37]
Interrotta per raggiunta durata
Interrotta per esito verificato
G 0003 Numeri in gioco : 55.23 su FI GE TO per Ambo
Interrotta per raggiunta durata
G 0004 Numeri in gioco : 55.06 su FI GE TO per Ambo
Interrotta per raggiunta durata
G 0005 Numeri in gioco : 55.12 su FI GE TO per Ambo
V N. [55.12 ] [GE] [12 .. 55 .. ..] C. 13 Ambo 10345 [165 - 01/12/2023] [12.53.55.25.37]
Interrotta per raggiunta durata
Interrotta per esito verificato
G 0006 Numeri in gioco : 55.14 su FI GE TO per Ambo
Interrotta per raggiunta durata
G 0007 Numeri in gioco : 55.03 su FI GE TO per Ambo
Interrotta per raggiunta durata
G 0008 Numeri in gioco : 55.90 su FI GE TO per Ambo
Interrotta per raggiunta durata
G 0009 Numeri in gioco : 55.52 su FI GE TO per Ambo
Interrotta per raggiunta durata
G 0010 Numeri in gioco : 55.62 su FI GE TO per Ambo
Interrotta per raggiunta durata
G 0011 Numeri in gioco : 55.28 su FI GE TO per Ambo
Interrotta per raggiunta durata
G 0012 Numeri in gioco : 13.23 su FI GE TO per Ambo
Interrotta per raggiunta durata
G 0013 Numeri in gioco : 13.32 su FI GE TO per Ambo
Interrotta per raggiunta durata
G 0014 Numeri in gioco : 13.41 su FI GE TO per Ambo
Interrotta per raggiunta durata
G 0015 Numeri in gioco : 13.68 su FI GE TO per Ambo
V N. [13.68 ] [FI] [.. .. .. 68 13] C. 13 Ambo 10345 [165 - 01/12/2023] [21.20.86.68.13]
Interrotta per raggiunta durata
Interrotta per esito verificato
G 0016 Numeri in gioco : 13.02 su FI GE TO per Ambo
Interrotta per raggiunta durata
G 0017 Numeri in gioco : 13.18 su FI GE TO per Ambo
Interrotta per raggiunta durata
G 0018 Numeri in gioco : 13.79 su FI GE TO per Ambo
Interrotta per raggiunta durata
G 0019 Numeri in gioco : 13.46 su FI GE TO per Ambo
Interrotta per raggiunta durata
G 0020 Numeri in gioco : 13.01 su FI GE TO per Ambo
Interrotta per raggiunta durata
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°6
27.12.2023 * FI : 21 / NA : 34 / RO : 21
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Estrazione generatrice del pronostico 10359 [179 - 27/12/2023]
G 0001 Numeri in gioco : 55.13 su FI NA RO per Estratto
V N. [55.13 ] [FI] [.. 13 .. .. ..] C. 1 Estratto 10360 [180 - 28/12/2023] [58.13.29.32.20]
Interrotta per esito verificato
G 0003 Numeri in gioco : 55.23 su FI NA RO per Ambo
G 0004 Numeri in gioco : 55.06 su FI NA RO per Ambo
G 0005 Numeri in gioco : 55.12 su FI NA RO per Ambo
G 0006 Numeri in gioco : 55.14 su FI NA RO per Ambo
G 0007 Numeri in gioco : 55.03 su FI NA RO per Ambo
G 0008 Numeri in gioco : 55.90 su FI NA RO per Ambo
G 0009 Numeri in gioco : 55.52 su FI NA RO per Ambo
G 0010 Numeri in gioco : 55.62 su FI NA RO per Ambo
G 0011 Numeri in gioco : 55.28 su FI NA RO per Ambo
G 0012 Numeri in gioco : 13.23 su FI NA RO per Ambo
G 0013 Numeri in gioco : 13.32 su FI NA RO per Ambo
V N. [13.32 ] [FI] [.. 13 .. 32 ..] C. 1 Ambo 10360 [180 - 28/12/2023] [58.13.29.32.20]
Interrotta per esito verificato
G 0014 Numeri in gioco : 13.41 su FI NA RO per Ambo
G 0015 Numeri in gioco : 13.68 su FI NA RO per Ambo
G 0016 Numeri in gioco : 13.02 su FI NA RO per Ambo
G 0017 Numeri in gioco : 13.18 su FI NA RO per Ambo
G 0018 Numeri in gioco : 13.79 su FI NA RO per Ambo
G 0019 Numeri in gioco : 13.46 su FI NA RO per Ambo
G 0020 Numeri in gioco : 13.01 su FI NA RO per Ambo
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°7
09.02.2024 * BA : 21 / MI : 21 / PA : 34
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Estrazione generatrice del pronostico 10385 [ 23 - 09/02/2024]
G 0001 Numeri in gioco : 55.13 su BA MI PA per Estratto
V N. [55.13 ] [PA] [.. .. .. .. 13] C. 7 Estratto 10392 [ 30 - 22/02/2024] [23.89.26.24.13]
Interrotta per esito verificato
G 0003 Numeri in gioco : 55.23 su BA MI PA per Ambo
G 0004 Numeri in gioco : 55.06 su BA MI PA per Ambo
G 0005 Numeri in gioco : 55.12 su BA MI PA per Ambo
G 0006 Numeri in gioco : 55.14 su BA MI PA per Ambo
G 0007 Numeri in gioco : 55.03 su BA MI PA per Ambo
G 0008 Numeri in gioco : 55.90 su BA MI PA per Ambo
G 0009 Numeri in gioco : 55.52 su BA MI PA per Ambo
G 0010 Numeri in gioco : 55.62 su BA MI PA per Ambo
G 0011 Numeri in gioco : 55.28 su BA MI PA per Ambo
G 0012 Numeri in gioco : 13.23 su BA MI PA per Ambo
V N. [13.23 ] [PA] [23 .. .. .. 13] C. 7 Ambo 10392 [ 30 - 22/02/2024] [23.89.26.24.13]
Interrotta per esito verificato
G 0013 Numeri in gioco : 13.32 su BA MI PA per Ambo
G 0014 Numeri in gioco : 13.41 su BA MI PA per Ambo
G 0015 Numeri in gioco : 13.68 su BA MI PA per Ambo
G 0016 Numeri in gioco : 13.02 su BA MI PA per Ambo
G 0017 Numeri in gioco : 13.18 su BA MI PA per Ambo
G 0018 Numeri in gioco : 13.79 su BA MI PA per Ambo
G 0019 Numeri in gioco : 13.46 su BA MI PA per Ambo
G 0020 Numeri in gioco : 13.01 su BA MI PA per Ambo
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°8
15.02.2024 * CA : 34 / TO : 21 / VE : 21
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Estrazione generatrice del pronostico 10388 [ 26 - 15/02/2024]
G 0001 Numeri in gioco : 55.13 su CA TO VE per Estratto
V N. [55.13 ] [VE] [.. .. 13 .. ..] C. 6 Estratto 10394 [ 32 - 24/02/2024] [02.78.13.73.38]
Interrotta per esito verificato
G 0003 Numeri in gioco : 55.23 su CA TO VE per Ambo
G 0004 Numeri in gioco : 55.06 su CA TO VE per Ambo
G 0005 Numeri in gioco : 55.12 su CA TO VE per Ambo
G 0006 Numeri in gioco : 55.14 su CA TO VE per Ambo
G 0007 Numeri in gioco : 55.03 su CA TO VE per Ambo
G 0008 Numeri in gioco : 55.90 su CA TO VE per Ambo
G 0009 Numeri in gioco : 55.52 su CA TO VE per Ambo
G 0010 Numeri in gioco : 55.62 su CA TO VE per Ambo
G 0011 Numeri in gioco : 55.28 su CA TO VE per Ambo
G 0012 Numeri in gioco : 13.23 su CA TO VE per Ambo
G 0013 Numeri in gioco : 13.32 su CA TO VE per Ambo
G 0014 Numeri in gioco : 13.41 su CA TO VE per Ambo
G 0015 Numeri in gioco : 13.68 su CA TO VE per Ambo
G 0016 Numeri in gioco : 13.02 su CA TO VE per Ambo
V N. [13.02 ] [VE] [02 .. 13 .. ..] C. 6 Ambo 10394 [ 32 - 24/02/2024] [02.78.13.73.38]
Interrotta per esito verificato
G 0017 Numeri in gioco : 13.18 su CA TO VE per Ambo
G 0018 Numeri in gioco : 13.79 su CA TO VE per Ambo
G 0019 Numeri in gioco : 13.46 su CA TO VE per Ambo
G 0020 Numeri in gioco : 13.01 su CA TO VE per Ambo
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°9
09.03.2024 * BA : 34 / GE : 21 / PA : 21
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Estrazione generatrice del pronostico 10402 [ 40 - 09/03/2024]
G 0001 Numeri in gioco : 55.13 su BA GE PA per Estratto
V N. [55.13 ] [BA] [.. .. .. 13 ..] C. 2 Estratto 10404 [ 42 - 14/03/2024] [18.79.33.13.66]
Interrotta per esito verificato
G 0003 Numeri in gioco : 55.23 su BA GE PA per Ambo
G 0004 Numeri in gioco : 55.06 su BA GE PA per Ambo
G 0005 Numeri in gioco : 55.12 su BA GE PA per Ambo
G 0006 Numeri in gioco : 55.14 su BA GE PA per Ambo
G 0007 Numeri in gioco : 55.03 su BA GE PA per Ambo
G 0008 Numeri in gioco : 55.90 su BA GE PA per Ambo
G 0009 Numeri in gioco : 55.52 su BA GE PA per Ambo
G 0010 Numeri in gioco : 55.62 su BA GE PA per Ambo
G 0011 Numeri in gioco : 55.28 su BA GE PA per Ambo
G 0012 Numeri in gioco : 13.23 su BA GE PA per Ambo
G 0013 Numeri in gioco : 13.32 su BA GE PA per Ambo
G 0014 Numeri in gioco : 13.41 su BA GE PA per Ambo
G 0015 Numeri in gioco : 13.68 su BA GE PA per Ambo
G 0016 Numeri in gioco : 13.02 su BA GE PA per Ambo
G 0017 Numeri in gioco : 13.18 su BA GE PA per Ambo
V N. [13.18 ] [BA] [18 .. .. 13 ..] C. 2 Ambo 10404 [ 42 - 14/03/2024] [18.79.33.13.66]
Interrotta per esito verificato
G 0018 Numeri in gioco : 13.79 su BA GE PA per Ambo
V N. [13.79 ] [BA] [.. 79 .. 13 ..] C. 2 Ambo 10404 [ 42 - 14/03/2024] [18.79.33.13.66]
Interrotta per esito verificato
G 0019 Numeri in gioco : 13.46 su BA GE PA per Ambo
G 0020 Numeri in gioco : 13.01 su BA GE PA per Ambo
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°10
30.03.2024 * NA : 21 / TO : 34 / VE : 21
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Estrazione generatrice del pronostico 10413 [ 51 - 30/03/2024]
G 0001 Numeri in gioco : 55.13 su NA TO VE per Estratto
V N. [55.13 ] [NA] [.. .. .. 55 ..] C. 6 Estratto 10419 [ 57 - 11/04/2024] [90.21.23.55.62]
Interrotta per esito verificato
G 0003 Numeri in gioco : 55.23 su NA TO VE per Ambo
V N. [55.23 ] [NA] [.. .. 23 55 ..] C. 6 Ambo 10419 [ 57 - 11/04/2024] [90.21.23.55.62]
Interrotta per esito verificato
G 0004 Numeri in gioco : 55.06 su NA TO VE per Ambo
G 0005 Numeri in gioco : 55.12 su NA TO VE per Ambo
G 0006 Numeri in gioco : 55.14 su NA TO VE per Ambo
G 0007 Numeri in gioco : 55.03 su NA TO VE per Ambo
G 0008 Numeri in gioco : 55.90 su NA TO VE per Ambo
V N. [55.90 ] [NA] [90 .. .. 55 ..] C. 6 Ambo 10419 [ 57 - 11/04/2024] [90.21.23.55.62]
Interrotta per esito verificato
G 0009 Numeri in gioco : 55.52 su NA TO VE per Ambo
G 0010 Numeri in gioco : 55.62 su NA TO VE per Ambo
V N. [55.62 ] [NA] [.. .. .. 55 62] C. 6 Ambo 10419 [ 57 - 11/04/2024] [90.21.23.55.62]
Interrotta per esito verificato
G 0011 Numeri in gioco : 55.28 su NA TO VE per Ambo
G 0012 Numeri in gioco : 13.23 su NA TO VE per Ambo
G 0013 Numeri in gioco : 13.32 su NA TO VE per Ambo
G 0014 Numeri in gioco : 13.41 su NA TO VE per Ambo
G 0015 Numeri in gioco : 13.68 su NA TO VE per Ambo
G 0016 Numeri in gioco : 13.02 su NA TO VE per Ambo
G 0017 Numeri in gioco : 13.18 su NA TO VE per Ambo
G 0018 Numeri in gioco : 13.79 su NA TO VE per Ambo
G 0019 Numeri in gioco : 13.46 su NA TO VE per Ambo
G 0020 Numeri in gioco : 13.01 su NA TO VE per Ambo
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°11
05.04.2024 * MI : 34 / TO : 21 / VE : 34
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Estrazione generatrice del pronostico 10416 [ 54 - 05/04/2024]
G 0001 Numeri in gioco : 55.13 su MI TO VE per Estratto
V N. [55.13 ] [TO] [.. .. .. .. 55] C. 9 Estratto 10425 [ 63 - 20/04/2024] [15.70.52.62.55]
Interrotta per esito verificato
G 0003 Numeri in gioco : 55.23 su MI TO VE per Ambo
G 0004 Numeri in gioco : 55.06 su MI TO VE per Ambo
G 0005 Numeri in gioco : 55.12 su MI TO VE per Ambo
G 0006 Numeri in gioco : 55.14 su MI TO VE per Ambo
G 0007 Numeri in gioco : 55.03 su MI TO VE per Ambo
G 0008 Numeri in gioco : 55.90 su MI TO VE per Ambo
G 0009 Numeri in gioco : 55.52 su MI TO VE per Ambo
V N. [55.52 ] [TO] [.. .. 52 .. 55] C. 9 Ambo 10425 [ 63 - 20/04/2024] [15.70.52.62.55]
Interrotta per esito verificato
G 0010 Numeri in gioco : 55.62 su MI TO VE per Ambo
V N. [55.62 ] [TO] [.. .. .. 62 55] C. 9 Ambo 10425 [ 63 - 20/04/2024] [15.70.52.62.55]
Interrotta per esito verificato
G 0011 Numeri in gioco : 55.28 su MI TO VE per Ambo
G 0012 Numeri in gioco : 13.23 su MI TO VE per Ambo
G 0013 Numeri in gioco : 13.32 su MI TO VE per Ambo
G 0014 Numeri in gioco : 13.41 su MI TO VE per Ambo
G 0015 Numeri in gioco : 13.68 su MI TO VE per Ambo
G 0016 Numeri in gioco : 13.02 su MI TO VE per Ambo
G 0017 Numeri in gioco : 13.18 su MI TO VE per Ambo
G 0018 Numeri in gioco : 13.79 su MI TO VE per Ambo
G 0019 Numeri in gioco : 13.46 su MI TO VE per Ambo
G 0020 Numeri in gioco : 13.01 su MI TO VE per Ambo
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°12
19.04.2024 * CA : 21 / VE : 34 / NZ : 21
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Estrazione generatrice del pronostico 10424 [ 62 - 19/04/2024]
G 0001 Numeri in gioco : 55.13 su CA VE NZ per Estratto
V N. [55.13 ] [VE] [55 .. .. .. 13] C. 5 Ambo 10429 [ 67 - 29/04/2024] [55.65.41.68.13]
Interrotta per esito verificato
G 0003 Numeri in gioco : 55.23 su CA VE NZ per Ambo
G 0004 Numeri in gioco : 55.06 su CA VE NZ per Ambo
G 0005 Numeri in gioco : 55.12 su CA VE NZ per Ambo
G 0006 Numeri in gioco : 55.14 su CA VE NZ per Ambo
G 0007 Numeri in gioco : 55.03 su CA VE NZ per Ambo
G 0008 Numeri in gioco : 55.90 su CA VE NZ per Ambo
G 0009 Numeri in gioco : 55.52 su CA VE NZ per Ambo
G 0010 Numeri in gioco : 55.62 su CA VE NZ per Ambo
G 0011 Numeri in gioco : 55.28 su CA VE NZ per Ambo
G 0012 Numeri in gioco : 13.23 su CA VE NZ per Ambo
G 0013 Numeri in gioco : 13.32 su CA VE NZ per Ambo
G 0014 Numeri in gioco : 13.41 su CA VE NZ per Ambo
V N. [13.41 ] [VE] [.. .. 41 .. 13] C. 5 Ambo 10429 [ 67 - 29/04/2024] [55.65.41.68.13]
Interrotta per esito verificato
G 0015 Numeri in gioco : 13.68 su CA VE NZ per Ambo
V N. [13.68 ] [VE] [.. .. .. 68 13] C. 5 Ambo 10429 [ 67 - 29/04/2024] [55.65.41.68.13]
Interrotta per esito verificato
G 0016 Numeri in gioco : 13.02 su CA VE NZ per Ambo
G 0017 Numeri in gioco : 13.18 su CA VE NZ per Ambo
G 0018 Numeri in gioco : 13.79 su CA VE NZ per Ambo
G 0019 Numeri in gioco : 13.46 su CA VE NZ per Ambo
G 0020 Numeri in gioco : 13.01 su CA VE NZ per Ambo
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°13
23.05.2024 * NA : 21 / VE : 34 / NZ : 21
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Estrazione generatrice del pronostico 10442 [ 80 - 23/05/2024]
G 0001 Numeri in gioco : 55.13 su NA VE NZ per Estratto
In corso per altre 10 estrazioni
G 0003 Numeri in gioco : 55.23 su NA VE NZ per Ambo
In corso per altre 10 estrazioni
G 0004 Numeri in gioco : 55.06 su NA VE NZ per Ambo
In corso per altre 10 estrazioni
G 0005 Numeri in gioco : 55.12 su NA VE NZ per Ambo
In corso per altre 10 estrazioni
G 0006 Numeri in gioco : 55.14 su NA VE NZ per Ambo
In corso per altre 10 estrazioni
G 0007 Numeri in gioco : 55.03 su NA VE NZ per Ambo
In corso per altre 10 estrazioni
G 0008 Numeri in gioco : 55.90 su NA VE NZ per Ambo
In corso per altre 10 estrazioni
G 0009 Numeri in gioco : 55.52 su NA VE NZ per Ambo
In corso per altre 10 estrazioni
G 0010 Numeri in gioco : 55.62 su NA VE NZ per Ambo
In corso per altre 10 estrazioni
G 0011 Numeri in gioco : 55.28 su NA VE NZ per Ambo
In corso per altre 10 estrazioni
G 0012 Numeri in gioco : 13.23 su NA VE NZ per Ambo
In corso per altre 10 estrazioni
G 0013 Numeri in gioco : 13.32 su NA VE NZ per Ambo
In corso per altre 10 estrazioni
G 0014 Numeri in gioco : 13.41 su NA VE NZ per Ambo
In corso per altre 10 estrazioni
G 0015 Numeri in gioco : 13.68 su NA VE NZ per Ambo
In corso per altre 10 estrazioni
G 0016 Numeri in gioco : 13.02 su NA VE NZ per Ambo
In corso per altre 10 estrazioni
G 0017 Numeri in gioco : 13.18 su NA VE NZ per Ambo
In corso per altre 10 estrazioni
G 0018 Numeri in gioco : 13.79 su NA VE NZ per Ambo
In corso per altre 10 estrazioni
G 0019 Numeri in gioco : 13.46 su NA VE NZ per Ambo
In corso per altre 10 estrazioni
G 0020 Numeri in gioco : 13.01 su NA VE NZ per Ambo
In corso per altre 10 estrazioni
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°14
25.05.2024 * MI : 34 / RO : 21 / NZ : 21
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Estrazione generatrice del pronostico 10444 [ 82 - 25/05/2024]
G 0001 Numeri in gioco : 55.13 su MI RO NZ per Estratto
In corso per altre 12 estrazioni
G 0003 Numeri in gioco : 55.23 su MI RO NZ per Ambo
In corso per altre 12 estrazioni
G 0004 Numeri in gioco : 55.06 su MI RO NZ per Ambo
In corso per altre 12 estrazioni
G 0005 Numeri in gioco : 55.12 su MI RO NZ per Ambo
In corso per altre 12 estrazioni
G 0006 Numeri in gioco : 55.14 su MI RO NZ per Ambo
In corso per altre 12 estrazioni
G 0007 Numeri in gioco : 55.03 su MI RO NZ per Ambo
In corso per altre 12 estrazioni
G 0008 Numeri in gioco : 55.90 su MI RO NZ per Ambo
In corso per altre 12 estrazioni
G 0009 Numeri in gioco : 55.52 su MI RO NZ per Ambo
In corso per altre 12 estrazioni
G 0010 Numeri in gioco : 55.62 su MI RO NZ per Ambo
In corso per altre 12 estrazioni
G 0011 Numeri in gioco : 55.28 su MI RO NZ per Ambo
In corso per altre 12 estrazioni
G 0012 Numeri in gioco : 13.23 su MI RO NZ per Ambo
In corso per altre 12 estrazioni
G 0013 Numeri in gioco : 13.32 su MI RO NZ per Ambo
In corso per altre 12 estrazioni
G 0014 Numeri in gioco : 13.41 su MI RO NZ per Ambo
In corso per altre 12 estrazioni
G 0015 Numeri in gioco : 13.68 su MI RO NZ per Ambo
In corso per altre 12 estrazioni
G 0016 Numeri in gioco : 13.02 su MI RO NZ per Ambo
In corso per altre 12 estrazioni
G 0017 Numeri in gioco : 13.18 su MI RO NZ per Ambo
In corso per altre 12 estrazioni
G 0018 Numeri in gioco : 13.79 su MI RO NZ per Ambo
In corso per altre 12 estrazioni
G 0019 Numeri in gioco : 13.46 su MI RO NZ per Ambo
In corso per altre 12 estrazioni
G 0020 Numeri in gioco : 13.01 su MI RO NZ per Ambo
In corso per altre 12 estrazioni
****************************************************************************************************
casi trovati : 14su 12 casi conclusi prodotti 22 ambi
dei 14 casi totali 2 casi sono ancora in corso...
Oberdan
Member
Ciao Baffoblù e tutti,
ho fatto girare lo script per verificare gli esiti positivi per singolo ambo, sia dal 1871 che dal 15/08/2009 (era Venus) per 12 colpi successivi al verificarsi della condizione. Di seguito riporto schematicamente i risultati della ricerca.
Codice:
dal 1871 dal 15/09/2009
======== ==============
23-55 23 9
6-55 19 5
12-55 18 6
14-55 20 5
3-55 17 2
55-90 19 6
52-55 18 5
55-62 18 6
28-55 21 5
--------------------------------
13-23 26 9
13-32 27 9
13-41 22 4
13-68 30 9
2-13 13 3
13-18 21 5
13-79 18 4
13-46 18 6
1-13 23 4Restringendo il campo emergerebbero
23-55 / 13-23 / 13-32 / 13-68
Buona fortuna a tutti.
Oberdan
Oberdan
Member
Ciao Marco,
ovviamente posso parlare soltanto per me, anche se credo di essere uno fra tanti, e posso dirti in tutta sincerità di apprezzare molto sia le tue idee, che il lavoro che fai. In particolare trovo molto interessante la ricerca che stai conducendo sulla NZ, come spunto, spia per il gioco sulle rimanti 10 ruote.
Approfitto dell'occasione per farti due domande, sempre che tu abbia voglia di entrare nel merito e la cosa non vada ad infrangere l'area che preferisci mantenere privata.
Con quale criterio selezioni quelle che chiami "ruote congeniali"?
L'altro aspetto riguarda i numeri che selezioni per gli abbinamenti da porre in gioco. Ti va di parlarne?
Un saluto.
Oberdan
BaffoBlù
Advanced Member >PLATINUM<
ho detto che non era un metodo statistico, ma empirico, e valutavo l'ultimo anno...
Oberdan
Member
E posso assicurarti di averlo tenuto ben presente.ho detto che non era un metodo statistico, ma empirico, e valutavo l'ultimo anno...
Ciò nonostante ho voluto aggiungere carne al fuoco dell'indagine, appunto per valutare... E poi ho condiviso i dati.
Spero solo che non ti sia dispiaciuto.
Oberdan
BaffoBlù
Advanced Member >PLATINUM<
Salve a Tutte/i
A condizione rispettata ricava 2 Ambate su 2 Ruote
La versione Ambo sarebbe più succosa....
A condizione rispettata ricava 2 Ambate su 2 Ruote
La versione Ambo sarebbe più succosa....
Codice:
Option Explicit
Sub Main()
Dim es,Ini,Fin,r1,r2,Tm,Clp,co,a,b,x,p1
Dim ruote(2)
Dim posta(10)
Dim n(2)
posta(1) = 1
ruote(1) = r1
ruote(2) = r2
r1 = 1
Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"1000")) ' Potete tranquillamnete impostare dal 1950 ( 5-6 mila estrazioni senza buchi)
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"18"))
Ini = EstrazioneFin - Tm
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
ruote(1) = r1
ruote(2) = r2
For r1 = 1 To 1
For r2 = 2 To 10
For p1 = 1 To 5
a = Estratto(es,r1,1)
b = Fuori90(a * a)
x =(a * a)
If Estratto(es,r2,p1) = b Then
ruote(1) = r1
ruote(2) = r2
n(1) = a
n(2) = b
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & "-" & StringaEstratti(es,r1) & " * " & SiglaRuota(r2) & "-" & StringaEstratti(es,r2) & " * ",1,,,1,2
Scrivi SiglaRuota(r1) & " * " & Format2(a) & " In 1° Pos. ** " & SiglaRuota(r2) & " * " & Format2(b) & " In " & p1 & "° Pos.",1,,,,2
Scrivi "Calcoli : " & Format2(a) & " * " & Format2(a) & " = " & x & " - 90 (se serve) = " & Format2(b),,,,1,2
Scrivi String(55,"-"),1
Scrivi "Previsione : " & SiglaRuota(r1) & "/" & SiglaRuota(r2) & " * Ambate : " & Format2(a) & " - " & Format2(b),1,,,2,2
Scrivi String(80,"°"),1
ImpostaGiocata 1,n,ruote,posta,Clp,1
Gioca es,1,,1
End If
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" Idea e Script by BaffoBlù "),1,3,0
ScriviResoconto
End SubUltima estrazione Lotto
-
Estrazione del lotto
sabato 15 giugno 2024Bari8958653909Cagliari3942793028Firenze4061783454Genova2280704069Milano4731287253Napoli3350632757Palermo3487082563Roma5328360190Torino3315618013Venezia2379038536Nazionale0455675619Estrazione Simbolotto
Napoli
3726201138
