Sommativo alla 5^ Estrazione BARI-CAGLIARI lunghetta per Ambo e Terno

[bubù]

'11-08-2022



Sub Main()

Scrivi

ColoreTesto 1

Scrivi

Scrivi"=== 5^ del mese Bari e Cagliari Lunghetta 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 = 9793 To EstrazioneFin





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

co = co + 1

cont = cont + 1





nr(1) = Fuori90(Estratto(n,4,1) + 26)

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

nr(3) = Fuori90(Estratto(n,10,2) + 87)

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

nr(5) = Fuori90(Figura(Estratto(n,5,4)) + 17)

nr(6) = Fuori90(Decina(Estratto(n,4,5)) + Estratto(n,12,3) + 36)



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





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 4-1= 5

For y = x + 1 To 6 '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

Casi esaminati: 10
Ambi vinti: 26
Terni vinti: 4
1 NEGATIVA



1 IN CORSO:

Dal 13 Maggio 2023
BARI-CAGLIARI:
47-80-42-36-24-84 per Ambo, Terno
X 6 Estrazioni ​