aiuto per script da poter utilizzare anche per 10elotto e superenalotto

ppaaoolloo · 12 Aprile 2015

ciao
questo script di Mike
io lo uso per il lotto,
vorrei poterlo utilizzare
anche per il 10elotto e
anche per il superenalotto.

come faccio?

ringrazio anticipatamente
chi mi aiuterà

ciao

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(16)
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 "
atitoli(16) = " Somma 1 "
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,,estr F)
'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(16)
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
avalori(16) = aaa + bbb

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 · 12 Aprile 2015

Ciao Paolo, il mio percorso di assenza ahimè è terminato (Mia Mamma è andata in cielo 2 gg fa) e vi ringrazio per l'accortezza avuta nel non farmi richieste in quel difficile percorso.

Ancora devo ritrovare la dovuta serenità, ma pian piano cercherò di aiutare per quel che posso e alla bisogna per quello che è e sono le tematiche del forum.

Quello che chiedi con i codici ad oc si può fare

vedi se va bene

listato 10 e lotto.

Codice:

Sub Main
	Dim a(36)
	arch = CInt(InputBox("QUALE ARCHIVIO 10 e Lotto " & Chr(13) & " 1 = Serale " & Chr(13) & " 2 = 5 Minuti "," SCEGLI ARCHIVIO ",1))
	ImpostaArchivio10ELotto(arch)
	qualeTab = CInt(InputBox("QUALE TABELLA","1 = Tab Normale 2 = Tab excel",1))
	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 = fin - qt
	If arch = 1 Then Scrivi "ARCHIVIO 10 e Lotto Serale ",1
	If arch = 2 Then Scrivi "ARCHIVIO 10 e Lotto 5 Minuti ",1
	Scrivi " dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(Fin),1
	Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
	Scrivi
	ReDim atitoli(16)
	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 "
	atitoli(16) = " Somma 1 "
	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 StatisticaFormazioneDL(nu,sorte,rit,max,Incr,fre,Ini,fin)
		Call VerificaEsitoDL(nu,fin - rit,sorte,10,retesito,colpi,retestratti,retid)
		Call VerificaEsitoDL(nu,EstrazioneFin,1,,esitoF,,estrF)
		aaa = SerieFreqDL(EstrazioneFin,EstrazioneFin,nu,1)
		bbb = SerieFreqDL(EstrazioneFin - 1,EstrazioneFin - 1,nu,1)
		ccc = SerieFreqDL(EstrazioneFin - 2,EstrazioneFin - 2,nu,1)
		ddd = SerieFreqDL(EstrazioneFin - 3,EstrazioneFin - 3,nu,1)
		If fre > 0 Then
			ReDim avalori(16)
			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)
			avalori(13) = bbb
			avalori(14) = ccc
			avalori(15) = ddd
			avalori(16) = aaa + bbb
			Call AddRigaTabella(avalori,,,2)
		End If
		For x = 1 To 16
			If n = color Then Call SetColoreCella((x),3,1)
		Next
	Next
	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

listato Superenalotto

Codice:

Sub Main
	Dim a(36)
	'arch = CInt(InputBox("QUALE ARCHIVIO 10 e Lotto " & Chr(13) & " 1 = Serale " & Chr(13) & " 2 = 5 Minuti "," SCEGLI ARCHIVIO ",1))
	
	qualeTab = CInt(InputBox("QUALE TABELLA","1 = Tab Normale 2 = Tab excel",1))
	qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
	sorte = CInt(InputBox("QUALE SORTE ",,3))
	color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
	Dim posta(2)
	posta(1) = 1
	posta(2) = 1
	Fin = EstrazioniArchivioSE
	Ini = fin - qt
	 Scrivi "ARCHIVIO SUPERENALOTTO ",1
	'If arch = 2 Then Scrivi "ARCHIVIO 10 e Lotto 5 Minuti ",1
	Scrivi " dal " & DataEstrazioneSE(Ini) & " al " & DataEstrazioneSE(Fin),1
	Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
	Scrivi
	ReDim atitoli(16)
	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 "
	atitoli(16) = " Somma 1 "
	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 StatisticaFormazioneSE(nu,sorte,rit,max,Incr,fre,Ini,fin)
		Call VerificaEsitoSE(nu,fin - rit,sorte,10,retesito,colpi,retestratti,retid)
		Call VerificaEsitoSE(nu,Fin,1,,esitoF,,estrF)
		aaa = SerieFreqSE(EstrazioneFin,EstrazioneFin,nu,1)
		bbb = SerieFreqSE(Fin - 1,Fin - 1,nu,1)
		ccc = SerieFreqSE(EstrazioneFin - 2,EstrazioneFin - 2,nu,1)
		ddd = SerieFreqSE(EstrazioneFin - 3,EstrazioneFin - 3,nu,1)
		If fre > 0 Then
			ReDim avalori(16)
			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)
			avalori(13) = bbb
			avalori(14) = ccc
			avalori(15) = ddd
			avalori(16) = aaa + bbb
			Call AddRigaTabella(avalori,,,2)
		End If
		For x = 1 To 16
			If n = color Then Call SetColoreCella((x),3,1)
		Next
	Next
	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

Dovrebbe essere tutto giusto, dai una controllatina.

Ciao

ppaaoolloo · 12 Aprile 2015

ciao Mike
è perfetto e molto veloce
ed anche molto migliorato
senza il tuo aiuto sarebbe tutto molto complicato

grazie infinite

ciao

arcor · 12 Aprile 2015

ciao mike innanzi tutto condoglianze per la mamma volevo chiederti in pratica queste tabelle hanno solo uno scopo statistico o si possono utilizzare per delle giocate.

Mike58 · 12 Aprile 2015

Ciao Arcor, grazie, per le condoglianze, per la lettura e utilizzo dati della tabella, la risposta migliore può sicuramente darla paolo.

Io se ci sono idee valide e fattibili sono a disposizione per successive implementazioni.

Ciao

Arn · 12 Aprile 2015

Ciao Mike, mi spiace per la Tua mamma.
Dicono che cosi e' la vita, ma e' sempre difficile da accettare.

Ciao

Arn

Serpico 90 · 12 Aprile 2015

Ciao Mike,anche da parte mia ,condoglianze per la perdita della tua cara mamma.
Dal cielo ,come dici tu, Lei pregherà per te.
Coraggio, vedrai che ritroverai la tua serenità.
Ciao
Serpico 90

franca46 · 12 Aprile 2015

ciao Mike , ho appena letto

un abbraccio , ti sono vicina tantissimo.

giorgioantonio · 12 Aprile 2015

Ciao Mike58,

per caso sto leggendo questo post e sto venendo a conoscenza della perdita più cara.
se mi è permesso ti faccio le mie condoglianze.

Giorgioantonio

zagort · 12 Aprile 2015

ho letto il post,e poichè la mamma è sempre la mamma faccio le dovute condoglianze a Micke.....persona generosa,squisita e altruista

rabberto · 12 Aprile 2015

Ciao Mike sei una bravissima persona fatti forza perdere un caro non e' mai facile io ne so qualcosa . Sentite e sincere condoglianze .

vengio · 12 Aprile 2015

Condoglianze anche da parte mia. Fatti forza, la vita continua comunque.

i legend · 12 Aprile 2015

ciao mike
un abbraccio

Mike58 · 12 Aprile 2015

Grazie di cuore a tutti.

Moro_80 · 13 Aprile 2015

Sentite Condoglianze anche da parte mia caro Mike.

Saluti

fillotto · 13 Aprile 2015

Ciao Mike un abbraccio anche da parte mia!!
ED.

rossonero8 · 13 Aprile 2015

CONDOGLIANZE

CONDOGLIANZE

CIAO MIKE, ti faccio le più sentite e sincere condoglianze per la perdita della tua mamma perché si perde un grande punto di riferimento.
All'uomo sempre disponibile ed altruista come pochi un forte forza e coraggio.

Ruggero(rossonero)

Ouroboros · 13 Aprile 2015

Ciao Mike,
anche se le parole in questi momenti sono ben poca cosa, mi associo al cordoglio espresso dagli utenti del forum.
Un abbraccio.

DjNomade · 13 Aprile 2015

Sentite Condoglianze anche da parte mia

silop2005 · 14 Aprile 2015

Ciao Mike,
Sentite Condoglianze anche da parte mia.

Silop

aiuto per script da poter utilizzare anche per 10elotto e superenalotto

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member

Advanced Member >PLATINUM PLUS<

Banned

Advanced Member >GOLD<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Super Member >PLATINUM<

Advanced Member

Super Member >GOLD<

Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member

Advanced Member >PLATINUM<

Member

Senior Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<