Ricordo che i Metodi sommativi funzionano per un pò , poi si fermano e magari quando meno li aspetti ricominciano a pagare.

[bubù]

Proviamo a seguire l'onda e speriamo di riprendere almeno le spese.

'24/05/2023
Sub Main()
Scrivi
ColoreTesto 1
Scrivi
Scrivi"=== 10^ estrazione del mese ROMA e Torino Estratti o Ambi by BubùLotto",1

Dim rt(3) 'le ruote sono due (2)
Dim nr(11),amb1(10),amb2(10),amb3(10),amb5(10) ' i nr in gioco sono 5 per ambo (5) e uno, in abbinamento, per terno (5)
co = co + 1
Dim pta1(5),pta2(5),pta3(5)',pta4(5),pta5(5)
pta1(1) = 1 ' la puntata per l'ambata è di 1 euro
pta2(2) = 1 ' la puntata per l'ambo è di 1 euro
pta3(2) = 1
pta3(3) = 1

rt(1) = 8
rt(2) = 9

co = co + 1


k = 10 ' i colpi in gioco
Scrivi
ColoreTesto 1
Scrivi
For n = 10111 To EstrazioneFin


If IndiceMensile = 10 Then '
co = co + 1
cont = cont + 1

nr(1) = Fuori90(Estratto(n,8,1) + 37)'(Ambata)
nr(2) = Fuori90(Estratto(n,5,2) + 10)
nr(3) = Fuori90(Estratto(n,1,4) + 25)'(Ambata)
nr(4) = Fuori90(Estratto(n,3,2) + Estratto(n,9,3) + 84)


'**********************************************************


Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(nr) Then
rip = 1
While NumeriRipetuti(nr)
For x = 1 To 03 ' numeri totali 7-1=6
For y = x + 1 To 4 ' 7 perche i numeri in totale sono 7
If nr(x) = nr Then nr = Fuori90(nr + 1)
Next
Next
Wend
End If
Rem fine formula


'*****************************************************

co = 0


Scrivi
ColoreTesto 0
amb1(1) = nr(1)
co = co + 1
ImpostaGiocata co,amb1,rt,pta1,k
amb1(1) = nr(2)
co = co + 1
ImpostaGiocata co,amb1,rt,pta1,k
amb1(1) = nr(3)
co = co + 1
ImpostaGiocata co,amb1,rt,pta1,k
amb1(1) = nr(4)
co = co + 1
ImpostaGiocata co,amb1,rt,pta1,k

amb5(1) = nr(1)
amb5(2) = nr(2)
amb5(3) = nr(3)
amb5(4) = nr(4)
co = co + 1
ImpostaGiocata co,amb5,rt,pta2,k






Gioca n',1
End If
Next
Scrivi
ColoreTesto 0
ScriviResoconto


End Sub

Estrazione generatrice del pronostico 23/05/2023]

DAL 25 MAGGIO 2023

G 0001: 08 su RO TO per Estratto
In corso per altre 10 estrazioni


G 0002: 90 su RO TO per Estratto
In corso per altre 10 estrazioni

G 0003: 72 su RO TO per Estratto
In corso per altre 10 estrazioni

G 0004: 49 su RO TO per Estratto
In corso per altre 10 estrazioni

Per esiti superiori:
G 0005: 08.90.72.49 su RO TO per Ambo e Terno
In corso per altre 10 estrazioni

​

 

[bubù]

*** Estrazione n° 62 del 25/05/2023 Estratto 49 a ROMA al 1° colpo!!! ***

 

[bubù]

*** Estrazione n° 65 del 01/06/2023 ESTRATTO 90 a ROMA al 4° colpo!!! ***

 

[bubù]

Estrazione del lotto sabato 03 giugno 2023 ESTRATTO 90 a TORINO, estratto 8 a ROMA e TORINO e AMBO in Quartina 08-90 a TORINO al 5° colpo di gioco!!!
​