Novità

x mike58

per me va molto bene così,
al limite se vuoi e se riesci
fai i caratteri più piccoli e forse
gli spazi diventano più delimitati

ma comunque può bastare

grazie infinite

ciao
 
X paolo queste 2 righe determinano rispettivamente anche il size di scrittura
Call InitTabella(atitoli,2,,2,5) --- Titolo ---- da diminuire con Call InitTabella(atitoli,2,,1,5)
Call AddRigaTabella(avalori,,,2) - valori - da diminuire con Call AddRigaTabella(avalori,,,1)

come vedi siamo al minimo size da 2 a 1

x Alien penso di si ci sono da sostituire tutti i codici con suffisso DL.

magari domani

buona Notte.
 
Ultima modifica:
Ciao Solare dovrebbe essere cosi.

Oggi non ho tempo.

Codice: 
Sub Main
	ImpostaArchivio10ELotto(1) ' 2 10elotto 5min
	Dim a(36)
	qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
	sorte = CInt(InputBox("QUALE SORTE ",,4))
	color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
	Dim posta(2)
	posta(1) = 1
	posta(2) = 1
	Fin = EstrazioniArchivioDL
	Ini = EstrazioniArchivioDL - qt
	Scrivi "Ventine Manuali *** Gioco 10 & lotto serale ***** ",1
	Scrivi
	Scrivi " dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(Fin),1
	Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
	Scrivi
	ReDim atitoli(10)
	atitoli(1) = "  Tipo decina  "
	atitoli(2) = "      Combinazione       "
	atitoli(3) = " Ritardo "
	atitoli(4) = " Rit. Max "
	atitoli(5) = " incr max"
	atitoli(6) = " Freq "
	atitoli(7) = "      Esito      "
	atitoli(8) = "  Stringa estratti   "
	atitoli(9) = " Ultima ESTR_Esito "
	atitoli(10) = " Conta Estratti "
	Call InitTabella(atitoli,2,,1,5)
	a(01) = "01-02-03-04-05-06-07-08-09-10-11-12-13-14-15-16-17-18-19-20"
	a(02) = "01-02-03-04-05-06-07-08-09-10-21-22-23-24-25-26-27-28-29-30"
	a(03) = "01-02-03-04-05-06-07-08-09-10-31-32-33-34-35-36-37-38-39-40"
	a(04) = "01-02-03-04-05-06-07-08-09-10-41-42-43-44-45-46-47-48-49-50"
	a(05) = "01-02-03-04-05-06-07-08-09-10-51-52-53-54-55-56-57-58-59-60"
	a(06) = "01-02-03-04-05-06-07-08-09-10-61-62-63-64-65-66-67-68-69-70"
	a(07) = "01-02-03-04-05-06-07-08-09-10-71-72-73-74-75-76-77-78-79-80"
	a(08) = "01-02-03-04-05-06-07-08-09-10-81-82-83-84-85-86-87-88-89-90"
	'---------------------------------------------------------------------
	a(09) = "11-12-13-14-15-16-17-18-19-20-21-22-23-24-25-26-27-28-29-30"
	a(10) = "11-12-13-14-15-16-17-18-19-20-31-32-33-34-35-36-37-38-39-40"
	a(11) = "11-12-13-14-15-16-17-18-19-20-41-42-43-44-45-46-47-48-49-50"
	a(12) = "11-12-13-14-15-16-17-18-19-20-51-52-53-54-55-56-57-58-59-60"
	a(13) = "11-12-13-14-15-16-17-18-19-20-61-62-63-64-65-66-67-68-69-70"
	a(14) = "11-12-13-14-15-16-17-18-19-20-71-72-73-74-75-76-77-78-79-80"
	a(15) = "11-12-13-14-15-16-17-18-19-20-81-82-83-84-85-86-87-88-89-90"
	'---------------------------------------------------------------------
	a(16) = "21-22-23-24-25-26-27-28-29-30-31-32-33-34-35-36-37-38-39-40"
	a(17) = "21-22-23-24-25-26-27-28-29-30-41-42-43-44-45-46-47-48-49-50"
	a(18) = "21-22-23-24-25-26-27-28-29-30-51-52-53-54-55-56-57-58-59-60"
	a(19) = "21-22-23-24-25-26-27-28-29-30-61-62-63-64-65-66-67-68-69-70"
	a(20) = "21-22-23-24-25-26-27-28-29-30-71-72-73-74-75-76-77-78-79-80"
	a(21) = "21-22-23-24-25-26-27-28-29-30-81-82-83-84-85-86-87-88-89-90"
	'--------------------------------------------------------------------
	a(22) = "31-32-33-34-35-36-37-38-39-40-41-42-43-44-45-46-47-48-49-50"
	a(23) = "31-32-33-34-35-36-37-38-39-40-51-52-53-54-55-56-57-58-59-60"
	a(24) = "31-32-33-34-35-36-37-38-39-40-61-62-63-64-65-66-67-68-69-70"
	a(25) = "31-32-33-34-35-36-37-38-39-40-71-72-73-74-75-76-77-78-79-80"
	a(26) = "31-32-33-34-35-36-37-38-39-40-81-82-83-84-85-86-87-88-89-90"
	'--------------------------------------------------------------------
	a(27) = "41-42-43-44-45-46-47-48-49-50-51-52-53-54-55-56-57-58-59-60"
	a(28) = "41-42-43-44-45-46-47-48-49-50-61-62-63-64-65-66-67-68-69-70"
	a(29) = "41-42-43-44-45-46-47-48-49-50-71-72-73-74-75-76-77-78-79-80"
	a(30) = "41-42-43-44-45-46-47-48-49-50-81-82-83-84-85-86-87-88-89-90"
	'--------------------------------------------------------------------
	a(31) = "51-52-53-54-55-56-57-58-59-60-61-62-63-64-65-66-67-68-69-70"
	a(32) = "51-52-53-54-55-56-57-58-59-60-71-72-73-74-75-76-77-78-79-80"
	a(33) = "51-52-53-54-55-56-57-58-59-60-81-82-83-84-85-86-87-88-89-90"
	'--------------------------------------------------------------------
	a(34) = "61-62-63-64-65-66-67-68-69-70-71-72-73-74-75-76-77-78-79-80"
	a(35) = "61-62-63-64-65-66-67-68-69-70-81-82-83-84-85-86-87-88-89-90"
	'--------------------------------------------------------------------
	a(36) = "71-72-73-74-75-76-77-78-79-80-81-82-83-84-85-86-87-88-89-90"
	'--------------------------------------------------------------------
	For N = 1 To UBound(a)
		Nu = Split("0-" & Format2(a(n)),"-")
		Call StatisticaFormazioneDL(nu,sorte,rit,max,Incr,fre,Ini,fin)
		Call VerificaEsitoDL(nu,fin - rit,sorte,,retesito,,retestratti)
		Call VerificaEsitoDL(nu,Fin,1,,esitoF,,estrF)
		aaa = SerieFreqDL(fin,Fin,nu,1)
		ReDim avalori(10)
		avalori(1) = " Dec.  " & Format2(n)
		avalori(2) = StringaNumeri(nu)
		avalori(3) = rit
		avalori(4) = max
		avalori(5) = Incr
		avalori(6) = fre
		avalori(7) = retesito
		avalori(8) = retestratti
		avalori(9) = esitof & " : " & estrF
		avalori(10) = aaa
		Call AddRigaTabella(avalori,,,1)
		For x = 1 To 10
			If n = color Then Call SetColoreCella((x),3,1)
		Next
	Next
	Call SetTableWidth("100%")
	Call CreaTabella(3)
	PicClear
	Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
	PicEsegui
End Sub
 
ciao Mike58 perdonami ...ma se ti è possibile fare delle variazioni come detto sopra per il 10elotto serale te ne sarei infinitamente grato.....ovviamente appena ha un attimo di ""respiro""":p
 
Ultima modifica:
Ciao Alien ma lo script di cui sopra non è quello che volevi ?
Se la modifica non è riferita a quella del post # 64 dimmi quale script è da modificare.

penso che non ci sono problemi.
 
acc......ciao Mike58 ......ma sopra hai detto ciao Solare ed poi nello script cìè scritto 10elotto ogni 5' mentre a me serviva 10elotto serale ,quindi gli archivi non sono gli stessi......quindi non credevo fosse per me.

devo vedere lo script da modificare adesso mi si è bloccato il computer su spaziometria ,,,,,domani vedo di controllare ,grazie di tutto e notte blu.


ALIEN
 
Ultima modifica:
Ciao Alien, hai ragione ho scritto Solare, purtroppo ho confuso gli utenti, ma lo script era per la tua richiesta.
Poi lo script analizza lo script del 10 e lotto serale, avevo messo le indicazioni in quella riga per tramutarlo nel 10elotto 5 min nel caso serviva semplicemente impostando il numero 2.


ciao
 
Ciao Mike58.................perfetto...grazie................................se....ti è possibile....inserire anche le combinazioni uscite es:se una combinazione di 20 numeri sono usciti 15 punti 8 indicare tutti e 15 le combinazioni con 8 punti... ecc...............quindi una statistica di frequenza numero per numero............questo per restringere i numeri da mettere in gioco......ma con calma diciamo domani hahahahha dai scherzo....................grazie di cuore.
 
Ultima modifica:
Ciao Alien, penso comunque di non aver capito, mi pare che per quello che vorresti vedere ci sono tutte le colonne che ti servono.
Se poi hai scaricato l'ultima di spaziometria Luigi ha fatte delle modifiche alle tabelle e sono filtrabili tutte come in Excel e poi sno anche esportabili anche nello stesso Excel, semplicemente modificando una riga.

provalo con la modifica e ordinalo per la colonna che vuoi.

Codice: 
Sub Main
	ImpostaArchivio10ELotto(1) ' 2 10elotto 5min
	Dim a(36)
	qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
	sorte = CInt(InputBox("QUALE SORTE ",,4))
	color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
	Dim posta(2)
	posta(1) = 1
	posta(2) = 1
	Fin = EstrazioniArchivioDL
	Ini = EstrazioniArchivioDL - qt
	Scrivi "Ventine Manuali *** Gioco 10 & lotto serale ***** ",1
	Scrivi
	Scrivi " dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(Fin),1
	Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
	Scrivi
	ReDim atitoli(10)
	atitoli(1) = "  Tipo decina  "
	atitoli(2) = "      Combinazione       "
	atitoli(3) = " Ritardo "
	atitoli(4) = " Rit. Max "
	atitoli(5) = " incr max"
	atitoli(6) = " Freq "
	atitoli(7) = "      Esito      "
	atitoli(8) = "  Stringa estratti   "
	atitoli(9) = " Ultima ESTR_Esito "
	atitoli(10) = " Conta Estratti "
	Call InitTabella(atitoli,2,,1,5)
	a(01) = "01-02-03-04-05-06-07-08-09-10-11-12-13-14-15-16-17-18-19-20"
	a(02) = "01-02-03-04-05-06-07-08-09-10-21-22-23-24-25-26-27-28-29-30"
	a(03) = "01-02-03-04-05-06-07-08-09-10-31-32-33-34-35-36-37-38-39-40"
	a(04) = "01-02-03-04-05-06-07-08-09-10-41-42-43-44-45-46-47-48-49-50"
	a(05) = "01-02-03-04-05-06-07-08-09-10-51-52-53-54-55-56-57-58-59-60"
	a(06) = "01-02-03-04-05-06-07-08-09-10-61-62-63-64-65-66-67-68-69-70"
	a(07) = "01-02-03-04-05-06-07-08-09-10-71-72-73-74-75-76-77-78-79-80"
	a(08) = "01-02-03-04-05-06-07-08-09-10-81-82-83-84-85-86-87-88-89-90"
	'---------------------------------------------------------------------
	a(09) = "11-12-13-14-15-16-17-18-19-20-21-22-23-24-25-26-27-28-29-30"
	a(10) = "11-12-13-14-15-16-17-18-19-20-31-32-33-34-35-36-37-38-39-40"
	a(11) = "11-12-13-14-15-16-17-18-19-20-41-42-43-44-45-46-47-48-49-50"
	a(12) = "11-12-13-14-15-16-17-18-19-20-51-52-53-54-55-56-57-58-59-60"
	a(13) = "11-12-13-14-15-16-17-18-19-20-61-62-63-64-65-66-67-68-69-70"
	a(14) = "11-12-13-14-15-16-17-18-19-20-71-72-73-74-75-76-77-78-79-80"
	a(15) = "11-12-13-14-15-16-17-18-19-20-81-82-83-84-85-86-87-88-89-90"
	'---------------------------------------------------------------------
	a(16) = "21-22-23-24-25-26-27-28-29-30-31-32-33-34-35-36-37-38-39-40"
	a(17) = "21-22-23-24-25-26-27-28-29-30-41-42-43-44-45-46-47-48-49-50"
	a(18) = "21-22-23-24-25-26-27-28-29-30-51-52-53-54-55-56-57-58-59-60"
	a(19) = "21-22-23-24-25-26-27-28-29-30-61-62-63-64-65-66-67-68-69-70"
	a(20) = "21-22-23-24-25-26-27-28-29-30-71-72-73-74-75-76-77-78-79-80"
	a(21) = "21-22-23-24-25-26-27-28-29-30-81-82-83-84-85-86-87-88-89-90"
	'--------------------------------------------------------------------
	a(22) = "31-32-33-34-35-36-37-38-39-40-41-42-43-44-45-46-47-48-49-50"
	a(23) = "31-32-33-34-35-36-37-38-39-40-51-52-53-54-55-56-57-58-59-60"
	a(24) = "31-32-33-34-35-36-37-38-39-40-61-62-63-64-65-66-67-68-69-70"
	a(25) = "31-32-33-34-35-36-37-38-39-40-71-72-73-74-75-76-77-78-79-80"
	a(26) = "31-32-33-34-35-36-37-38-39-40-81-82-83-84-85-86-87-88-89-90"
	'--------------------------------------------------------------------
	a(27) = "41-42-43-44-45-46-47-48-49-50-51-52-53-54-55-56-57-58-59-60"
	a(28) = "41-42-43-44-45-46-47-48-49-50-61-62-63-64-65-66-67-68-69-70"
	a(29) = "41-42-43-44-45-46-47-48-49-50-71-72-73-74-75-76-77-78-79-80"
	a(30) = "41-42-43-44-45-46-47-48-49-50-81-82-83-84-85-86-87-88-89-90"
	'--------------------------------------------------------------------
	a(31) = "51-52-53-54-55-56-57-58-59-60-61-62-63-64-65-66-67-68-69-70"
	a(32) = "51-52-53-54-55-56-57-58-59-60-71-72-73-74-75-76-77-78-79-80"
	a(33) = "51-52-53-54-55-56-57-58-59-60-81-82-83-84-85-86-87-88-89-90"
	'--------------------------------------------------------------------
	a(34) = "61-62-63-64-65-66-67-68-69-70-71-72-73-74-75-76-77-78-79-80"
	a(35) = "61-62-63-64-65-66-67-68-69-70-81-82-83-84-85-86-87-88-89-90"
	'--------------------------------------------------------------------
	a(36) = "71-72-73-74-75-76-77-78-79-80-81-82-83-84-85-86-87-88-89-90"
	'--------------------------------------------------------------------
	For N = 1 To UBound(a)
		Nu = Split("0-" & Format2(a(n)),"-")
		Call StatisticaFormazioneDL(nu,sorte,rit,max,Incr,fre,Ini,fin)
		Call VerificaEsitoDL(nu,fin - rit,sorte,,retesito,,retestratti)
		Call VerificaEsitoDL(nu,Fin,1,,esitoF,,estrF)
		aaa = SerieFreqDL(fin,Fin,nu,1)
		ReDim avalori(10)
		avalori(1) = " Dec.  " & Format2(n)
		avalori(2) = StringaNumeri(nu)
		avalori(3) = rit
		avalori(4) = max
		avalori(5) = Incr
		avalori(6) = fre
		avalori(7) = retesito
		avalori(8) = retestratti
		avalori(9) = esitof & " : " & estrF
		avalori(10) = aaa
		Call AddRigaTabella(avalori,,,1)
		For x = 1 To 10
			If n = color Then Call SetColoreCella((x),3,1)
		Next
	Next
	Call SetTableWidth("100%")
	Call CreaTabellaOrdinabile(10)
	PicClear
	Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
	PicEsegui
End Sub
 
ciao Mike58 ecco vedi per fare delle statistice e riduzioni dei numeri da mettere in gioco ,mi ci vorrebbero tutte le frequenze di quello che è uscito se chiedo 9 punti la frequenza ammettiamo che sia di 12,vale a dire 12 colonne di 9 numeri uscite il.xx/xx/xxxx......gg/mm/aaaa. ..poi il....xx/xx/xxxx .. ecc,poi di questi 9 numeri sono usciti 6 numeri dispari e 3 numeri pari di cui 3 della prima decina e 6 della seconda decina..ecc.......perchè vedi gli script aiutano molto ma sono freddi, come dei pupazzi di neve.
Invece devono essere vivi e darti molte informazioni per arrivarre....al colpo gobbo hhahahaha:p
Si visto ottimo lavoro quello dei filtri ed excel.
 
Ciao Alien, purtroppo non concordo sull'affermazione script freddi, anzi ti posso dire che mai come da qualche anno le statistiche finalmente si possono costruire come noi vogliamo con l'aiuto degli script, semmai i programmi lotto di qualche tempo addietro erano freddi perché le statistiche erano quelle e quelle potevi visualizzare.

Programmi ne ho acquistato parecchi ma tutti finiti nel cestino perché dopo un po' avevi visto e fatto tutto, cosa che adesso diventa diverso proprio tramite lo script, perché la statistica o la metodologia la costruisci tu e come la vuoi vedere tu.

Detto quanto è il mio pensiero, cosi come esponi il problema non si capisce molto, se vuoi magari fai un esempio anche con qualche videata Excel e vediamo dove si può andare, purtroppo uno script nasce per raggiungere uno scopo e cambiarlo per altri viene snaturato tutto il lavoro.

Uno script ex-novo sarebbe ideale per far nascere un nuovo progetto e magari come tu dici far parlare i numeri,

Ciao
 
ciao Mike58,per freddi intendo solo calcoli e non ricerca "pensata" per trovare la strada per la vincita o forse non sono dentro la programmazione una volta facevo a meraviglia il qbasic poi ho smetto ed adesso non mi ricordo un...tubo.
Allora prima di tutto devi aprire e dare il via allo script con ricerca 9.
Poi vedi che ti da vari punti 9 e vari punti 10.Da 8 e 12 frequenze di uscite ed oltre
Io dovrei sapere quando sono uscite queste colonne che hanno dato il 9 ed il 10 poi la loro combinazione.

Poi la loro combinazione quanti numeri della prima decina e quanti della seconda decina,poi quanti numeri pari e dispari è composta .

fino a qui ci sei ?
 
Ciao Alien, purtroppo per adesso non trovo il bandolo della Matassa non riesco a memorizzare i numeri ricavati mantenendoli in memoria per poi rielaborarli.
Sono di quelle cose che se credi di non riuscire a fare e inutile girarci attorno, magari con la mente libera poi vengono anche da soli.
Si tratta di una istruzione che non riesco a far ordine mentale ma è una altra sfida per cui devo lavorarci.

Scusami se arrivo non mancherò... intanto buon Anno Nuovo.
 
ciao Mike
sarebbe possibile inserire una colonna per visualizzare
una "media" di quando escono le formazioni
cioè quel tipo di formazione esce in media ogni tot estrazioni che non è la frequenza

non so se è chiara la mia spigazione

fammi sapere

grazie

ciao

Mike58 ha scritto:
Paolo, non preoccuparti, si fa quel che si può, ma ti confesso che alcune volte è + difficile correggere un listato che farlo ex-novo.

Ho riunito le ruote e spero che i dati siano leggibili e che tutto sia corretto, controlla !!!

Ciao

Codice: 
Sub Main
	Dim a(36)
	Dim Ru(1)
	ReDim aRuote(11)
	'rt = CInt(InputBox("Quale ruota analizzare ","Ruota",11))
	qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
	sorte = CInt(InputBox("QUALE SORTE ",,4))
	color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
	Dim posta(2)
	posta(1) = 1
	posta(2) = 1
	Fin = EstrazioneFin
	Ini = EstrazioneFin - qt
	If ScegliRuote(aRuote) > 0 Then
		Scrivi "Ruota Di : " & StringaRuote(aRuote),1,0,2,4,3
		Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1
		Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
		Scrivi
		For k = 1 To UBound(aRuote)
			If aRuote(k) > 0 Then
				Ru(1) = aRuote(k)
				'For rt = 1 To 12
				'Ru(1) = aRuote(k)
				ReDim atitoli(10)
				atitoli(1) = "  Tipo decina  "
				atitoli(2) = "      Combinazione       "
				atitoli(3) = " Ritardo "
				atitoli(4) = " Rit. Max "
				atitoli(5) = " incr max"
				atitoli(6) = " Freq "
				atitoli(7) = "      Esito      "
				atitoli(8) = "  Stringa estratti   "
				atitoli(9) = " Ultima ESTR_Esito "
				atitoli(10) = " Conta Estratti "
				Call InitTabella(atitoli,2,,2,5)
				a(01) = "01-02-03-04-05-06-07-08-09-10-11-12-13-14-15-16-17-18-19-20"
				a(02) = "01-02-03-04-05-06-07-08-09-10-21-22-23-24-25-26-27-28-29-30"
				a(03) = "01-02-03-04-05-06-07-08-09-10-31-32-33-34-35-36-37-38-39-40"
				a(04) = "01-02-03-04-05-06-07-08-09-10-41-42-43-44-45-46-47-48-49-50"
				a(05) = "01-02-03-04-05-06-07-08-09-10-51-52-53-54-55-56-57-58-59-60"
				a(06) = "01-02-03-04-05-06-07-08-09-10-61-62-63-64-65-66-67-68-69-70"
				a(07) = "01-02-03-04-05-06-07-08-09-10-71-72-73-74-75-76-77-78-79-80"
				a(08) = "01-02-03-04-05-06-07-08-09-10-81-82-83-84-85-86-87-88-89-90"
				'---------------------------------------------------------------------
				a(09) = "11-12-13-14-15-16-17-18-19-20-21-22-23-24-25-26-27-28-29-30"
				a(10) = "11-12-13-14-15-16-17-18-19-20-31-32-33-34-35-36-37-38-39-40"
				a(11) = "11-12-13-14-15-16-17-18-19-20-41-42-43-44-45-46-47-48-49-50"
				a(12) = "11-12-13-14-15-16-17-18-19-20-51-52-53-54-55-56-57-58-59-60"
				a(13) = "11-12-13-14-15-16-17-18-19-20-61-62-63-64-65-66-67-68-69-70"
				a(14) = "11-12-13-14-15-16-17-18-19-20-71-72-73-74-75-76-77-78-79-80"
				a(15) = "11-12-13-14-15-16-17-18-19-20-81-82-83-84-85-86-87-88-89-90"
				'---------------------------------------------------------------------
				a(16) = "21-22-23-24-25-26-27-28-29-30-31-32-33-34-35-36-37-38-39-40"
				a(17) = "21-22-23-24-25-26-27-28-29-30-41-42-43-44-45-46-47-48-49-50"
				a(18) = "21-22-23-24-25-26-27-28-29-30-51-52-53-54-55-56-57-58-59-60"
				a(19) = "21-22-23-24-25-26-27-28-29-30-61-62-63-64-65-66-67-68-69-70"
				a(20) = "21-22-23-24-25-26-27-28-29-30-71-72-73-74-75-76-77-78-79-80"
				a(21) = "21-22-23-24-25-26-27-28-29-30-81-82-83-84-85-86-87-88-89-90"
				'--------------------------------------------------------------------
				a(22) = "31-32-33-34-35-36-37-38-39-40-41-42-43-44-45-46-47-48-49-50"
				a(23) = "31-32-33-34-35-36-37-38-39-40-51-52-53-54-55-56-57-58-59-60"
				a(24) = "31-32-33-34-35-36-37-38-39-40-61-62-63-64-65-66-67-68-69-70"
				a(25) = "31-32-33-34-35-36-37-38-39-40-71-72-73-74-75-76-77-78-79-80"
				a(26) = "31-32-33-34-35-36-37-38-39-40-81-82-83-84-85-86-87-88-89-90"
				'--------------------------------------------------------------------
				a(27) = "41-42-43-44-45-46-47-48-49-50-51-52-53-54-55-56-57-58-59-60"
				a(28) = "41-42-43-44-45-46-47-48-49-50-61-62-63-64-65-66-67-68-69-70"
				a(29) = "41-42-43-44-45-46-47-48-49-50-71-72-73-74-75-76-77-78-79-80"
				a(30) = "41-42-43-44-45-46-47-48-49-50-81-82-83-84-85-86-87-88-89-90"
				'--------------------------------------------------------------------
				a(31) = "51-52-53-54-55-56-57-58-59-60-61-62-63-64-65-66-67-68-69-70"
				a(32) = "51-52-53-54-55-56-57-58-59-60-71-72-73-74-75-76-77-78-79-80"
				a(33) = "51-52-53-54-55-56-57-58-59-60-81-82-83-84-85-86-87-88-89-90"
				'--------------------------------------------------------------------
				a(34) = "61-62-63-64-65-66-67-68-69-70-71-72-73-74-75-76-77-78-79-80"
				a(35) = "61-62-63-64-65-66-67-68-69-70-81-82-83-84-85-86-87-88-89-90"
				'--------------------------------------------------------------------
				a(36) = "71-72-73-74-75-76-77-78-79-80-81-82-83-84-85-86-87-88-89-90"
				'--------------------------------------------------------------------
				For N = 1 To UBound(a)
					Nu = Split("0-" & Format2(a(n)),"-")
					Call StatisticaFormazioneTurbo(nu,aRuote,sorte,rit,max,Incr,fre,Ini,fin)
					'If Ru(1) = 11 Then
					'ReDim rr(10)
					'For xx = 1 To 10
					'rr(xx) = xx
					'Call VerificaEsito(nu,rr,fin - rit,sorte,,Nothing,retesito,,retestratti)
					'Call VerificaEsito(nu,rr,EstrazioneFin,3,,,esitoF,,estrF)
					'aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,rr,1)
					'Next
					'End If
					'If Ru(1) <> 11 Then
					Call VerificaEsito(nu,aRuote,fin - rit,sorte,,Nothing,retesito,,retestratti)
					Call VerificaEsito(nu,aRuote,EstrazioneFin,1,,,esitoF,,estrF)
					aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,aRuote,1)
					'End If
					ReDim avalori(10)
					avalori(1) = " Dec.  " & Format2(n)
					avalori(2) = StringaNumeri(nu)
					avalori(3) = rit
					avalori(4) = max
					avalori(5) = Incr
					avalori(6) = fre
					avalori(7) = retesito
					avalori(8) = retestratti
					avalori(9) = esitof & " : " & estrF
					avalori(10) = aaa
					Call AddRigaTabella(avalori,,,2)
					For x = 1 To 10
						If n = color Then Call SetColoreCella((x),3,1)
					Next
				Next
			End If
		Next
	End If
	Call SetTableWidth("100%")
	Call CreaTabella(3)
	PicClear
	Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
	PicEsegui
End Sub
Clicca per espandere...
 
Paolo intanto buon anno 2015.
La media reale è dato dal calcolo estrazioni totali / la frequenza reale, quindi avrai che la combinazione esce 1 su tot estrazioni.
Altro calcolo è indice do convenienza che entra in gioco anche il ritardo.
Ho calcolato entrambi e poi puoi scegliere anche la Tabella Excel ossia la nuova Tabella Ordinabile con tutti i filtri come Excel.

Codice: 
Sub Main
	Dim a(36)
	Dim Ru(1)
	ReDim aRuote(11)
	qualeTab = CInt(InputBox("QUALE TABELLA","1 = Tab Normale  2 = Tab excel",1))
	
	'rt = CInt(InputBox("Quale ruota analizzare ","Ruota",11))
	qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
	sorte = CInt(InputBox("QUALE SORTE ",,4))
	color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
	Dim posta(2)
	posta(1) = 1
	posta(2) = 1
	Fin = EstrazioneFin
	Ini = EstrazioneFin - qt
	If ScegliRuote(aRuote) > 0 Then
		Scrivi "Ruota Di : " & StringaRuote(aRuote),1,0,2,4,3
		Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1
		Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
		Scrivi
		For k = 1 To UBound(aRuote)
			If aRuote(k) > 0 Then
				Ru(1) = aRuote(k)
				'For rt = 1 To 12
				'Ru(1) = aRuote(k)
				ReDim atitoli(12)
				atitoli(1) = "  Tipo decina  "
				atitoli(2) = "      Combinazione       "
				atitoli(3) = " Ritardo "
				atitoli(4) = " Rit. Max "
				atitoli(5) = " incr max"
				atitoli(6) = " Freq "
				atitoli(7) = "      Esito      "
				atitoli(8) = "  Stringa estratti   "
				atitoli(9) = " Ultima ESTR_Esito "
				atitoli(10) = " Conta Estratti "
				atitoli(11) = " Media uscita "
				atitoli(12) = " I.C. "
				Call InitTabella(atitoli,2,,2,5)
				a(01) = "01-02-03-04-05-06-07-08-09-10-11-12-13-14-15-16-17-18-19-20"
				a(02) = "01-02-03-04-05-06-07-08-09-10-21-22-23-24-25-26-27-28-29-30"
				a(03) = "01-02-03-04-05-06-07-08-09-10-31-32-33-34-35-36-37-38-39-40"
				a(04) = "01-02-03-04-05-06-07-08-09-10-41-42-43-44-45-46-47-48-49-50"
				a(05) = "01-02-03-04-05-06-07-08-09-10-51-52-53-54-55-56-57-58-59-60"
				a(06) = "01-02-03-04-05-06-07-08-09-10-61-62-63-64-65-66-67-68-69-70"
				a(07) = "01-02-03-04-05-06-07-08-09-10-71-72-73-74-75-76-77-78-79-80"
				a(08) = "01-02-03-04-05-06-07-08-09-10-81-82-83-84-85-86-87-88-89-90"
				'---------------------------------------------------------------------
				a(09) = "11-12-13-14-15-16-17-18-19-20-21-22-23-24-25-26-27-28-29-30"
				a(10) = "11-12-13-14-15-16-17-18-19-20-31-32-33-34-35-36-37-38-39-40"
				a(11) = "11-12-13-14-15-16-17-18-19-20-41-42-43-44-45-46-47-48-49-50"
				a(12) = "11-12-13-14-15-16-17-18-19-20-51-52-53-54-55-56-57-58-59-60"
				a(13) = "11-12-13-14-15-16-17-18-19-20-61-62-63-64-65-66-67-68-69-70"
				a(14) = "11-12-13-14-15-16-17-18-19-20-71-72-73-74-75-76-77-78-79-80"
				a(15) = "11-12-13-14-15-16-17-18-19-20-81-82-83-84-85-86-87-88-89-90"
				'---------------------------------------------------------------------
				a(16) = "21-22-23-24-25-26-27-28-29-30-31-32-33-34-35-36-37-38-39-40"
				a(17) = "21-22-23-24-25-26-27-28-29-30-41-42-43-44-45-46-47-48-49-50"
				a(18) = "21-22-23-24-25-26-27-28-29-30-51-52-53-54-55-56-57-58-59-60"
				a(19) = "21-22-23-24-25-26-27-28-29-30-61-62-63-64-65-66-67-68-69-70"
				a(20) = "21-22-23-24-25-26-27-28-29-30-71-72-73-74-75-76-77-78-79-80"
				a(21) = "21-22-23-24-25-26-27-28-29-30-81-82-83-84-85-86-87-88-89-90"
				'--------------------------------------------------------------------
				a(22) = "31-32-33-34-35-36-37-38-39-40-41-42-43-44-45-46-47-48-49-50"
				a(23) = "31-32-33-34-35-36-37-38-39-40-51-52-53-54-55-56-57-58-59-60"
				a(24) = "31-32-33-34-35-36-37-38-39-40-61-62-63-64-65-66-67-68-69-70"
				a(25) = "31-32-33-34-35-36-37-38-39-40-71-72-73-74-75-76-77-78-79-80"
				a(26) = "31-32-33-34-35-36-37-38-39-40-81-82-83-84-85-86-87-88-89-90"
				'--------------------------------------------------------------------
				a(27) = "41-42-43-44-45-46-47-48-49-50-51-52-53-54-55-56-57-58-59-60"
				a(28) = "41-42-43-44-45-46-47-48-49-50-61-62-63-64-65-66-67-68-69-70"
				a(29) = "41-42-43-44-45-46-47-48-49-50-71-72-73-74-75-76-77-78-79-80"
				a(30) = "41-42-43-44-45-46-47-48-49-50-81-82-83-84-85-86-87-88-89-90"
				'--------------------------------------------------------------------
				a(31) = "51-52-53-54-55-56-57-58-59-60-61-62-63-64-65-66-67-68-69-70"
				a(32) = "51-52-53-54-55-56-57-58-59-60-71-72-73-74-75-76-77-78-79-80"
				a(33) = "51-52-53-54-55-56-57-58-59-60-81-82-83-84-85-86-87-88-89-90"
				'--------------------------------------------------------------------
				a(34) = "61-62-63-64-65-66-67-68-69-70-71-72-73-74-75-76-77-78-79-80"
				a(35) = "61-62-63-64-65-66-67-68-69-70-81-82-83-84-85-86-87-88-89-90"
				'--------------------------------------------------------------------
				a(36) = "71-72-73-74-75-76-77-78-79-80-81-82-83-84-85-86-87-88-89-90"
				'--------------------------------------------------------------------
				For N = 1 To UBound(a)
					Nu = Split("0-" & Format2(a(n)),"-")
					Call StatisticaFormazioneTurbo(nu,aRuote,sorte,rit,max,Incr,fre,Ini,fin)
					'If Ru(1) = 11 Then
					'ReDim rr(10)
					'For xx = 1 To 10
					'rr(xx) = xx
					'Call VerificaEsito(nu,rr,fin - rit,sorte,,Nothing,retesito,,retestratti)
					'Call VerificaEsito(nu,rr,EstrazioneFin,3,,,esitoF,,estrF)
					'aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,rr,1)
					'Next
					'End If
					'If Ru(1) <> 11 Then
					Call VerificaEsito(nu,aRuote,fin - rit,sorte,,Nothing,retesito,,retestratti)
					Call VerificaEsito(nu,aRuote,EstrazioneFin,1,,,esitoF,,estrF)
					aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,aRuote,1)
					'End If
					ReDim avalori(12)
					avalori(1) = " Dec.  " & Format2(n)
					avalori(2) = StringaNumeri(nu)
					avalori(3) = rit
					avalori(4) = max
					avalori(5) = Incr
					avalori(6) = fre
					avalori(7) = retesito
					avalori(8) = retestratti
					avalori(9) = esitof & " : " & estrF
					avalori(10) = aaa
					avalori(11) = Round (qt/fre,2)
					avalori(12) = Round(fre/qt*rit,2)
					Call AddRigaTabella(avalori,,,2)
					For x = 1 To 12
						If n = color Then Call SetColoreCella((x),3,1)
					Next
				Next
			End If
		Next
	End If
	Call SetTableWidth("100%")
	If qualeTab = 1 Then Call CreaTabella(6)
	If qualeTab = 2 Then Call CreaTabellaOrdinabile(6)
	If qualeTab > 2 Then MsgBox " errore digit Tabella"
	PicClear
	Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
	PicEsegui
End Sub
 
ciao Mike
grazie per questa tua ennesima perla,

ma non si potrebbe avere la media calcolata
a partire da una estrazione scelta da noi sulla barra in basso,
ad esempio utilizzando solo 1000 estrazioni oppure 500 estrazioni o anche 100
insomma un numero scelto da me per fare la media uscita

anche per te un auguro molto sentito
di un buono e bello 2015

ciao
 
Certo Paolo, tutto si può impostare una volta che c'è la base script e solo che utilizzando un dato range per la statistica ritardo-frequenza etc. e si fanno i calcoli allacciati a quel dato.
Invece se vuoi utilizzare e impostare il range dalla barra in basso devi impostare anziché

qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
Fin = EstrazioneFin
Ini = EstrazioneFin - qt

questo
ini = estrazioneini
togliendo l'input box e agendo così sulla barra delle estrazioni.

invece se vuoi la media calcolata con un qualsiasi altro range basta impostarlo denominandolo con un altro nome e far agire le variabili con questo nuovo range.

esempio puoi fare la statistica su 200 estrazioni a far fare la media calcolata su 1000, però proprio perché in tabella leggiamo dei dati in riga tabella sarebbe + utile che le righe di dati siano collegati ad un solo range.

Poi agisci come ti è più utile.

Ciao
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 21 gennaio 2025
    Bari
    78
    09
    70
    03
    23
    Cagliari
    32
    88
    30
    13
    45
    Firenze
    87
    23
    15
    39
    86
    Genova
    71
    48
    67
    59
    23
    Milano
    58
    50
    80
    85
    29
    Napoli
    90
    81
    79
    82
    62
    Palermo
    70
    33
    90
    05
    10
    Roma
    15
    71
    55
    85
    76
    Torino
    89
    09
    18
    33
    69
    Venezia
    44
    80
    82
    73
    58
    Nazionale
    80
    25
    13
    63
    17
    Estrazione Simbolotto
    Bari
    39
    36
    34
    14
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto