per mike 58 mi puoi aiutare?

[trylli]

potrsti realizzare questo script'Il metodo e semplice,si somma il fisso 11 ai numeri distanza 5 stessa decina isotopi,ruote consecutive. il risultato sono gli abbinamenti e la somma degli abbinamenti con il vertibile sono le ambate.
esempio UNA nuova condizione si e presentata in ultima estrazione 06.09.2014 tra NA-MI.Previsione 42-47/89-88!

 

[Mike58]

Ciao trylli, non c'è problema eccolo.

Sub Main
	' x trylli
	Dim nu(4),num(2),ru(2),posta(1),poste(3)
	posta(1) = 1
	poste(2) = 1
	poste(3) = 1
	Ini = EstrazioneFin - 100
	fin = EstrazioneFin
	For es = Ini To fin
		For r1 = 1 To 10
			r2 = r1 + 1
			If r2	 = 11 Then r2 = 12
			For p1 = 1 To 5
				a = Estratto(es,r1,p1)
				b = Estratto(es,r2,p1)
				If a = DiametraleD(b) Then
					k = k + 1
					Scrivi String(100,"=") & " Caso n. " & k,1
					Scrivi GetInfoEstrazione(es) & "  " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & "   " & Format2(a) & " Pos " & p1
					Scrivi GetInfoEstrazione(es) & "  " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & "   " & Format2(b) & " Pos " & p1
					nu(1) = Fuori90(a + 11)
					nu(2) = Fuori90(b + 11)
					nu(3) = Fuori90(nu(1) + nu(2))
					nu(4) = Vert(nu(3))
					num(1) = Fuori90(nu(1) + nu(2))
					num(2) = Vert(nu(3))
					ru(1) = r1
					ru(2) = r2
					Scrivi "Numeri ricavati + fisso 11    ->  " & StringaNumeri(nu),1
					Scrivi String(100,"-")
					ImpostaGiocata 1,num,ru,posta,10,1
					ImpostaGiocata 2,nu,ru,poste,10,2
					Gioca es,1
				End If
			Next
		Next
	Next
	ScriviResoconto
End Sub

 

[trylli]

Ciao trylli, non c'è problema eccolo.

Sub Main
	' x trylli
	Dim nu(4),num(2),ru(2),posta(1),poste(3)
	posta(1) = 1
	poste(2) = 1
	poste(3) = 1
	Ini = EstrazioneFin - 100
	fin = EstrazioneFin
	For es = Ini To fin
		For r1 = 1 To 10
			r2 = r1 + 1
			If r2	 = 11 Then r2 = 12
			For p1 = 1 To 5
				a = Estratto(es,r1,p1)
				b = Estratto(es,r2,p1)
				If a = DiametraleD(b) Then
					k = k + 1
					Scrivi String(100,"=") & " Caso n. " & k,1
					Scrivi GetInfoEstrazione(es) & "  " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & "   " & Format2(a) & " Pos " & p1
					Scrivi GetInfoEstrazione(es) & "  " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & "   " & Format2(b) & " Pos " & p1
					nu(1) = Fuori90(a + 11)
					nu(2) = Fuori90(b + 11)
					nu(3) = Fuori90(nu(1) + nu(2))
					nu(4) = Vert(nu(3))
					num(1) = Fuori90(nu(1) + nu(2))
					num(2) = Vert(nu(3))
					ru(1) = r1
					ru(2) = r2
					Scrivi "Numeri ricavati + fisso 11    ->  " & StringaNumeri(nu),1
					Scrivi String(100,"-")
					ImpostaGiocata 1,num,ru,posta,10,1
					ImpostaGiocata 2,nu,ru,poste,10,2
					Gioca es,1
				End If
			Next
		Next
	Next
	ScriviResoconto
End Sub

si posono aggiungere gli ambi a tutte nazionale?' grazieeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee

 

[Mike58]

Ottimo Disaronno grazie per l'interveno e il contributo.

Ciao