Novità

Ciao , potete farlo -->

Bubblegum

Super Member >GOLD<
Interessante metodo su indici mensili , ultimo compreso

Quindi scegliamo i due indici e le due ruote su cui verranno effettuati i calcoli con numero colpi e casi da ricercare

Esempio :

Ruote calcolo : BA VE

Indici : Ultima-Prima

Somma 5 estratti di BA dell'ultima del mese

Somma 5 estratti di VE prima del mese

Il più grande sottrae il più piccolo , il risultato +45 , il risultato col suo vertibile saranno i numeri in gioco

Se la sottrazione è uguale a zero è come fosse 90 poi col + 45 il risultato col suo vertibile sarà 45-54

Poi

Somma 5 estratti di BA prima del mese

Somma 5 estratti di VE dell'ultima del mese

Il più grande sottrae il più piccolo , il risultato +45 , risultato col suo vertibile saranno i numeri in gioco

Quartina da giocare per le due ruote di calcolo BA VE , ma verificare anche le altre per individuare quelle più

vincenti magari quelle col minore numero di colpi

Esempio reale

30-11-2017 , ultima del mese

BA = 230

2-12-2017 , prima del mese

VE = 105

230 - 105 ( grande meno piccolo) = 125 = 35 + 45 = 80 e 8
----------------------------------------------------------------------------------
30-11-2017 , ultima del mese

VE = 269

2-12-2017 , prima del mese

BA = 262

269 - 262 = 7 + 45 = 52-25

Quartina in gioco per BAVE : 8-80-25-52

Esiti

1° - GE 25-8
3° - VE 25-7 ambetto vabbè ...
8° - CA 8-52
9° - BA 25-8
9° - NZ 52-80
10° MI 52-8

Interessante che siano usciti ambi costituiti da un numero di una coppia ed uno dell'altra

E' possibile che calcolando su due ruote vi siano ruote più vincenti rispetto a quelle in cui abbiamo ricavato la previsione

GARZIE
 
1698178284441.png

Codice:
Sub Main()
Scrivi "     metodo degli INDICI MENSILI di Bubblegum.. script GioRyuKen72   ",1,,RGB(143,0,255),5,4
   'https://forum.lottoced.com/threads/ciao-potete-farlo.2212978/
   Dim ruo,ruo2,rtt(4),Ambo1(2),Ambo2(2),Quartina1(4),Ambo3(2),Ambo4(2)
   Dim SomRuo(2),SommaRuo(2),DiffRuo(2),Fisso,Ambata,a,b,c,d,es
   Dim PostaQ(4),Ruota(2),PostaA(2)
   ex = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",36))
   ini = EstrazioneFin - ex
   fin = EstrazioneFin
   ruo = ScegliRuota
   ruo2 = ScegliRuota
   For es = ini To fin
      Messaggio es
      If IndiceMensile(es) = 1 Then
         SomRuo(1) = SommaEstratti(es,ruo)
         SomRuo(2) = SommaEstratti(es - 1,ruo2)
         OrdinaMatrice SomRuo,- 1
         DiffRuo(1) = SomRuo(1) - SomRuo(2)
         Fisso = 45
         a = Fuori90(DiffRuo(1) + Fisso)
         b = Vert(a)
         SommaRuo(1) = SommaEstratti(es - 1,ruo)
         SommaRuo(2) = SommaEstratti(es,ruo2)
         OrdinaMatrice SommaRuo,- 1
         DiffRuo(2) = SommaRuo(1) - SommaRuo(2)
         Fisso = 45
         c = Fuori90(DiffRuo(2) + Fisso)
         d = Vert(c)
         '______________________________________
         Ruota(1) = ruo
         Ruota(2) = ruo2
         rtt(1) = ruo
         rtt(2) = ruo2
         rtt(3) = TT_
         PostaA(2) = 1
         PostaQ(2) = 1.35
         PostaQ(3) = 0.50
         PostaQ(4) = 0.15
         k = 18
         ng = 0
         casi = casi + 1
         Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
         Scrivi String(80,"*") & " Estrazione " &(es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
         Scrivi("Estrazione n." & Format2(es - 1) & " del " & DataEstrazione(es - 1)),1,0
         Scrivi "  " & SiglaRuota(ruo) & " " & StringaEstratti(es - 1,ruo),1,0
         Scrivi
         Scrivi("Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1,0
         Scrivi "  " & SiglaRuota(ruo2) & " " & StringaEstratti(es,ruo2),1,0
         Scrivi
         ColoreTesto 1
         Scrivi "Somma ultima  " & Format2(SommaRuo(1)) & " - Somma  prima  " & Format2(SommaRuo(2)) & " = " & Format2(Fuori90(DiffRuo(2))) & " + " & Format2(Fisso) & " = " & Format2(c) & "  >> vertibile " & Format2(d),1,0
         ColoreTesto 0
         Scrivi
         Scrivi String(70,"-"),1
         'ColoreTesto 1
         'ColoreTesto 0
         Scrivi("Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1,0
         Scrivi "  " & SiglaRuota(ruo) & " " & StringaEstratti(es,ruo),1,0
         Scrivi
         Scrivi("Estrazione n." & Format2(es - 1) & " del " & DataEstrazione(es - 1)),1,0
         Scrivi "  " & SiglaRuota(ruo2) & " " & StringaEstratti(es - 1,ruo2),1,0
         Scrivi
         ColoreTesto 1
         Scrivi "Somma  prima  " & Format2(SomRuo(1)) & " - Somma ultima  " & Format2(SomRuo(2)) & " = " & Format2(Fuori90(DiffRuo(1))) & " + " & Format2(Fisso) & " = " & Format2(a) & "  >> vertibile " & Format2(b),1,0
         ColoreTesto 0
         Scrivi
         Scrivi String(70,"-"),1
         'Scrivi String(70,"-"),1
         Scrivi
         Ambo1(1) = a
         Ambo1(2) = c
         ImpostaGiocata 1,Ambo1,rtt,PostaA,k
         Ambo2(1) = a
         Ambo2(2) = d
         ImpostaGiocata 2,Ambo2,rtt,PostaA,k
         Ambo3(1) = b
         Ambo3(2) = c
         ImpostaGiocata 3,Ambo3,rtt,PostaA,k
         Ambo4(1) = b
         Ambo4(2) = d
         ImpostaGiocata 4,Ambo4,rtt,PostaA,k
         Quartina1(1) = a
         Quartina1(2) = b
         Quartina1(3) = c
         Quartina1(4) = d
         ImpostaGiocata 5,Quartina1,Ruota,PostaQ,k
         Gioca es,True,,1
      End If
      If ScriptInterrotto Then Exit For
   Next
   Scrivi
   Scrivi "Casi totali (" & casi & ")",1
   ScriviDistribuzioneEsiti(True)
   ScriviDistribuzioneCasiInCorso(True)
   ScriviResoconto
End Sub

Ciao, ecco lo script per chi fosse interessato.. ho messo la scelta ruote, 4 ambi ed una quartina.. controllate eventuali errori.
Grazie a Bubblegum per aver condiviso questo metodo.

Saluti, Gio.
 
Ultima modifica:
Ciao GioRyuKen72 , è possibile fare il +1 in quei casi dove le somme risultano uguali ?
Nel primo avremmo 3.30.4.40 nel secondo 80.8.81.18
Sempre grazie
 

Allegati

  • Bubblegum_Indici_mensili.png
    Bubblegum_Indici_mensili.png
    17,7 KB · Visite: 13
  • Bubblegum_Indici_mensili_1.png
    Bubblegum_Indici_mensili_1.png
    18,1 KB · Visite: 12
Ciao a Tutti




Se A è maggiore di B di 1
e C è uguale a B
aggiungendo 1 a C
C diventa uguale ad A
 
Ultima modifica:
Ciao a Tutti

Non ho seguito tutto dall'inizio,

Però se A è maggiore di B di 1
e C è uguale a B
quando si aggiunge 1 B
B diventa uguale ad A
ciao @salvo50, hai ragione. Cosa consigli per i seguenti casi?

come è capitato nell'ultimo esempio di Bubblegum:
a= 03
b= 30
c= 03
d= 30

con If c = a Then c = fuori90(c + 1) diventa:
a= 03
b= 30
c= 04
d= 40

ma nel caso che:
a= 03
b= 30
c= 30
d= 03

non lo risolvo così?
If c = b Then c = fuori90(c + 1) diventa:
a= 03
b= 30
c= 31
d= 13

o forse era subordinato al primo IF ?? non mi ricordo
 
se 1 o più numeri sono ripetuti si fa il + 1 oppure +2, +3, ecc...
 
Ultima modifica:
Qui l'ho impostato con i tuoi numeri

Codice:
Option Explicit
Sub Main
   Dim A,B,C,D,x,y
   Dim Num(4)
   A = 03
   B = 30
   C = 03
   D = 30
   Num(1) = A
   Num(2) = B
   Num(3) = C
   Num(4) = D
   Scrivi StringaNumeri(Num," ",True),1
   If NumeriRipetuti(Num) Then
      While NumeriRipetuti(Num)
         For x = 01 To 3
            For y = x + 01 To 4
               If Num(x) = Num(y) Then Num(y) = Fuori90(Num(y) + 1)
            Next
         Next
      Wend
   End If
   Scrivi StringaNumeri (Num," ",True),1
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 13 giugno 2025
    Bari
    51
    31
    66
    49
    01
    Cagliari
    64
    05
    11
    31
    84
    Firenze
    61
    56
    04
    64
    45
    Genova
    47
    16
    74
    79
    12
    Milano
    31
    90
    08
    40
    19
    Napoli
    20
    73
    56
    22
    82
    Palermo
    28
    02
    25
    39
    06
    Roma
    53
    38
    88
    45
    74
    Torino
    54
    40
    81
    78
    01
    Venezia
    04
    50
    61
    39
    62
    Nazionale
    67
    43
    87
    38
    54
    Estrazione Simbolotto
    Napoli
    08
    36
    22
    42
    45

Ultimi Messaggi

Indietro
Alto