ch,i mi, puo',aiutare,

[milan65]

una parte di questo metodo e' di ginevra lotto mi piacerebbe se e' possibile avere lo script ma con la possibilita' di poter cambiare ruota estrazione e la giocata deve esssere per tutte 13 colpi,ringrazio infinitamente chi gentilmente mi fara' questo favore saluti a tutti
Ambata secca su Bari
Ultima estrazione del 30..12..2010
Bari dei cinque estratti estrappoliamo tre terni
I cinque numeri sono: 35.26.48.52.06
************************************************** *
Procedimento
1° terno........................ 35-26-48
2° terno........................ 26-48-52
3° terno........................ 48-52-06
somma in verticale dei terni estrappolati 19-36-16
somma in orizzontale delle tre somme
19+36+16 = 71 Figura.8
Figure delle tre somme in verticale
19..1
36..9
16..7
Unione delle 3 figure con la figura del terno in orizzontale
18 + 98 + 78 = somma 14 figura 5
unire la figura del terno in orizzontale 8
con la figura della somma unione figure 5
unire le due figure 85-58.. 1°/ 3°K ambo secco su ba

 

[Ouroboros]

Ciao milan65, riporto in basso lo script richiesto, vedi se va bene (tieni presente che sto ancora sperimentando il linguaggio).
Per le "eventuali" prossime richieste credo che abbiano piu' visibilita' postando nella sezione download, piu' frequentata sicuramente dagli scripter.
Ciao.

Sub Main()
Dim ruota(1),es,ini,fin,ruote(11)
Dim nu1(2),a1,a2,a3,a4,a5
Dim posta(2)
Dim poste(2)
posta(1) = 1
posta(2) = 1
poste(2)=2
ruota(1) = ScegliRuota
ruote(11) = 11
ce = CInt(InputBox("DI QUANTE ESTRAZIONI VUOI TORNARE INDIETRO? "," ID Estrazione ",26))
k = CInt(InputBox(" Per quanti colpi?"," Colpi di gioco ",13))
ini = EstrazioneFin - ce
fin = EstrazioneFin - 0

For es = ini To fin
Messaggio " elab. estr. [" &(es) & "] del " & DataEstrazione(es)
AvanzamentoElab ini,fin,es
a1 = Estratto(es,ruota(1),1)'<<--- questo è il 1^estr. di ruota!!!
a2 = Estratto(es,ruota(1),2)'<<--- questo è il 2^estr. di ruota!!!
a3 = Estratto(es,ruota(1),3)'<<--- questo è il 3^estr. di ruota!!!
a4 = Estratto(es,ruota(1),4)'<<--- questo è il 4^estr. di ruota!!!
a5 = Estratto(es,ruota(1),5)'<<--- questo è il 5^estr. di ruota!!!

so1 = Fuori90(a1 + a2+a3)
so2 = Fuori90(a2 + a3+a4)
so3 = Fuori90(a3 + a4+a5)
sot=Fuori90(so1 +so2+so3)
fsot=Figura(sot)
fso1=Figura(so1)
fso2=Figura(so2)
fso3=Figura(so3)
u1=fso1*10+fsot
u2=fso2*10+fsot
u3=fso3*10+fsot
ut=Fuori90(u1 +u2+u3)
fut=Figura(ut)
casi = casi + 1

Scrivi String(67,"=") & " caso n° " &(casi)
ColoreTesto 1
Scrivi String(77,"-")

nu1(1) = Fuori90(fut*10+fsot)
nu1(2) = Vert(nu1(1))

ImpostaGiocata 1,nu1,ruota,posta,k,1
ImpostaGiocata 2,nu1,ruote,poste,k,0

Gioca es,,,1
If ScriptInterrotto Then Exit For

Next
Scrivi String(52,"=") & "",1
ScriviResoconto

End Sub

 

[milan65]

grazie mille appena possibile lo provo hai raggione ho sbagliato sezione

 

[milan65]

scusa ouroboros e' possibile dire allo script anche indice di esrtazione cioe la 1 del mese la 2 mese ecc..

 

[Roby]

Ciao, ne ho fatto uno un po' rudimentale
con all'interno la descrizione di tutti i passaggi (credo)

'SE USATE L8 O LOTTODESK, TOGLIETE LA VIRGOLA E L'1 DOPO... Gioca n
Sub Main()
	Scrivi "Script By Blackmore",1:Scrivi
	Dim Ruota(10)
	Dim ruote(10)
	Dim ambata(2)
	Dim ambo(2)
	Dim Posta(1)
	Dim poste(2)
	Posta(1) = 1
	poste(2) = 1
	es = InputBox("INDICE MENSILE? 0 PER L'ULTIMA:",,0)
	r1 = CInt(InputBox("RUOTA DI RICERCA?",,1))
	rr = CInt(InputBox("RUOTA DI GIOCO?",,11))
	ini = InputBox("ESTRAZIONI DA CONTROLLARE? ",,8319)
	k = CInt(InputBox("QUANTI COLPI?",,13))
	ultest = EstrazioneFin
	fin = EstrazioneFin
	co = 0
	For n = ini To fin
		Messaggio(n)
		If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile(n) = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0))))Then
			a = Estratto(n,r1,1)
			b = Estratto(n,r1,2)
			c = Estratto(n,r1,3)
			d = Estratto(n,r1,4)
			e = Estratto(n,r1,5)
			n4 = Fuori90(a + b + c)'somma verticale 1°terno
			n5 = Fuori90(b + c + d)'somma verticale 1°terno
			n6 = Fuori90(c + d + e)'somma verticale 1°terno
			n7 = Fuori90(n4 + n5 + n6)'somma orizzontale del 3 terni
			n8 = Figura(n7)'figura somma orizzontale dei 3 terni
			n9 = Figura(n4)'figura 1°somma verticale
			n10 = Figura(n5)'figura 2°somma verticale
			n11 = Figura(n6)'figura 3°somma verticale
			n12 = Fuori90(n9 & n8)'unione 1°figura con la figura del terno in orizzontale
			n13 = Fuori90(n10 & n8)'unione 2°figura con la figura del terno in orizzontale
			n14 = Fuori90(n11 & n8)'unione 3°figura con la figura del terno in orizzontale
			n15 = Fuori90(n12 + n13 + n14)'somma delle 3 figure con la figura del terno in orizzontale
			n16 = Figura(n15)'figura delle 3 somme
			n17 = Fuori90(n16 & n8)
			n18 = Vert(n17)
			co = co + 1
			Scrivi String(100,"*") & " Caso n°" & Format2(co),1
			Scrivi DataEstrazione(n) & " " & SiglaRuota(r1) & " " & StringaEstratti(n,r1),1
			ColoreTesto 1
			Scrivi n4 & "-" & n5 & "-" & n6 & " Somma verticale dei 3 terni"
			Scrivi Format2(n7) & " somma orizzontale delle 3 somme"
			Scrivi Format2(n8) & " Figura delle 3 somme orizzontali"
			Scrivi Format2(n9) & " Figura 1°somma verticale"
			Scrivi Format2(n10) & " Figura 2°somma verticale"
			Scrivi Format2(n11) & " Figura 3°somma verticale"
			Scrivi Format2(n12) & " 1°Unione"
			Scrivi Format2(n13) & " 2°Unione"
			Scrivi Format2(n14) & " 3°Unione"
			Scrivi Format2(n15) & " Somma delle 3 unioni"
			Scrivi Format2(n16) & " Figura della somma delle 3 unioni"
			Scrivi Format2(n17) & " Unione Figura della somma con figura delle 3 somme orizzontali"
			Scrivi Vert(n17) & " Vertibile (unione inversa)"
			Scrivi: ColoreTesto 0 
			Ruota(1) = rr 'ruota di gioco
			ambo(1) = n17
			ambo(2) = n18
			ImpostaGiocata 1,ambo,Ruota,poste,k,2
			Gioca n,1 ' SE SI USA L8 O LOTTODESK TOGLIETE LA VIRGOLA E L'1 DOPO Gioca n
		End If
		If ScriptInterrotto Then Exit For
	Next
	Scrivi
	Scrivi
	ScriviResoconto
End Sub

 

[milan65]

grazie blackmore come sempre sei sempre molto gentile buona domenica