Richiesta script

[vinci]

Il metodo ricava 2 ambate, 8 ambi secchi e 1 sestina per ambo, terno, quaterna e cinquina.
Va seguita per un tempo utile di 9 estrazioni, il gioco termina con la sortita di una delle due ambate
o comunque con la prima vincita.

I T E R O P E R A T I V O
In una qualsiasi estrazione, bisogna andare alla ricerca su due ruote, di 2 numeri che diano somma 90 purchè i numeri si trovano in posizione isotopa. Una volta rintracciata la condizione richiesta, metteremo in gioco le ambate 9 e 90, mentre per ambo abbineremo i due numeri di rilevamento ed i rispettivi diametrali in decina. Unire anche l’intera massa numerica formando una sestina per ambo,
terno,quaterna e cinquina.

Vediamo alcuni esempi:

Bari 5° estratto 68 – Roma 5° estratto 22
Rintracciato l’ambo di somma 90, metteremo in gioco le ambate 9-90 e per ambo abbineremo i due numeri generatori 68 e 22 ed i rispettivi diametrali in decina 63 e 27.
Esito: al 2° colpo di gioco doppia ambata 9-90 e ambi 9-63 e 90-63 a Roma.

Napoli 4° estratto 85 – Venezia 4° estratto 5
Rintracciamo l’ambo di somma 90, metteremo in gioco le ambate 9-90 e per ambo abbineremo i due numeri rilevati 85-5 ed i diametrali in decina 80 e 90.
Esito: al 5° colpo ambata 9 e ambo 9-80 a Napoli.

Bari 1° estratto 89 – Genova 1° estratto 1
Dopo aver rintracciato l’ambo di somma 90, mettiamo in gioco la seguente previsione: Bari Genova 9-90 con 89-84-1-6.
Esito: al 1° colpo ambata 90 e ambo 90-1 a Bari.

Genova 2° estratto 49 – Milano 2° estratto 41
La condizione ottimale ci permette di mettere in gioco la seguente previsione: Genova Milano 9-90 con 49-44-41-46.
Esito: al 1° colpo ambata 90 e ambo 90 44 a Genova.

Milano 5° estratto 3 – Torino 5° estratto 87
Rileviamo una condizione di somma 90, in gioco Milano Torino 9-90 con 3-8-87-82.
Esito: al 2° colpo ambata 90 e ambo 90-87 Torino.




Vinci

 

[Roby]

Ciao Vinci, prova questo su Spaziometria
se è da correggiere chiedi a qualche esperto, io sno già diventato matto
abbastanza
CIAOO

Sub Main()
Scrivi: ColoreTesto 1: Scrivi "METODO DI VINCI - List By BLACKMORE" 
Scrivi: ColoreTesto 0
Dim ru(2)
Dim ru1(10)
Dim nn(5)
Dim n1(2),n2(2),n3(3),n4(4),n5(5),n6(6),n7(7),n8(2),n9(6)
Dim posta(5)
Dim poste(2)
Dim postee(5)
posta(1)=1
poste(2)=1
postee(2)=1
postee(3)=1
postee(4)=1
co=0
ini=InputBox("Estrazione iniziale: ",,EstrazioneFin-100)
fin=InputBox("Estrazione finale: ",,EstrazioneFin) 
For es=ini To fin 
Messaggio (es)
	For r=1 To 9		
		For p=1 To 5
			For rr=r+1 To 10
       			a=Estratto(es,r,p) 
				b=Estratto(es,rr,p)
                        
                        
       			If (a+b)=90 Then
					co=co+1
					ru(1)=r 
					ru(2)=rr 			
					nn(1)=9					
					nn(2)=90
                              ImpostaGiocata 1,nn,ru,posta,9
                              n1(1)= nn(1)
                              n1(2)= DiametraleD (a)
                              ImpostaGiocata 2,n1,ru,poste,9
                              n2(1)= nn(1)
                              n2(2)= DiametraleD (b) 
                              ImpostaGiocata 3,n2,ru,poste,9
                              n3(1)= nn(2)
                              n3(2)= DiametraleD (a)
                              ImpostaGiocata 4,n3,ru,poste,9
                              n4(1)= nn(2)
					n4(2)= DiametraleD (b)
                              ImpostaGiocata 5,n4,ru,poste,9
                              n5(1)= nn(1)
                              n5(2)= a
                              ImpostaGiocata 6,n5,ru,poste,9
                              n6(1)= nn(2)
                              n6(2)= a
                              ImpostaGiocata 7,n6,ru,poste,9
					n7(1)= nn(2)
                              n7(2)= b
                              ImpostaGiocata 8,n7,ru,poste,9
                              n8(1)= nn(1)
                              n8(2)= b
                              ImpostaGiocata 9,n8,ru,poste,9
                              n9(1)= n1(1)
                              n9(2)= n1(2)
                              n9(3)= n2(2)
                              n9(4)= n3(1)
                              n9(5)= n5(2)
                              n9(6)= n7(2)
                              ImpostaGiocata 10,n9,ru,postee,9
					Scrivi "---------------------------------------------------------------"
					ColoreTesto 2
					Scrivi a & " + " & b & " = 90  su  " & FormatSpace(NomeRuota(r),9) & " e " & FormatSpace(NomeRuota(rr),9)
					 
					Scrivi 
					ColoreTesto 0
										
					Gioca es
				End If 
			Next
		Next 
	Next
Next
ColoreTesto 1
Scrivi : Scrivi 
Scrivi " CASI TROVATI : "& co
ColoreTesto 0
ScriviResoconto 
End Sub

Blackmore

 

[vinci]

Grazie Blackmore, funziona!



Vinci