BaffoBlù
Advanced Member >PLATINUM<
yes
8 e 9 sono le ambate
il gioco per ambo 17-73-90 su ba ca (volendo tutte?...)
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 ....
yes
8 e 9 sono le ambate
il gioco per ambo 17-73-90 su ba ca (volendo tutte?...)
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 Sub
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 Sub
Ciao Baffo.
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 Sub
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 Sub
Un cordiale saluto a tutti e uno davvero speciale a BaffoBlù.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 Sub
Un cordiale saluto a tutti e uno davvero speciale a BaffoBlù.
Per il metodo mi son chiesto " e se invece di puntare all'affidabilità elevatissima, si cercasse l'efficacia in termini economici?".
Potrebbe essere un'idea mettere in gioco i nove ambi sulle sole ruote di origine?
Buona giornata.
Oberdan
Ma la mia non voleva di certo essere una critica, ci mancherebbe.Qualche messaggio fa ho scritto :
"I 18 colpi sono solo a livello dimostrativo per visionare gli esiti multipli e vedere sulle 3 ruote fisse della condizione che succede..."