aiuto x questo script

[trivellatomariotretre33]

SALVE BUONGIORNO PER FAVORE SE QUALCUNO MI AIUTA AD'AVERE QUESTO SCRIPT
GRAZIE DI CUORE
ALLA PRIMA DEL MESE
NAPOLI
PRIMO TERZO E QUINTO
FARE LA PIRAMIDE
IL RISULTATO FARE MENO 10 E PIU 53 AMBATA CAPOGIOCO
ABBINAMENTO PER AMBO
ROMA SECONDO ESTRATTO MENO 2 - 8
ROMA QUARTO ESTRATTO MENO 8
1 DI NAPOLI + 56
5 DI NAPOLI + 25
5 DI PALERMO + 2
3 DI TORINO - 39
4 DI GENOVA + 19
3 DI MILANO + 18
SE E POSSIBBILE CON INPUT DI SCELTA COLPI E RUOTE
ruota di gioco NAPOLI
COLPI 13

 

[Alien.]

ciao,mi veniva una battutta ma evito......dunque :ROMA SECONDO ESTRATTO MENO 2 - 8 non ho ben capito al 2°e togli 2 e 8?
spero che qualche esperto si faccia avanti son curioso di vedere i risultati chissa.........

 

[Mike58]

Ciao, trivellato,Alien, premetto che non sono i miei script e che i sommativi possono essere validi fino ad un certo punto, se però vi interessa io avrei una domanda ?

il numero piramidato deve essere composto da quante cifre 2 o 1 finale e se inferiore al numero che bisogna sottrarre bisogna mettergli il + 90 per renderlo giocabile o altro.

Comunque lo script non è complesso solo che ho bisogno di sapere il punto di partenza il numero piramidato pari a 2 o 1 cifra da li vediamo cosa può venire fuori.

Se ho risposta entro stasera vedrò quello che posso fare.

 

[Mike58]

Ho messo il controllo cifre in modo da valutare le varie risultanze.
Dai miei calcoli il metodo è funzionante per Ambo nei casi di Vincite, ma al limite nel Resoconto Utile.

controllate salvo errori di calcolo.

Sub Main
	Dim ru(1),posta(2),postaab(1)
	Dim nu(10),num(11),ab(2)
	posta(2) = 1
	postaab(1) = 1
	cif = CInt(InputBox("Quante cifre finale della Piramide",,2))
	quante = InputBox("Quante estrazioni controllo",,200)
	r = InputBox("Quale ruota di gioco ",,6)
	clp = CInt(InputBox("Quanti colpi di esito",,10))
	Ini = EstrazioneFin - quante
	fin = EstrazioneFin
	Scrivi "Metodo Piramidato di Trivellato ***** Forum LottoCed ***** Script by Mike58 **** ",1,1,2,4,3
	Scrivi
	For es = Ini To fin
		If IndiceMensile(es) = 1 Then
			co = co + 1
			a1 = Estratto(es,6,1)
			a3 = Estratto(es,6,3)
			a5 = Estratto(es,6,5)
			nu(1) = a1
			nu(2) = a3
			nu(3) = a5
			a6 = a1 & a3 & a5
			piram = Piramide(a6,6,cif)
			pr1 = Fuori90(piram - 10)
			pr2 = Fuori90(piram + 53)
			abb1 = Fuori90(Estratto(es,8,2) - 2)
			abb2 = Fuori90(Estratto(es,8,4) - 8)
			ab(1) = pr1
			ab(2) = pr2
			'num(1) = Piram
			num(1) = pr1
			num(2) = pr2
			num(3) = abb1
			num(4) = abb2
			num(5) = Fuori90(Estratto(es,6,1) + 56)
			num(6) = Fuori90(Estratto(es,6,5) + 25)
			num(7) = Fuori90(Estratto(es,7,2) + 2)
			num(8) = Fuori90(Estratto(es,9,3) - 39)
			num(9) = Fuori90(Estratto(es,4,4) + 19)
			num(10) = Fuori90(Estratto(es,5,3) + 58)
			EliminaRipetuti(num)
			ru(1) = r
			Scrivi String(125,"="),1
			ColoreTesto 1
			Scrivi "Caso n° " & FormatSpace(co,2) & "   " & GetInfoEstrazione(es) & "  " & StringaNumeri(nu,,1) & "  " & "Piramide..." & piram & " - Abbinamenti - " & StringaNumeri(num,,1),1' & _
			ColoreTesto 0
			Scrivi String(125,"="),1
			ImpostaGiocata 1,ab,ru,postaab,clp
			ImpostaGiocata 2,num,ru,posta,clp,3
			Gioca es,,,1
		End If
	Next
	ScriviResoconto
End Sub

 

[trivellatomariotretre33]

Ciao Alien ciao Mike58 innanzitutto un grazie di cuore a entrambi in particolare grazie Mike58 per lo script
prima di ogni cosa tengo a precisare che il metodo era ed'e del grande Manara un metodo vecchio -napoli vince-
poiche me lo a passato mio cugino che torna la settimana prossima dalla Sicilia solo allora potro darvi risposta alle domande
nell'attesa vi invio una stretta di mano chilometrica e grazie di cuore.

 

[Alien.]

Ciao Alien ciao Mike58 innanzitutto un grazie di cuore a entrambi in particolare grazie Mike58 per lo script
prima di ogni cosa tengo a precisare che il metodo era ed'e del grande Manara un metodo vecchio -napoli vince-
poiche me lo a passato mio cugino che torna la settimana prossima dalla Sicilia solo allora potro darvi risposta alle domande
nell'attesa vi invio una stretta di mano chilometrica e grazie di cuore.

Grazie a te che ci fai partecipe di questo metodo.

 

[Mike58]

Ciao Raga,il quesito alla mia domanda dovrebbe già essere superato e pertanto lo script dovrebbe piramidare nel modo scelto a 2 o 1 cifra finale e come si può vedere il buon e compianto maestro Manara sapeva la sua.

Per IB63, la riga di scrittura incriminata serve per scrivere in Reverse il titolo del metodo e potresti concellare i codici numerici in quanto questi sono solo validi per spaziometria
Scrivi "Metodo Piramidato di Trivellato ***** Forum LottoCed ***** Script by Mike58 **** ",1
ma non saprei se anche il codice usato per piramidare è leggbile su l8 in queso caso se cosi non fosse c'è da piramidare manualmente.

piram = Piramide(a6,6,cif)' questo serve per piramidare l numeri cercati, per ciclo di vole(6), per cifra finale(cif = 2 di inputbx)

Ciao e usalo su spaziometria

 

[Mike58]

Ciao IB63, mi dispiace non poterti essere + utile, ma conosco poco l8 con i codici vbscript.
Tuttavia se la piramide ad esempio fosse giusta vedrò di venirti incontro e applicarla al metodo in esame.

prova lo script di esempio per la piramide di un numero e fammi sapre come puoi vedere i passaggi sono tanti, quando invece con spaziometria il codice fa da solo la piramide.

Sub main()
num = 895566
'----1 scala ----------------
a1 = Figura(Mid(num,1,2))
a2 = Figura(Mid(num,2,2))
a3 = Figura(Mid(num,3,2))
a4 = Figura(Mid(num,4,2))
a5 = Figura(Mid(num,5,2))
Scrivi num,1
a6 = a1&a2&a3&a4&a5
Scrivi Space(1) & a6
'---2 scala ----------------
b1 = Figura(Mid(a6,1,2))
b2 = Figura(Mid(a6,2,2))
b3 = Figura(Mid(a6,3,2))
b4 = Figura(Mid(a6,4,2))
b5 = b1&b2&b3&b4
Scrivi Space(2) & b5
'------3 scala -------------
c1 = Figura(Mid(b5,1,2))
c2 = Figura(Mid(b5,2,2))
c3 = Figura(Mid(b5,3,2))
c4 = c1&c2&c3
Scrivi Space(3) & c4
'-----4 scala --------------
d1 = Figura(Mid(c4,1,2))
d2 = Figura(Mid(c4,2,2))
d3 = d1&d2
Scrivi Space(4) & d3




End Sub

 

[Mike58]

Ok IB63, Ho capito e ti ringrazio per le belle parole, credimi c'è sempre bisogno di sentirselo dire.
Per il programma Spaziometria ti assicuro che nelle ultime versioni i problemi di installazioni sono solo vecchie paure ed io ho avuto solo una volta un piccolo problema poi risolto con l'aiuto prezioso di LuigiB.
Per come la penso io è il miglior programma in fatto di vbscript ed in evoluzione per quanto riguarda le migliorie sui codici vbscript e questo mi ha permesso di fare un salto qualitativo nelle ricerche statistiche fai da te nonché sui testing dei vari metodi.

Comunque se hai bisogno nel limite del possibile io sono a disposizione.

Ciao e buona domenica anche a te.

 

[trivellatomariotretre33]

CIAO MIKE58
mi sono sentito onlain con mio cugino passandogli lo script
lui alla verifica mi a detto che i calcoli che lui ha sono questi
alla 1 estrazione di marzo
napoli 89-27-42-51-84
LUI FA QUESTI CALCOLI IN GIOCO MARZO
PRIMO TERZO E QUINTO PIRAMIDE 31-10=21
PIRAMIDE 31+53=84-90=6 AMBATE 21 E 6
ABBINAMENTI AMBO
ROMA SECONDO ESTRATTO MENO 2 = 87
ROMA SECONDO ESTRATTO MENO 8 = 81
ROMA QUARTO ESTRATTO MENO 8 = 67
1 DI NAPOLI + 56 = 55
5 DI NAPOLI + 25 = 19
5 DI PALERMO + 2 = 38
3 DI TORINO - 39 = 80
4 DI GENOVA + 19 = 77
3 DI MILANO + 18 = 37

 

[trivellatomariotretre33]

ALLA PRIMA DEL MESE NAPOLI
PRIMO TERZO E QUINTO
FARE LA PIRAMIDE
IL RISULTATO FARE MENO 10 E PIU 53 AMBATA CAPOGIOCO
ABBINAMENTO PER AMBO
ROMA SECONDO ESTRATTO MENO 2 - 8
ROMA QUARTO ESTRATTO MENO 8
1 DI NAPOLI + 56
5 DI NAPOLI + 25
5 DI PALERMO + 2
3 DI TORINO - 39
4 DI GENOVA + 19
3 DI MILANO + 18
-------------------------------
mi sono sentito onlain con mio cugino passandogli lo script
lui alla verifica mi a detto che i calcoli che lui ha sono questi
alla 1 estrazione di marzo
napoli 89-27-42-51-84
LUI FA QUESTI CALCOLI IN GIOCO MARZO
PRIMO TERZO E QUINTO PIRAMIDE 31-10=21
PIRAMIDE 31+53=84-90=6 AMBATE 21 E 6
ABBINAMENTI AMBO
ROMA SECONDO ESTRATTO MENO 2 = 87
ROMA SECONDO ESTRATTO MENO 8 = 81
ROMA QUARTO ESTRATTO MENO 8 = 67
1 DI NAPOLI + 56 = 55
5 DI NAPOLI + 25 = 19
5 DI PALERMO + 2 = 38
3 DI TORINO - 39 = 80
4 DI GENOVA + 19 = 77
3 DI MILANO + 18 = 37

 

[Mike58]

Ciao Trivellato

3 DI MILANO + 18 = 37

questo dato non mi risulta in quanto il 3° estratto di MI è : 19+58 = 77 anziché 37 e pertanto l'ho eliminato a favore del
ROMA SECONDO ESTRATTO MENO 8 = 81
devo eliminare almeno un dato in quanto i numeri con gli abbinamenti diventano 11 e non è possibile giocare + di 1o numeri pena la non leggibilità del codice impostaGiocata.

PIRAMIDE 31+53=84-90=6 AMBATE 21 E 6

Poi non mi avevi detto che la 2° ambata andava completata a 90

ad ogni modo te l'ho corretta cosi come la vuoi, ma debbo dire che il risultato cambia di poco.

provalo cosi.

Sub Main
	Dim ru(1),posta(2),postaab(1)
	Dim nu(10),num(11),ab(2)
	posta(2) = 1
	postaab(1) = 1
	cif = CInt(InputBox("Quante cifre finale della Piramide",,2))
	quante = InputBox("Quante estrazioni controllo",,200)
	r = InputBox("Quale ruota di gioco ",,6)
	clp = CInt(InputBox("Quanti colpi di esito",,10))
	Ini = EstrazioneFin - quante
	fin = EstrazioneFin
	Scrivi "Metodo Piramidato di Trivellato ***** Forum LottoCed ***** Script by Mike58 **** ",1,1,2,4,3
	Scrivi
	For es = Ini To fin
		If IndiceMensile(es) = 1 Then
			co = co + 1
			a1 = Estratto(es,6,1)
			a3 = Estratto(es,6,3)
			a5 = Estratto(es,6,5)
			nu(1) = a1
			nu(2) = a3
			nu(3) = a5
			a6 = a1 & a3 & a5
			piram = Piramide(a6,6,cif)
			pr1 = Fuori90(piram - 10)
			pr2 = Fuori90(piram + 53)
			abb1 = Fuori90(Estratto(es,8,2) - 2)
			abb2 = Fuori90(Estratto(es,8,4) - 8)
			abb3 = ComplAdX(abb2,90)
			ab(1) = pr1
			ab(2) = ComplAdX(pr2,90)
			'num(1) = Piram
			num(1) = pr1
			num(2) = ComplAdX (pr2,90)
			num(3) = abb1
			num(4) = abb2
			num(5) = Fuori90(Estratto(es,6,1) + 56)
			num(6) = Fuori90(Estratto(es,6,5) + 25)
			num(7) = Fuori90(Estratto(es,7,5) + 2)
			num(8) = Fuori90(Estratto(es,9,3) - 39)
			num(9) = Fuori90(Estratto(es,4,4) + 19)
			'num(10) = Fuori90(Estratto(es,5,3) + 58)
			num(10) = Fuori90(Estratto(es,8,2)-8)
			
			ru(1) = r
			Scrivi String(125,"="),1
			ColoreTesto 1
			Scrivi "Caso n° " & FormatSpace(co,2) & "   " & GetInfoEstrazione(es) & "  " & StringaNumeri(nu,,1) & "  " & "Piramide..." & piram & " - Abbinamenti - " & StringaNumeri(num,,1),1' & _
			ColoreTesto 0
			Scrivi String(125,"="),1
			EliminaRipetuti(num)
			ImpostaGiocata 1,ab,ru,postaab,clp
			ImpostaGiocata 2,num,ru,posta,clp,3
			Gioca es,,,1
		End If
	Next
	ScriviResoconto
End Sub

 

[Mike58]

Ciao IB63

con tutta onestà sarei anche tentato provarlo anche se .... qualche timore resta ancora

Io ancora te lo consiglio con le ultime installazioni non ho riscontato mai nessun problema, e poi con le tue idee e la mia predisposizione alle Tabelle sai le cose belle che possono venire fuori di utile (il tutto chiaramente senza presunzione di perfezione)

(scc Silenzio)
per questo e chiaro che essendo anche curioso mi può interessare, se vuoi mi puoi cercare su altri lidi in MP il mio nick name è sempre questo.

Ciao IB una buona domenica, la mia tra poco è lavorativa.

 

[trivellatomariotretre33]

grazie mike58 ci siamo quasi il
3 DI MILANO + 18 = 37 e non 77
lo so sono 11 numeri pero sono due ambate abbinate ognuna per abbinamento agli ambi che abbiamo
potresti farlo anche sviluppandolo a ambi per ogni ambata capogioco
lo so forse sono molti ma e cosi o magari anche in terzina capogiochi con abbinamento ambi non so prova vedi tu come vien meglio limportante meterci anche il calcolo del 37 del 3 di milano grazie e scusa per l'intreccio

 

[Mike58]

3 DI MILANO + 18 = 37 e non 77
lo so sono 11 numeri pero sono due ambate abbinate ognuna per abbinamento agli ambi che abbiamo
potresti farlo anche sviluppandolo a ambi per ogni ambata capogioco
lo so forse sono molti ma e cosi o magari anche in terzina capogiochi con abbinamento ambi non so prova vedi tu come vien meglio limportante meterci anche il calcolo del 37 del 3 di milano grazie e scusa per l'intreccio

Si, hai ragione 19+18 = 37, chissà perché mi sono ostinato con +58.
per la stesura con + ambi e capogiochi devo scrivere tutta la trafila, dai ti metto i 9 abbinamenti + 1 capogioco Ambata per volta.

Adesso i numeri corrispondono con il tuo calcolo.

Sub Main
	Dim ru(1),posta(2),postaab(1)
	Dim nu(10),num(11),numm(10),ab(2)
	posta(2) = 1
	postaab(1) = 1
	cif = CInt(InputBox("Quante cifre finale della Piramide",,2))
	quante = InputBox("Quante estrazioni controllo",,200)
	r = InputBox("Quale ruota di gioco ",,6)
	clp = CInt(InputBox("Quanti colpi di esito",,10))
	Ini = EstrazioneFin - quante
	fin = EstrazioneFin
	Scrivi "Metodo Piramidato di Trivellato ***** Forum LottoCed ***** Script by Mike58 **** ",1,1,2,4,3
	Scrivi
	For es = Ini To fin
		If IndiceMensile(es) = 1 Then
			co = co + 1
			a1 = Estratto(es,6,1)
			a3 = Estratto(es,6,3)
			a5 = Estratto(es,6,5)
			nu(1) = a1
			nu(2) = a3
			nu(3) = a5
			a6 = a1 & a3 & a5
			piram = Piramide(a6,6,cif)
			pr1 = Fuori90(piram - 10)
			pr3 = Fuori90(piram + 53)
			pr2 = ComplAdX(pr3,90)
			abb1 = Fuori90(Estratto(es,8,2) - 2)
			abb2 = Fuori90(Estratto(es,8,2) - 8)
			abb3 = Fuori90(Estratto(es,8,4) - 8)
			ab(1) = pr1
			ab(2) = pr2
			'num(1) = Piram
			num(1) = pr1
			num(2) = abb1
			num(3) = abb2
			num(4) = abb3
			num(5) = Fuori90(Estratto(es,6,1) + 56)
			num(6) = Fuori90(Estratto(es,6,5) + 25)
			num(7) = Fuori90(Estratto(es,7,5) + 2)
			num(8) = Fuori90(Estratto(es,9,3) - 39)
			num(9) = Fuori90(Estratto(es,4,4) + 19)
			num(10) = Fuori90(Estratto(es,5,3) + 18)
			
			numm(1) = pr2
			numm(2) = abb1
			numm(3) = abb2
			numm(4) = abb3
			numm(5) = Fuori90(Estratto(es,6,1) + 56)
			numm(6) = Fuori90(Estratto(es,6,5) + 25)
			numm(7) = Fuori90(Estratto(es,7,5) + 2)
			numm(8) = Fuori90(Estratto(es,9,3) - 39)
			numm(9) = Fuori90(Estratto(es,4,4) + 19)
			numm(10) = Fuori90(Estratto(es,5,3) + 18)

			
			ru(1) = r
			Scrivi String(125,"="),1
			ColoreTesto 1
			Scrivi "Caso n° " & FormatSpace(co,2) & "   " & GetInfoEstrazione(es) & "  " & StringaNumeri(nu,,1) & "  " & "Piramide..." & piram & " - Abbinamenti - " & StringaNumeri(num,,1) & "." & pr2,1' & _
			ColoreTesto 0
			Scrivi String(125,"="),1
			EliminaRipetuti(num)
			ImpostaGiocata 1,ab,ru,postaab,clp
			ImpostaGiocata 2,num,ru,posta,clp,3
			ImpostaGiocata 3,numm,ru,posta,clp,3

			Gioca es,,,1
		End If
	Next
	ScriviResoconto
End Sub

 

[trivellatomariotretre33]

grazie Mike58 sei fantastico e veloce ti ringrazio a nome di mio cugino e da parte mia con vero cuore.
scusa o visto che fai dei capolavori fantastici come tabelle . volevo chiederti se avresti uno scrip ricerca ambo spia a ruota a scelta con previsione ambata e 4 o 5 abbinamenti per ambo in gioco quelli piu attendibili grazie micke58
nell'attesa ti invio una stretta di mano chilometrica e ancora grazie.

 

[DjNomade]

Versione per L8+ con piramide a due cifre.......
spero sia giusto

Ciauz

Sub Main
	Dim ru(1),posta(2),postaab(1)
	Dim nu(10),num(10),ab(2),numm(10)
	posta(2) = 1
	postaab(1) = 1
	'cif = CInt(InputBox("Quante cifre finale della Piramide",,2))
	quante = InputBox("Quante estrazioni controllo",,200)
	r = InputBox("Quale ruota di gioco ",,6)
	clp = CInt(InputBox("Quanti colpi di esito",,10))
	Ini = EstrazioneFin - quante
	fin = EstrazioneFin
	Scrivi "Metodo Piramidato di Trivellato ***** Forum LottoCed ***** Script by Mike58 **** ",1
	Scrivi
	For es = Ini To fin
		If IndiceMensile(es) = 1 Then
			co = co + 1
			a1 = Estratto(es,6,1)
			a3 = Estratto(es,6,3)
			a5 = Estratto(es,6,5)
			nu(1) = a1
			nu(2) = a3
			nu(3) = a5
			a6 = a1 & a3 & a5
            pir=a6
			' Piramidiza9 (pir)
			pr1 = Fuori90(90+pir - 10)
			pr2 = 90-Fuori90(pir + 53)
			abb1 = Fuori90(90+Estratto(es,8,2) - 2)
			abb2 = Fuori90(90+Estratto(es,8,2) - 8)
            abb3 = Fuori90(90+Estratto(es,8,4) - 8)

			ru(1) = r
			Scrivi String(125,"="),1
                  Piramidiza9 (pir)
			ColoreTesto 1
			Scrivi "Caso n° " & FormatSpace(co,2) & "   " & DataEstrazione(es) & "  " & StringaNumeri(nu) & "  " & "Piramide..." & pir & " - Abbinamenti - " & StringaNumeri(num),1' & _
			ColoreTesto 0
           
			'Scrivi String(125,"="),1

			ab(1) = pr1
			ab(2) = pr2

			EliminaRipetuti(num)

			ImpostaGiocata 1,ab,ru,postaab,clp
			num(1) = pr1
			num(2) = abb1
			num(3) = abb2
			num(4) = abb3
			num(5) = Fuori90(Estratto(es,6,1) + 56)
			num(6) = Fuori90(Estratto(es,6,5) + 25)
			num(7) = Fuori90(Estratto(es,7,5) + 2)
			num(8) = Fuori90(90+Estratto(es,9,3) - 39)
			num(9) = Fuori90(Estratto(es,4,4) + 19)
			num(10) = Fuori90(Estratto(es,5,3) + 18)
			EliminaRipetuti(num)
			ImpostaGiocata 2,num,ru,posta,clp,3
			numm(1) = pr2
			numm(2) = abb1
			numm(3) = abb2
			numm(4) = abb3
			numm(5) = Fuori90(Estratto(es,6,1) + 56)
			numm(6) = Fuori90(Estratto(es,6,5) + 25)
			numm(7) = Fuori90(Estratto(es,7,5) + 2)
			numm(8) = Fuori90(90+Estratto(es,9,3) - 39)
			numm(9) = Fuori90(Estratto(es,4,4) + 19)
			numm(10) = Fuori90(Estratto(es,5,3) + 18)
			EliminaRipetuti(numm)
            ImpostaGiocata 3,numm,ru,posta,clp,3
			Gioca es
		End If
	Next
	ScriviResoconto
End Sub



'Functio Aggiuntiva 
Dim  pir   
Function Piramidiza9 (piramide)
s=0
lun = Len(Pir)
Piramide=pir
Scrivi "Piramide a - 9" ' visuallizare a video la piramide
Scrivi Piramide,1  ' visuallizare a video la piramide
Do Until lun < 3   ' per cambiare cinale piramode a 2 o 1 cifra
For i = 1 To Len(Piramide) - 1 
vt1 = CInt(Mid(Piramide, i, 1)) + CInt(Mid(Piramide, i + 1, 1))
If vt1 > 9 Then vt1 = vt1 - 9
vatmp = vatmp & vt1 
Next
Piramide = vatmp
s=s+1
Scrivi String (s," ") & piramide,1 ' visuallizare a video la piramide
lun = Len(vatmp)
vatmp = ""
Loop
pir=Fuori90 (piramide)
End Function

 

[Mike58]

eh.eh..Ciao trivellato, non ho questo tipo di metodo e penso che non ne esistono di vincenti, anche se io mi diletto a provarne qualcuno ma haimè scopro che perdono del 50%.
Tuttavia giusto per dare anche un occasione a qualcuno di carpire qualche codice script ti posto 2 script

1° cerca n ambo in decina ed un numero del decina su estrazione precedente e gioca i rimanenti della stessa decina pe sorte di ambo ma può essere utile per conergenze.

Sub Main()
	'cerca ambi consecutivi In Decina
	Dim nu(90),ru(2),ma(10),nu1(1),poste(3),posta(1)
	poste(2) = 9
	poste(3) = 1
	posta(1) = 5
	quante = CInt(InputBox("Quante estrazioni vuoi analizzare","Quante estrazioni",100))
	Ini = EstrazioneFin - quante
	fin = EstrazioneFin
	colpi = 13
	Scrivi "Metodo Frequenza_Ciclica Decine   *** forum-lottoced ***  ",0,0
	Scrivi" Ricerca ambo in decina  ",0,0
	ColoreTesto 2
	Scrivi " Listed by Mike58 ",1
	ColoreTesto 0
	For es = Ini To fin
		Messaggio "Estrazioni esaminate " & es & "   --->  script by Mike58"
		Call AvanzamentoElab(Ini,fin,es)
		For r1 = 1 To 10
			For p = 1 To 4
				For pp = p + 1 To 5
					nu(1) = Estratto(es,r1,p)
					nu(2) = Estratto(es,r1,pp)
					nu1(1) = Estratto(es - 1,r1,pp)
					If Decina(nu(1)) = Decina(nu(2)) And Decina(nu(1)) = Decina(nu1(1)) Then
						co = co + 1
						Scrivi String(130,"=")
						ColoreTesto 1
						Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1),1,0
						ColoreTesto 7
						Scrivi "  ( ambo ambo in decina        " & StringaNumeri(nu) & " )",1,0
						ColoreTesto 1
						Scrivi" - Posiz. " & p & "/" & pp,1
						Scrivi DataEstrazione(es - 1) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es - 1,r1),1,0
						ColoreTesto 7

						Scrivi "  ( Numero in decina Estr prec.   " & StringaNumeri(nu1) & " )",1,0
						ColoreTesto 1
						Scrivi" - Posiz. " & pp,1


						ColoreTesto 0
						Scrivi String(120,"=") & " Caso n° " & co
						ru(1) = r1
						x1 = Decina(nu(1))
						If x1 = Decina(nu(1))Or Decina(nu(2)) Then
						End If
						For y = 1 To 10
							x = x1*10
							x2 = y +(x)
							ma(y) = y +(x)
							'sf = SerieFreq(Ini,fin,ma,ru,2)
							'sf1 = SerieFreq(fin - 18,fin,ma,ru,2)
							If EstrattoRitardo(ru(1),ma(y),es,es) = 0 Then ma(y) = 0' esclude i numeri cercati'
							If EstrattoRitardo(ru(1),ma(y),es - 1,es - 1) = 0 Then ma(y) = 0
							Call StatisticaFormazione(ma,ru,2,ritardo,ritardomax,Incrritmax,frequenza,Ini,fin)
						Next
						'For xx = 1 To 10
						'End If
						'Next
						'End If
						ColoreTesto 1
						'Scrivi "Frequenza della decina per AMBO : " & Sf,0,0
						'Scrivi "          Frequenza della decina ultime 18 estrazioni " & sf1
						Scrivi "Dati analitici della combinazione in gioco x ambo ---> " & "Ritardo : " & Ritardo & " - Ritardo max : " & ritardomax & " - Frequenza : " & Frequenza
						ColoreTesto 0
						Scrivi String(130,"-")
						ImpostaGiocata 1,ma,ru,poste,colpi
						Gioca es,,,1
						'Nex1
						'Next
					End If
				Next
			Next
		Next
	Next
	ScriviResoconto
End Sub

2° script cerca un ambo uguale ed in posizione di isotopia non pura e gioca una quartina su tutte con buoni esiti.
script in tabella

Sub Main()
	'cerca numero isotopo su 2 ruote consecutive
	Scrivi"Listato per ricerca Ambo uguaale iso  su 2 Ruote  ",True,False,2,4,3
	Scrivi" **** Forum LottoCed ***** ",True,False,4,2,3
	Scrivi" **** Script in Tabella by Mike58 ***** ",True,True,3,1,3
	Scrivi
	Dim k(10),nu(4),num(2)
	Dim ruote(2)
	Dim posta(5)
	Dim poste(5)
	posta(1) = 3
	poste(2) = 1.5
	poste(3) = .5
	tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",100))
	co = 0
	ini = EstrazioneFin - tmp
	fin = EstrazioneFin
	ReDim at(11)
	at(1) = " Data Estrazione "
	at(2) = " Ruota "
	at(3) = " estratti "
	at(4) = " Numero iso "
	at(5) = " Posiz. "
	at(6) = " Stringa Numeri "
	at(7) = " Esito "
	at(8) = " colpo "
	at(9) = " R_estratti a Tutte "
	at(10) = " Data Esito "
	at(11) = " casi "
	Call InitTabella(at,1,,3,5)
	For es = fin To Ini Step - 1
		Call Messaggio("Elaboro Estrazioni . . . . . . " & es & "     *  * * * Script by Mike58 * * * * ")
		Call AvanzamentoElab(Ini,fin,es)
		For r1 = 1 To 10
			For r2 = r1 + 1 To 12
			If r2 = 11 Then r2 = 12
			For p1 = 1 To 4
			For p2 = p1 + 1 To 5
				n1 = Estratto(es,r1,p1)
				n2 = Estratto(es,r1,p2)
				n3 = Estratto(es,r2,p1)
				n4 = Estratto(es,r2,p2)
				If n1 = n3 Or n1 = n4 Then ' numero = numero
				If n2 = n3 Or n2 = n4 Then
					co = co + 1
					ColoreTesto 0
					ruote(1) = r1
					ruote(2) = r2
					nu(1) = n1
					nu(2) = n2
					nu(3) = n3
					nu(4) = n4
					EliminaRipetuti(nu)
					num(1) = nu(1)
					num(2) = nu(2)
					'--------- Calcolo Numeri da mettere in gioco-------------
					'x1 = Decina(n1)
					'For y = 1 To 10
						'x = x1*10
						'x2 = y +(x)
						'k(y) = y +(x)
					'Next
					'---------------------------------------------------------
					
					k(1) = Diametrale(num(1))
					k(2) = Vert(k(1))
					k(3) = Diametrale(num(2))
					k(4) = Vert(k(3))
ReDim Tutte(10)
For rr = 1 To 10
Tutte(rr) = rr
					Call VerificaEsito(k,Tutte,es + 1,2,11,Nothing,esito,colpi,estratti,id)
					Next
					ReDim av(11)
					av(1) = DataEstrazione(es)
					av(2) = SiglaRuota(r1) & " - " & SiglaRuota(r2)
					av(3) = StringaEstratti(es,r1) & " - " & StringaEstratti(es,r2)
					av(4) = StringaNumeri(num)
					av(5) = p1 & "°" & p2 & "°"
					av(6) = StringaNumeri(k,,True)
					av(7) = esito
					av(8) = colpi & "°"
					av(9) = estratti
					If esito <> "" Then av(10) = DataEstrazione(id)
					If esito = "" And colpi > 10 Then av(10) = " Negativo "
					If esito = "" And colpi <= 10 Then av(10) = " In corso "
					av(11) = co '& "  " & IndiceMensile(es)
					Call AddRigaTabella(av,,,3,,"arial black")
					Call SetColoreCella(2,RGB(175,174,222),5)
					Call SetColoreCella(3,RGB(252,237,240),0)
					Call SetColoreCella(6,RGB(164,242,249),0)
					Call SetColoreCella(4,RGB(175,239,173),0)
					Call SetColoreCella(9,RGB(236,200,176),2)
					If esito = "Ambo" Then Call SetColoreCella(7,2,4)
					If DataEstrazione(id) = DataEstrazione(fin) Then Call SetColoreCella(10,4,1)
					' ---------------- calcolo colpi -------------------------
					If esito <> "" And colpi = 1 Then clp1 = clp1 + 1
					If esito <> "" And colpi = 2 Then clp2 = clp2 + 1
					If esito <> "" And colpi = 3 Then clp3 = clp3 + 1
					If esito <> "" And colpi = 4 Then clp4 = clp4 + 1
					If esito <> "" And colpi = 5 Then clp5 = clp5 + 1
					If esito <> "" And colpi = 6 Then clp6 = clp6 + 1
					If esito <> "" And colpi = 7 Then clp7 = clp7 + 1
					If esito <> "" And colpi = 8 Then clp8 = clp8 + 1
					If esito <> "" And colpi = 9 Then clp9 = clp9 + 1
					If esito <> "" And colpi = 10 Then clp10 = clp10 + 1
					If esito <> "" And colpi > 0 And colpi < 11 Then clptot = clptot + 1
					If esito = "" And colpi < 11 Then clpcorso = clpcorso + 1
					If colpi >= 7 Then clp11 = clp11 + 1
					'---------------------------------------------------------
				End If
				End If
			Next
			Next
			Next
		Next
	Next
	Call SetTableWidth("100%")

	CreaTabella()
	ReDim att(14)
	att(1) = " Colpo 1 "
	att(2) = " Colpo 2 "
	att(3) = " Colpo 3 "
	att(4) = " Colpo 4 "
	att(5) = " Colpo 5 "
	att(6) = " Colpo 6 "
	att(7) = " Colpo 7 "
	att(8) = " Colpo 8 "
	att(9) = " Colpo 9 "
	att(10) = " Colpo 10 "
	att(11) = " Totali casi "
	att(12) = " Casi positivi "
	att(13) = " Casi Negativi "
	att(14) = " Casi in corso "
	Call InitTabella(att,2,,3,4)
	ReDim avv(14)
	avv(1) = clp1
	avv(2) = clp2
	avv(3) = clp3
	avv(4) = clp4
	avv(5) = clp5
	avv(6) = clp6
	avv(7) = clp7
	avv(8) = clp8
	avv(9) = clp9
	avv(10) = clp10
	avv(11) = co
	avv(12) = clptot'(clp1+clp2+clp3+clp4+clp5+clp6+clp7+clp8+clp9+clp10)
	avv(13) = clp11
	avv(14) = clpcorso
	Call AddRigaTabella(avv,4,,3,2)
	Call SetTableWidth("100%")
	Call CreaTabella()
	'Scrivi
End Sub

Ciao

 

[Mike58]

Ottimo Dj, un grazie per l'intervento e la function per la piramide.

Ciao

 

[trivellatomariotretre33]

GRAZIE DI CUORE MIKE58 FANTASTICO SEI GENEROSO E DISPONIBILE TI AUGURO CHE UNO DEI TUOI DESIDERI SI AVVINGA REGALANDOTI UN SORRISO COME TU LO REGALI A TANTI DI NOI CON LA TUA DISPONIBILITA GRAZIE E POCO..........