Per gli scripter

[Y10]

Salve a tutti , qualcuno potrebbe farmi questo listato di un metodo che si sta comportando egregiamente. Da giocare su PA per 13 Colpi


Ad ogni ultima estrazione mensile sommare al 1° di RO il fisso 54 al 1° di NA il fisso 84 che sono le ambate indipendenti
aggiungere i seguenti numeri
1° NA+55
1° na +68
1° di FI +13
1°fi + 41
1°MI +65
per ambo
per terno aggiungere
1°ro+11
1°FI+39
1°PA+52
1°BA+75

Grazie anticipate.

 

[Roby]

Ciao Y l'ho diviso in terzine e quartine (Troppo lungo se no)

Sub Main()
	Dim ruota(10)
	Dim am1(1),am2(1),a1(3),a2(3),a3(3),a4(3),a5(3),x1(10),x2(10),x3(10),x4(10)
	Dim posta(1),poste(2),postee(5)
	posta(1) = 1 : poste(2) = 1 : postee(3) = 1
	ini = InputBox("INIZIO RICERCA",,8000)
	rr = CInt(InputBox("RUOTA DI GIOCO",,7))
	k = InputBox("COLPI DI GIOCO",,12)
	fin = EstrazioneFin
	For es = ini To fin
		Call AvanzamentoElab(Ini,fin,es)
		If IsUltimaDelMese(es) Then
			Messaggio "Metodo di Y10 [Forum Lottoced] Script By Blackmore"
			a = Estratto(es,RO_,1) : b = Estratto(es,NA_,1)
			ruota(1) = rr
			co = co + 1
			Scrivi String(99,"=") & " Cso n°" & Format2(co),1
			am1(1) = Fuori90(a + 54)
			ImpostaGiocata 1,am1,ruota,posta,k,1
			am2(1) = Fuori90(b + 84)
			ImpostaGiocata 2,am2,ruota,posta,k,1
			' x Ambo in terzine 
			a1(1) = am1(1)
			a1(2) = am2(1)
			a1(3) = Fuori90(Estratto(es,NA_,1) + 55)
			ImpostaGiocata 3,a1,ruota,poste,k,2
			a2(1) = am1(1)
			a2(2) = am2(1)
			a2(3) = Fuori90(Estratto(es,NA_,1) + 68)
			ImpostaGiocata 4,a2,ruota,poste,k,2
			a3(1) = am1(1)
			a3(2) = am2(1)
			a3(3) = Fuori90(Estratto(es,FI_,1) + 13)
			ImpostaGiocata 5,a3,ruota,poste,k,2
			a4(1) = am1(1)
			a4(2) = am2(1)
			a4(3) = Fuori90(Estratto(es,FI_,1) + 41)
			ImpostaGiocata 6,a4,ruota,poste,k,2
			a5(1) = am1(1)
			a5(2) = am2(1)
			a5(3) = Fuori90(Estratto(es,MI_,1) + 65)
			ImpostaGiocata 7,a5,ruota,poste,k,2
			' x Terno in quartine 
			x1(1) = am1(1)
			x1(2) = am2(1)
			x1(3) = a1(3)
			x1(4) = Fuori90(Estratto(es,RO_,1) + 11)
			ImpostaGiocata 8,x1,ruota,postee,k,3
			x2(1) = am1(1)
			x2(2) = am2(1)
			x2(3) = a2(3)
			x2(4) = Fuori90(Estratto(es,FI_,1) + 39)
			ImpostaGiocata 9,x2,ruota,postee,k,3
			x3(1) = am1(1)
			x3(2) = am2(1)
			x3(3) = a3(3)
			x3(4) = Fuori90(Estratto(es,PA_,1) + 52)
			ImpostaGiocata 10,x3,ruota,postee,k,3
			x4(1) = am1(1)
			x4(2) = am2(1)
			x4(3) = a4(3)
			x4(4) = Fuori90(Estratto(es,BA_,1) + 75)
			ImpostaGiocata 11,x4,ruota,postee,k,3
			Gioca es,1
		End If
		If ScriptInterrotto Then Exit For
	Next
	Scrivi
	Scrivi
	Scrivi
	ScriviResoconto
End Sub

 

[Y10]

Ciao Black , mille grazie , un ulteriore cortesia se vuoi , potresti farmi il listato solo per la sorte di ambo ? praticamente , i due capogioco con i 5 abbinamemti tot 10 ambi.Grazie.

 

[Roby]

Ecco qui
Ciao

Sub Main()
	Dim ruota(10)
	Dim am1(1),am2(1),a1(2),a2(2),a3(2),a4(2),a5(2),a6(2),a7(2),a8(2),a9(2),a10(2)
	Dim posta(1),poste(2)
	posta(1) = 1 : poste(2) = 1 
	ini = InputBox("INIZIO RICERCA",,8000)
	rr = CInt(InputBox("RUOTA DI GIOCO",,7))
	k = InputBox("COLPI DI GIOCO",,12)
	fin = EstrazioneFin
	For es = ini To fin
		Call AvanzamentoElab(Ini,fin,es)
		If IsUltimaDelMese(es) Then
			Messaggio "Metodo di Y10 [Forum Lottoced] Script By Blackmore"
			a = Estratto(es,RO_,1) : b = Estratto(es,NA_,1)
			ruota(1) = rr
			co = co + 1
			Scrivi String(99,"=") & " Cso n°" & Format2(co),1
			am1(1) = Fuori90(a + 54)
			ImpostaGiocata 1,am1,ruota,posta,k,1
			am2(1) = Fuori90(b + 84)
			ImpostaGiocata 2,am2,ruota,posta,k,1
			' x Ambo --> 1°Ambata 
			a1(1) = am1(1)
			a1(2) = Fuori90(Estratto(es,NA_,1) + 55)
			ImpostaGiocata 3,a1,ruota,poste,k,2
			a2(1) = am1(1)
			a2(2) = Fuori90(Estratto(es,NA_,1) + 68)
			ImpostaGiocata 4,a2,ruota,poste,k,2
			a3(1) = am1(1)
			a3(2) = Fuori90(Estratto(es,FI_,1) + 13)
			ImpostaGiocata 5,a3,ruota,poste,k,2
			a4(1) = am1(1)
			a4(2) = Fuori90(Estratto(es,FI_,1) + 41)
			ImpostaGiocata 6,a4,ruota,poste,k,2
			a5(1) = am1(1)
			a5(2) = Fuori90(Estratto(es,MI_,1) + 65)
			ImpostaGiocata 7,a5,ruota,poste,k,2
			' x Ambo --> 2°Ambata
			a6(1) = am2(1)
			a6(2) = Fuori90(Estratto(es,NA_,1) + 55)
			ImpostaGiocata 8,a6,ruota,poste,k,2
			a7(1) = am2(1)
			a7(2) = Fuori90(Estratto(es,NA_,1) + 68)
			ImpostaGiocata 9,a7,ruota,poste,k,2
			a8(1) = am2(1)
			a8(2) = Fuori90(Estratto(es,FI_,1) + 13)
			ImpostaGiocata 10,a8,ruota,poste,k,2
			a9(1) = am2(1)
			a9(2) = Fuori90(Estratto(es,FI_,1) + 41)
			ImpostaGiocata 11,a9,ruota,poste,k,2
			a10(1) = am2(1)
			a10(2) = Fuori90(Estratto(es,MI_,1) + 65)
			ImpostaGiocata 12,a10,ruota,poste,k,2
			
			Gioca es,1
		End If
		If ScriptInterrotto Then Exit For
	Next
	Scrivi
	Scrivi
	Scrivi
	ScriviResoconto
End Sub