Per Disaronno-includere Statistica

[giorgioantonio]

Salve Disaronno,

le riporto l'ultimo script che ha scritto per me.
Desidererei che mi apporti delle aggiunte
basate sulla statistica. La statistica
dovrebbe tenere conto di un archivio a
ritroso basato su circa 5 anni e consisterebbe in questo:
spiegazione-deve lanciare lo script e osservare
la colonna dei punteggi- con aggiornamento al 21
c.m. in 1^ posizione è presente 5, vorrei sapere
quante volte dopo il punteggio 5 si è avuto che si fanno >5
punti nelle successive 3 estrazioni?
Altro esempio posizione alla 7^
troviamo punti 4 dopo quante volte è uscito un punteggio
superiore a 5 punti nelle 3 estrazioni successive?

Penso che e poichè l'elenco si dovrebbe presentare
lungo a esporlo tutto, di utilizzare una finestra di
input dove si chiede su quale punteggio basarsi e
come 2^ richiesta qual'è il punteggio dopo da considerare.
Cioè con punti 5 dopo e entro le 3 successive estrazioni
quante volte si è verificato un punteggio > di 5.

Quello che le chiedo è di utilizzare lo script che posto
in questo messaggio perchè sono riuscito ad apportare
delle modifiche sotto l'aspetto panoramico e niente altro.

SI PUò FARE?

Posto lo script nel messaggio successivo per evitare
confusione tra quello che le ho scritto e lo script.

Grazie

 

[giorgioantonio]

Parte 2- lo script

Option Explicit
Sub Main
'Scrivi " Disaronno di giorgioantonio 10eLotto Vers.02 ",1 ' - http://forum.lottoced.com/forum/lottoced/area-download/1891637-disaronno -
Dim klp,Ini,fin,es,num1,num2,num3,num4
Dim e01,e02,e03,e04,e05,e06,e07,e08,e09,e10,e11,e12,e13,e14,e15,e16,e17,e18,e19,e20
Dim n01,n02,n03,n04,n05,n06,n07,n08,n09,n10,n11,n12,n13,n14,n15,n16,n17,n18,n19,n20
Dim TipoArchivio,atitoli,avalori
Dim RetEsito1,RetColpi1,RetEstratti1,RetEsito2,RetColpi2,RetEstratti2,RetEsito3,RetColpi3,RetEstratti3,RetEsito4,RetColpi4,RetEstratti4,RetIdEstr
Dim RetPunti1,RetPunti2,RetPunti3,RetPunti4
TipoArchivio = ScegliArchivio
klp = CInt(InputBox("Quanti colpi verificare...",,1))
If TipoArchivio > 00 And klp > 00 Then
Call ImpostaArchivio10ELotto(TipoArchivio)
Ini = EstrazioniArchivioDL - 25
fin = EstrazioniArchivioDL
atitoli = Array(atitoli,"DATA ESTR."," NUMERI IN GIOCO ","ESITO","TOT-P")',"STRINGA ESITO")
Call InitTabella(atitoli,1,,3,5)
For es = Ini To fin
Messaggio es
AvanzamentoElab Ini,fin,es
e01 = EstrattoDL(es,01)
e02 = EstrattoDL(es,02)
e03 = EstrattoDL(es,03)
e04 = EstrattoDL(es,04)
e05 = EstrattoDL(es,05)
e06 = EstrattoDL(es,06)
e07 = EstrattoDL(es,07)
e08 = EstrattoDL(es,08)
e09 = EstrattoDL(es,09)
e10 = EstrattoDL(es,10)
e11 = EstrattoDL(es,11)
e12 = EstrattoDL(es,12)
e13 = EstrattoDL(es,13)
e14 = EstrattoDL(es,14)
e15 = EstrattoDL(es,15)
e16 = EstrattoDL(es,16)
e17 = EstrattoDL(es,17)
e18 = EstrattoDL(es,18)
e19 = EstrattoDL(es,19)
e20 = EstrattoDL(es,20)
n01 = Fuori90(((e01 + 67) * 14) + 32)
n02 = Fuori90(((e02 + 67) * 14) + 32)
n03 = Fuori90(((e03 + 67) * 14) + 32)
n04 = Fuori90(((e04 + 67) * 14) + 32)
n05 = Fuori90(((e05 + 67) * 14) + 32)
n06 = Fuori90(((e06 + 67) * 14) + 32)
n07 = Fuori90(((e07 + 67) * 14) + 32)
n08 = Fuori90(((e08 + 67) * 14) + 32)
n09 = Fuori90(((e09 + 67) * 14) + 32)
n10 = Fuori90(((e10 + 67) * 14) + 32)
n11 = Fuori90(((e11 + 67) * 14) + 32)
n12 = Fuori90(((e12 + 67) * 14) + 32)
n13 = Fuori90(((e13 + 67) * 14) + 32)
n14 = Fuori90(((e14 + 67) * 14) + 32)
n15 = Fuori90(((e15 + 67) * 14) + 32)
n16 = Fuori90(((e16 + 67) * 14) + 32)
n17 = Fuori90(((e17 + 67) * 14) + 32)
n18 = Fuori90(((e18 + 67) * 14) + 32)
n19 = Fuori90(((e19 + 67) * 14) + 32)
n20 = Fuori90(((e20 + 67) * 14) + 32)
num1 = Array(n01,n02,n03,n04,n05)
num2 = Array(n06,n07,n08,n09,n10)
num3 = Array(n11,n12,n13,n14,n15)
num4 = Array(n16,n17,n18,n19,n20)
Call VerificaEsitoDL(num1,es + 01,1,klp,RetEsito1,RetColpi1,RetEstratti1,RetIdEstr)
Call VerificaEsitoDL(num2,es + 01,1,klp,RetEsito2,RetColpi2,RetEstratti2,RetIdEstr)
Call VerificaEsitoDL(num3,es + 01,1,klp,RetEsito3,RetColpi3,RetEstratti3,RetIdEstr)
Call VerificaEsitoDL(num4,es + 01,1,klp,RetEsito4,RetColpi4,RetEstratti4,RetIdEstr)
If RetEsito1 = "" Then RetEsito1 = "00":RetPunti1 = 00
If RetEsito1 = "Estratto" Then RetEsito1 = "01":RetPunti1 = 01
If RetEsito1 = "Ambo" Then RetEsito1 = "02":RetPunti1 = 02
If RetEsito1 = "Terno" Then RetEsito1 = "03":RetPunti1 = 03
If RetEsito1 = "Quaterna" Then RetEsito1 = "04":RetPunti1 = 04
If RetEsito2 = "" Then RetEsito2 = "00":RetPunti2 = 00
If RetEsito2 = "Estratto" Then RetEsito2 = "01":RetPunti2 = 01
If RetEsito2 = "Ambo" Then RetEsito2 = "02":RetPunti2 = 02
If RetEsito2 = "Terno" Then RetEsito2 = "03":RetPunti2 = 03
If RetEsito2 = "Quaterna" Then RetEsito2 = "04":RetPunti2 = 04
If RetEsito3 = "" Then RetEsito3 = "00":RetPunti3 = 00
If RetEsito3 = "Estratto" Then RetEsito3 = "01":RetPunti3 = 01
If RetEsito3 = "Ambo" Then RetEsito3 = "02":RetPunti3 = 02
If RetEsito3 = "Terno" Then RetEsito3 = "03":RetPunti3 = 03
If RetEsito3 = "Quaterna" Then RetEsito3 = "04":RetPunti3 = 04
If RetEsito4 = "" Then RetEsito4 = "00":RetPunti4 = 00
If RetEsito4 = "Estratto" Then RetEsito4 = "01":RetPunti4 = 01
If RetEsito4 = "Ambo" Then RetEsito4 = "02":RetPunti4 = 02
If RetEsito4 = "Terno" Then RetEsito4 = "03":RetPunti4 = 03
If RetEsito4 = "Quaterna" Then RetEsito4 = "04":RetPunti4 = 04
avalori = Array(avalori,GetInfoEstrazioneDL(es),StringaNumeri(num1,,True) & "|" & StringaNumeri(num2,,True) & "|" & StringaNumeri(num3,,True) & "|" & StringaNumeri(num4,,True),_
RetEsito1 & "|" & RetEsito2 & "|" & RetEsito3 & "|" & RetEsito4,RetPunti1 + RetPunti2 + RetPunti3 + RetPunti4,_
RetEstratti1 & "|" & RetEstratti2 & "|" & RetEstratti3 & "|" & RetEstratti4)
Call AddRigaTabella(avalori,,,2)
Next
Call CreaTabella
End If
End Sub
Function ScegliArchivio()
ReDim aVoci(1)
aVoci(0) = "10 e lotto Serale"
aVoci(1) = "10 e lotto 5 min"
ScegliArchivio = ScegliOpzioneMenu(aVoci,0,"Secegli archivio") + 1
End Function

 

[giorgioantonio]

Salve a tutti,

se ne vale la pena? Io dico di si.

Cortesemente chiedo la collaborazione
di qualche smanettone pratico a gestire
i dati in uno script.
I dati che si ottengono con il presente
script devono essere sempre gli stessi,
cambiare solo la posizione per ottenere
un altro quadro separato dal primo.
Questo aiuto lo chiedo per non caricare
di troppo lavoro il Signor Disaronno
che gentilmente si presta ad aiutarci
nelle nostre richieste.
Premesso ciò vengo a dettagliare la
richiesta di aiuto:
1)-lanciare lo script postato;
(come esempio uso la 1^ riga e per le altre è idem come sopra)

2)-considerare la 1^ riga del 23-5-2015
3)-considerare per ogni cinquina le posizioni del numero
da cui si formeranno 5 quartine;
4)-elencare i primi numeri di ogni cinquina:
08-60-58-40
5)-elencare i secondi numeri di ogni cinquina:
78-14-72-54
6)-elencare i terzi numeri di ogni cinquina:
58-84-24-68
7)-elencare i quarti numeri di ogni cinquina:
04-64-46-06
8)-elencare i quinti numeri di ogni cinquina:
46-30-88-28.
Quindi la riga risulterà come segue:
23/05/2015 ---- 08-60-58-40|78-14-72-54|58-84-24-68|04-64-46-06|46-30-88-28.

per le altre righe idem come sopra

Spero che ci si da una mano a scrive quanto chiesto:
COLLABORATE!!! c'è un detto che dice:
" una mano lava l'altra e tutte e due lavano meglio il viso"
A compimento di questo aiuto vi svelero un'altra " KIKKA "

Speranzoso dell'aiuto aspetto buone nuove.

Salute a tutti

 

[i legend]

Ciao

guardare ultima versione

 

[giorgioantonio]

Ciao i legend,

simpaticamente mi hai fatto sorridere con la battuta "a prescindere la KIKKA", è stato anche un modo per
avere contatti.
Ti spiego che anche in cinquina se fatto va bene lo stesso, ma la suddivisione dei numeri la devi fare anche per quartina.
Quindi puoi creare 2 listati come hai fatto per la cinquina,
Forse ti è sfuggito che della riga del prospetto iniziale, diviso per cinquina devi prendere il 1° numero di ogni cinquina
e cioè conta i numeri= 1-6-11-16 e ottieni la prima quartina poi 2-7-12-17 2^ quartina; 3-8-13-18 3^ quartina; poi 4-9-14-19
4^ quartina; 5-10-15-20 5^ quartina.
Non ho potuto controllare ma ogni numero va solo spostato facendo appunto un altro prospetto, quindi alla fine
se fai anche il prospetto delle cinquine si deve poter vedere il prospetto iniziale (originale) poi quello delle quartine
da me indicate e se puoi quello delle cinquine.
La riga che ho visto ripeto non ho potuto controllarla perchè non ho capito a quale estrazione appartiene.
Aggiusta questo passo che ce ne un altro ancora ma ripeto solo di vedere messi insieme i dati.
Grazie dell'interessamento

 

[i legend]

ciao non riesco a postare , la modifica è semplicissima basta scrivere una piccola funzione sfruttando l'array principale

 

[giorgioantonio]

ciao i legend,
il miglior modo per risolvere il problema è:
farsi aiutare.
Dopo ti sarà facile perchè dovrai fare qualche altro gruppo
sempre con lo stesso meccanismo di mettere i numeri
dove li vorresti.
Io personalmente non saprei da dove cominciare.
Aspetto con fiducia
Ciao

 

[giorgioantonio]

Salve Disaronno,

è un piacere risentirla, obbligato.
per quanto riguarda l'esposizione e composizione dei numeri
dei 2 gruppi pare ci siamo, in verità a Lei avevo chiesto un altro
argomento sempre inerente lo script in corso:
cioè basato sulla colonna punti.
Per esempio e prendiamo l'ultimo dato in corso cioè gli 8 punti
verificare dopo gli 8 punti il punteggio superiore a 4 (quindi 5-6-7-ecc)
entro le successive 3 estrazioni quante volte ha dato esito?.
Naturalmente se sarà possibile ottenere ciò che desidero, farlo
su entrambe le doppie impostazioni.

Ora mi trovo in difficoltà e non vorrei mollare i Legend a cui chiedo
visto che si è risolto il problema impostazione quartine
delle quartine deve impostare 2 semplici sistemi matematici
abbinando le quartine come segue distinguendo i gruppi di quartine:
1° gruppo; quartina 1 + quartina 2
-------------- quartina 1 + quartina 3
-------------- quartina 1 + quartina 4
-------------- quartina 1 + quartina 5
-------------- quartina 2 + quartina 3
-------------- quartina 2 + quartina 4
-------------- quartina 2 + quartina 5
-------------- quartina 3 + quartina 4
-------------- quartina 3 + quartina 5
-------------- quartina 4 + quartina 5

2° gruppo come sopra.cioè in cinquine pari a 6 combinazioni

questi dati(i 2 sistemi) si devono poter trasferire su EXCEL
I legend simpaticamente se conti i punti del primo gruppo
su una ottina ci sono 6 punti tanti quanti ne ho fatti ieri sera
premesso che avevo chiesto questo intervento prima dell'estrazione.
Questa la KIKKA.

Quel che raccomando di poter trasferire i dati in excel per permettere la
stampa delle schedine.
Compilare 10 schedine di 8 numeri si incorre sempre in qualche errore.
Un saluto a Disaronno e a i Legend.

 

[giorgioantonio]

Salve ma mi sto rendendo conto ora nel manipolare lo script,
le prime cinquine vanno benissimo e contano:
1-2-3-4-5 | 6-7-8-9-10 | 11 12 13 14 15 | 16-17-18-19-20
dopo le quartine contare:
1-2-3-4 | 5 6 7 8 | 9 10-11-12 | 13-14-15-16 | 17-18-19-20 (*)
per le ultime quartine conta:
1-6-11-16 | 2-7-12-17 | 3-8-13-18 | 4-9-14-19 | 5-10-15-20
quindi questo diventa il terzo gruppo
non togliere le quartine (*) è la base
Spero di essermi spiegato.
Ciao

 

[i legend]

ciao disaronno è un piacere rileggerti, spero di aver fatto cosa gradita nell'intervenire,
ciao e grazie mille,,,,
Ricorda , io non l'ho fatto sei stato tu ha fare gentilmente lo script per un mio metodo.
io imparo, ho studiato anche i tuoi script
Ciao a tutti

 

[i legend]

lo script è lungo e pesante
Contollare i dati potrebbero esserci errori visto le dimensioni e il numero delle righe

guardare ultima versione

 

[baikal]

mi permetto una correzione di battitura altrimenti non funziona
ReDim sNum1(0),sNum2(0),sNum3(0),sNum4(0),sNum5(0),sNum6(0),sNum7(0),sNum8(0),sNm9(0),sNum(10)

al posto

ReDim aNum1(0),aNum2(0),aNum3(0),aNum4(0),aNum5(0),aNum6(0),aNum7(0),aNum8(0),aNm9(0),aNum(10)

 

[giorgioantonio]

Ciao i Legend,
ti volevo dire che ho lanciato lo script c'è la redim che si blocca ma l'ho aggiustata,
mancava il numero a mun cioè num10 e fra parentesi c'era 10 invece di zero.
Non so se hai letto il mio ultimo ma manca la quartina presa dai numeri di Drisaronno
cioè la 1-2-3-4 poi 5-6-7-8 poi 9-10-11-12 poi 13-14-15-16 e 17-18-19-20 queste quartine
sono la base su cui devi puntare le giocate in formato ottine. ma si possono sfruttare
anche come quartine secche tenendo presente qualche buon ritardo.
Vorrei farti una domanda tecnica sullo sviluppo dello script partendo dal seguente
principio: la prima cosa che ci preme vedere è di tipo statistico cioè la quartina X
da quando non porta 3 punti eccetera e così via per le altre.
Ora quando abbiamo visto la situazione e la riteniamo utile al gioco ci interessiamo
in un secondo momento della formazione dei numeri. Chiedo se puoi separare
le due cose aprendone una oppure l'altra come se avessi 2 file o 2 macro(script)?
O sto dando i numeri così alleggerisci un listato e lo puoi controllare meglio.
E' fattibile?
Ciao

 

[i legend]

ciao ho inserito le decine
Scusate ma inserire anche quelle quartine è un gioco da ragazzi, basta leggere lo script la funzione è gia scritta
se le inserite occhio all' intestazione della tabella
Cmq disaronno ha gia modificato il suo script e fa quello che è stato richiesto
Grazie a baikal che ha segnalato l'errore
Vedete se funziona la riga di codice l'ho eliminata
per il resto purtroppo bisognerebbe fare proprio un altro script
ciao

Guardare ultima versione

Forse ho trovato un errore nelle decine
Controllare sto fondendo
Cmq la statistica si puo fare ma con altro script troppo pesante

 

[i legend]

Ora è completo
visto l'ora perfavore controllate se ci sono errori
Ciao

verificare l'ultima versione

 

[giorgioantonio]

I legend è meglio riposarsi poi in mattinata faro un controllo più accurato.
Ciao

 

[i legend]

versione Beta.5.0
Visto l'ora tarda verificate se va bene
ci sono molti indici spero sia tutto legato correttamente
segnalate eventuali errori non solo se non gira ma sui dati e combinazioni
Notte

Verificare Ultima Versione

 

[giorgioantonio]

Salve I Legend, Baikal
volevo sapere se ad esempio ciò che avevo ultimamente chiesto al
Signor Disaronno se è stato implementato e come ci si arriva.
Sempre che sia stata aggiunta.
Ciao e buona giornata

 

[i legend]

Verificare sempre gli output
Ho implementato solo cio che è stato richiesto
Verificare che le combinazioni siano corrette
503 righe di codice
mai fatto uno script cosi lungo neanche per me
non caricare troppe estrazioni rallenterebbe troppo o impallerebbe il pc
Ciao
Fatemi sapere che ne pensate

verificare ultima versione

 

[i legend]

Ciao ultima versione versione 6

verificare ultima versione