Novità

PER Rubino mi aiuti?

fillotto

fillotto

Advanced Member >PLATINUM<
Questo script è un tentativo di creare una tabella come hai fatto tu
nello script "Creiamo uno script?" quello in cui creavi una tabella dei numeri usciti di tutte le ruote + la nazionale in 3 estrazioni consecutive facendo poi delle considerazioni visive di questa tabella .
Ora io vorrei fare lo stesso lavoro , ma al posto di far riportare le eventuali presenze dei 55 num x le 3 estraz consecutive mettendo (1) , vorrei riportare le presenze (reali non solo 1 ma all'occor
renza anche 2 ...3 con un max di 5)questi 25 numeri, non sono altro che tutti i numeri Adattatori possibili di ciascuna di una singola estrazione di una singola ruota
Se fai girare questo piccolo script te ne renderai conto
Se non sono stato chiaro ... chiedi
Come vedi ho tentato di adattarlo ma non ci riesco.. i numeri dell'output sono quelli che vorrei che venissero presi in considerazione negli array questo output ,Limitatamente a 20 numeri e trasformati in un file di testo mi servivano per poi essere letti
con un altro script che leggeva file di testo
Sub Main
'Scrivi String(70,"=") & "by Fillotto\Rubino" & String(70,"=")
Dim nr(25),es
Dim Ini,fin
Dim k1(90)'quantità di valori(nr) usciti nella 1^ riga della tabella
Dim k2(90)'quantità di valori(nr) usciti nella 2^ riga della tabella
Dim k3(90)'quantità di valori(nr) usciti nella 3^ riga della tabella
Dim k0(90)'4^ riga contenente le somme delle precedenti righe
Dim n
ReDim atitoli(92)'una tabella con 92 titoli)il 1° titolo sarà "num. estraz"il 2°"data di estraz" e succ i num da 1 a 90
ReDim avalori(92)' dove , alla riga successiva ci saranno i valori
' preimposto i titoli delle colonne
xx = 2
For x = 1 To 90
xx = xx + 1
atitoli(xx) = Format2(x)
Next
atitoli(1) = "num. Estraz. "
atitoli(2) = "Data Estraz. "



dal = InputBox("inserire n.estrazione iniziale...",,8418)
al = dal + 2
z = InputBox("su quale ruota fare i conti...",,1)
ColoreTesto 2
Scrivi " Statistica dei numeri ADATTATORI sortiti in 3 estrazioni consecutive sulla ruota di" & " " & NomeRuota(z)
Scrivi " Estrazione iniziale n. " & dal & " del " & DataEstrazione(dal) & " / " & DataEstrazione(al)
Scrivi " script name = Ruota Circ"
ColoreTesto 0
Scrivi "_____________________________________________________________________________"
' inizializzo la tabella
Call InitTabella(atitoli,1,"center",1,5,"Calibri")



Ini = dal
fin = al
For es = Ini To fin

Messaggio es
nr(1) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,1)))
nr(2) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,2)))
nr(3) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,3)))
nr(4) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,4)))
nr(5) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,5)))
nr(6) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,1)))
nr(7) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,2)))
nr(8) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,3)))
nr(9) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,4)))
nr(10) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,5)))
nr(11) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,1)))
nr(12) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,2)))
nr(13) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,3)))
nr(14) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,4)))
nr(15) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,5)))
nr(16) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,1)))
nr(17) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,2)))
nr(18) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,3)))
nr(19) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,4)))
nr(20) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,5)))
nr(21) = Format2(Fuori90(Estratto(es,z,5) + 90 - Estratto(es - 1,z,1)))
nr(22) = Format2(Fuori90(Estratto(es,z,5) + 90 - Estratto(e
 
ciao filotto

ho cercato di sistemare lo script

prova a vedere se il risultato è quello da te desiderato.

1) nel dettaglio delle estrazioni compaiono i 25 adattori
2) nel riepilogo finale da 01-90 le presenze degli adattori.


Codice: 
Sub Main
	'Scrivi String(70,"=") & "by Fillotto\Rubino" & String(70,"=")
	Dim nr(25),es
	Dim Ini,fin
	Dim k0(90)'4^ riga contenente le somme delle precedenti righe
	Dim n
	ReDim atitoli(92)'una tabella con 92 titoli)il 1° titolo sarà "num. estraz"il 2°"data di estraz" e succ i num da 1 a 90
	ReDim avalori(92)' dove , alla riga successiva ci saranno i valori
	' preimposto i titoli delle colonne
	xx = 2
	For x = 1 To 90
		xx = xx + 1
		atitoli(xx) = Format2(x)
	Next
	atitoli(1) = "N.Estr.    "
	atitoli(2) = "Data Estr. "
	dal = InputBox("inserire n.estrazione iniziale...",,8418)
	al = dal + 2
	z = InputBox("su quale ruota fare i conti...",,1)
	ColoreTesto 2
	Scrivi " Statistica dei numeri ADATTATORI sortiti in 3 estrazioni consecutive sulla ruota di" & " " & NomeRuota(z)
	Scrivi " Estrazione iniziale n. " & dal & " del " & DataEstrazione(dal) & " / " & DataEstrazione(al)
	Scrivi " script name = Ruota Circ"
	ColoreTesto 0
	Scrivi "_____________________________________________________________________________"
	' inizializzo la tabella
	Call InitTabella(atitoli,1,"center",1,5,"Calibri")
	Ini = dal
	fin = al
	For es = Ini To fin
		Messaggio es
		nr(1) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,1)))
		nr(2) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,2)))
		nr(3) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,3)))
		nr(4) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,4)))
		nr(5) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,5)))
		nr(6) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,1)))
		nr(7) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,2)))
		nr(8) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,3)))
		nr(9) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,4)))
		nr(10) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,5)))
		nr(11) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,1)))
		nr(12) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,2)))
		nr(13) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,3)))
		nr(14) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,4)))
		nr(15) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,5)))
		nr(16) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,1)))
		nr(17) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,2)))
		nr(18) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,3)))
		nr(19) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,4)))
		nr(20) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,5)))
		nr(21) = Format2(Fuori90(Estratto(es,z,5) + 90 - Estratto(es - 1,z,1)))
		nr(22) = Format2(Fuori90(Estratto(es,z,5) + 90 - Estratto(es - 1,z,2)))
		nr(23) = Format2(Fuori90(Estratto(es,z,5) + 90 - Estratto(es - 1,z,3)))
		nr(24) = Format2(Fuori90(Estratto(es,z,5) + 90 - Estratto(es - 1,z,4)))
		nr(25) = Format2(Fuori90(Estratto(es,z,5) + 90 - Estratto(es - 1,z,5)))
		ColoreTesto 0
		Scrivi FormatSpace(IndiceAnnuale(es),3,True) & "," & DataEstrazione(es) & "," & FormatSpace(nr(1),2) & "," & FormatSpace(nr(2),2) & "," & FormatSpace(nr(3),2) & "," & FormatSpace(nr(4),2) & "," & FormatSpace(nr(5),2)_
		& "," & FormatSpace(nr(6),2) & "," & FormatSpace(nr(7),2) & "," & FormatSpace(nr(8),2) & "," & FormatSpace(nr(9),2) & "," & FormatSpace(nr(10),2)_
		& "," & FormatSpace(nr(11),2) & "," & FormatSpace(nr(12),2) & "," & FormatSpace(nr(13),2) & "," & FormatSpace(nr(14),2) & "," & FormatSpace(nr(15),2)_
		& "," & FormatSpace(nr(16),2) & "," & FormatSpace(nr(17),2) & "," & FormatSpace(nr(18),2) & "," & FormatSpace(nr(19),2) & "," & FormatSpace(nr(20),2)_
		& "," & FormatSpace(nr(21),2) & "," & FormatSpace(nr(22),2) & "," & FormatSpace(nr(23),2) & "," & Fo
 
ciao,ci siamo parzialmente:) questo è l'output di come lo hai postato ho messo i miei desiderata in esso:
rubino.jpg
[/URL]

Uploaded with ImageShack.us[/img]
 
nel dettaglio delle 3 estrazioni ho lasciato appositamente i numeri rilevati come adattatori per vedere se vanno bene con i tuoi

mentre nel riepilogo la quantità di volte che in 3 estrazioni l'adattatore è ripetuto oppure rimane vuoto, quindi non rilevato.

mi pare di capire che vuoi vedere ad ogni estrazione la situazione delle presenze dei 90 adattatori, anche se nel totale riepilogato sotto va già bene.

solo per conferma,
vuoi vedere le presenze degli adattatori rilevati ad ogni estrazione?</u>


io avrei guardato solo la colonna gialla del riepilogo dei 90 adattatori con le presenze totali.
comunque con costa niente, più tardi lo faccio.
adesso per una mezzoretta devo andare a prendere il piccolo che esce da scuola.



-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

Un Attimo della vita, sognare con umiltà
 
quote:Originally posted by rubino

nel dettaglio delle 3 estrazioni ho lasciato appositamente i numeri rilevati come adattatori per vedere se vanno bene con i tuoi

mentre nel riepilogo la quantità di volte che in 3 estrazioni l'adattatore è ripetuto oppure rimane vuoto, quindi non rilevato.

mi pare di capire che vuoi vedere ad ogni estrazione la situazione delle presenze dei 90 adattatori, anche se nel totale riepilogato sotto va già bene.

solo per conferma,
vuoi vedere le presenze degli adattatori rilevati ad ogni estrazione?</u> (SI GRAZIE !!! ripeto la riga gialla è già a posto il numero degli adattatori che in teoria possono essere massimo 5 in una estrazione non sono evidenziati nella maniera giusta se non nella riga gialla, questo per vedere le diverse disposizioni esempio: se vedo che in totale gli adattatori 1 e 2 hanno entrambi somma 3 non so però se sono disposti anche nello stesso modo, il primo potrebbe essersi presentato nei primi 25 3 volte mentre il 2° 1 volta nella 1^ estraz e 2 volte nella terza,facendo delle prove emergerebbero diverse valutazioni non le pare? ) SI i NUMERI ADATTATORI sono quelli giusti!!

io avrei guardato solo la colonna gialla del riepilogo dei 90 adattatori con le presenze totali.
comunque con costa niente, più tardi lo faccio.
adesso per una mezzoretta devo andare a prendere il piccolo che esce da scuola.



-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

Un Attimo della vita, sognare con umiltà



Clicca per espandere...
 
ciao filotto

ecco corretto con il totale presenze degli adattatori ripetuti ad ogni estrazioni.

fammi sapere se va bene:

Codice: 
Sub Main
	'Scrivi String(70,"=") & "by Fillotto\Rubino" & String(70,"=")
	Dim nr(25),es
	Dim Ini,fin
	Dim k0(90)'4^ riga contenente le somme delle precedenti righe
	Dim k1(90)'4^ riga contenente le somme delle precedenti righe
	Dim n
	ReDim atitoli(92)'una tabella con 92 titoli)il 1° titolo sarà "num. estraz"il 2°"data di estraz" e succ i num da 1 a 90
	ReDim avalori(92)' dove , alla riga successiva ci saranno i valori
	' preimposto i titoli delle colonne
	xx = 2
	For x = 1 To 90
		xx = xx + 1
		atitoli(xx) = Format2(x)
	Next
	atitoli(1) = "N.Estr.    "
	atitoli(2) = "Data Estr. "
	dal = InputBox("inserire n.estrazione iniziale...",,8418)
	al = dal + 2
	z = InputBox("su quale ruota fare i conti...",,1)
	ColoreTesto 2
	Scrivi " Statistica dei numeri ADATTATORI sortiti in 3 estrazioni consecutive sulla ruota di" & " " & NomeRuota(z)
	Scrivi " Estrazione iniziale n. " & dal & " del " & DataEstrazione(dal) & " / " & DataEstrazione(al)
	Scrivi " script name = Ruota Circ"
	ColoreTesto 0
	Scrivi "_____________________________________________________________________________"
	' inizializzo la tabella
	Call InitTabella(atitoli,1,"center",1,5,"Calibri")
	Ini = dal
	fin = al
	For es = Ini To fin
		Messaggio es
		nr(1) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,1)))
		nr(2) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,2)))
		nr(3) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,3)))
		nr(4) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,4)))
		nr(5) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,5)))
		nr(6) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,1)))
		nr(7) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,2)))
		nr(8) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,3)))
		nr(9) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,4)))
		nr(10) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,5)))
		nr(11) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,1)))
		nr(12) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,2)))
		nr(13) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,3)))
		nr(14) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,4)))
		nr(15) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,5)))
		nr(16) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,1)))
		nr(17) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,2)))
		nr(18) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,3)))
		nr(19) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,4)))
		nr(20) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,5)))
		nr(21) = Format2(Fuori90(Estratto(es,z,5) + 90 - Estratto(es - 1,z,1)))
		nr(22) = Format2(Fuori90(Estratto(es,z,5) + 90 - Estratto(es - 1,z,2)))
		nr(23) = Format2(Fuori90(Estratto(es,z,5) + 90 - Estratto(es - 1,z,3)))
		nr(24) = Format2(Fuori90(Estratto(es,z,5) + 90 - Estratto(es - 1,z,4)))
		nr(25) = Format2(Fuori90(Estratto(es,z,5) + 90 - Estratto(es - 1,z,5)))
		ColoreTesto 0
		Scrivi FormatSpace(IndiceAnnuale(es),3,True) & "," & DataEstrazione(es) & "," & FormatSpace(nr(1),2) & "," & FormatSpace(nr(2),2) & "," & FormatSpace(nr(3),2) & "," & FormatSpace(nr(4),2) & "," & FormatSpace(nr(5),2)_
		& "," & FormatSpace(nr(6),2) & "," & FormatSpace(nr(7),2) & "," & FormatSpace(nr(8),2) & "," & FormatSpace(nr(9),2) & "," & FormatSpace(nr(10),2)_
		& "," & FormatSpace(nr(11),2) & "," & FormatSpace(nr(12),2) & "," & FormatSpace(nr(13),2) & "," & FormatSpace(nr(14),2) & "," & FormatSpace(nr(15),2)_
		& "," & FormatSpace(nr(16),2) & "," & FormatSpace(nr(17),2) & "," & FormatSpace(nr(18),2) & "," & FormatSpace(nr(19),2) & "," & FormatSpace(nr(20),2)_
		& "," & FormatSpace(nr(21),2) & "," & FormatSpace(nr(22),2) & "," & FormatSpace(nr(23),2) & "," & FormatSpace(nr(24),2) & "," & FormatSpace(nr(25
 
Grazie Rubino una vera chicca, perfetto !!!
Se vuoi ti faccio sapere come lo uso, adesso faccio delle ulteriori prove perchè oltre che essere bello è anche molto duttile le estrazioni possono essere anche + di tre e facilmente si possono vedere i ritardi e tante altre cose....
Per essere ancora migliorato al posto degli " 0 " , penso non ci dovrebbero essere problemi a mettere un colore (verdino ?) , a livello visivo ne gadagnerebbe per riconoscere gli eventuali sincronismi i ritardi ecc questo quando lo uso con più estrazioni
 
ho messo anche la possibilità di inserire e specificare quante estrazioni si vuole prendere in considerazione



gli adattatori con 0 sono messi in verde.


Codice: 
Sub Main
	'Scrivi String(70,"=") & "by Fillotto\Rubino" & String(70,"=")
	'''''name script rubino   ***** 0Filotto  ******
	Dim nr(25),es
	Dim Ini,fin
	Dim k0(90)'4^ riga contenente le somme delle precedenti righe
	Dim k1(90)'4^ riga contenente le somme delle precedenti righe
	Dim n
	ReDim atitoli(92)'una tabella con 92 titoli)il 1° titolo sarà "num. estraz"il 2°"data di estraz" e succ i num da 1 a 90
	ReDim avalori(92)' dove , alla riga successiva ci saranno i valori
	' preimposto i titoli delle colonne
	xx = 2
	For x = 1 To 90
		xx = xx + 1
		atitoli(xx) = Format2(x)
	Next
	atitoli(1) = "N.Estr.    "
	atitoli(2) = "Data Estr. "
	dal = InputBox("inserire n.estrazione iniziale...",,8418)
	qt = InputBox("Inserire quante estrazioni si vuole prendere in esame",,2)
	al = dal + Int(qt)
	z = InputBox("su quale ruota fare i conti...",,1)
	ColoreTesto 2
	Scrivi " Statistica dei numeri ADATTATORI sortiti in 3 estrazioni consecutive sulla ruota di" & " " & NomeRuota(z)
	Scrivi " Estrazione iniziale n. " & dal & " del " & DataEstrazione(dal) & " / " & DataEstrazione(al)
	Scrivi " script name = Ruota Circ"
	ColoreTesto 0
	Scrivi "_____________________________________________________________________________"
	' inizializzo la tabella
	Call InitTabella(atitoli,1,"center",1,5,"Calibri")
	Ini = dal
	fin = al
	For es = Ini To fin
		Messaggio es
		nr(1) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,1)))
		nr(2) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,2)))
		nr(3) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,3)))
		nr(4) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,4)))
		nr(5) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,5)))
		nr(6) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,1)))
		nr(7) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,2)))
		nr(8) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,3)))
		nr(9) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,4)))
		nr(10) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,5)))
		nr(11) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,1)))
		nr(12) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,2)))
		nr(13) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,3)))
		nr(14) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,4)))
		nr(15) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,5)))
		nr(16) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,1)))
		nr(17) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,2)))
		nr(18) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,3)))
		nr(19) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,4)))
		nr(20) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,5)))
		nr(21) = Format2(Fuori90(Estratto(es,z,5) + 90 - Estratto(es - 1,z,1)))
		nr(22) = Format2(Fuori90(Estratto(es,z,5) + 90 - Estratto(es - 1,z,2)))
		nr(23) = Format2(Fuori90(Estratto(es,z,5) + 90 - Estratto(es - 1,z,3)))
		nr(24) = Format2(Fuori90(Estratto(es,z,5) + 90 - Estratto(es - 1,z,4)))
		nr(25) = Format2(Fuori90(Estratto(es,z,5) + 90 - Estratto(es - 1,z,5)))
		ColoreTesto 0
		Scrivi FormatSpace(IndiceAnnuale(es),3,True) & "," & DataEstrazione(es) & "," & FormatSpace(nr(1),2) & "," & FormatSpace(nr(2),2) & "," & FormatSpace(nr(3),2) & "," & FormatSpace(nr(4),2) & "," & FormatSpace(nr(5),2)_
		& "," & FormatSpace(nr(6),2) & "," & FormatSpace(nr(7),2) & "," & FormatSpace(nr(8),2) & "," & FormatSpace(nr(9),2) & "," & FormatSpace(nr(10),2)_
		& "," & FormatSpace(nr(11),2) & "," & FormatSpace(nr(12),2) & "," & FormatSpace(nr(13),2) & "," & FormatSpace(nr(14),2) & "," & FormatSpace(nr(15),2)_
		& "," & FormatSpace(nr(16),2) & "," & FormatSpace(nr(17),2) & "," & FormatSpace(nr(18),2) & "," & FormatSpace(nr(19),2) & "," & Form
 
Che dire: perfetto:D:D
Spero che tu e gli alti possano vedere le potenzialità di quanto si è riusciti a realizzare
 
ciao filotto.
ti dispiace farmi capire come utilizzi questo metodo?
i numeri adattatori come vengono ricavati?
puoi farmi un esempio reale?
grazie e buona domenica
 
Ciao a tutti,vediamo se ho' capito....nella tabella riassuntiva abbiamo 3 numeri adattatori con sortita maggiore(10-11-20 con rispettive sortite di 8-6-7).E' giusto dire che gli estratti sommati agli adattatori hanno avuto sortita con esito positivo? Se si,quale posizione di estratto?
Grazie a FILLOTTO per la ricerca e grazie al Prof.RUBINO per il magnifico script di pregevole fattura.
Ciao.

Artemisio
Memento Audere Semper
 
quote:Originally posted by codicebinario

Ciao a tutti,vediamo se ho' capito....nella tabella riassuntiva abbiamo 3 numeri adattatori con sortita maggiore(10-11-20 con rispettive sortite di 8-6-7).E' giusto dire che gli estratti sommati agli adattatori hanno avuto sortita con esito positivo? Se si,quale posizione di estratto?
Grazie a FILLOTTO per la ricerca e grazie al Prof.RUBINO per il magnifico script di pregevole fattura.
Ciao.

Artemisio
Memento Audere Semper
Clicca per espandere...
Giusto CB , per maggiore comprensione ho modificato (per quanto mi è stato possibile :):))lo script in cui l'output mi sembra più esplicativo e in modo da rispondere indirettamente a te (Se si,quale posizione di estratto?)ecco il nuovo output che è il medesimo di quello di cui parli ma spero + leggibile:
rubino.jpg
[/URL]

Uploaded with ImageShack.us[/img]
per restare alla tua domanda : l' adattatore 10 è uscito per la prima volta(delle 8 volte) il 20/8/2011 si è "piazzato" come 4°
estratto e sarebbe l'evoluzione del 22 ( 3° estratto+10= 32) spero
di essere stato chiaro. Per quanto riguarda come possa essere di giovamento questo sta nella sensibilità VISIVA di ciascuno di noi
per ritornare all'esempio potrei pensare a scommettere ancora sul 10
sperando in una sua ulteriore frequenza oppure abbandonarlo proprio
perchè è uscito troppe volte e puntare piuttosto su adattatori che non si sono presentati nell'esempio i vicini 40 e 41 (dove vedo una
presenza di verde)oppure altre considerazioni l'importante è avere tutti i mezzi a disposizione questo è lo script modificato:
CIAO CB & MIKE
spero di essermi spiegato
Sub Main
'Scrivi String(70,"=") & "by Fillotto\Rubino" & String(70,"=")
'''''name script rubino ***** 0Filotto ******
Dim nr(25),es
Dim Ini,fin
Dim k0(90)'4^ riga contenente le somme delle precedenti righe
Dim k1(90)'4^ riga contenente le somme delle precedenti righe
Dim n
ReDim atitoli(92)'una tabella con 92 titoli)il 1° titolo sarà "num. estraz"il 2°"data di estraz" e succ i num da 1 a 90
ReDim avalori(92)' dove , alla riga successiva ci saranno i valori
' preimposto i titoli delle colonne
xx = 2
For x = 1 To 90
xx = xx + 1
atitoli(xx) = Format2(x)
Next
atitoli(1) = "N.Estr. "
atitoli(2) = "Data Estr. "
dal = InputBox("inserire n.estrazione iniziale...",,8418)
qt = InputBox("Inserire quante estrazioni si vuole prendere in esame",,2)
al = dal + Int(qt)
z = InputBox("su quale ruota fare i conti...",,1)
ColoreTesto 2
Scrivi " Statistica dei numeri ADATTATORI sortiti in "& qt+1 & " estrazioni consecutive sulla ruota di" & " " & NomeRuota(z)
Scrivi " Estrazione iniziale n. " & dal & " del " & DataEstrazione(dal) & " / " & DataEstrazione(al)
Scrivi " Evoluzione dei 5 estratti dell'estrazione del " & DataEstrazione(dal-1) &" "& " "
Scrivi " ovvero di: " &" "& StringaEstratti(dal-1,z," . ")& " "

ColoreTesto 0
Scrivi "_______________________________________________________________________________________________"
Scrivi " Evoluz del 1° Evoluz del 2° Evoluz del 3° Evoluz del 4° Evoluz del 5° "
ColoreTesto 0
Scrivi "_______________________________________________________________________________________________"
' inizializzo la tabella
Call InitTabella(atitoli,1,"center",1,5,"Calibri")
Ini = dal
fin = al
For es = Ini To fin
Messaggio es
nr(1) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,1)))
nr(2) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,1)))
nr(3) = Format2(Fuori90(Estratto(es,z,3)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 18 luglio 2025
    Bari
    48
    38
    01
    78
    24
    Cagliari
    87
    33
    22
    13
    19
    Firenze
    14
    27
    71
    11
    50
    Genova
    40
    14
    77
    76
    17
    Milano
    26
    17
    90
    64
    69
    Napoli
    40
    89
    06
    23
    84
    Palermo
    62
    51
    36
    86
    26
    Roma
    76
    33
    75
    83
    47
    Torino
    83
    19
    82
    79
    89
    Venezia
    20
    31
    13
    12
    87
    Nazionale
    74
    29
    28
    32
    78
    Estrazione Simbolotto
    Nazionale
    39
    18
    27
    28
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto