Statistica X 10&L: serale /5minuti

[giorgioantonio]

Cortesemente chiederei una statistica come da titolo.
Parrebbe un poco complessa ma sapendo quanto siete
bravi la richiesta ve la fo ugualmente.
Per la composizione dei quadri mi affido alla vostra
esperienza, e chiederei:
1)-frequenza e ritardo delle 9 decine tipo 90-1-2-3-4-5-6-7-8-9 ecc; (viste singolarmente)
2)-frequenza e ritardo delle 9 figure;
3)-frequenza e ritatdo delle 10 cadenze;
4)-frequenza e ritardo delle 9 cifre, ogni cifra è formata da 18 numeri;
5)-di ogni decina, figura, cadenza, cifra frequenza e ritato di 3-4 ambi,
purchè questi ambi nella stessa fascia abbiano numeri diversi fra essi,
ad esempio della decina 0= 02-05; 01-07; 03-04;06-09;
6)-di ogni decina, figura, cadenza, cifra frequenza e ritardo di 3-4 terni
che presentano almeno 2 numeri diversi dagli altri terni;
ad esempio decina 0= 01-02-03; 01-05-09; 02-06-07;
7)-idem come soprs per 2-3 quaterne con almeno 3 numeri diversi dalle altre.

Elenco la numerazione della composizione delle cifre (9) a 18 numeri l'una:

a)01-02-03-04-05-06-07-08-09-10-20-30-40-50-60-70-80-90;
b)01-10-11-12-13-14-15-16-17-18-19-21-31-41-51-61-71-81;
c)02-12-20-21-22-23-24-25-26-27-28-29-32-42-52-62-72-82;
d)03-13-23-30-31-32-33-34-35-36-37-38-39-43-53-63-73-83;
e)04-14-24-34-40-41-42-43-44-45-46-47-48-49-54-64-74-84;
f)05-15-25-35-45-50-51-52-53-54-55-56-57-58-59-65-75-85;
g)06-16-26-36-46-56-60-61-62-63-64-65-66-67-68-69-76-86;
h)07-17-27-37-47-57-67-70-71-72-73-74-75-76-77-78-79-87;
i)08-18-28-38-48-58-68-78-80-81-82-83-84-85-86-87-88-89.


La richiesta è fin quando è possibile.
Come sempre un grazie infinito.

 

[giorgioantonio]

Salve Disaronno, grazie dell'intervento, qualche appunto:
1)ho inserito "scegli il tipo di sorte" 1 (uno) e dopo
procedendo si blocca il programma non solo script ma
spaziometria - errore 9;

2)ARCHIVIO: se possibile gestire l'archivio in totale
tipo a ritroso di qualche estrazione, tipo entro le
ultime 200-300 estrazioni;

3)penultimo ritardo: se si può inserire una colonna col
col ritardo precedente all'ultimo;

4)questa me la sono dimenticata come richiesta: riguarderebbe
solo per le decine, figure, cadenze prese a 3/4 insieme
insieme qual'è la frequenza migliore e il relativo ritardo,
mentre per le cifre prese a 2 alla volta.
Mi spiego con un esempio ipotizzo perchè non ho i dati reali:
considero le decine 0-1-2-3 (40 numeri) nel loro insieme qual'è la
frequenza punti? Siccome per lo sviluppo combinatorio comporterebbe
uno sviluppo impresentabile rappresentare le prime 10 combinazioni
migliori con ritardo; mentre per le cifre è sufficiente le
migliori prese a 2 cifre (36 numeri) alla volta: frequenza e ritardo.

Salve

NB se possibile inserire l'esito in excel

 

[giorgioantonio]

Salve Disaronno, ho da poco copiato il listato ultimo e vorrei sapere se il punto 4 non è chiaro
come l'ho spiegato o mi rimanda post data? Se non mi sono spiegato mi chieda che il compito
nostro (mio) è il minimo sforzo di spiegare bene ciò che desideriamo e rendervi la vita più facile.
OK per il ritardo precedente.

Saluti

 

[giorgioantonio]

Salve e buona domenica Disaronno,
nella fretta ieri sera ho copiato l'ultimo aggiornamento ed ora nel rivedere ho notato che ha eliminato la colonna dove erano
visivi i numeri estratti per ogni fascia, cortesemente la può riproporre? La riterrei utile, grazie.
Saluti

 

[giorgioantonio]

Salve DISARONNO, ho postato questa immagine per spiegare meglio in cosa consisterebbe il punto 4 del messaggio. Spiegazione dell'immagine. Come vede ci sono 9 numeri nella prima riga da 0 a 8.
I 9 numeri messi in quaterna a sviluppo garanzia terno. Ogni numero in effetti corrisponde ad una decina.
La statistica è fatta su un archivio di inizio anno in corso. La prima colonna a sinistra 6-7 ecc sono i punti che ha fatto tutta la combinazione cioè i 40 numeri seguendo la riga col numero 6 a fianco sono indicati
quante volte quella combinazione a totalizzato 6 punti da qui le frequenze e così dicendo per le altre
righe con 7-8 ecc.
Se di altre spiegazioni, mi dica.
Saluti

 

[giorgioantonio]

Salve Disaronno, a quanto pare avrei un problema sullo script.
Quando avvio l'elaborazione "9 - out of scrpit" si presenta questo errore
e si ferma sui for calcolo sorte. ???

 

[giorgioantonio]

Salve, ora pare risolto il problema, horeinstallato Spaziometria.
Salve

 

[giorgioantonio]

Salve Disaronno purtroppo il problema persiste, mi spiego ex nuovo instllo spaziometria, copio i listato dal sito e lo lancio in spaziometria.
il listato funziona correttamente. Chiudio spaziometria, in seguito lo riapro e richiamo il listato in questione, al terzo passaggio
"9 subcript out e si ferma sui for ambi, terni ecc. Perchè lo script deve funzionare occorre reinstalla il prgramma di spaziometria.
Mi dispiace, se si può correggere...
Saluti

 

[giorgioantonio]

Salve Disaronno, appena provato. Per il 10elotto 5' pare di non avere problemi.
Saluti e buona giornata.

 

[giorgioantonio]

Salve Disaronno, "DIAMOCI UNA MANO", nel senso aiutiamoci. Penso, in parte, di aver trovto
una qual'è il momentaneo problma. Da script in catella 10eLotto c'è un file "aggiorna10elotto"
lanci quello script-file e dopo lanci il listato statistica per 10elotto serale penso che così dovrebbe
risolvere il problema.
Mi auguro di essere stato d'aiuto.
Buona giornata aspetto ulteriori sviluppi sul listato.

NB. ho letto quanto chiesto (lei) a Luigi B, sul problema generale dell'archivio, lanciando il file sopra citato risolverà anche il problema
dell'archivio in generale. Anche io ho trovato stranezze quando ho lanciato il progrmma sulla ricerca quaterne, cinquine sul 10 e lotto
mentre per ora pare tutto sistemato.

 

[Alien.]

Buonasera,
Le posto questo listato , che ho modificato per il 10elotto .
Provi a vedere se , per iniziare ,le puo' esserle d' aiuto.
Controllare sempre.
Salvo errori ed omissis.

Option Explicit
'http://forum.lottoced.com/forum/lottoced/area-download/1939142-statistica-x-10-l-serale-5minuti#post1939431
'Statistica X 10&L: serale /5minuti di giorgioantonio
Sub Main()
Dim TipoArchivio,Sorte,X
Dim Ritardo,RitardoMax,IncrRitMax,Frequenza
Dim rp(02),z
Dim Es,Inizio,Fine,Ini,Fin,EstCon
Dim RetEsito,RetEstratti,RetIdEstr
Dim nStart,nEnd
If ImpostaParametri(TipoArchivio,Sorte) = False Then
MsgBox"I Parametri Inseriti Non Sono Corretti",vbCritical
Exit Sub
End If
EstCon = CInt(InputBox("quante estrazioni controllo",,288))
If TipoArchivio = 02 Then
If MsgBox("Vuoi aggiornare le estrazioni del 10eLotto 5 minuti , prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
Call AggiornaArchivioDL
End If
End If
Call ImpostaArchivio10ELotto(TipoArchivio)
Ini = EstrazioniArchivioDL - EstCon
Fin = EstrazioniArchivioDL
Inizio = EstrazioniArchivioDL - 5000
Fine = EstrazioniArchivioDL
nStart = Timer
Call Scrivi(" RITARDI E FREQUENZE ( Terzine Simmetriche - Cinquine pentagonali - ",1,1,,0,4)
Call Scrivi(" Sestine esagonali - Cadenze - Figure - Decine - Cifre ) per la Sorte ( " & NomeSorte(Sorte) & " ) ",1,1,,0,4)
Call Scrivi
Call Scrivi(String(40," ") & " Script originale By Blackmore,mod. disaronno ",1)
Call Scrivi
Call Scrivi(" INIZIO RICERCA: " & DataEstrazioneDL(Ini) & " °°° FINE RICERCA: " & DataEstrazioneDL(Fin),1,,,,4)
If TipoArchivio = 01 Then Scrivi" ****** Per 10 e lotto Serale ******** ",1,0,3
If TipoArchivio = 02 Then Scrivi" ****** Per 10 e lotto 5 minuti ******** ",1,0,3
Call Scrivi(" Totale Estrazioni analizzate " &(EstrazioniRicercaDL) & " ",1,- 1,4)
Call Scrivi
Call Scrivi
Call Scrivi(String(90,"="),1)
Call Scrivi(" Ultime 10 Estrazioni ",1)
Call Scrivi
For Es = Fin - 10 To Fin
Call Messaggio("Creazione Tabelle")
Call Scrivi(GetInfoEstrazioneDL(Es) & " " & StringaEstrattiDL(Es) & " - " & Format2(NumeroOroDL(Es)),1)
Next
Call Scrivi(String(90,"="),1)
Call Scrivi
'---------------------------------------------------------------------------------------------------------------------------------
Dim atitoli1
Dim n1(30),num1
atitoli1 = Array(atitoli1," TERZINE SIMM. "," Numeri "," Ritardo "," Rit. Pre. "," Rit. Max. "," Frequenza "," Ultima uscita"," Data di uscita ")
Call InitTabella(atitoli1,vbGreen,,3,0)
For X = 01 To 30
n1(01) = X
n1(02) = n1(01) + 30
n1(03) = n1(02) + 30
n1(04) = n1(03) + 30
n1(05) = n1(04) + 30
n1(06) = n1(05) + 30
n1(07) = n1(06) + 30
n1(08) = n1(07) + 30
n1(09) = n1(08) + 30
n1(10) = n1(09) + 30
n1(11) = n1(10) + 30
n1(12) = n1(11) + 30
n1(13) = n1(12) + 30
n1(14) = n1(13) + 30
n1(15) = n1(14) + 30
n1(16) = n1(15) + 30
n1(17) = n1(16) + 30
n1(18) = n1(17) + 30
n1(19) = n1(18) + 30
n1(20) = n1(19) + 30
n1(21) = n1(20) + 30
n1(22) = n1(21) + 30
n1(23) = n1(22) + 30
n1(24) = n1(23) + 30
n1(25) = n1(24) + 30
n1(26) = n1(25) + 30
n1(27) = n1(26) + 30
n1(28) = n1(27) + 30
n1(29) = n1(28) + 30
n1(30) = n1(29) + 30
If Sorte > 03 Then Sorte = 03
Call StatisticaFormazioneDL(n1,Sorte,Ritardo,RitardoMax,IncrRitMax,Frequenza,Ini,Fin)
Call VerificaEsitoDL(n1,Fine - Ritardo,Sorte,,RetEsito,,RetEstratti,RetIdEstr)
num1 = Array(n1(01),n1(02),n1(03))
'------- calcolo ritardi precedenti------------
For z = 02 To 02
rp(z) = SerieRitardoDL(Inizio,Fine,num1,Sorte)
Fine = Fine -(rp(z) + 01)
Next
' fine calcolo----------------------------------
ReDim aValori1(08)
aValori1(01) = Format2(X)
aValori1(02) = StringaNumeri(num1,"-",True)
aValori1(03) = Ritardo
aValori1(04) = rp(02)
aValori1(05) = RitardoMax
aValori1(06) = Frequenza
aValori1(07) = RetEstratti
aValori1(08) = RetEsito
If RetEsito <> "" Then aValori1(08) = DataEstrazioneDL(RetIdEstr) & " [n° " & RetIdEstr & "]"
Call AddRigaTabella(aValori1,,,4,,1)
Call SetColoreCella(03,RGB(164,255,255))
Call SetColoreCella(02,,vbBlue)
Call SetColoreCella(04,RGB(255,184,149))
Call SetColoreCella(05,RGB(255,255,128),0)
If Ritardo = 00 Then Call SetColoreCella(03,RGB(255,128,255))
If Ritardo = 00 Then Call SetColoreCella(06,RGB(255,128,255))
If Ritardo = 00 Then Call SetColoreCella(07,RGB(255,128,255))
Next
Call CreaTabella()
'---------------------------------------------------------------------------------------------------------------------------------
Dim atitoli2
Dim n2(18),num2
atitoli2 = Array(atitoli2," CINQUINE PENT. "," Numeri "," Ritardo "," Rit. Pre. "," Rit. Max. "," Frequenza "," Ultima uscita"," Data di uscita ")
Call InitTabella(atitoli2,vbGreen,,3,0)
For X = 01 To 18
n2(01) = X
n2(02) = n2(01) + 18
n2(03) = n2(02) + 18
n2(04) = n2(03) + 18
n2(05) = n2(04) + 18
n2(06) = n2(05) + 18
n2(07) = n2(06) + 18
n2(08) = n2(07) + 18
n2(09) = n2(08) + 18
n2(10) = n2(09) + 18
n2(11) = n2(10) + 18
n2(12) = n2(11) + 18
n2(13) = n2(12) + 18
n2(14) = n2(13) + 18
n2(15) = n2(14) + 18
n2(16) = n2(15) + 18
n2(17) = n2(16) + 18
n2(18) = n2(17) + 18
If Sorte > 05 Then Sorte = 05
Call StatisticaFormazioneDL(n2,Sorte,Ritardo,RitardoMax,IncrRitMax,Frequenza,Ini,Fin)
Call VerificaEsitoDL(n2,Fine - Ritardo,Sorte,,RetEsito,,RetEstratti,RetIdEstr)
num2 = Array(n2(01),n2(02),n2(03),n2(04),n2(05))
'------- calcolo ritardi precedenti------------
For z = 02 To 02
rp(z) = SerieRitardoDL(Inizio,Fine,num2,Sorte)
Fine = Fine -(rp(z) + 01)
Next
' fine calcolo----------------------------------
ReDim avalori2(08)
avalori2(01) = Format2(X)
avalori2(02) = StringaNumeri(num2,"-",True)
avalori2(03) = Ritardo
avalori2(04) = rp(02)
avalori2(05) = RitardoMax
avalori2(06) = Frequenza
avalori2(07) = RetEstratti
avalori2(08) = RetEsito
If RetEsito <> "" Then avalori2(08) = DataEstrazioneDL(RetIdEstr) & " [n° " & RetIdEstr & "]"
Call AddRigaTabella(avalori2,,,4,,1)
Call SetColoreCella(03,RGB(164,255,255))
Call SetColoreCella(02,,vbBlue)
Call SetColoreCella(04,RGB(255,184,149))
Call SetColoreCella(05,RGB(255,255,128),0)
If Ritardo = 00 Then Call SetColoreCella(03,RGB(255,128,255))
If Ritardo = 00 Then Call SetColoreCella(06,RGB(255,128,255))
If Ritardo = 00 Then Call SetColoreCella(07,RGB(255,128,255))
Next
Call CreaTabella()
'----------------------------------------------------------------------------------------------------------------------------------
Dim atitoli3
Dim n3(15),num3
atitoli3 = Array(atitoli3," SESTINE ESAG. "," Numeri "," Ritardo "," Rit. Pre. "," Rit. Max. "," Frequenza "," Ultima uscita"," Data di uscita ")
Call InitTabella(atitoli3,vbGreen,,3,0)
For X = 01 To 15
n3(01) = X
n3(02) = n3(01) + 15
n3(03) = n3(02) + 15
n3(04) = n3(03) + 15
n3(05) = n3(04) + 15
n3(06) = n3(05) + 15
n3(07) = n3(06) + 15
n3(08) = n3(07) + 15
n3(09) = n3(08) + 15
n3(10) = n3(09) + 15
n3(11) = n3(10) + 15
n3(12) = n3(11) + 15
n3(13) = n3(12) + 15
n3(14) = n3(13) + 15
n3(15) = n3(14) + 15
If Sorte > 06 Then Sorte = 06
Call StatisticaFormazioneDL(n3,Sorte,Ritardo,RitardoMax,IncrRitMax,Frequenza,Ini,Fin)
Call VerificaEsitoDL(n3,Fine - Ritardo,Sorte,,RetEsito,,RetEstratti,RetIdEstr)
num3 = Array(n3(01),n3(02),n3(03),n3(04),n3(05),n3(06))
'------- calcolo ritardi precedenti------------
For z = 02 To 02
rp(z) = SerieRitardoDL(Inizio,Fine,num3,Sorte)
Fine = Fine -(rp(z) + 01)
Next
' fine calcolo----------------------------------
ReDim aValori3(08)
aValori3(01) = Format2(X)
aValori3(02) = StringaNumeri(num3,"-",True)
aValori3(03) = Ritardo
aValori3(04) = rp(02)
aValori3(05) = RitardoMax
aValori3(06) = Frequenza
aValori3(07) = RetEstratti
aValori3(08) = RetEsito
If RetEsito <> "" Then aValori3(08) = DataEstrazioneDL(RetIdEstr) & " [n° " & RetIdEstr & "]"
Call AddRigaTabella(aValori3,,,4,,1)
Call SetColoreCella(03,RGB(164,255,255))
Call SetColoreCella(02,,vbBlue)
Call SetColoreCella(04,RGB(255,184,149))
Call SetColoreCella(05,RGB(255,255,128),0)
If Ritardo = 00 Then Call SetColoreCella(03,RGB(255,128,255))
If Ritardo = 00 Then Call SetColoreCella(06,RGB(255,128,255))
If Ritardo = 00 Then Call SetColoreCella(07,RGB(255,128,255))
Next
Call CreaTabella()
'----------------------------------------------------------------------------------------------------------------------------
Dim atitoli4
Dim n4(09),num4
atitoli4 = Array(atitoli4," CADENZE "," Numeri "," Ritardo "," Rit. Pre. "," Rit. Max. "," Frequenza "," Ultima uscita"," Data di uscita ")
Call InitTabella(atitoli4,vbGreen,,3,0)
For X = 01 To 10
n4(01) = Cadenza(X)
If X = 10 Then n4(01) = X * 10 - 90
n4(02) = n4(01) + 10
n4(03) = n4(01) + 20
n4(04) = n4(01) + 30
n4(05) = n4(01) + 40
n4(06) = n4(01) + 50
n4(07) = n4(01) + 60
n4(08) = n4(01) + 70
n4(09) = n4(01) + 80
If Sorte > 09 Then Sorte = 09
Call StatisticaFormazioneDL(n4,Sorte,Ritardo,RitardoMax,IncrRitMax,Frequenza,Ini,Fin)
Call VerificaEsitoDL(n4,Fine - Ritardo,Sorte,,RetEsito,,RetEstratti,RetIdEstr)
num4 = Array(n4(01),n4(02),n4(03),n4(04),n4(05),n4(06),n4(07),n4(08),n4(09))
'------- calcolo ritardi precedenti------------
For z = 02 To 02
rp(z) = SerieRitardoDL(Inizio,Fine,num4,Sorte)
Fine = Fine -(rp(z) + 01)
Next
' fine calcolo----------------------------------
ReDim aValori4(08)
aValori4(01) = Format2(X)
aValori4(02) = StringaNumeri(num4,"-",True)
aValori4(03) = Ritardo
aValori4(04) = rp(02)
aValori4(05) = RitardoMax
aValori4(06) = Frequenza
aValori4(07) = RetEstratti
aValori4(08) = RetEsito
If RetEsito <> "" Then aValori4(08) = DataEstrazioneDL(RetIdEstr) & " [n° " & RetIdEstr & "]"
Call AddRigaTabella(aValori4,,,4,,1)
Call SetColoreCella(03,RGB(164,255,255))
Call SetColoreCella(02,,vbBlue)
Call SetColoreCella(04,RGB(255,184,149))
Call SetColoreCella(05,RGB(255,255,128),0)
If Ritardo = 00 Then Call SetColoreCella(03,RGB(255,128,255))
If Ritardo = 00 Then Call SetColoreCella(06,RGB(255,128,255))
If Ritardo = 00 Then Call SetColoreCella(07,RGB(255,128,255))
Next
Call CreaTabella()
'-------------------------------------------------------------------------------------------------------------------------
Dim atitoli5
Dim n5(10),num5
atitoli5 = Array(atitoli5," FIGURE "," Numeri "," Ritardo "," Rit. Pre. "," Rit. Max. "," Frequenza "," Ultima uscita"," Data di uscita ")
Call InitTabella(atitoli5,vbGreen,,3,0)
For X = 01 To 09
n5(01) = X
n5(02) = n5(01) + 09
n5(03) = n5(02) + 09
n5(04) = n5(03) + 09
n5(05) = n5(04) + 09
n5(06) = n5(05) + 09
n5(07) = n5(06) + 09
n5(08) = n5(07) + 09
n5(09) = n5(08) + 09
n5(10) = n5(09) + 09
Call StatisticaFormazioneDL(n5,Sorte,Ritardo,RitardoMax,IncrRitMax,Frequenza,Ini,Fin)
Call VerificaEsitoDL(n5,Fine - Ritardo,Sorte,,RetEsito,,RetEstratti,RetIdEstr)
num5 = Array(n5(01),n5(02),n5(03),n5(04),n5(05),n5(06),n5(07),n5(08),n5(09),n5(10))
'------- calcolo ritardi precedenti------------
For z = 02 To 02
rp(z) = SerieRitardoDL(Inizio,Fine,num5,Sorte)
Fine = Fine -(rp(z) + 01)
Next
' fine calcolo----------------------------------
ReDim aValori5(08)
aValori5(01) = Format2(X)
aValori5(02) = StringaNumeri(num5,"-",True)
aValori5(03) = Ritardo
aValori5(04) = rp(02)
aValori5(05) = RitardoMax
aValori5(06) = Frequenza
aValori5(07) = RetEstratti
aValori5(08) = RetEsito
If RetEsito <> "" Then aValori5(08) = DataEstrazioneDL(RetIdEstr) & " [n° " & RetIdEstr & "]"
Call AddRigaTabella(aValori5,,,4,,1)
Call SetColoreCella(03,RGB(164,255,255))
Call SetColoreCella(02,,vbBlue)
Call SetColoreCella(04,RGB(255,184,149))
Call SetColoreCella(05,RGB(255,255,128),0)
If Ritardo = 00 Then Call SetColoreCella(03,RGB(255,128,255))
If Ritardo = 00 Then Call SetColoreCella(06,RGB(255,128,255))
If Ritardo = 00 Then Call SetColoreCella(07,RGB(255,128,255))
Next
Call CreaTabella()
'-------------------------------------------------------------------------------------------------------------------------
Dim atitoli6
Dim n6(10),num6
atitoli6 = Array(atitoli6," DECINE "," Numeri "," Ritardo "," Rit. Pre. "," Rit. Max. "," Frequenza "," Ultima uscita"," Data di uscita ")
Call InitTabella(atitoli6,vbGreen,,3,0)
For X = 01 To 09
If X = 01 Then n6(01) = 01 : n6(02) = 02 : n6(03) = 03 :n6(04) = 04: n6(05) = 05: n6(06) = 06: n6(07) = 07: n6(08) = 08: n6(09) = 09 :n6(10) = 10
If X = 02 Then n6(01) = 11 : n6(02) = 12 : n6(03) = 13 :n6(04) = 14: n6(05) = 15: n6(06) = 16: n6(07) = 17: n6(08) = 18: n6(09) = 19 :n6(10) = 20
If X = 03 Then n6(01) = 21 : n6(02) = 22 : n6(03) = 23 :n6(04) = 24: n6(05) = 25: n6(06) = 26: n6(07) = 27: n6(08) = 28: n6(09) = 29 :n6(10) = 30
If X = 04 Then n6(01) = 31 : n6(02) = 32 : n6(03) = 33 :n6(04) = 34: n6(05) = 35: n6(06) = 36: n6(07) = 37: n6(08) = 38: n6(09) = 39 :n6(10) = 40
If X = 05 Then n6(01) = 41 : n6(02) = 42 : n6(03) = 43 :n6(04) = 44: n6(05) = 45: n6(06) = 46: n6(07) = 47: n6(08) = 48: n6(09) = 49 :n6(10) = 50
If X = 06 Then n6(01) = 51 : n6(02) = 52 : n6(03) = 53 :n6(04) = 54: n6(05) = 55: n6(06) = 56: n6(07) = 57: n6(08) = 58: n6(09) = 59 :n6(10) = 60
If X = 07 Then n6(01) = 61 : n6(02) = 62 : n6(03) = 63 :n6(04) = 64: n6(05) = 65: n6(06) = 66: n6(07) = 67: n6(08) = 68: n6(09) = 69 :n6(10) = 70
If X = 08 Then n6(01) = 71 : n6(02) = 72 : n6(03) = 73 :n6(04) = 74: n6(05) = 75: n6(06) = 76: n6(07) = 77: n6(08) = 78: n6(09) = 79 :n6(10) = 80
If X = 09 Then n6(01) = 81 : n6(02) = 82 : n6(03) = 83 :n6(04) = 84: n6(05) = 85: n6(06) = 86: n6(07) = 87: n6(08) = 88: n6(09) = 89 :n6(10) = 90
Call StatisticaFormazioneDL(n6,Sorte,Ritardo,RitardoMax,IncrRitMax,Frequenza,Ini,Fin)
Call VerificaEsitoDL(n6,Fine - Ritardo,Sorte,,RetEsito,,RetEstratti,RetIdEstr)
num6 = Array(n6(01),n6(02),n6(03),n6(04),n6(05),n6(06),n6(07),n6(08),n6(09),n6(10))
'------- calcolo ritardi precedenti------------
For z = 02 To 02
rp(z) = SerieRitardoDL(Inizio,Fine,num6,Sorte)
Fine = Fine -(rp(z) + 01)
Next
' fine calcolo----------------------------------
ReDim aValori6(08)
aValori6(01) = Format2(X)
aValori6(02) = StringaNumeri(num6,"-",True)
aValori6(03) = Ritardo
aValori6(04) = rp(02)
aValori6(05) = RitardoMax
aValori6(06) = Frequenza
aValori6(07) = RetEstratti
aValori6(08) = RetEsito
If RetEsito <> "" Then aValori6(08) = DataEstrazioneDL(RetIdEstr) & " [n° " & RetIdEstr & "]"
Call AddRigaTabella(aValori6,,,4,,1)
Call SetColoreCella(03,RGB(164,255,255))
Call SetColoreCella(02,,vbBlue)
Call SetColoreCella(04,RGB(255,184,149))
Call SetColoreCella(05,RGB(255,255,128),0)
If Ritardo = 00 Then Call SetColoreCella(03,RGB(255,128,255))
If Ritardo = 00 Then Call SetColoreCella(06,RGB(255,128,255))
If Ritardo = 00 Then Call SetColoreCella(07,RGB(255,128,255))
Next
Call CreaTabella()
'---------------------------------------------------------------------------------------------------------------------------------
Dim atitoli7
Dim n7(18),num7
atitoli7 = Array(atitoli7," CIFRE "," Numeri "," Ritardo "," Rit. Pre. "," Rit. Max. "," Frequenza "," Ultima uscita"," Data di uscita ")
Call InitTabella(atitoli7,vbGreen,,3,0)
For X = 01 To 09
If X = 01 Then n7(01) = 01:n7(02) = 02:n7(03) = 03:n7(04) = 04:n7(05) = 05:n7(06) = 06:n7(07) = 07:n7(08) = 08:n7(09) = 09:n7(10) = 10: _
n7(11) = 20:n7(12) = 30:n7(13) = 40:n7(14) = 50:n7(15) = 60:n7(16) = 70:n7(17) = 80:n7(18) = 90
If X = 02 Then n7(01) = 01:n7(02) = 10:n7(03) = 11:n7(04) = 12:n7(05) = 13:n7(06) = 14:n7(07) = 15:n7(08) = 16:n7(09) = 17:n7(10) = 18: _
n7(11) = 19:n7(12) = 21:n7(13) = 31:n7(14) = 41:n7(15) = 51:n7(16) = 61:n7(17) = 71:n7(18) = 81
If X = 03 Then n7(01) = 02:n7(02) = 12:n7(03) = 20:n7(04) = 21:n7(05) = 22:n7(06) = 23:n7(07) = 24:n7(08) = 25:n7(09) = 26:n7(10) = 27: _
n7(11) = 28:n7(12) = 29:n7(13) = 32:n7(14) = 42:n7(15) = 52:n7(16) = 62:n7(17) = 72:n7(18) = 82
If X = 04 Then n7(01) = 03:n7(02) = 13:n7(03) = 23:n7(04) = 30:n7(05) = 31:n7(06) = 32:n7(07) = 33:n7(08) = 34:n7(09) = 35:n7(10) = 36: _
n7(11) = 37:n7(12) = 38:n7(13) = 39:n7(14) = 43:n7(15) = 53:n7(16) = 63:n7(17) = 73:n7(18) = 83
If X = 05 Then n7(01) = 04:n7(02) = 14:n7(03) = 24:n7(04) = 34:n7(05) = 40:n7(06) = 41:n7(07) = 42:n7(08) = 43:n7(09) = 44:n7(10) = 45: _
n7(11) = 46:n7(12) = 47:n7(13) = 48:n7(14) = 49:n7(15) = 54:n7(16) = 64:n7(17) = 74:n7(18) = 84
If X = 06 Then n7(01) = 05:n7(02) = 15:n7(03) = 25:n7(04) = 35:n7(05) = 45:n7(06) = 50:n7(07) = 51:n7(08) = 52:n7(09) = 53:n7(10) = 54: _
n7(11) = 55:n7(12) = 56:n7(13) = 57:n7(14) = 58:n7(15) = 59:n7(16) = 65:n7(17) = 75:n7(18) = 85
If X = 07 Then n7(01) = 06:n7(02) = 16:n7(03) = 26:n7(04) = 36:n7(05) = 46:n7(06) = 56:n7(07) = 60:n7(08) = 61:n7(09) = 62:n7(10) = 63: _
n7(11) = 64:n7(12) = 65:n7(13) = 66:n7(14) = 67:n7(15) = 68:n7(16) = 69:n7(17) = 76:n7(18) = 86
If X = 08 Then n7(01) = 07:n7(02) = 17:n7(03) = 27:n7(04) = 37:n7(05) = 47:n7(06) = 57:n7(07) = 67:n7(08) = 70:n7(09) = 71:n7(10) = 72: _
n7(11) = 73:n7(12) = 74:n7(13) = 75:n7(14) = 76:n7(15) = 77:n7(16) = 78:n7(17) = 79:n7(18) = 87
If X = 09 Then n7(01) = 08:n7(02) = 18:n7(03) = 28:n7(04) = 38:n7(05) = 48:n7(06) = 58:n7(07) = 68:n7(08) = 78:n7(09) = 80:n7(10) = 81: _
n7(11) = 82:n7(12) = 83:n7(13) = 84:n7(14) = 85:n7(15) = 86:n7(16) = 87:n7(17) = 88:n7(18) = 89
Call StatisticaFormazioneDL(n7,Sorte,Ritardo,RitardoMax,IncrRitMax,Frequenza,Ini,Fin)
Call VerificaEsitoDL(n7,Fine - Ritardo,Sorte,,RetEsito,,RetEstratti,RetIdEstr)
num7 = Array(n7(01),n7(02),n7(03),n7(04),n7(05),n7(06),n7(07),n7(08),n7(09),n7(10),n7(11),n7(12),n7(13),n7(14),n7(15),n7(16),n7(17),n7(18))
'------- calcolo ritardi precedenti------------
For z = 02 To 02
rp(z) = SerieRitardoDL(Inizio,Fine,num7,Sorte)
Fine = Fine -(rp(z) + 01)
Next
' fine calcolo----------------------------------
ReDim aValori7(08)
aValori7(01) = Format2(X)
aValori7(02) = StringaNumeri(num7,"-",True)
aValori7(03) = Ritardo
aValori7(04) = rp(02)
aValori7(05) = RitardoMax
aValori7(06) = Frequenza
aValori7(07) = RetEstratti
aValori7(08) = RetEsito
If RetEsito <> "" Then aValori7(08) = DataEstrazioneDL(RetIdEstr) & " [n° " & RetIdEstr & "]"
Call AddRigaTabella(aValori7,,,4,,1)
Call SetColoreCella(03,RGB(164,255,255))
Call SetColoreCella(02,,vbBlue)
Call SetColoreCella(04,RGB(255,184,149))
Call SetColoreCella(05,RGB(255,255,128),0)
If Ritardo = 00 Then Call SetColoreCella(03,RGB(255,128,255))
If Ritardo = 00 Then Call SetColoreCella(06,RGB(255,128,255))
If Ritardo = 00 Then Call SetColoreCella(07,RGB(255,128,255))
Next
Call CreaTabella()
'---------------------------------------------------------------------------------------------------------------------------------
Call Scrivi
nEnd = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nEnd + 1) - nStart))
Call Scrivi
Call Scrivi(" Tabella listed By disaronno ",1,- 1,3)
End Sub
Function ImpostaParametri(TipoArchivio,Sorte)
Dim bRet
TipoArchivio = ScegliArchivioDL
If TipoArchivio > 00 Then
Sorte = ScegliSorte
If Sorte > 00 Then
bRet = True
End If
End If
ImpostaParametri = bRet
End Function
Function ScegliSorte()
ReDim aVoci(09)
aVoci(00) = "Punti (01)"
aVoci(01) = "Punti (02)"
aVoci(02) = "Punti (03)"
aVoci(03) = "Punti (04)"
aVoci(04) = "Punti (05)"
aVoci(05) = "Punti (06)"
aVoci(06) = "Punti (07)"
aVoci(07) = "Punti (08)"
aVoci(08) = "Punti (09)"
aVoci(09) = "Punti (10)"
ScegliSorte = ScegliOpzioneMenu(aVoci,02,"Scegli tipo Sorte") + 01
End Function
Function ScegliArchivioDL()
ReDim aVoci(01)
aVoci(00) = "10 e lotto Serale"
aVoci(01) = "10 e lotto 5 minuti"
ScegliArchivioDL = ScegliOpzioneMenu(aVoci,00,"Scegli Archivio") + 01
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function

Chiedo scusa Luigi ma mi da errore:




rp(z) = SerieRitardoDL(Inizio,Fine,num1,Sorte)



come si può ovviare,grazie.

 

[LuigiB]

ciao 'avro lanciato 10 volte lo script fatto da Di Saronno , ecco l'output .. nessun errore anche aprendo e richiudendo spaziometria ... sinceramente non ho capito che errore da a voi .. magari potete postare un 'immagine ...


caricare immagini

 

[giorgioantonio]

Salve LuigiB, non saprei dire da cosa dipende ma ho reinstallato la 64' e ora non trovo problemi. Ho provato col listato di Disaronno e
con quello tuo - che dovrebbe essere identico - e non riscontro nessun problema. Sarà la versione spaziometria? Come si dice
" ai posteri l'ardua sentenza" nel senso che io (noi) siamo nelle vostre mani.
Saluti e buona giornata

 

[solare]

Se può essere di aiuto questo listato a me funziona.

 

[giorgioantonio]

Se può essere di aiuto questo listato a me funziona.

Con quale versione - Spaziometria? Solo per capire, Per esempio a me dava gli stessi errori che ha presentato Disaronno.
Saluti

 

[solare]

Ciao giorgioantonio, io ho l'ultima versione.
Prova a disinstallare tutto andando anche a cancellare la cartella spaziometria in c:
poi installa tutto da capo.

 

[giorgioantonio]

Salve Disaronno, buon giornata, sul listato statistica non può fare l'ulteriore aggiunta? Saluti

 

[giorgioantonio]

Salve Disaronno, cortesemente dovrebbe inserire anche le figure cadenze e cifre. Le cifre in
3 per volta. Un sistemino da 12 combinazioni. Se può rendere le tabelle più visibili in modo
sintetico così come ho postato l'immagine. Aggiungo che la visione dei numeri si può fare
a meno. Per eempio l formula 0-1-2 indica che 0=1-2-3-4-5-6-7-8-9-90; 1=10-11-12-13-14-15-16-17-18-19;
2=20-21-22-23-24-25-26-27-28-29. Quindi a livello lettura è un dato ininfluente.

Saluti

 

[giorgioantonio]

Salve, non nego che su questo argomento pare stia cercando il pelo nell'uovo; se posso fare delle consideraioni:
ma non è possibile avere un quadro come rappresentato nella mia immagine postata?
Il motivo è detto: nel cercare la formula desiderata coì come è presentato sfugge la scelta, poi se può usare un numero di scrittura
in formato più piccolo, questo sempre per avere una visione completa dei dati sottocchi.
Ho copiato un grande listato, quindi non sarà possibile caricarlo assieme all'altro statistico?
Grazie come sempre dell'interessamento.
Salve

 

[giorgioantonio]

Salve Magia, leggo che iete tutti indaffarati col nuovo impegno di LuigiB, quindi si può rimandare o fare a meno. Il listato che hai postato non è quello che cerco. Grazie cmq dell'interessamento, buona giornata.