rainbow;n2080182 ha scritto:Io giocherei CA-PA- Tutte 51-89 + 7/70 per terno.
Ho notato che spessissimo l'ambo è accompagnato dal diametrale in figura del 3° estratto di CA o dal suo vertibile. Il terzo estratto era 25, quindi aggiungerei 70/7
seguendo questo ragionamento......
Codice:
Sub main()
Dim ruote(1)
Dim ruot(1)
Dim nu(4)
Dim poste(2)
Dim post(5)
poste(1)=1 : poste(2)=1
post(2)=1 : post(3)=1
For es=9260 To EstrazioneFin
If IndiceMensile(es)=1 Then
ruote(1)=2
Scrivi "========================================="
'Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(ruote(1))&" - "&stringaestratti(es,ruote(1))&" ] "
Scrivi "========================================="
nu(1)=Fuori90(Estratto(es,2,2)+47)
nu(2)=Fuori90(Estratto(es,2,2)+85)
nu(3)=Diametrale(Estratto(es,2,3))
nu(4)=Vert(nu(3))
ImpostaGiocata 1,nu,ruote,poste,13,0
ruot(1)=11
nu(1)=nu(1)
nu(2)=nu(2)
nu(3)=nu(3)
nu(4)=Vert(nu(3))
ImpostaGiocata 2,nu,ruot,post,13,0
Gioca es
End If
Next
'ScriviResoconto
End Sub
sperando di non aver fatto errori
Codice:
=========================================
sab 02.09.2017 [ Ca - 90.04.25.18.73 ]
=========================================
sab 02.09.2017 [9364]
G 1: MA 51.89.70.07 Ca 13/13
M 07 su Ca 6° colpo [9370/16.09.2017]
G 2: AT 51.89.70.07 Tu 13/13
A 70.51 su Tu (Ro) 5° colpo [9369/14.09.2017]
A 89.07 su Tu (Ro) 6° colpo [9370/16.09.2017]
A 70.89 su Tu (Na) 12° colpo [9376/30.09.2017]
A 89.51 su Tu (Ge) 13° colpo [9377/03.10.2017]
Ultima modifica: