Primi due numeri - Cagliari - 3 estrazioni

[Giulio Pedrinelli]

Ciao a tutti;

Sto lavorando ad un nuovo metodo con i numeri spia su Cagliari relativo agli ultimi 14 casi.
La data d’inizio è il 2025, dipende dai numeri e la fine è 15/09/2026.
Sto selezionando i numeri con una uscita mima di 8 o 9 su 14 casi.

 

[Giulio Pedrinelli]

Ciao a tutti;

Ho modificato il metodo, con l'indice mensile 1° su Cagliari, 14 casi per 3 estrazioni.
In gioco: 2 Cinquine.
Inizio: 01/08/2025
Fine: 12/09/2025

1° Cinquina:
2° NZ + 29 / 3° MI + 65 / 2° FI + 4 / 5° TO + 11 /1° FI + 13

2° Cinquina:
2° NZ + 29 / 3° MI + 65 / 2° FI + 19 / 4° PA + 23 / 5° FI + 27

Ecco lo script.

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

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

clp=3 'colpi di gioco
rt(1)=2

ini=10693
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=1 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,12,2) + 29
b=Estratto (es,5,3) + 65
c=Estratto (es,3,2) + 4
d=Estratto (es,9,5) + 11
e=Estratto (es,3,1) + 13
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
n1(3)=Fuori90 (c+0)
n1(4)=Fuori90 (d+0)
n1(5)=Fuori90 (e+0)
ImpostaGiocata 1,n1,rt,pt,clp
a=Estratto (es,12,2) + 29
b=Estratto (es,5,3) + 65
c=Estratto (es,3,2) + 19
d=Estratto (es,7,4) + 23
e=Estratto (es,3,5) + 27
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
n1(3)=Fuori90 (c+0)
n1(4)=Fuori90 (d+0)
n1(5)=Fuori90 (e+0)
ImpostaGiocata 2,n1,rt,pt,clp

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

End Sub

 

[bubù]

Complimenti