TOVE - 16 estrazione del mese

[Giulio Pedrinelli]

Ciao a tutti;

questo mio nuovo metodo mette in gioco 3 ambi su Torino-Venezia e Tutte per recupero.
Periodo di gioco: 9 estrazioni.

Inizio Ricerca: 28/12/2023 (12 mesi + 2)
Fine Ricerca: 27/02/2025

1° Ambo: 5° TO + 69 / 3° VE + 53
2° Ambo: 5° TO + 69 / 2° BA + 54
3° Ambo: 5° TO + 69 / 3° BA + 3

Totale 14 casi
A segno 12
Nulli 2

Attesa media: 4,83 colpi.

Questo mese la 16° estrazione è quella di stasera.

Qui di seguito lo script.

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

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

clp=9
rt(1)=9
rt(2)=10
rt(3)=11

ini=10360
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If Indicemensile (es)=16 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,9,5) + 69
b=Estratto (es,10,3) + 53
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
ImpostaGiocata 1,n1,rt,pt,clp
a=Estratto (es,9,5) + 69
b=Estratto (es,1,2) + 54
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
ImpostaGiocata 2,n1,rt,pt,clp
a=Estratto (es,9,5) + 69
b=Estratto (es,1,3) + 3
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
ImpostaGiocata 3,n1,rt,pt,clp

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

End Sub

 

[kira]

Grazie Giulio, io nn sò leggere lo script......mi faresti un es. di quando si parte a contare la 16°estrazione? grazie se mi risponderai
faccio ancora i conteggi con carta e penna

 

[Giulio Pedrinelli]

Ciao Kira,

la 16° per questo mese è la 16°, a Gennaio 2025 l'ultima era la 18, credo che dovrò modificare la parte riguardante l'indice mensile.

Il capogioco è: 5° di TO + 69
1° Abbinamento: 3° di Ve + 53
2° Abbinamento: 2° di Ba + 54
3° Abbinamento: 3° di Ba + 3

 

[kira]

Forse ho capito vuoi dire l'ultima del mese

 

[Giulio Pedrinelli]

Sì, per questo mese che ha 28 giorni la 16 estrazione del mese è l’ultima, l’estrazione è stasera.

 

[Giulio Pedrinelli]

A gennaio 2025 la 16° estrazione era quella del 28/1/2025, con l'ultima estrazione del mese non da gli stessi esiti buoni rispetto alla 16 estrazione.
Lo script è corretto.

 

[giorgio 2]

questa sera è stata la 16a estr. quindi che si gioca, grazie