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: