Aiuto Script

[vitale]

Vorrei chiedere a Mike se può redigermi uno script per questa tecnica:
Coppia di Gemelli con il numero 77.
Condizioni della tecnica
La condizione di gioco è la presenza di almeno una coppia di numeri GEMELLI di cui uno corrisponda al numero 77.
La previsione è costituita da 1 ambata e 4 ambi secchi
18 ambata
18.6 18.34 18.58 62.65
La ruota di gioco è quella in cui si verifica la condizione.
Ricapitolando, ogni volta che si presenta la condizione - coppia dei gemelli in cui almeno uno dei quali corrisponda al 77, andremo SEMPRE a giocare la stessa previsione.
Grazie per quello che farai, Mike.
Ciao.

 

[Mike58]

Ciao Vitale, magari tutte le richieste che giungono a me fossero cosi semplici (non è che mi lamenti per questo ).
Comunque questa tecnica e da rivedere negli esiti di ambo.

ciao controlla sempre eventuali errori.

Sub Main
	Dim nu(1),ru(1),n(2),num(5)
	Dim posta(1),poste(2)
	posta(1) = 1
	poste(2) = 1
	ritroso = InputBox("QUANTE ESTRAZIONI ANALIZZO",,100)
	cl = CInt(InputBox("Colpi di Gioco",,10))
	Scrivi "**** Metodo Vitale ***** List by Mike58 **** Forum LottoCed *****",1,1,3,1,3
	Ini = EstrazioneFin - 100
	fin = EstrazioneFin
	For es = Ini To fin
		For r1 = 1 To 12
			If r1 = 11 Then r1 = 12
			For p1 = 1 To 4
				For p2 = p1 + 1 To 5
					a = Estratto(es,r1,p1)
					b = Estratto(es,r1,p2)
					If a = 77 Or b = 77 Then
						If Gemello(a) = True And Gemello(b) = True Then
							If a <> b Then
								k = k + 1
								n(1) = a
								n(2) = b
								nu(1) = 18
								num(1) = 6
								num(2) = 34
								num(3) = 58
								num(4) = 65
								num(5) = 62
								ru(1) = r1
								ambo1 = Array(nu(1),num(1))
								ambo2 = Array(nu(1),num(2))
								ambo3 = Array(nu(1),num(3))
								ambo4 = Array(nu(1),num(4))
								ambo5 = Array(nu(1),num(5))
								Scrivi String(130,"=") & " Caso N. " & k,1
								Scrivi GetInfoEstrazione(es) & "  ",1,0,,1,2
								Scrivi SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & "  -  " & StringaNumeri(n) & "  - Posiz. " & p1 & "/" & p2,1,1,,1,2
								Scrivi String(130,"-")
								ImpostaGiocata 1,nu,ru,posta,cl,1
								ImpostaGiocata 2,ambo1,ru,poste,cl,2
								ImpostaGiocata 3,ambo2,ru,poste,cl,2
								ImpostaGiocata 4,ambo3,ru,poste,cl,2
								ImpostaGiocata 5,ambo4,ru,poste,cl,2
								ImpostaGiocata 6,ambo5,ru,poste,cl,2
								Gioca es,1,,1
							End If
						End If
					End If
				Next
			Next
		Next
		If ScriptInterrotto Then Exit For
	Next
	ScriviResoconto
End Sub

 

[vitale]

Grazie Mike, sei un amico.
Ciao.