BaffoBlù
Advanced Member >PLATINUM<
Miscredenti
8 al 4°colpo e ambo 17-90 al 4 colpo a Firenze
2 volte il 73 a bari e una volta il 17...
stava li li ....
Condizioni Rare
- Creatore Discussione BaffoBlù
- Data di inizio
Miscredenti
8 al 4°colpo e ambo 17-90 al 4 colpo a Firenze
2 volte il 73 a bari e una volta il 17...
stava li li ....
BaffoBlù
Advanced Member >PLATINUM<
OCCHIO ! OCCHIO ! OCCHIO !
Condizioni rare
Esiti Infallibili dal 1871 ad oggi
Nel suo piccolo picchia...ed è affidabile...
Ricercare nel quadro estrazionale questa condizione che può presentarsi in 6 "Sequenze" Diverse.
Ognuno dei 3 elementi di ogni sequenza deve trovarsi in una ruota diversa
Sequenza 1 : 13.13.05
Sequenza 2 : 05.05.13
Sequenza 3 : 13.05.13
Sequenza 4 : 05.13.05
Sequenza 5 : 05.13.13
Sequenza 6 : 13.05.05
Una volta rilevata la condizione abbiamo una Sestina da giocare a tutte (15 ambi secchi integrale)
Nel ristretto ho isolato 9 ambi secchi più prolifici.
Lo script è rudimentale, ma fa il suo lavoro (Salvo Sbagli...) a tal fine chiedo agli scripter (chi vuole...)
Di verificare mie sviste e di creare uno script che comprenda in un colpo solo tutte le sequenze
e lasciarlo per TUTTI. (Utilizzabile alla prossima Condizione Rilevata...)
Il mio script elabora una Sequenza alla volta...
Mostra esiti multipli della Sestina e mostra lo sviluppo dei 9 Ambi Secchi nel corso di 18 colpi
Ad ogni modo ci si ferma al primo esito Raggiunto.
I 18 colpi sono solo a livello dimostrativo per visionare gli esiti multipli e vedere sulle 3 ruote fisse della condizione che succede...
Condizioni rare
Esiti Infallibili dal 1871 ad oggi
Nel suo piccolo picchia...ed è affidabile...
Ricercare nel quadro estrazionale questa condizione che può presentarsi in 6 "Sequenze" Diverse.
Ognuno dei 3 elementi di ogni sequenza deve trovarsi in una ruota diversa
Sequenza 1 : 13.13.05
Sequenza 2 : 05.05.13
Sequenza 3 : 13.05.13
Sequenza 4 : 05.13.05
Sequenza 5 : 05.13.13
Sequenza 6 : 13.05.05
Una volta rilevata la condizione abbiamo una Sestina da giocare a tutte (15 ambi secchi integrale)
Nel ristretto ho isolato 9 ambi secchi più prolifici.
Lo script è rudimentale, ma fa il suo lavoro (Salvo Sbagli...) a tal fine chiedo agli scripter (chi vuole...)
Di verificare mie sviste e di creare uno script che comprenda in un colpo solo tutte le sequenze
e lasciarlo per TUTTI. (Utilizzabile alla prossima Condizione Rilevata...)
Il mio script elabora una Sequenza alla volta...
Mostra esiti multipli della Sestina e mostra lo sviluppo dei 9 Ambi Secchi nel corso di 18 colpi
Ad ogni modo ci si ferma al primo esito Raggiunto.
I 18 colpi sono solo a livello dimostrativo per visionare gli esiti multipli e vedere sulle 3 ruote fisse della condizione che succede...
Codice:
Option Explicit
Sub Main()
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
TestoInBandaPassante(" *** A T T E N Z I O N E !!! Dalla serie CONDIZIONI RARE, nel suo piccolo, Nessun Esito Negativo dal'Inizio del Lotto - 1871 _ METODOLOGIA INFALLIBILE al 100% *** Script By BaffoBlù"),1,3,0
ColoreTesto 0
Scrivi String(100," * ")
Dim es,Ini,Fin,r1,r2,r3,r11,Seq,Tm,Clp,co,ok,a,b,c,sp1,sp2,sp3,pos
Dim ruota(12)
Dim ruote(12)
Dim poste(10)
Dim n(6)
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)
poste(2) = 1
r11 = 11
Seq = CInt(InputBox(" Scegli Una Sequenza da 1 a 6 ",,"1"))' Ricordarsi di Elaborare tutte le Sequenze da 1 a 6.
' Sequenza 1 : 13.13.05
' Sequenza 2 : 05.05.13
' Sequenza 3 : 13.05.13
' Sequenza 4 : 05.13.05
' Sequenza 5 : 05.13.13
' Sequenza 6 : 13.05.05
' Ricordarsi di Elaborare tutte le Sequenze da 1 a 6.
If Seq = 1 Then
sp1 = 13
sp2 = 13
sp3 = 05
ok = 1
End If
If Seq = 2 Then
sp1 = 05
sp2 = 05
sp3 = 13
ok = 1
End If
If Seq = 3 Then
sp1 = 13
sp2 = 05
sp3 = 13
ok = 1
End If
If Seq = 4 Then
sp1 = 05
sp2 = 13
sp3 = 05
ok = 1
End If
If Seq = 5 Then
sp1 = 05
sp2 = 13
sp3 = 13
ok = 1
End If
If Seq = 6 Then
sp1 = 13
sp2 = 05
sp3 = 05
ok = 1
End If
Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"10432"))' Tutte quelle in archivio...
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"18"))'18 colpi per Dimostrazione e Visione degli esiti ripetuti, ci si ferma comunque al 1° Esito raggiunto
Ini = EstrazioneFin - Tm
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
For r1 = 1 To 10
For r2 = r1 + 1 To 10
For r3 = r2 + 1 To 11
If r3 = 11 Then r3 = 12 End If
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
ruote(1) = r11
ok = 0
For pos = 1 To 5
If(Estratto(es,r1,pos) = sp1) Then
If(Estratto(es,r2,pos) = sp2) Then
If(Estratto(es,r3,pos) = sp3) Then
ok = 1
'--------------
If ok = 1 Then
n(1) = 11
n(2) = 13
n(3) = 18
n(4) = 22
n(5) = 54
n(6) = 88
' La Sestina produce integralmente 15 Ambi Secchi
' Nel ristretto sono stati selezionati questi 9 Ambi Secchi :
' 22.88 / 54.88 / 13.22 / 13.54 / 11.54 / 13.18 / 18.88 / 22.54 / 13.88 /.
' -------------------------------------------------------------------------
' Questi invece sono il resto degli ambi derivanti dalla Sestina
' 11.22 / 18.22 / 11.88/ 18.54 / 11.18 / 11.13
' -------------------------------------------------------------------------
am1(1) = 22
am1(2) = 88
am2(1) = 54
am2(2) = 88
am3(1) = 13
am3(2) = 22
am4(1) = 13
am4(2) = 54
am5(1) = 11
am5(2) = 54
am6(1) = 13
am6(2) = 18
am7(1) = 18
am7(2) = 88
am8(1) = 22
am8(2) = 54
am9(1) = 13
am9(2) = 88
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
ruote(1) = r11
co = co + 1
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,ruote,poste,Clp,2
ImpostaGiocata 2,am1,ruote,poste,Clp,2
ImpostaGiocata 3,am2,ruote,poste,Clp,2
ImpostaGiocata 4,am3,ruote,poste,Clp,2
ImpostaGiocata 5,am4,ruote,poste,Clp,2
ImpostaGiocata 6,am5,ruote,poste,Clp,2
ImpostaGiocata 7,am6,ruote,poste,Clp,2
ImpostaGiocata 8,am7,ruote,poste,Clp,2
ImpostaGiocata 9,am8,ruote,poste,Clp,2
ImpostaGiocata 10,am9,ruote,poste,Clp,2
Gioca es,1,,1
End If
If ScriptInterrotto Then Exit For
End If
End If
End If
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
ScriviResoconto
End SubCiao Baffo.
Ho modificato il tuo script per effettuare la ricerca con tutte le sequenze. Dai una controllata per verificare se tutto è ok.
Ciao, Maldor
Ho modificato il tuo script per effettuare la ricerca con tutte le sequenze. Dai una controllata per verificare se tutto è ok.
Ciao, Maldor
Codice:
Option Explicit
Sub Main()
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
TestoInBandaPassante(" *** A T T E N Z I O N E !!! Dalla serie CONDIZIONI RARE, nel suo piccolo, Nessun Esito Negativo dal'Inizio del Lotto - 1871 _ METODOLOGIA INFALLIBILE al 100% *** Script By BaffoBlù"),1,3,0
ColoreTesto 0
Scrivi String(100," * ")
Dim es,Ini,Fin,r1,r2,r3,r11,Seq,Tm,Clp,co,ok,a,b,c,sp1,sp2,sp3,pos,i,Vet_Seq(6,3)
Dim ruota(12)
Dim ruote(12)
Dim poste(10)
Dim n(6)
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)
poste(2) = 1
r11 = 11
' Sequenza 1 : 13.13.05
' Sequenza 2 : 05.05.13
' Sequenza 3 : 13.05.13
' Sequenza 4 : 05.13.05
' Sequenza 5 : 05.13.13
' Sequenza 6 : 13.05.05
Vet_Seq(1,1) = 13
Vet_Seq(1,2) = 13
Vet_Seq(1,3) = 05
Vet_Seq(2,1) = 05
Vet_Seq(2,2) = 05
Vet_Seq(2,3) = 13
Vet_Seq(3,1) = 13
Vet_Seq(3,2) = 05
Vet_Seq(3,3) = 13
Vet_Seq(4,1) = 05
Vet_Seq(4,2) = 13
Vet_Seq(4,3) = 05
Vet_Seq(5,1) = 05
Vet_Seq(5,2) = 13
Vet_Seq(5,3) = 13
Vet_Seq(6,1) = 13
Vet_Seq(6,2) = 05
Vet_Seq(6,3) = 05
Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"10432"))' Tutte quelle in archivio...
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"18"))'18 colpi per Dimostrazione e Visione degli esiti ripetuti, ci si ferma comunque al 1° Esito raggiunto
Ini = EstrazioneFin - Tm
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
For r1 = 1 To 10
For r2 = r1 + 1 To 10
For r3 = r2 + 1 To 11
If r3 = 11 Then r3 = 12 End If
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
ruote(1) = r11
ok = 0
For i = 1 To 6
sp1 = Vet_Seq(i,1)
sp2 = Vet_Seq(i,2)
sp3 = Vet_Seq(i,3)
For pos = 1 To 5
If(Estratto(es,r1,pos) = sp1) Then
If(Estratto(es,r2,pos) = sp2) Then
If(Estratto(es,r3,pos) = sp3) Then
ok = 1
'--------------
If ok = 1 Then
n(1) = 11
n(2) = 13
n(3) = 18
n(4) = 22
n(5) = 54
n(6) = 88
' La Sestina produce integralmente 15 Ambi Secchi
' Nel ristretto sono stati selezionati questi 9 Ambi Secchi :
' 22.88 / 54.88 / 13.22 / 13.54 / 11.54 / 13.18 / 18.88 / 22.54 / 13.88 /.
' -------------------------------------------------------------------------
' Questi invece sono il resto degli ambi derivanti dalla Sestina
' 11.22 / 18.22 / 11.88/ 18.54 / 11.18 / 11.13
' -------------------------------------------------------------------------
am1(1) = 22
am1(2) = 88
am2(1) = 54
am2(2) = 88
am3(1) = 13
am3(2) = 22
am4(1) = 13
am4(2) = 54
am5(1) = 11
am5(2) = 54
am6(1) = 13
am6(2) = 18
am7(1) = 18
am7(2) = 88
am8(1) = 22
am8(2) = 54
am9(1) = 13
am9(2) = 88
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
ruote(1) = r11
co = co + 1
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,ruote,poste,Clp,2
ImpostaGiocata 2,am1,ruote,poste,Clp,2
ImpostaGiocata 3,am2,ruote,poste,Clp,2
ImpostaGiocata 4,am3,ruote,poste,Clp,2
ImpostaGiocata 5,am4,ruote,poste,Clp,2
ImpostaGiocata 6,am5,ruote,poste,Clp,2
ImpostaGiocata 7,am6,ruote,poste,Clp,2
ImpostaGiocata 8,am7,ruote,poste,Clp,2
ImpostaGiocata 9,am8,ruote,poste,Clp,2
ImpostaGiocata 10,am9,ruote,poste,Clp,2
Gioca es,1,,1
End If
If ScriptInterrotto Then Exit For
End If
End If
End If
Next
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
ScriviResoconto
End SubBaffoBlù
Advanced Member >PLATINUM<
Grazie per la modifica
Purtroppo risulta esservi un esito negativo (nel 1800...) nella sequenza 5
Quindi affidabilità al 99.99%
Rimetto lo script con qualche correzione dovuta...
Codice:
Option Explicit
Sub Main()
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
TestoInBandaPassante(" *** Un Solo esito Negativo dal'Inizio del Lotto - 1871 _ METODOLOGIA INFALLIBILE al 99,9% *** Script By BaffoBlù"),1,3,0
ColoreTesto 0
Scrivi String(100," * ")
Dim es,Ini,Fin,r1,r2,r3,r11,Seq,Tm,Clp,co,ok,a,b,c,sp1,sp2,sp3,pos,i,Vet_Seq(6,3)
Dim ruota(12)
Dim ruote(12)
Dim poste(10)
Dim n(6)
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)
poste(2) = 1
r11 = 11
' Sequenza 1 : 13.13.05
' Sequenza 2 : 05.05.13
' Sequenza 3 : 13.05.13
' Sequenza 4 : 05.13.05
' Sequenza 5 : 05.13.13
' Sequenza 6 : 13.05.05
Vet_Seq(1,1) = 13
Vet_Seq(1,2) = 13
Vet_Seq(1,3) = 05
Vet_Seq(2,1) = 05
Vet_Seq(2,2) = 05
Vet_Seq(2,3) = 13
Vet_Seq(3,1) = 13
Vet_Seq(3,2) = 05
Vet_Seq(3,3) = 13
Vet_Seq(4,1) = 05
Vet_Seq(4,2) = 13
Vet_Seq(4,3) = 05
Vet_Seq(5,1) = 05
Vet_Seq(5,2) = 13
Vet_Seq(5,3) = 13
Vet_Seq(6,1) = 13
Vet_Seq(6,2) = 05
Vet_Seq(6,3) = 05
Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"10433"))' Tutte quelle in archivio...
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"18"))'18 colpi per Dimostrazione e Visione degli esiti ripetuti, ci si ferma comunque al 1° Esito raggiunto
Ini = EstrazioneFin - Tm
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
For r1 = 1 To 10
For r2 = r1 + 1 To 10
For r3 = r2 + 1 To 11
If r3 = 11 Then r3 = 12 End If
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
ruote(1) = r11
ok = 0
For i = 1 To 6
sp1 = Vet_Seq(i,1)
sp2 = Vet_Seq(i,2)
sp3 = Vet_Seq(i,3)
For pos = 1 To 5
If(Estratto(es,r1,pos) = sp1) Then
If(Estratto(es,r2,pos) = sp2) Then
If(Estratto(es,r3,pos) = sp3) Then
ok = 1
'--------------
If ok = 1 Then
n(1) = 11
n(2) = 13
n(3) = 18
n(4) = 22
n(5) = 54
n(6) = 88
' La Sestina produce integralmente 15 Ambi Secchi
' Nel ristretto sono stati selezionati questi 9 Ambi Secchi :
' 22.88 / 54.88 / 13.22 / 13.54 / 11.54 / 13.18 / 18.88 / 22.54 / 13.88 /.
' -------------------------------------------------------------------------
' Questi invece sono il resto degli ambi derivanti dalla Sestina
' 11.22 / 18.22 / 11.88/ 18.54 / 11.18 / 11.13
' -------------------------------------------------------------------------
am1(1) = 22
am1(2) = 88
am2(1) = 54
am2(2) = 88
am3(1) = 13
am3(2) = 22
am4(1) = 13
am4(2) = 54
am5(1) = 11
am5(2) = 54
am6(1) = 13
am6(2) = 18
am7(1) = 18
am7(2) = 88
am8(1) = 22
am8(2) = 54
am9(1) = 13
am9(2) = 88
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
ruote(1) = r11
co = co + 1
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,ruote,poste,Clp,2
ImpostaGiocata 2,am1,ruote,poste,Clp,2
ImpostaGiocata 3,am2,ruote,poste,Clp,2
ImpostaGiocata 4,am3,ruote,poste,Clp,2
ImpostaGiocata 5,am4,ruote,poste,Clp,2
ImpostaGiocata 6,am5,ruote,poste,Clp,2
ImpostaGiocata 7,am6,ruote,poste,Clp,2
ImpostaGiocata 8,am7,ruote,poste,Clp,2
ImpostaGiocata 9,am8,ruote,poste,Clp,2
ImpostaGiocata 10,am9,ruote,poste,Clp,2
Gioca es,1,,1
End If
If ScriptInterrotto Then Exit For
End If
End If
End If
Next
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
ScriviResoconto
End SubUltima estrazione Lotto
-
Estrazione del lotto
martedì 07 maggio 2024Bari6880235671Cagliari4374200211Firenze7519187469Genova4538261687Milano0623726605Napoli4621498073Palermo1509544849Roma0658782731Torino7827316474Venezia6047900622Nazionale4358261879Estrazione Simbolotto
Milano
1716252343
