Ruote Ba-Ca-Fi-Ge-Mi - 3 estrazioni

[Giulio Pedrinelli]

Ciao a tutti;

il periodo è poco più di un anno, vediamo se mantiene gli esiti del passato.

Inserisco lo script e l'immagine, ho fretta.
1a Estrazione, l'inizio è dal 2/9/25.

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

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

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

ini=10711
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,4,2) + 28
b=Estratto (es,4,5) + 18
c=Estratto (es,5,5) + 79
d=Estratto (es,9,2) + 4
e=Estratto (es,6,2) + 11
n1(1)=Fuori90 (a)
n1(2)=Fuori90 (b)
n1(3)=Fuori90 (c)
n1(4)=Fuori90 (d)
n1(5)=Fuori90 (e)
ImpostaGiocata 1,n1,rt,pt,clp

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

End Sub

 

[aldinobis]

Ciao e complimenti per i tuoi lavori.

quando poi e se non e' un disturbo

potresti impostare una ricerca ,simile ,con le ruote FI-RO-NZ

che se vengono fuori delle convergenze,vediamo di ridurre la cinquina a terno o quartina

grazie