Tre quartine su Bari - 2a estrazione del mese

[Giulio Pedrinelli]

Ciao a tutti;

Questo mio nuovo metodo mette in gioco 3 quartina su Bari, alla 2° estrazione del mese, per 13 estrazioni.

Inizio: 02/03/2024
Fine: 04/08/2026

1° Quartina = 3° di RO + 10 / 3° di NZ + 9 / 4° di NZ + 70 / 5° di FI + 13
2° Quartina = 3° di RO + 10 / 3° di NZ + 9 / 1 di NZ + 20 / 5° di CA + 23
3° Quartina = 3° di RO + 10 / 3° di NZ + 9 / 4° di MI + 67 / 2° di BA +18

Totale 30 casi, di cui 52 positivi e 3 negativi.

Qui di seguito lo script.

Sub main()
Dim rt(10),pt(4),n1(8)

pt(1)=0
pt(2)=1
pt(3)=0
pt(4)=0

clp=13 'colpi di gioco
rt(1)=1

ini=10398
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=2 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,8,3) + 10
b=Estratto (es,12,3) + 9
c=Estratto (es,12,4) + 70
d=Estratto (es,3,5) + 13
n1(1)=Fuori90 (a)
n1(2)=Fuori90 (b)
n1(3)=Fuori90 (c)
n1(4)=Fuori90 (d)
ImpostaGiocata 1,n1,rt,pt,clp
a=Estratto (es,8,3) + 10
b=Estratto (es,12,3) + 9
c=Estratto (es,12,1) + 20
d=Estratto (es,2,5) + 23
n1(1)=Fuori90 (a)
n1(2)=Fuori90 (b)
n1(3)=Fuori90 (c)
n1(4)=Fuori90 (d)
ImpostaGiocata 2,n1,rt,pt,clp
a=Estratto (es,8,3) + 10
b=Estratto (es,12,3) + 9
c=Estratto (es,5,4) + 67
d=Estratto (es,1,2) + 18
n1(1)=Fuori90 (a)
n1(2)=Fuori90 (b)
n1(3)=Fuori90 (c)
n1(4)=Fuori90 (d)
ImpostaGiocata 3,n1,rt,pt,clp

Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto

End Sub

 

[andrea211]

ciao, sei una fucina. complimenti