richiesta scrip per prova metodo

[armando59]

salve a tutti per chi se la sente sarebbe possibile elaborare questo scrip per una verifica.
si elabora sulla ruota di venezia
si prende il primo numero del primo estratto e si unisce al secondo numero del quinto estratto
es: 34 .. .. .. 56 si prende il 3 e il 6 =36
con il risultato 36 si fa +1 e -1 quindi si mette in gioco il 35 37
estratto ambo sulle ruote cagliari firenze e venezia
oppure anche a tutte
si elabora in tutte le estrazioni
se la previsione risultasse 00 si mette in gioco il fisso 90 e 01.
spero di essere stato chiaro
un saluto e grazie-

 

[Joe91]

Ciao Armando,

Prova questo e fai sapere se corrisponde a richiesta.

Option Explicit
Sub Main
	'Richiesta: Armando59 Script By Joe
	'si elabora sulla ruota di venezia
	'si prende il Primo numero del Primo Estratto e si unisce al secondo numero del quinto Estratto
	'es: 34 .. .. .. 56 si prende il 3 e il 6 = 36
	'con il risultato 36 si fa +1 e -1 quindi si mette In gioco il 35 37
	'Estratto ambo sulle ruote cagliari firenze e venezia
	'oppure anche a tutte
	'si elabora In tutte le estrazioni
	'se la previsione risultasse 00 si mette In gioco il fisso 90 e 01.
	'un saluto e grazie
	Dim Ini,Fin,Es
	Dim R,A,B,C,K
	Dim Nu(2),Ru(3),Rt(1),Po(2),Pt(2)
	Ini = 9000 : Fin = EstrazioneFin
	R = VE_
	Ru(1) = CA_ : Ru(2) = FI_ : Ru(3) = VE_ : Po(1) = 1 : Po(2) = 1
	Rt(1) = TT_ : Pt(2) = 1
	For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
		A = Decina(Estratto(Es,R,1)) : B = Cadenza(Estratto(Es,R,5)) : C = A & B
		Nu(1) = Fuori90(CInt(C) - 1) : Nu(2) = Fuori90(CInt(C) + 1)
		If CInt(C) = 0 Then Nu(1) = 1 : Nu(2) = 90
		K = K + 1 : Scrivi String(106,"=") & FormatSpace(K,4,True),True
		Scrivi DataEstrazione(Es) & " " & SiglaRuota(R) & " " & StringaEstratti(Es,VE_) & "  ",0,0
		Scrivi StringaNumeri(Nu,,True),True
		ImpostaGiocata 1,Nu,Ru,Po,9,2
		ImpostaGiocata 2,Nu,Rt,Pt,9,2
		Gioca Es,True
	Next
	ScriviResoconto
End Sub

Cordiali saluti.

 

[armando59]

grazie Joe91 è proprio come lo volevo
ciao e buona giornata