Giulio Pedrinelli
Super Member >GOLD<
Ciao a tutti;
Inizio Ricerca: 08/04/2023
Fine Ricerca: 27/03/2025
Ruote: BA-CA
$° Estrazione del mese
Ambata (Capogioco) = 4° NA + 85
1° Abbinamento: 3° BA + 15
2° Abbinamento: 5° VE + 83
3° Abbinamento: 2° CA + 84
4° Abbinamento: 3° GE + 82
5° Abbinamento: 1° GE + 85
6° Abbinamento: 1° BA + 11
In 24 casi ho contato 4 terni e una quaterna.
In qui di seguito lo script.
Sub main()
Dim rt(2),pt(4),n1(7)
pt(1)=0
pt(2)=1
pt(3)=0
pt(4)=0
clp=9
rt(1)=1
rt(2)=2
ini=10363
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If Indicemensile (es)=4 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,6,4) + 85
b=Estratto (es,1,3) + 15
c=Estratto (es,10,5) + 83
d=Estratto (es,2,2) + 84
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
n1(3)=Fuori90 (c+0)
n1(4)=Fuori90 (d+0)
ImpostaGiocata 1,n1,rt,pt,clp
a=Estratto (es,6,4) + 85
b=Estratto (es,4,3) + 82
c=Estratto (es,4,1) + 85
d=Estratto (es,1,1) + 11
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
n1(3)=Fuori90 (c+0)
n1(4)=Fuori90 (d+0)
ImpostaGiocata 2,n1,rt,pt,clp
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub
Inizio Ricerca: 08/04/2023
Fine Ricerca: 27/03/2025
Ruote: BA-CA
$° Estrazione del mese
Ambata (Capogioco) = 4° NA + 85
1° Abbinamento: 3° BA + 15
2° Abbinamento: 5° VE + 83
3° Abbinamento: 2° CA + 84
4° Abbinamento: 3° GE + 82
5° Abbinamento: 1° GE + 85
6° Abbinamento: 1° BA + 11
In 24 casi ho contato 4 terni e una quaterna.
In qui di seguito lo script.
Sub main()
Dim rt(2),pt(4),n1(7)
pt(1)=0
pt(2)=1
pt(3)=0
pt(4)=0
clp=9
rt(1)=1
rt(2)=2
ini=10363
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If Indicemensile (es)=4 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,6,4) + 85
b=Estratto (es,1,3) + 15
c=Estratto (es,10,5) + 83
d=Estratto (es,2,2) + 84
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
n1(3)=Fuori90 (c+0)
n1(4)=Fuori90 (d+0)
ImpostaGiocata 1,n1,rt,pt,clp
a=Estratto (es,6,4) + 85
b=Estratto (es,4,3) + 82
c=Estratto (es,4,1) + 85
d=Estratto (es,1,1) + 11
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
n1(3)=Fuori90 (c+0)
n1(4)=Fuori90 (d+0)
ImpostaGiocata 2,n1,rt,pt,clp
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub