Novità

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

bubù

Advanced Member >PLATINUM PLUS<
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(n) = 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(y) Then nr(y) = Fuori90(nr(y) + 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


 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 30 aprile 2024
    Bari
    08
    67
    03
    02
    46
    Cagliari
    67
    01
    87
    84
    47
    Firenze
    31
    56
    40
    53
    50
    Genova
    03
    19
    45
    47
    25
    Milano
    71
    48
    51
    12
    13
    Napoli
    45
    19
    49
    76
    56
    Palermo
    58
    74
    86
    37
    67
    Roma
    26
    79
    47
    38
    58
    Torino
    32
    71
    39
    84
    80
    Venezia
    52
    31
    22
    42
    19
    Nazionale
    06
    83
    47
    20
    41
    Estrazione Simbolotto
    Genova
    03
    05
    45
    40
    19
Alto