in visione per chi non sa che giocare

[nadin]

Grazie di Cupido

 

[Angy .13]

Scusa @bubu per chi sa una gli script e possibile aver i numeri grazie

 

[Angy .13]

Grazie Cupido, se qualcuno vuole provare con una sestina per Terno e Quaterna :

BubùLotto Production

Metodo Sommativo BARI CAGLIARI alla 5^ estrazione del mese dal 10 Settembre 2026 ​

'10-09-2026

Sub Main()

Scrivi

ColoreTesto 1

Scrivi

Scrivi"=== 5^ Estrazione del mese Bari e Cagliari Terzina per Ambo e Terno 10 SETTEMBRE 2026 by BubùLotto Production",1

Dim rt(3) 'le ruote sono due (2)

Dim nr(11),amb1(10),amb2(10),amb3(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) = 1

rt(2) = 2

co = co + 1

k = 6 ' i colpi in gioco sono 6

Scrivi

ColoreTesto 1

Scrivi

For n = 10158 To EstrazioneFin '11/07/2020

If IndiceMensile = 5 Then 'i conti li faccio alla quinta estrazione del mese

co = co + 1

cont = cont + 1



nr(1) = Fuori90(Estratto(n,8,1) + 33)

nr(2) = Fuori90(Estratto(n,5,2) + 30)

nr(3) = Fuori90(Estratto(n,9,3) + 38)

nr(4) = Fuori90(Estratto(n,2,1) + 23)

nr(5) = Fuori90(Decina(Estratto(n,8,5)) + Estratto(n,10,4) + 35)

nr(6) = Fuori90(Estratto(n,9,5) + Estratto(n,10,2) + 5)



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

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 5 ' numeri totali 6-1= 5

For y = x + 1 To 6 ' perchè i numeri in totale sono 6

If nr(x) = nr Then nr = Fuori90(nr + 1)

Next

Next

Wend

End If

Rem fine formula

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



Scrivi

ColoreTesto 0



amb3(1) = nr(1)

amb3(2) = nr(2)

amb3(3) = nr(3)

amb3(4) = nr(4)

amb3(5) = nr(5)

amb3(6) = nr(6)

ImpostaGiocata 1,amb3,rt,pta3,k

co = co + 1

Gioca n',1

End If

Next

Scrivi

ColoreTesto 0

ScriviResoconto



End Sub

Ovviamente nessuna certezza di vincita!!!

Scusa bubu per chi non sa usare gli script e possibile aver i numeri grazie