Marco-elle
Banned
Giochino stupido ed interessate che ricava una ambata da mettere in gioco su BA-VE
Iter:
a ogni estrazione sommare il 1° estratto di BA con l'indice mensile (elemento A)
Poi sommare il 1° estratto di VE con l'indice mensile (elemento B)
Ambata = fuori90 (a + b)
ora abbiamo un bel 46 e 53 (53 che si ripete in 2 calcoli)
vediamo se escono
PS: So che a voi piacciono gli ambi secchi a due nummerelli ma c'è anche chi....
gioca le ambatelle....usatele solo se convergete
allego anche il calcolatore per chi non ha voglia di faticare
PPS: probabilmente il 53 non uscirà (nel breve termine) perchè presente o antecedente all'estrazione di calcolo....quindi meglio evitare queste condizioni
	
	
	
		
				
			Iter:
a ogni estrazione sommare il 1° estratto di BA con l'indice mensile (elemento A)
Poi sommare il 1° estratto di VE con l'indice mensile (elemento B)
Ambata = fuori90 (a + b)
ora abbiamo un bel 46 e 53 (53 che si ripete in 2 calcoli)
vediamo se escono
PS: So che a voi piacciono gli ambi secchi a due nummerelli ma c'è anche chi....
gioca le ambatelle....usatele solo se convergete
allego anche il calcolatore per chi non ha voglia di faticare
PPS: probabilmente il 53 non uscirà (nel breve termine) perchè presente o antecedente all'estrazione di calcolo....quindi meglio evitare queste condizioni
		Codice:
	
	Sub Main()
   ColoreTesto 2
   Scrivi "METODO PER AMBATA SU BA_VE "
   Scrivi "GIOCA 1 ambata  x 12 colpi "
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
   Dim poste(2)
   Dim ruota(2)
   Dim n(1)
   poste(1) = 1
   clp = 12
   ini = EstrazioneFin - 100
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      ok = 0
      a = IndiceMensile(es)
      a1 = Estratto(es,1,1)
      a2 = Estratto(es,10,1)
      a3 = Fuori90(a1 + a)
      a4 = Fuori90(a2 + a)
      a5 = Fuori90(a3 + a4)
      ok = 1
      If ok = 1 Then
         co = co + 1
         ColoreTesto 1
         Scrivi String(80,"°") & " Caso n°" & co,1
         Scrivi DataEstrazione(es) & "  ambata su BA-VE   " & a & " - indice mensile" & b,1
         Scrivi String(80,"°"),1
         ColoreTesto 0
         ruota(1) = 1
         ruota(2) = 10
         n(1) = a5
         ImpostaGiocata 1,n,ruota,poste,clp
         Gioca es,1
      End If
   Next
   ScriviResoconto
End Sub
			
				Ultima modifica: 
			
		
	
								
								
									
	
								
							
							 
 
		 
 
		 
 
		


 
     
     
     
     
    