per mike o chi puo...

[trylli]

grazie milleeeeeeeeeeeeeeeee si puo avere anche uno script su pa ro ... dunque per ambata .. la decina del 4 estratto dipalermo accoppiata alla decina del primo di roma generano l ambata ed il vertibile.. esempio da domani in gioco 25.52 per 9 colpi

 

[Mike58]

Ciao Trylli prova cosi e controlla (fatto di fretta)

Sub Main
	Dim nu(2),ru(2),nn(8),posta(1),poste(3)
	posta(1) = 1
	poste(2) = 1.5
	poste(3) = .5
	Ini = EstrazioneFin - 100
	fin = EstrazioneFin
	For es = Ini To fin
		For r1 = 1 To 10
			r2 = r1 - 1
			If r1 = 1 Then r2 = 12
			For p1 = 2 To 4
				For p2 = 1 To 5
					a = Estratto(es,r1,p1)
					b = Estratto(es,r2,p2)
					If a = 90 Then
						If p1 = p2 Then
						k = k + 1
						bb = Decina(b)
						cc = Cadenza(b)
						dd = bb+cc
						c = Estratto(es,r2,p2-1)
						c1 = dd
						c2 = c
						c3 = Fuori90(c1+c2)
						d = Estratto(es,r2,p2+1)
						d1 = dd
						d2 = d
						d3 = Fuori90(d1+d2)
						Scrivi String(100,"=") & " Caso n. " & k,1
							Scrivi GetInfoEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & "  " & a & " posiz." & p1
							Scrivi GetInfoEstrazione(es) & "  " & SiglaRuota(r2) & "  " & StringaEstratti(es,r2) & "  " & b & " posiz." & p2
							Scrivi bb & "+" & cc & " = " & dd  & " Vertibile " & Vert(dd)
							Scrivi c1 & "+" & c2 & " = " & c3  & " Vertibile " & Vert(c3)

							Scrivi d1 & "+" & d2 & " = " & d3  & " Vertibile " & Vert(d3)

							ru(1) = r1
							ru(2) = r2
							nu(1) = dd
							nu(2) = Vert(nu(1))
							nn(1) = nu(1)
							nn(2) = nu(2)
							'nn(3) = dd
							nn(3) = Fuori90(dd+c)
							nn(4) = Vert(nn(3))
							nn(5) = Fuori90(dd+d)
							nn(6) = Vert(nn(5))
							'nn(8) = Vert(d3)
							EliminaRipetuti(nn)
							Scrivi "Ambate      : " & StringaNumeri(nu),1
							Scrivi "Abbinamenti : " & StringaNumeri(nn),1
							Scrivi String(100,"-")
							ImpostaGiocata 1,nu,ru,posta,10,1
							ImpostaGiocata 2,nn,ru,poste,10,2
							Gioca es,1
						End If
					End If
				Next
			Next
		Next
	Next
	ScriviResoconto
End Sub

ricorretto.... ricopiare

 

[trylli]

perfettooooooooooooooooo

 

[Mike58]

Ciao trylli cosa è ce non ti torna

==================================================================================================== Caso n. 43
[08911] [122] 11.10.2014 FI 51.44.60.90.78 90 posiz.4
[08911] [122] 11.10.2014 CA 76.33.02.51.13 51 posiz.4
5+1 = 6 Vertibile 60
6+2 = 8 Vertibile 80
6+13 = 19 Vertibile 11
Ambate : 6.60
Abbinamenti : 6.8.11.19.60.80
----------------------------------------------------------------------------------------------------
Estrazione generatrice del pronostico 08911 [122 - 11/10/2014]
G 0001 Numeri in gioco : 06.60 su CA FI per Estratto
In corso per altre 10 estrazioni
G 0002 Numeri in gioco : 06.08.11.19.60.80 su CA FI per Ambo,Terno
In corso per altre 10 estrazioni