Metodo super 45 - richiestra script

[skygirl]

Non avendolo trovato nei vari post inoltro la richiesta di script in questa sezionehttp://forum.lottoced.com/f8/metodo-super-45-a-117414/
Grazie a tutti gli scripters, volenterosi, precisi e sempre gentilissimi
ciao

 

[Mike58]

Ciao Sky, dalle prime verifiche questo funziona poco.

Sub Main
	Dim nu(2),n1(2),n2(2),nn(4),ru(2),postaa(2),posta(3)
	postaa(2) = 1
	posta(2) = 1
	posta(3) = 1
	Scrivi "***** Metodo elmiki distanza 45 **** richiesta Skygirl ***** Script By Mike58 ***** ",1,1,,1,3,,True
	Scrivi
	Ini = EstrazioneFin - 100
	fin = EstrazioneFin
	For es = Ini To fin
		For r1 = 1 To 10
			For r2 = r1 + 1 To 12
				If r2 = 11 Then r2 = 12
				For p1 = 1 To 5
					a = Estratto(es,r1,p1)
					b = Estratto(es,r2,p1)
					If Distanza(a,b) = 45 Then
						k = k + 1
						nu(1) = a
						nu(2) = b
						ru(1) = r1
						ru(2) = r2
						Scrivi String(130,"=") & " Caso N. " & k,1
						Scrivi GetInfoEstrazione(es) & vbTab,0,0
						Scrivi StringaRuote(ru) & vbTab,0,0
						Scrivi StringaEstratti(es,r1) & " - " & StringaEstratti(es,r2) & vbTab,0,0
						Scrivi "Distanza 45 : " & StringaNumeri(nu,,1) & " Posiz. " & p1,1
						' ------- calcolo numeri in gioco ---------------
						aa = Massimo(a,b)
						bb = aa + 45 '1 somma
						If bb > 100 Then cc = Left(bb,2) ' 1 numero
						If bb < 100 Then cc = Left(bb,1) ' 1 numero
						dd = Right(bb,1) ' 2 numero
						If dd = 0 Then dd = 90
						n1(1) = cc
						n1(2) = dd
						ff = bb + 45 ' 2 somma
						gg = Left(ff,2)
						hh = Right(ff,1)
						If hh = 0 Then hh = 90
						n2(1) = gg
						n2(2) = hh
						Scrivi String(130,"-")
						Scrivi "Somma... " & bb & " Numeri ricavati.... " & StringaNumeri(n1,,1)
						Scrivi "Somma... " & ff & " Numeri ricavati.... " & StringaNumeri(n2,,1)
						nn(1) = cc
						nn(2) = dd
						nn(3) = gg
						nn(4) = hh
						ImpostaGiocata 1,n1,ru,postaa,13,2
						ImpostaGiocata 2,n2,ru,postaa,13,2
						ImpostaGiocata 3,nn,ru,posta,13,3
						Gioca es,1,,1
					End If
				Next
			Next
		Next
	Next
	ScriviResoconto
End Sub

 

[skygirl]

Grazie Mike58 per il tuo script

 

[skygirl]

Mi è venuta un'idea non so' cosa ne pensano i gestori del forum...sarebbe bello poter avere una scheda riassuntiva dove vengono elencati i vari metodi con i link ai relativi script, e con le valutazioni che i vari utenti danno dei diversi metodi adesso la propongo

 

[Mike58]

Ciao Sky la vedo dura e difficilmente gestibile.

Comunque proponi se ti sembra fattibile.