x mike58

ppaaoolloo · 1 Gennaio 2015

ok

vedrò come fare

grazie ancora

ciao

Alien. · 1 Gennaio 2015

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 scusa mi da errore : avalori(11) = Round (qt/fre,2)

Mike58 · 2 Gennaio 2015

alien vuole almeno 2 ruote, mi riprometto di vederelo con anche una ruota, oggi ho poco tempo.

Ciao

Mike58 · 2 Gennaio 2015

X Alien non è lo script che con una Ruota è sbagliato, ma con una ruota non trova nessuna sorte impostata a 4 e quindi da errore di division by zero.
Se abbassi la sorte vedrai che funziona.

Ciao

giuseppina · 3 Gennaio 2015

Salve MIke58
gentilmente è possibile una piccola modifica a questo script inserendo nei risultati della verifica solo il primo estratto di bari?
grazie.

Option Explicit
Sub Main
Scrivi " x gli amanti dei metodi sommativi Metodo x AMBATA ruota di BARI di cupido ",1 ' - http://forum.lottoced.com/f8/x-gli-amanti-dei-metodi-sommativi-117449/ -
Dim klp,casi,es,Ini,fin
Dim n1(02),ruota(01),posta1(01)
posta1(01) = 1
ruota(01) = BA_
klp = 13
casi = 0
Ini = 8200
fin = EstrazioneFin
For es = Ini To fin
Messaggio(es)
AvanzamentoElab Ini,fin,es
If IndiceMensile(es) = 1 Then
casi = casi + 1
Scrivi String(105,"-") & "Caso n° " & Format2(casi),1
n1(01) = Fuori90(Estratto(es,BA_,5) + 02)
n1(02) = Fuori90(Estratto(es,BA_,5) + 08)
ImpostaGiocata 1,n1,ruota,posta1,klp
Gioca es,True,,True
End If
Next
ScriviResoconto
End Sub

franca46 · 3 Gennaio 2015

giuseppina ha scritto:
Salve MIke58
gentilmente è possibile una piccola modifica a questo script inserendo nei risultati della verifica solo il primo estratto di bari?
grazie.

Option Explicit
Sub Main
Scrivi " x gli amanti dei metodi sommativi Metodo x AMBATA ruota di BARI di cupido ",1 ' - http://forum.lottoced.com/f8/x-gli-amanti-dei-metodi-sommativi-117449/ -
Dim klp,casi,es,Ini,fin
Dim n1(02),ruota(01),posta1(01)
posta1(01) = 1
ruota(01) = BA_
klp = 13
casi = 0
Ini = 8200
fin = EstrazioneFin
For es = Ini To fin
Messaggio(es)
AvanzamentoElab Ini,fin,es
If IndiceMensile(es) = 1 Then
casi = casi + 1
Scrivi String(105,"-") & "Caso n° " & Format2(casi),1
n1(01) = Fuori90(Estratto(es,BA_,5) + 02)
n1(02) = Fuori90(Estratto(es,BA_,5) + 08)
ImpostaGiocata 1,n1,ruota,posta1,klp
Gioca es,True,,True
End If
Next
ScriviResoconto
End Sub

ciao giuseppina

sostituisci il numero 5 con 1

Codice:

n1(01) = Fuori90(Estratto(es,BA_,5) + 02)
n1(02) = Fuori90(Estratto(es,BA_,5) + 08)

cosi'

Codice:

n1(01) = Fuori90(Estratto(es,BA_,1) + 02)
n1(02) = Fuori90(Estratto(es,BA_,1) + 08)

buona giornata

Mike58 · 3 Gennaio 2015

Ciao Giuseppina è come ha suggerito Franca che ringrazio per l'intervento sostitutivo.

giuseppina · 3 Gennaio 2015

Salve.
grtazie per le celeri e gentili risposte-
no era quello che cercavo e sicuramente mi sono espressa male,
a me interessa sapere solo nel resoconto quando è uscito solo il primo estratto della previsione, esempio:
Estrazione generatrice del pronostico 08907 [118 - 02/10/2014]
G 0001 Numeri in gioco : 35.41 su BA per Estratto
V N. [35.41 ] [BA] [41 .. .. .. ..] C. 5 Estratto 08912 [123 - 14/10/2014]
V N. [35.41 ] [BA] [.. .. .. 35 ..] C. 12 Estratto 08919 [130 - 30/10/2014]
Interrotta per raggiunta durata

mi interessava sapere quando tra il 35 ed il 41 ci fosse una uscita solo come primo estratto di bari.

grazie anticipatamente per il vostro aiuto.
un saluto.

Mike58 · 3 Gennaio 2015

Ciao Giuseppina soluzioni diverse non ne trovo una volta nel resoconto c'erano anche le posizioni determinate, cosa che adesso non vengono più conteggiate.
Un modo sarebbe mettere la giocata solo per posta Estratto Determinato posiz. 1 e vedere la casistica nel resoconto.
le poste Ed sono
postaEd(6) = 1 ' posiz. 1
postaEd(7) = 1 ' posiz. 2
etc...
postaEd(10) = 1 ' posiz.5

prova cosi.

Codice:

Option Explicit
 Sub Main
 Scrivi " x gli amanti dei metodi sommativi Metodo x AMBATA ruota di BARI di cupido ",1 ' - x gli amanti dei metodi sommativi -
 Dim klp,casi,es,Ini,fin
 Dim n1(02),ruota(01),posta1(01),postaEd(10)

 posta1(01) = 1
postaEd(6) = 1 ' posta per E,determinato posiz. 1
 ruota(01) = BA_
 klp = 13
 casi = 0
 Ini = 8200
 fin = EstrazioneFin
 For es = Ini To fin
 Messaggio(es)
 AvanzamentoElab Ini,fin,es
 If IndiceMensile(es) = 1 Then
 casi = casi + 1
 Scrivi String(105,"-") & "Caso n° " & Format2(casi),1
 n1(01) = Fuori90(Estratto(es,BA_,5) + 02)
 n1(02) = Fuori90(Estratto(es,BA_,5) + 08)
 'ImpostaGiocata 1,n1,ruota,posta1,klp
ImpostaGiocata 2,n1,ruota,postaEd,klp,1
 Gioca es,True,,True
 End If
 Next
 ScriviResoconto
 End Sub

Alien. · 4 Gennaio 2015

Mike58 ha scritto:
X Alien non è lo script che con una Ruota è sbagliato, ma con una ruota non trova nessuna sorte impostata a 4 e quindi da errore di division by zero.
Se abbassi la sorte vedrai che funziona.

Ciao

si,ciao,ho provato ba e ca funziona ma se inserisco BA E VE, NO mi da il solito errore--vanno messe ruote si seguito cioè 1 2 - 2 3 - 3 4 ecc?Grazie.

infatti avevo messo 2 ruote BA e Ve e mi dava errore......

giuseppina · 4 Gennaio 2015

ciao Mike58,
grazie per la tua disponibiltà. per me così va benissimo.
un saluto e buona domenica.

Mike58 · 4 Gennaio 2015

Ciao
si,ciao,ho provato ba e ca funziona ma se inserisco BA E VE, NO mi da il solito errore--vanno messe ruote si seguito cioè 1 2 - 2 3 - 3 4 ecc?Grazie.

infatti avevo messo 2 ruote BA e Ve e mi dava errore......

Alien è lo stesso discorso se nel conteggio ruote trova la frequenza = zero il calcolo divisorio estrazioni/frequenze ossia 200/0 non è possibile.
C'è sempre bisogno che la frquenza sia > zero.

Ciao

Mike58 · 4 Gennaio 2015

per evitare ulteriori fraindendimenti, metto un if then che elabora il tutto se la frequenza è > zero.

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
					If fre > 0 Then
					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)
					End If
					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

Alien. · 4 Gennaio 2015

grazie Mike58 adesso non da nessun segno di errore..............adesso speriamo di costruire la trappola per la signora bendata................hahahahah

ppaaoolloo · 22 Febbraio 2015

ciao Mike
di questo script mi viene utile la colonna "conta estratti",
ti sarebbe possibile aggiungerne altre 2 di colonne:
una che conta gli estratti della penultima estrazione
ed una che conta gli estratti della terzultima estrazione
se si può fare.

ti ringrazio anticipatamente

ciao

Mike58 ha scritto:

per evitare ulteriori fraindendimenti, metto un if then che elabora il tutto se la frequenza è > zero.

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
					If fre > 0 Then
					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)
					End If
					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

Mike58 · 23 Febbraio 2015

Si Paolo 2 righe di istruzione, prova a vedere.

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 fin, -1, -2, -3 "
				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)
					bbb = SerieFreq(EstrazioneFin-1,EstrazioneFin-1,nu,aRuote,1)
					ccc = SerieFreq(EstrazioneFin-2,EstrazioneFin-2,nu,aRuote,1)
					ddd = SerieFreq(EstrazioneFin-3,EstrazioneFin-3,nu,aRuote,1)


					'End If
					If fre > 0 Then
					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 & " - " & bbb & " - " & ccc & " - " & ddd

					avalori(11) = Round (qt/fre,2)
					avalori(12) = Round(fre/qt*rit,2)
					Call AddRigaTabella(avalori,,,2)
					End If
					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

ppaaoolloo · 24 Febbraio 2015

ciao Mike
lo scrispt calcala giusto i vari ritardi,
anzi ti ringrazio tantissimo che calcola fino per quattro
estrazioni andrebbe bene anche così ma se ti è possibile
vorrei poter avere i vari ritardi uno per ogni
colonna, cioè in una colonna gli estratti dell'ultima estrazione,
in un'altra colonna gli estratti della penultima estrazione,
in un'altra che conta gli estratti della terzultima estrazione e
ancora un'altra per la quart'ultima estrazione.

se non riesci va benisssimo anche così

ti ringrazio ancora molto per la tua disponibilità e collaborazione

ciao

ppaaoolloo · 24 Febbraio 2015

x mike58

Ciao Mike,
mi sembra incredibile ma sono riuscito
a correggerlo da solo,
adesso faccio qualche prova
Grazie ancora per tutto.
Ciao

mpisticchia · 24 Febbraio 2015

Ciao ppaaoolloo, ringraziando Mike58 per il lavoro svolto egregiamente (come sempre) ti chiedo, non è che metteresti la tua ulteriore modifica? Già che ce l'hai fatta da solo...! Io non so proprio dove mettere le mani ed è un dettaglio ma a colpo d'occhio è molto più completa...
Grazie

ppaaoolloo · 24 Febbraio 2015

ciao mpisticchia
eccolo qui

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(15)
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. "
atitoli(13) = " Conta fin, -1 "
atitoli(14) = " Conta fin, -2 "
atitoli(15) = " Conta fin, -3 "
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

),"-")
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)
bbb = SerieFreq(EstrazioneFin - 1,EstrazioneFin - 1,nu,aRuote,1)
ccc = SerieFreq(EstrazioneFin - 2,EstrazioneFin - 2,nu,aRuote,1)
ddd = SerieFreq(EstrazioneFin - 3,EstrazioneFin - 3,nu,aRuote,1)

'End If
If fre > 0 Then
ReDim avalori(15)
avalori(1) = " Dec. " & Format2

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)
avalori(13) = bbb
avalori(14) = ccc
avalori(15) = ddd

Call AddRigaTabella(avalori,,,2)
End If
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

x mike58

Super Member >PLATINUM<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Junior Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Junior Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Junior Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Super Member >PLATINUM<

Member

Super Member >PLATINUM<