Novità

COME DA PROMESSO " IL METODO 2"

MIO CARO AMICO MASTROGINO
*****COMPLIMENTI DI VERO CUORE***** 🎯:rolleyes:;)

***BRAVISSIMO***
CONTINUIAMO COSI *** A VELE SPIEGATE ***🎯:rolleyes:;)
 
Ultima modifica:
Estrazione generatrice del pronostico 10449 [ 88 - 01/06/2024]
G 0001 Numeri in gioco : 75.57 su GE TO per Estratto
V N. [75.57 ] [GE] [.. .. .. .. 75] C. 1 Estratto 10450 [ 89 - 04/06/2024] [30.87.52.55.75]
Estrazione generatrice del pronostico 10448 [ 87 - 31/05/2024]
G 0001 Numeri in gioco : 36.63 su RO VE per Estratto
In corso per altre 20 estrazioni
G 0002 Numeri in gioco : 30.03 su RO VE per Estratto
V N. [30.03 ] [RO] [.. .. 30 .. ..] C. 1 Estratto 10449 [ 88 - 01/06/2024] [18.69.30.68.31]
V N. [30.03 ] [VE] [03 .. .. .. ..] C. 1 Estratto 10449 [ 88 - 01/06/2024] [03.20.07.81.19]
V N. [30.03 ] [VE] [30 .. .. .. ..] C. 2 Estratto 10450 [ 89 - 04/06/2024] [30.20.41.88.74]
G 0002 Numeri in gioco : 35.53 su BA FI per Estratto
V N. [35.53 ] [BA] [53 .. .. .. ..] C. 3 Estratto 10450 [ 89 - 04/06/2024] [53.32.67.29.23]
Estrazione generatrice del pronostico 10446 [ 85 - 28/05/2024]
G 0001 Numeri in gioco : 50.05 su NA PA per Estratto
In corso per altre 18 estrazioni
G 0002 Numeri in gioco : 41.14 su NA PA per Estratto
V N. [41.14 ] [PA] [.. .. .. .. 41] C. 1 Estratto 10447 [ 86 - 30/05/2024] [28.37.90.11.41]
V N. [41.14 ] [NA] [.. .. 14 .. ..] C. 4 Estratto 10450 [ 89 - 04/06/2024] [77.68.14.18.88]
Estrazione generatrice del pronostico 10446 [ 85 - 28/05/2024]
G 0001 Numeri in gioco : 18.81 su CA NA per Estratto
V N. [18.81 ] [CA] [.. .. .. .. 81] C. 4 Estratto 10450 [ 89 - 04/06/2024] [31.49.27.86.81]
V N. [18.81 ] [NA] [.. .. .. 18 ..] C. 4 Estratto 10450 [ 89 - 04/06/2024] [77.68.14.18.88]
Estrazione generatrice del pronostico 10445 [ 84 - 25/05/2024]
G 0001 Numeri in gioco : 59.55 su CA GE per Estratto
V N. [59.55 ] [GE] [.. .. .. 55 ..] C. 5 Estratto 10450 [ 89 - 04/06/2024] [30.87.52.55.75]
Estrazione generatrice del pronostico 10437 [ 76 - 11/05/2024]
G 0001 Numeri in gioco : 35.53 su BA MI per Estratto
V N. [35.53 ] [BA] [.. .. .. 35 ..] C. 1 Estratto 10438 [ 77 - 14/05/2024] [34.50.65.35.31]
V N. [35.53 ] [BA] [.. 35 .. .. ..] C. 3 Estratto 10440 [ 79 - 17/05/2024] [63.35.59.12.69]
V N. [35.53 ] [MI] [.. 35 .. .. ..] C. 9 Estratto 10446 [ 85 - 28/05/2024] [44.35.09.90.67]
V N. [35.53 ] [BA] [53 .. .. .. ..] C. 13 Estratto 10450 [ 89 - 04/06/2024] [53.32.67.29.23]

In corso per altre 9 estrazioni
G 0002 Numeri in gioco : 29.22 su BA MI per Estratto
V N. [29.22 ] [MI] [.. 22 .. .. ..] C. 2 Estratto 10439 [ 78 - 16/05/2024] [30.22.60.06.67]
V N. [29.22 ] [MI] [22 .. .. .. ..] C. 4 Estratto 10441 [ 80 - 18/05/2024] [22.75.48.16.77]
V N. [29.22 ] [BA] [.. .. .. .. 29] C. 8 Estratto 10445 [ 84 - 25/05/2024] [42.02.23.01.29]
V N. [29.22 ] [BA] [.. .. 29 .. ..] C. 9 Estratto 10446 [ 85 - 28/05/2024] [12.31.29.63.49]
V N. [29.22 ] [BA] [.. .. .. 29 ..] C. 13 Estratto 10450 [ 89 - 04/06/2024] [53.32.67.29.23]

In corso per altre 9 estrazioni
G 0003 Numeri in gioco : 35.53.29.22 su BA MI per Ambo
V N. [35.53.29.22 ] [BA] [53 .. .. 29 ..] C. 13 Ambo 10450 [ 89 - 04/06/2024] [53.32.67.29.23]
In corso per altre 7 estrazioni
G 0002 Numeri in gioco : 32.23 su BA VE per Estratto
V N. [32.23 ] [BA] [.. .. .. 23 ..] C. 4 Estratto 10439 [ 78 - 16/05/2024] [33.03.58.23.27]
V N. [32.23 ] [VE] [.. 23 .. .. ..] C. 5 Estratto 10440 [ 79 - 17/05/2024] [09.23.49.53.63]
V N. [32.23 ] [VE] [.. .. 23 .. ..] C. 9 Estratto 10444 [ 83 - 24/05/2024] [07.58.23.06.19]
V N. [32.23 ] [BA] [.. .. 23 .. ..] C. 10 Estratto 10445 [ 84 - 25/05/2024] [42.02.23.01.29]
V N. [32.23 ] [VE] [.. .. .. 32 ..] C. 12 Estratto 10447 [ 86 - 30/05/2024] [11.70.13.32.88]
V N. [32.23 ] [BA] [.. 32 .. .. 23] C. 15 Ambo 10450 [ 89 - 04/06/2024] [53.32.67.29.23]

In corso per altre 7 estrazioni
G 0003 Numeri in gioco : 39.33.32.23 su BA VE per Ambo
V N. [39.33.32.23 ] [BA] [33 .. .. 23 ..] C. 4 Ambo 10439 [ 78 - 16/05/2024] [33.03.58.23.27]
V N. [39.33.32.23 ] [BA] [.. 32 .. .. 23] C. 15 Ambo 10450 [ 89 - 04/06/2024] [53.32.67.29.23]



ANCHE STASERA IL METODO HA FATTO IL SUO DOVERE REGALANDOCI SVARIATI AMBI E AMBATE A GO GO
 
Estrazione generatrice del pronostico 10450 [ 89 - 04/06/2024]
G 0001 Numeri in gioco : 73.37 su GE MI per Estratto
V N. [73.37 ] [MI] [.. .. .. .. 73] C. 1 Estratto 10451 [ 90 - 06/06/2024] [50.16.26.66.73]
Estrazione generatrice del pronostico 10449 [ 88 - 01/06/2024]
G 0001 Numeri in gioco : 72.27 su GE NA per Estratto
V N. [72.27 ] [GE] [27 .. .. .. ..] C. 2 Estratto 10451 [ 90 - 06/06/2024] [27.18.35.41.03]
G 0002 Numeri in gioco : 53.35 su CA GE per Estratto
V N. [53.35 ] [GE] [.. .. 35 .. ..] C. 4 Estratto 10451 [ 90 - 06/06/2024] [27.18.35.41.03]
G 0002 Numeri in gioco : 41.14 su NA PA per Estratto
V N. [41.14 ] [PA] [14 .. .. .. ..] C. 5 Estratto 10451 [ 90 - 06/06/2024] [14.90.39.76.65]
Estrazione generatrice del pronostico 10446 [ 85 - 28/05/2024]
G 0001 Numeri in gioco : 40.04 su BA RO per Estratto
V N. [40.04 ] [BA] [04 .. .. .. ..] C. 5 Estratto 10451 [ 90 - 06/06/2024] [04.26.13.81.75]
Estrazione generatrice del pronostico 10445 [ 84 - 25/05/2024]
G 0001 Numeri in gioco : 02.20 su CA FI per Estratto
V N. [02.20 ] [FI] [.. 20 .. .. 02] C. 6 Ambo 10451 [ 90 - 06/06/2024] [61.20.75.17.02]
G 0002 Numeri in gioco : 33.39 su BA CA per Estratto
V N. [33.39 ] [CA] [.. .. 33 .. ..] C. 6 Estratto 10451 [ 90 - 06/06/2024] [12.27.33.64.89]
Estrazione generatrice del pronostico 10444 [ 83 - 24/05/2024]
G 0001 Numeri in gioco : 26.62 su BA PA per Estratto
V N. [26.62 ] [BA] [.. 26 .. .. ..] C. 7 Estratto 10451 [ 90 - 06/06/2024] [04.26.13.81.75]
Estrazione generatrice del pronostico 10442 [ 81 - 21/05/2024]
G 0001 Numeri in gioco : 22.29 su MI NA per Estratto
V N. [22.29 ] [NA] [29 .. .. .. ..] C. 9 Estratto 10451 [ 90 - 06/06/2024] [29.08.10.17.86]
G 0002 Numeri in gioco : 27.72 su GE RO per Estratto
V N. [27.72 ] [GE] [27 .. .. .. ..] C. 10 Estratto 10451 [ 90 - 06/06/2024] [27.18.35.41.03]
V N. [27.72 ] [RO] [.. .. 27 .. ..] C. 10 Estratto 10451 [ 90 - 06/06/2024] [43.87.27.45.80]
Estrazione generatrice del pronostico 10437 [ 76 - 11/05/2024]
G 0001 Numeri in gioco : 66.69 su MI PA per Estratto
V N. [66.69 ] [MI] [.. .. .. 66 ..] C. 14 Estratto 10451 [ 90 - 06/06/2024] [50.16.26.66.73]

STASERA STRAGE DI AMBATE ....................CON UNA GIGLIEGINA UN BEL AMBO SU RUOTA A POCHI COLPI
 
Estrazione generatrice del pronostico 10451 [ 90 - 06/06/2024]
G 0001 Numeri in gioco : 45.54 su CA TO per Estratto
V N. [45.54 ] [TO] [.. .. .. .. 54] C. 1 Estratto 10452 [ 91 - 07/06/2024] [29.47.80.05.54]
Estrazione generatrice del pronostico 10450 [ 89 - 04/06/2024]
G 0001 Numeri in gioco : 42.24 su GE VE per Estratto
V N. [42.24 ] [VE] [.. .. .. 42 24] C. 2 Ambo 10452 [ 91 - 07/06/2024] [19.75.62.42.24]
In corso per altre 20 estrazioni
G 0002 Numeri in gioco : 34.43 su GE VE per Estratto
In corso per altre 20 estrazioni
G 0003 Numeri in gioco : 42.24.34.43 su GE VE per Ambo
V N. [42.24.34.43 ] [VE] [.. .. .. 42 24] C. 2 Ambo 10452 [ 91 - 07/06/2024] [19.75.62.42.24]
Estrazione generatrice del pronostico 10449 [ 88 - 01/06/2024]
G 0001 Numeri in gioco : 75.57 su GE TO per Estratto
V N. [75.57 ] [GE] [.. .. .. .. 75] C. 1 Estratto 10450 [ 89 - 04/06/2024] [30.87.52.55.75]
V N. [75.57 ] [GE] [.. .. .. .. 57] C. 3 Estratto 10452 [ 91 - 07/06/2024] [61.66.86.50.57]
In corso per altre 19 estrazioni
G 0002 Numeri in gioco : 61.16 su GE TO per Estratto
V N. [61.16 ] [GE] [61 .. .. .. ..] C. 3 Estratto 10452 [ 91 - 07/06/2024] [61.66.86.50.57]
In corso per altre 19 estrazioni
G 0003 Numeri in gioco : 75.57.61.16 su GE TO per Ambo
V N. [75.57.61.16 ] [GE] [61 .. .. .. 57] C. 3 Ambo 10452 [ 91 - 07/06/2024] [61.66.86.50.57]
Estrazione generatrice del pronostico 10448 [ 87 - 31/05/2024]
G 0001 Numeri in gioco : 36.63 su RO VE per Estratto
V N. [36.63 ] [RO] [.. 36 .. .. ..] C. 4 Estratto 10452 [ 91 - 07/06/2024] [55.36.46.85.62]
Estrazione generatrice del pronostico 10447 [ 86 - 30/05/2024]
G 0001 Numeri in gioco : 65.56 su CA GE per Estratto
V N. [65.56 ] [CA] [.. .. .. .. 65] C. 5 Estratto 10452 [ 91 - 07/06/2024] [69.14.53.63.65]
In corso per altre 17 estrazioni
G 0002 Numeri in gioco : 53.35 su CA GE per Estratto
V N. [53.35 ] [GE] [.. .. 35 .. ..] C. 4 Estratto 10451 [ 90 - 06/06/2024] [27.18.35.41.03]
V N. [53.35 ] [CA] [.. .. 53 .. ..] C. 5 Estratto 10452 [ 91 - 07/06/2024] [69.14.53.63.65]
In corso per altre 17 estrazioni
G 0003 Numeri in gioco : 65.56.53.35 su CA GE per Ambo
V N. [65.56.53.35 ] [CA] [.. .. 53 .. 65] C. 5 Ambo 10452 [ 91 - 07/06/2024] [69.14.53.63.65]
In corso per altre 17 estrazioni
G 0002 Numeri in gioco : 35.53 su BA FI per Estratto
V N. [35.53 ] [BA] [.. 53 .. .. ..] C. 5 Estratto 10452 [ 91 - 07/06/2024] [02.53.52.09.27]
Estrazione generatrice del pronostico 10442 [ 81 - 21/05/2024]
G 0001 Numeri in gioco : 63.36 su GE PA per Estratto
V N. [63.36 ] [PA] [63 .. .. .. ..] C. 10 Estratto 10452 [ 91 - 07/06/2024] [63.09.54.01.74]
In corso per altre 11 estrazioni
G 0002 Numeri in gioco : 46.64 su NA VE per Estratto
V N. [46.64 ] [NA] [64 .. .. .. ..] C. 11 Estratto 10452 [ 91 - 07/06/2024] [64.86.61.19.78]
G 0002 Numeri in gioco : 54.45 su BA TO per Estratto
V N. [54.45 ] [TO] [.. .. .. .. 54] C. 14 Estratto 10452 [ 91 - 07/06/2024] [29.47.80.05.54]


STASERA UNA VALANGA DI AMBATE E PER CHIUDERE IN BELLEZZA 3 AMBI SU RUOTA IN POCHI COLPI

;););););););););););)
 
Cortesemente è valido l'esempio del 1 giugno 23 +23 =46 + 4 =50 quindi 5 -50 ambite poi 50 diviso 4 = 12.5 si prendono i primi 2 numeri cioè 12 quindi previsione 5.50 12.21 .Io vedo un mare di numeri che non capisco da dove escono .GRAZIE
 
bari11 ha scritto:
Cortesemente è valido l'esempio del 1 giugno 23 +23 =46 + 4 =50 quindi 5 -50 ambite poi 50 diviso 4 = 12.5 si prendono i primi 2 numeri cioè 12 quindi previsione 5.50 12.21 .Io vedo un mare di numeri che non capisco da dove escono .GRAZIE
Clicca per espandere...
Ciao Bari. Scusa de ti rispondo io,si è valido l'esempio, lo ha ribadito mastrogino quando gli ho fatto notare che c'era qualcosa di sbagliato con un'altra condizione. Cmq,guardando un po' tutto,la maggior parte delle condizioni sono calcolate in modo errato,alcune inesistenti.
Quando mastro avrà tempo per una verifica sicuramente farà le correzioni necessarie anche perché la gente potrebbe giocare previsioni sbagliate.
 
BUONGIORNO A TUTTI , CERCO DI RISPONDERE ALLE VOSTRE DOMANDE

SE I LISTATI VENGONO LANCIATI SEPARATAMENTE NON SUCEDE NULLA MA SE VENGONO LANCIATI INSIEME I NUMERI NON TORNANO
COME DA EAEMPIO QUI SOTTO

"" METODO + 4""
Estrazione generatrice del pronostico 10453 [ 92 - 08/06/2024]
G 0001 Numeri in gioco : 60.06 su GE PA per Estratto
In corso per altre 22 estrazioni


"" METODO DIVISO ""
Estrazione generatrice del pronostico 10453 [ 92 - 08/06/2024]
G 0001 Numeri in gioco : 39.33 su GE PA per Estratto
In corso per altre 22 estrazioni

"" METODO FUSIONE DEI 2 ""

Fusione Previsioni/Quartina : GE - PA * 39 - 33 - 32 - 23 *
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Estrazione generatrice del pronostico 10453 [ 92 - 08/06/2024]
G 0001 Numeri in gioco : 39.33 su GE PA per Estratto
In corso per altre 22 estrazioni
G 0002 Numeri in gioco : 32.23 su GE PA per Estratto
In corso per altre 22 estrazioni
G 0003 Numeri in gioco : 39.33.32.23 su GE PA per Ambo
In corso per altre 22 estrazioni


SCUSATEMI MA NON MENERO ACCORTO ADESSO CHIEDO ALLA SEZIONE DI TROVARE IL PROBLEMA E DI RISORVELO
 
Buongiorno e buona domenica mastrogino! Devo riconoscere che mi sono persa un po' anche perché non ci capisco nulla di listati,script e altre cose sofisticate...uso carta e penna...e non saprei dire dove sta il problema.
Grazie per la tua disponibilità. È giusto fare le correzioni dovute anche perché ho notato che non è stato evidenziato l'ambo secco 78-19 sulla ruota di Napoli della condizione del 37 Na-Pa....poi ieri sera l'ambo secco 30-12 Ca dalla condizione del 49 Ca-Ge.
 
scusa era un fesseria, un "1" mancante...

ora funziona tutto

Ciao Mastrogino, il tuo metodo prevede il fisso 4 per i calcoli
gli ho inserito un inputBox, in caso volessi sbizzarrirti con altri fissi...
ma vai in fondo e scoprirai altro...



Codice: 
Option Explicit
Sub Main
   Dim Ini,fin,r1,r2,a,b,c,d,k,p1,co,x
   Dim Nu(2),Ru(2),aNum(2),posta(1),poste(2),colpi,es
   Dim Nu1(2),Ru1(2),aNum1(2)
   Dim Nk(4)
   colpi = 22
   posta(1) = 1
   poste(2) = 1
   Ini = EstrazioneFin - 90
   fin = EstrazioneFin
   co = 0
   x = CInt(InputBox(" Inserisci l'Elemento MastroGino ",,"4"))
   For es = Ini To fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,fin,es)
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            For p1 = 1 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r2,p1)
               If a = b Then
                  k = k + 1
                  Nu(1) = a : Nu(2) = b
                  Ru(1) = r1 : Ru(2) = r2
                  aNum(1) = Fuori90(Nu(1) + Nu(2) / x + x)
                  aNum(2) = Vert(aNum(1))
                  c = Estratto(es,r1,p1)
                  d = Estratto(es,r2,p1)
                  If c = d Then
                     k = k + 1
                     Nu1(1) = c : Nu1(2) = d
                     Ru(1) = r1 : Ru(2) = r2
                     aNum1(1) = Fuori90(Nu1(1) + Nu1(2) + x)
                     aNum1(2) = Vert(aNum1(1))
                     Nk(1) = aNum(1)
                     Nk(2) = aNum(2)
                     Nk(3) = aNum1(1)
                     Nk(4) = aNum1(2)
                     co = co + 1
                     Scrivi String(100,"°") & " " & co,1
                     Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " * " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " * ",1
                     Scrivi String(60,"-"),1
                     Scrivi " " & Format2(aNum(1)) & " - " & Format2(aNum(2)) & " a " & SiglaRuota(r1) & " - " & SiglaRuota(r2),1,,,1,2
                     Scrivi " " & Format2(aNum1(1)) & " - " & Format2(aNum1(2)) & " a " & SiglaRuota(r1) & " - " & SiglaRuota(r2),1,,,1,2
                     Scrivi String(60,"-"),1
                     Scrivi " " & SiglaRuota(r1) & " - " & SiglaRuota(r2) & " * " & Format2(aNum(1)) & " - " & Format2(aNum(2)) & " - " & Format2(aNum1(1)) & " - " & Format2(aNum1(2)) & " * ",1,,4,,2
                     Scrivi String(70,"°"),1
                     ImpostaGiocata 1,aNum,Ru,posta,colpi
                     ImpostaGiocata 2,aNum1,Ru,posta,colpi
                     ImpostaGiocata 3,Nk,Ru,poste,colpi
                     Gioca es,1,,1
                  End If
                  If ScriptInterrotto Then Exit For
               End If
            Next
         Next
      Next
   Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" *** Idea di MastroGino e FusioneScript by BaffoBlù *** "),1,3,0
   ScriviResoconto,False
   Scrivi
   Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13")
End Sub





Ciao Mastrogino, il tuo metodo prevede il fisso 4 per i calcoli

ho fatto una ricerchina, spero ti sia gradita...

sembra che il fisso 54 sia il migliore in assoluto da utilizzare al posto del 4

anche il il fisso 13 è un ottimo fisso per i calcoli

provate questo script con il fisso 54...(molti più ambi...)

provate anche il fisso 13...




Codice: 
Option Explicit
Sub Main
   Dim Ini,fin,r1,r2,a,b,c,d,k,p1,co,x
   Dim Nu(2),Ru(2),aNum(2),posta(1),poste(2),colpi,es
   Dim Nu1(2),Ru1(2),aNum1(2)
   Dim Nk(4)
   colpi = 22
   posta(1) = 1
   poste(2) = 1
   Ini = EstrazioneFin - 90
   fin = EstrazioneFin
   co = 0
   x = CInt(InputBox(" Inserisci l'Elemento MastroGino ",,"54"))' Prova anche il 13.
   For es = Ini To fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,fin,es)
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            For p1 = 1 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r2,p1)
               If a = b Then
                  k = k + 1
                  Nu(1) = a : Nu(2) = b
                  Ru(1) = r1 : Ru(2) = r2
                  aNum(1) = Fuori90(Nu(1) + Nu(2) / x + x)
                  aNum(2) = Vert(aNum(1))
                  c = Estratto(es,r1,p1)
                  d = Estratto(es,r2,p1)
                  If c = d Then
                     k = k + 1
                     Nu1(1) = c : Nu1(2) = d
                     Ru(1) = r1 : Ru(2) = r2
                     aNum1(1) = Fuori90(Nu1(1) + Nu1(2) + x)
                     aNum1(2) = Vert(aNum1(1))
                     Nk(1) = aNum(1)
                     Nk(2) = aNum(2)
                     Nk(3) = aNum1(1)
                     Nk(4) = aNum1(2)
                     co = co + 1
                     Scrivi String(100,"°") & " " & co,1
                     Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " * " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " * ",1
                     Scrivi String(60,"-"),1
                     Scrivi " " & Format2(aNum(1)) & " - " & Format2(aNum(2)) & " a " & SiglaRuota(r1) & " - " & SiglaRuota(r2),1,,,1,2
                     Scrivi " " & Format2(aNum1(1)) & " - " & Format2(aNum1(2)) & " a " & SiglaRuota(r1) & " - " & SiglaRuota(r2),1,,,1,2
                     Scrivi String(60,"-"),1
                     Scrivi " " & SiglaRuota(r1) & " - " & SiglaRuota(r2) & " * " & Format2(aNum(1)) & " - " & Format2(aNum(2)) & " - " & Format2(aNum1(1)) & " - " & Format2(aNum1(2)) & " * ",1,,4,,2
                     Scrivi String(70,"°"),1
                     ImpostaGiocata 1,aNum,Ru,posta,colpi
                     ImpostaGiocata 2,aNum1,Ru,posta,colpi
                     ImpostaGiocata 3,Nk,Ru,poste,colpi
                     Gioca es,1,,1
                  End If
                  If ScriptInterrotto Then Exit For
               End If
            Next
         Next
      Next
   Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" *** Idea di MastroGino e FusioneScript by BaffoBlù *** "),1,3,0
   ScriviResoconto,False
   Scrivi
   Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13")
End Sub
 
BaffoBlù ha scritto:
Eccoti la fusione che volevi

fa 3 giocate

1° metodo Ambate
2° metodo Ambata
3° Fusione per Ambo

Spero di aver capito tutto bene...


Codice: 
Option Explicit
Sub Main
   Dim Ini,fin,r1,r2,a,b,c,d,k,p1,co
   Dim Nu(2),Ru(2),aNum(2),posta(1),poste(2),colpi,es
   Dim Nu1(2),Ru1(2),aNum1(2)
   Dim Nk(4)
   colpi = 22
   posta(1) = 1
   poste(2) = 1
   Ini = EstrazioneFin - 90
   fin = EstrazioneFin
   co = 0
   For es = Ini To fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,fin,es)
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            For p1 = 1 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r2,p1)
               If a = b Then
                  k = k + 1
                  Nu(1) = a : Nu(2) = b
                  Ru(1) = r1 : Ru(2) = r2
                  aNum(1) = Fuori90(Nu(1) + Nu(2) / 4 + 4)
                  aNum(2) = Vert(aNum(1))
                  c = Estratto(es,r1,p1)
                  d = Estratto(es,r2,p1)
                  If c = d Then
                     k = k + 1
                     Nu1(1) = c : Nu(2) = d
                     Ru(1) = r1 : Ru(2) = r2
                     aNum1(1) = Fuori90(Nu1(1) + Nu1(2) + 4)
                     aNum1(2) = Vert(aNum1(1))
                     Nk(1) = aNum(1)
                     Nk(2) = aNum(2)
                     Nk(3) = aNum1(1)
                     Nk(4) = aNum1(2)
                     co = co + 1
                     Scrivi String(100,"°") & " Caso n°" & co,1
                     Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " * " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " * ",1
                     Scrivi String(60,"-"),1
                     Scrivi "1° Metodo Ambate : " & Format2(aNum(1)) & " - " & Format2(aNum(2)) & " a  " & SiglaRuota(r1) & " - " & SiglaRuota(r2),1,,,1,2
                     Scrivi "2° Metodo Ambate : " & Format2(aNum1(1)) & " - " & Format2(aNum1(2)) & " a  " & SiglaRuota(r1) & " - " & SiglaRuota(r2),1,,,1,2
                     Scrivi String(60,"-"),1
                     Scrivi "Fusione Previsioni/Quartina : " & SiglaRuota(r1) & " - " & SiglaRuota(r2) & " * " & Format2(aNum(1)) & " - " & Format2(aNum(2)) & " - " & Format2(aNum1(1)) & " - " & Format2(aNum1(2)) & " * ",1,,4,,2
                     Scrivi String(70,"°"),1
                     ImpostaGiocata 1,aNum,Ru,posta,colpi,1
                     ImpostaGiocata 2,aNum1,Ru,posta,colpi,1
                     ImpostaGiocata 3,Nk,Ru,poste,colpi
                     Gioca es,1,,1
                  End If
                  If ScriptInterrotto Then Exit For
               End If
            Next
         Next
      Next
   Next
   Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13")' se la vuoi dopo remma qui e togli remmatura sotto
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" *** Idea di MastroGino e FusioneScript by BaffoBlù *** "),1,3,0
   ScriviResoconto
   Scrivi
   'Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13")' se la vuoi dopo togli la remmatura qui
End Sub
Clicca per espandere...
Ciao Baffoblu trovo ottimo ma come si fa a mettere in gioco 4 giochi in un giorno ? forse per semplificare ci vorrebbe ID mese, scusa il disturbo ma vorrei giocarlo, grazie.
 
BaffoBlù ha scritto:
scusa era un fesseria, un "1" mancante...

ora funziona tutto

Ciao Mastrogino, il tuo metodo prevede il fisso 4 per i calcoli
gli ho inserito un inputBox, in caso volessi sbizzarrirti con altri fissi...
ma vai in fondo e scoprirai altro...



Codice: 
Option Explicit
Sub Main
   Dim Ini,fin,r1,r2,a,b,c,d,k,p1,co,x
   Dim Nu(2),Ru(2),aNum(2),posta(1),poste(2),colpi,es
   Dim Nu1(2),Ru1(2),aNum1(2)
   Dim Nk(4)
   colpi = 22
   posta(1) = 1
   poste(2) = 1
   Ini = EstrazioneFin - 90
   fin = EstrazioneFin
   co = 0
   x = CInt(InputBox(" Inserisci l'Elemento MastroGino ",,"4"))
   For es = Ini To fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,fin,es)
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            For p1 = 1 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r2,p1)
               If a = b Then
                  k = k + 1
                  Nu(1) = a : Nu(2) = b
                  Ru(1) = r1 : Ru(2) = r2
                  aNum(1) = Fuori90(Nu(1) + Nu(2) / x + x)
                  aNum(2) = Vert(aNum(1))
                  c = Estratto(es,r1,p1)
                  d = Estratto(es,r2,p1)
                  If c = d Then
                     k = k + 1
                     Nu1(1) = c : Nu1(2) = d
                     Ru(1) = r1 : Ru(2) = r2
                     aNum1(1) = Fuori90(Nu1(1) + Nu1(2) + x)
                     aNum1(2) = Vert(aNum1(1))
                     Nk(1) = aNum(1)
                     Nk(2) = aNum(2)
                     Nk(3) = aNum1(1)
                     Nk(4) = aNum1(2)
                     co = co + 1
                     Scrivi String(100,"°") & " " & co,1
                     Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " * " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " * ",1
                     Scrivi String(60,"-"),1
                     Scrivi " " & Format2(aNum(1)) & " - " & Format2(aNum(2)) & " a " & SiglaRuota(r1) & " - " & SiglaRuota(r2),1,,,1,2
                     Scrivi " " & Format2(aNum1(1)) & " - " & Format2(aNum1(2)) & " a " & SiglaRuota(r1) & " - " & SiglaRuota(r2),1,,,1,2
                     Scrivi String(60,"-"),1
                     Scrivi " " & SiglaRuota(r1) & " - " & SiglaRuota(r2) & " * " & Format2(aNum(1)) & " - " & Format2(aNum(2)) & " - " & Format2(aNum1(1)) & " - " & Format2(aNum1(2)) & " * ",1,,4,,2
                     Scrivi String(70,"°"),1
                     ImpostaGiocata 1,aNum,Ru,posta,colpi
                     ImpostaGiocata 2,aNum1,Ru,posta,colpi
                     ImpostaGiocata 3,Nk,Ru,poste,colpi
                     Gioca es,1,,1
                  End If
                  If ScriptInterrotto Then Exit For
               End If
            Next
         Next
      Next
   Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" *** Idea di MastroGino e FusioneScript by BaffoBlù *** "),1,3,0
   ScriviResoconto,False
   Scrivi
   Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13")
End Sub





Ciao Mastrogino, il tuo metodo prevede il fisso 4 per i calcoli

ho fatto una ricerchina, spero ti sia gradita...

sembra che il fisso 54 sia il migliore in assoluto da utilizzare al posto del 4

anche il il fisso 13 è un ottimo fisso per i calcoli

provate questo script con il fisso 54...(molti più ambi...)

provate anche il fisso 13...




Codice: 
Option Explicit
Sub Main
   Dim Ini,fin,r1,r2,a,b,c,d,k,p1,co,x
   Dim Nu(2),Ru(2),aNum(2),posta(1),poste(2),colpi,es
   Dim Nu1(2),Ru1(2),aNum1(2)
   Dim Nk(4)
   colpi = 22
   posta(1) = 1
   poste(2) = 1
   Ini = EstrazioneFin - 90
   fin = EstrazioneFin
   co = 0
   x = CInt(InputBox(" Inserisci l'Elemento MastroGino ",,"54"))' Prova anche il 13.
   For es = Ini To fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,fin,es)
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            For p1 = 1 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r2,p1)
               If a = b Then
                  k = k + 1
                  Nu(1) = a : Nu(2) = b
                  Ru(1) = r1 : Ru(2) = r2
                  aNum(1) = Fuori90(Nu(1) + Nu(2) / x + x)
                  aNum(2) = Vert(aNum(1))
                  c = Estratto(es,r1,p1)
                  d = Estratto(es,r2,p1)
                  If c = d Then
                     k = k + 1
                     Nu1(1) = c : Nu1(2) = d
                     Ru(1) = r1 : Ru(2) = r2
                     aNum1(1) = Fuori90(Nu1(1) + Nu1(2) + x)
                     aNum1(2) = Vert(aNum1(1))
                     Nk(1) = aNum(1)
                     Nk(2) = aNum(2)
                     Nk(3) = aNum1(1)
                     Nk(4) = aNum1(2)
                     co = co + 1
                     Scrivi String(100,"°") & " " & co,1
                     Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " * " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " * ",1
                     Scrivi String(60,"-"),1
                     Scrivi " " & Format2(aNum(1)) & " - " & Format2(aNum(2)) & " a " & SiglaRuota(r1) & " - " & SiglaRuota(r2),1,,,1,2
                     Scrivi " " & Format2(aNum1(1)) & " - " & Format2(aNum1(2)) & " a " & SiglaRuota(r1) & " - " & SiglaRuota(r2),1,,,1,2
                     Scrivi String(60,"-"),1
                     Scrivi " " & SiglaRuota(r1) & " - " & SiglaRuota(r2) & " * " & Format2(aNum(1)) & " - " & Format2(aNum(2)) & " - " & Format2(aNum1(1)) & " - " & Format2(aNum1(2)) & " * ",1,,4,,2
                     Scrivi String(70,"°"),1
                     ImpostaGiocata 1,aNum,Ru,posta,colpi
                     ImpostaGiocata 2,aNum1,Ru,posta,colpi
                     ImpostaGiocata 3,Nk,Ru,poste,colpi
                     Gioca es,1,,1
                  End If
                  If ScriptInterrotto Then Exit For
               End If
            Next
         Next
      Next
   Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" *** Idea di MastroGino e FusioneScript by BaffoBlù *** "),1,3,0
   ScriviResoconto,False
   Scrivi
   Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13")
End Sub
Clicca per espandere...




Ciao Mastrogino

seguimi...

con il fisso 4 del tuo metodo originale :

per tutti i colpi

Ambo su ruota : 165
Terno su ruota : 2

invece al primo esito raggiunto

Ambo su ruota : 110
Terno su ruota : 2

********************************************

Ma se al posto del "4" ci fosse un numero migliore?

Miglior fisso è il "13"( Portafortuna...hi hi hi...), non il 54, mi son confuso...

con il fisso 13

per tutti i colpi

Ambo su ruota : 221
Terno su ruota : 4

invece al primo esito raggiunto

Ambo su ruota : 141
Terno su ruota : 3

*******************************

con il 54 :

per tutti i colpi

Ambo su ruota : 202
Terno su ruota : 4

invece al primo esito raggiunto

Ambo su ruota : 117
Terno su ruota : 3

********************************
********************************

Questo è fatto apposta per il fisso "13".

Gli ho aggiunto una decina...

dai uno sguardo che cosa combina...




Codice: 
Option Explicit
Sub Main
   Dim Ini,fin,es,r1,r2,a,b,c,d,k,p1,co,x
   Dim Nu(2),Ru(2),aNum(2),posta(10),poste(10),Aposte(10),colpi
   Dim Nu1(2),Ru1(2),aNum1(2),Nk(4),dec(10)
   colpi = 22
   posta(1) = 20
   poste(2) = 10
   poste(3) = 5
   Aposte(2) = 10
   Aposte(3) = 5
   Aposte(4) = 1
   Ini = EstrazioneFin - 90
   fin = EstrazioneFin
   co = 0
   x = CInt(InputBox(" Inserisci l'Elemento MastroGino ",,"13"))
   ResetTimer
   For es = Ini To fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,fin,es)
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            For p1 = 1 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r2,p1)
               If a = b Then
                  k = k + 1
                  Nu(1) = a : Nu(2) = b
                  Ru(1) = r1 : Ru(2) = r2
                  aNum(1) = Fuori90(Nu(1) + Nu(2) / x + x)
                  aNum(2) = Vert(aNum(1))
                  c = Estratto(es,r1,p1)
                  d = Estratto(es,r2,p1)
                  If c = d Then
                     k = k + 1
                     Nu1(1) = c : Nu1(2) = d
                     Ru(1) = r1 : Ru(2) = r2
                     aNum1(1) = Fuori90(Nu1(1) + Nu1(2) + x)
                     aNum1(2) = Vert(aNum1(1))
                     Nk(1) = aNum(1)
                     Nk(2) = aNum(2)
                     Nk(3) = aNum1(1)
                     Nk(4) = aNum1(2)
                     '---------------
                     dec(1) = aNum(1)
                     dec(2) = aNum(2)
                     dec(3) = aNum1(1)
                     dec(4) = aNum1(2)
                     dec(5) = 5
                     dec(6) = 9
                     dec(7) = 16
                     dec(8) = 44
                     dec(9) = 47
                     dec(10) = 50
                     co = co + 1
                     Scrivi String(100,"°") & " " & co,1
                     Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " * " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " * ",1
                     Scrivi String(60,"-"),1
                     Scrivi " " & Format2(aNum(1)) & " - " & Format2(aNum(2)) & " a " & SiglaRuota(r1) & " - " & SiglaRuota(r2),1,,,1,2
                     Scrivi " " & Format2(aNum1(1)) & " - " & Format2(aNum1(2)) & " a " & SiglaRuota(r1) & " - " & SiglaRuota(r2),1,,,1,2
                     Scrivi String(60,"-"),1
                     Scrivi " " & SiglaRuota(r1) & " - " & SiglaRuota(r2) & " * " & Format2(aNum(1)) & " - " & Format2(aNum(2)) & " - " & Format2(aNum1(1)) & " - " & Format2(aNum1(2)) & " * ",1,,4,,2
                     Scrivi String(70,"°"),1
                     ImpostaGiocata 1,aNum,Ru,posta,colpi
                     ImpostaGiocata 2,aNum1,Ru,posta,colpi
                     ImpostaGiocata 3,Nk,Ru,poste,colpi
                     ImpostaGiocata 4,dec,Ru,Aposte,colpi
                     Gioca es,1,,1
                  End If
                  If ScriptInterrotto Then Exit For
               End If
            Next
         Next
      Next
   Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" *** Idea di MastroGino e Fusione Script + Aggiunta miglior Fisso + Aggiunta Decina by BaffoBlù *** "),1,3,0
   ScriviResoconto,False
   Scrivi
   Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22")
End Sub
 
Buona serata a tutti voi ,
Grande Baffo , ti ringrazio per aver dedicato del tempo a migliorare il listato , direi che è stupendo hai trovato gli alternativi
al numero 4 , inserendo ì il 13 o il 54
mi piace tanto il numero 13 " parte fondamentale della tavola settenaria " ma questo è un'altra cosa .
HO visto che hai inserito dei numeri fissi , buona idea , ne avrei una ,
tempo fa ho creato una tabbella con i numeri simpatici ai numeri isotopi , che ne dici " sempre quando hai tempo" di inserire
qui o al download per vedere la reazione ?
fammi sapere intanto io faccio qualche controllatina
e ti ringrazio per il tempo concesso
 
bari11 ha scritto:
Buongiorno se posso il 55 isotopo da 24-42 e 28-82 perche' 55 piu' 55 piu' 4 da 114 diviso 4 28 .
Clicca per espandere...
Scusa bari11, io ho segnalato l'ambo del primo metodo di mastro,quello del +4 che da come hai scritto 24-42 e per ambo si rimette in gioco il numero di calcolo e il suo vertibile,cioè 55-59.
Poi io credo che la divisione 4 si dovrebbe fare tenendo conto del -90,cioè 114-90=24÷4=6. A questo punto sarebbe 24-42/6-60,ma forse mi sbaglio io.
 
Grazie mastrogino e altri volevo chiedere di postare la o le previsioni che scaturiscono dal 61 sortito nella stessa posizione ultimo estratto nelle ruote consecutive di BA-CA. Se possibile con i calcoli.
Grazie
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 27 settembre 2024
    Bari
    31
    06
    88
    17
    66
    Cagliari
    53
    48
    78
    66
    80
    Firenze
    09
    29
    10
    43
    59
    Genova
    11
    15
    39
    35
    58
    Milano
    74
    29
    46
    13
    62
    Napoli
    53
    26
    21
    69
    38
    Palermo
    30
    79
    88
    75
    80
    Roma
    56
    37
    26
    47
    19
    Torino
    05
    63
    70
    24
    75
    Venezia
    39
    44
    53
    16
    05
    Nazionale
    23
    33
    35
    36
    14
    Estrazione Simbolotto
    Palermo
    02
    17
    21
    39
    38
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto