Marco-elle
Banned
Vi propongo un metodo di facile applicazione che si calcola a ogni estrazione
da mettere in gioco su BA-CA-FI con una ambata e 2 ambi con recupero ambetto
ITER:
ambata
3° estratto di CA
1° abbinamento
5 ° estratto di BA + 3° estratto di FI
2° abbianamento
il diametrale del 1° abbinamento
si gioca x ambo recupero ambetto
le vincite generalmemte avvengono nei 6/8 colpi
	
	
	
		
				
			da mettere in gioco su BA-CA-FI con una ambata e 2 ambi con recupero ambetto
ITER:
ambata
3° estratto di CA
1° abbinamento
5 ° estratto di BA + 3° estratto di FI
2° abbianamento
il diametrale del 1° abbinamento
si gioca x ambo recupero ambetto
le vincite generalmemte avvengono nei 6/8 colpi
		Codice:
	
	Sub Main() ColoreTesto 1
   Scrivi
   Scrivi " VISION DAY BY DAY ",1
   Scrivi
   Scrivi
   Scrivi " METODO E LIST BY  Marco",1
   Scrivi
   ColoreTesto 0
   Dim ruote(3)
   Dim am(1):Dim am1(2):Dim am2(2): Dim am3(2): Dim am4(2): Dim am5(2): Dim am6(2):Dim posta(1):Dim poste(2)
   posta(1) = 1
   poste(2) = 2
   klp = 9
   ini = 10230
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      ruote(1) = 1
      ruote(2) = 2
      ruote(3) = 3
      n1 = Estratto(es,2,3)
      n2 = Fuori90(Estratto(es,3,3) + Estratto(es,1,5))
      n3 = Diametrale(n2)
      n4 = n2 + 1
      n5 = n2 - 1
      n6 = n3 + 1
      n7 = n3 - 1
      casi = casi + 1
      co = co + 1
      ColoreTesto 1:Scrivi String(100,"°") & " Caso n° " & casi,1
      ColoreTesto 2:Scrivi DataEstrazione(es) & "---> " & IndiceMensile(es) & "° Estrazione Mensile"
      ColoreTesto 1:Scrivi String(100,"°")
      ColoreTesto 0
      am(1) = n1
      ImpostaGiocata 1,am,ruote,posta,klp
      am1(1) = n1
      am1(2) = n2
      ImpostaGiocata 2,am1,ruote,poste,klp
      am2(1) = n1
      am2(2) = n3
      ImpostaGiocata 3,am2,ruote,poste,klp
      am3(1) = n1
      am3(2) = n4
      ImpostaGiocata 4,am3,ruote,poste,klp
      am4(1) = n1
      am4(2) = n5
      ImpostaGiocata 5,am4,ruote,poste,klp
      am5(1) = n1
      am5(2) = n6
      ImpostaGiocata 6,am5,ruote,poste,klp
      am6(1) = n1
      am6(2) = n7
      ImpostaGiocata 7,am6,ruote,poste,klp
      Gioca es,1
      'End If
   Next
   Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
   ScriviResoconto
End Sub
			
				Ultima modifica: 
			
		
	
								
								
									
	
								
							
							 
 
		
 
 
		 
 
		
 
     
     
     
     
    