scrivere uno script

[giorgioantonio]

​Salve a tutti,
chiedo se vi è possibile scrivere uno script, che penso nella sua struttura non sia complicato, PENSO.
Passo a descrivere ciò che dovrebbe fare questo script:

1)-riguarda estrazioni del 10elotto serale, quello abbinato al lotto serale;
2)-scelta su quante righe fare la ricerca, es 300;
3)-considerare l'archivio a contare dall'ultima estrazione, o terz'ultima a contare 300;
4)-quindi 2 input inizio e fine archivio;
5)-cercare in questo gruppo di estrazioni, terni, quaterne, cinquine ecc singolarmente
per combinazioni quelle più frequenti dell'archivio preso in considerazione;
6)-stabilire un minimo e massimo dei punti da cercare;
7)-elencare combinazioni fino ad un max di 150 in ordine decrescente di punteggi.

Tutto qua.

Grazie

 

[i legend]

Ciao Giorgio purtroppo non è molto chiaro cosa dovrebbe fare la tua ricerca.
Se posso permettermi un suggerimento io proverei a fare un esempio visivo.
Prendi un foglio di calcolo se non hai excel ci sono molte suite free e compili una tabella.
Ci metti le intestazioni e le riempi con esempi reali
Bastano un paio di righe
Così facendo tu sai già quale risultato voler ottenere
E per chi vorrà fare lo script capisce se è fattibile .
Ps è molto importante anche capire l utilità dello script ossia il risultato finale.
Ciao

 

[giorgioantonio]

<a href="http://it.tinypic.com?ref=23uoqiv" target="_blank"><img src="http://i59.tinypic.com/23uoqiv.png" border="0" alt="Image and video hosting by TinyPic"></a>
Ciao I Legend,
ti dico subito che hai avuto un’ottima idea
quella di postare lo schema grafico di ciò
che voglio.
Spero sia chiaro e se lo è = a + di 1000 parole.
(telegrafico)
Se ci sono problemi con la memoria del Pc per la quantità di numeri con tutti,
da inserire invece 2 fasce che comprendano almeno 50-60 numeri

 

[giorgioantonio]

l'immagine, spero
Ciao

 

[i legend]

Ciao ci sono molti script che fanno qualcosa di simile Cmq stasera mi metto e lo posto a meno che non lo prepari gia qualcun altro
Ciao

 

[giorgioantonio]

Ciao I Legend
una dimenticanza: la serie di combinazioni ottenute posizionarle in ordine decrescente relativo
alla propria frequenza.
Ciao

 

[i legend]

Sub main 
Redim  aNum ( 0 )  
Call impostaarchivio10elotto(1) 
Fin=cint (InputBox ( " ultimo  concorso ","fine analisi",estrazionefin )) 
nConc =cint (InputBox ( " nConc da analizzare ","",300)) 
Sceglinumeri ( aNum )
  Scrivi  "q.num     : "&ubound ( aNum ) 
 IdClasse= scegliClasse 
Scrivi " classe  comb : "&nomesorte  (IdClasse ) Npunti= cint ( InputBox ( " punti max : "&IdClasse, "",IdClasse ))
 Scrivi "punti analizzati  : "&Npunti  Ncol=initsviluppointegrale ( aNum, IdClasse )  Idcol=0 
Call GetTestoTab Do while getcombsviluppo ( aNum )
  Snum =stringanumeri ( aNum,,true )
  Idcol=Idcol + 1  
Call messaggio  (snum) 
Call avanzamentoElab ( 1, ncol,idcol) 
Call  statisticaformazionedl (aNum, Npunti, rit, RitMax, Incr, Freq, ini, fin )  
Redim  aTab ( 6)
 Call getTabella ( atab, idcol,snum, rit, RitMax, Inc, Freq )
  Call addrigatabella ( atab ) 
 If script interrotto Then exit  do 
Loop 
Call creatabella( 6,-1,,150) 
End sub 
Sub GetTesto
Dim aTitoli 
Atitoli =array ( " ", " id","formazione ","rit ","rit max ","incr","freq")
Call inittabella ( Atitoli ) 
'
'
 End sub 
Sub getTabella ( atab , idcol, snum, rit, RitMax, Inc, Freq )
'
'Atab ( 1 ) = Idcol 
Atab ( 2 ) = snum 
Atab ( 3 ) = rit 
Atab ( 4 ) = RitMax 
Atab ( 5 ) = Inc 
Atab ( 6 ) = Freq 
  End sub  
Function  scegliClasse  
Dim k 
Dim  aNum ( 5 ) 
For k = 1 To ubound ( aNum ) 
ANum ( k )=nomesorte (  k)
Next
ScegliClasse =scegliopzionemenu (aNum, 2,"classe  comb ") 
End function

Le ultime tre funzioni sono da completare per favore fatelo voi e semplice Ciao

 

[giorgioantonio]

Salve I Legend,

ho lanciato lo script e trova errore 1025 fine istruzione, linea 9, colonna 49,
Ho provato ad aggiungere una virgola ma poi passa alla linea 10... se puoi intervenire.
Ti volevo chiedere se questo non ti stravolge lo script se puoi aggiungere
nelle combinazioni a discrezione dell'interessato se si può aggiungere la possibilità
di una FISSA ad esempio nella quaterna se volessi aggiungere la fissa.
Poichè non è andato a buon fine lo sviluppo non ho visto il finale.
Poi non ho capito da finire, per me è peggio di arabo. se parli di codice

Ciao

 

[i legend]

Ciao Giorgio finito
Prova a ricopiare o adesso.
Scrivo con cell magari è solo da formattare non credo sia un problema..
Ciao

 

[i legend]

Ciao Giorgio ricopiare lo script?
Ho scritto le tre funzioni mancanti.
Erano davvero facili.
Adesso va bene?

 

[giorgioantonio]

Ciao I Legend,
si ferma sempre alla riga 10 chiede fine istruzione
"Ncol = InitSviluppoIntegrale(aNum,IdClasse) Idcol = 0)"
e seleziona questa parte di riga.

 

[Mike58]

Riformattato con qualche aggiunta.

Sub Main

ReDim aNum(0)

Call ImpostaArchivio10ELotto(1)

Fin = CInt(InputBox(" ultimo concorso ","fine analisi",EstrazioneFin))

nConc = CInt(InputBox(" nConc da analizzare ","",300))

ScegliNumeri(aNum)

Scrivi StringaNumeri(aNum),1

Scrivi

Scrivi "Qtà.numeri : " & UBound(aNum)

IdClasse = scegliClasse

Scrivi "classe combinazione : " & NomeSorte(IdClasse)

Npunti = CInt(InputBox(" punti max richiesti : " & IdClasse,"",IdClasse))

Scrivi "Punti Minimi analizzati : " & Npunti

Ncol = InitSviluppoIntegrale(aNum,IdClasse)

Idcol = 0

Call GetTesto'Tab

Do While GetCombSviluppo(aNum)

Snum = StringaNumeri(aNum,,True)

Idcol = Idcol + 1

Call Messaggio(snum)

Call AvanzamentoElab(1,ncol,idcol)

Call StatisticaFormazioneDL(aNum,Npunti,rit,RitMax,Incr,Freq,ini,fin)

sf = SerieFreqDL(fin-rit,fin-rit,aNum,1)

Call VerificaEsitoDL(aNum,fin-rit,npunti,1,,,estratti)

ReDim aTab(8)

Call getTabella(aTab,idcol,snum,rit,RitMax,Incr,Freq,estratti,sf)

Call AddRigaTabella(aTab)

If ScriptInterrotto Then Exit Do

Loop

Call CreaTabellaOrdinabile(1,1,,150)

End Sub

Sub GetTesto

Dim aTitoli

aTitoli = Array(" "," id","formazione ","rit ","rit max ","incr","freq","Verifica Esito al Ritardo","Punti")

Call InitTabella(aTitoli)

'

'

End Sub

Sub getTabella(atab,idcol,snum,rit,RitMax,Incr,Freq,estratti,sf)

'

atab ( 1 ) = idcol

atab(2) = snum

atab(3) = rit

atab(4) = RitMax

atab(5) = Incr

atab(6) = Freq

atab(7) = estratti

atab(8) = sf

End Sub

Function scegliClasse

Dim k

Dim aNum(5)

For k = 1 To UBound(aNum)

aNum(k) = NomeSorte(k)

Next

scegliClasse = ScegliOpzioneMenu(aNum,2,"classe comb ")

End Function

 

[giorgioantonio]

Salve Mike, I legend,
grazie Mike dell’intervento allo script ma grazie anche I Legend per l’iniziativa.
Per non scordarmi 2 annotazioni penso di poco conto:
1)-non accetta Option Explicit –ho messo un apice;
2)-se intendo usare la combinazione 5 e con punti 5 = 9- indice non compreso nell’intervallo.
3)-non credo che tiene conto del punto max richiesto cioè accetta anche i meno.
Ma a prescindere queste 2 note di facile correzione.
Mi permetto se possibile fare un ragionamento secondo me logico ma resta da vedere
Come trovare il codice.
Parto dallo sviluppo che ho avviato e non concluso forse per questioni di memoria al Pc.
Ho preso a sviluppare i terni di tutti i 90 numeri: solo per sviluppare le 117.480 combinazioni
Ha impiegato 22 minuti poi ha cercato di raccogliere i dati e mi chiedeva di non continuare.
Sono riuscito a vedere la conclusione dello sviluppo quando ho dato 40 numeri.
Ho pensato: questo script deve lavorare su una ristretta quantità di dati, io ho detto 300
Righe ma mi aggirerò intorno alle 250 estrazioni;
Poi mi son detto perché sviluppare prima 117.480 combinazioni e poi devo ( il Pc) scartare le
Combinazioni con meno di 3 punti?
Se ciò è possibile per ora parlo solo di terni e di tutti i 90 numeri, (la mia proposta, la mia teoria)
UNA riga comporta 190 terni, questi terni vanno a vedere sulle altre 299 righe che frequenza
Hanno avuto. Se una riga mi da 190 terni per 300 = 57.000 terni che vado a sviluppare.
Esattamente la metà e dico ancora che quando ha fatto il primo controllo la 300esima
Sulle 199 terrà conto solo di una parte di combinazioni accettate (forse Arry) mi avrà scartato tantissime combinazioni perché non rientrano nel punteggio
Richiesto, cioè terni con 1 punto e terni con 2 punti.
E fin qui i dati esposti potrebbero anche essere accettati.
Faccio il passo alla quaterna: per i terni solo a sviluppare ha impiegato 22 minuti mentre
Per i dati non mi ha dato niente nel senso che ho dovuto chiudere.
Le combinazioni in quaterna comportano 2.555.190 combinazioni, faccio una proporzione
Solo per evidenziare la quantità di tempo:
se 117.480 : 22(minuti) = 2.555.190 : x che tradotto 22 X 2.555.190 / 117.480 = 478 minuti
cioè 8 ore circa.
La mia è solo una analisi niente più, però….. se possibile una riflessione si può fare.
Ciao

 

[Mike58]

Ciao, GiorgioAntonio, ti rispondo per i primi 2 punti.
1 - option explicit in questo script non è da usare in quanto tutte le variabili non sono dichiarate in Martice_Dim.(giusto quello cge hai fatto spuntare con Apice).

2 - sulle combinazioni in cinquina lo script va in errore il VerificaEsito in quanto non trova esiti = 5 punti.
ma non è sbagliato l'uso del codice solo non trova esiti e segnala errore.
visto che questa era una mia aggiunta ho voluto far scrivere l'esito minimo al ritardo.

Tutto il resto anche se con una certa logica non mi pare fattibile in quanto le tabelle hanno comunque un limite di righe in scrittura e non si può agire su di loro in se x se, ma comunque sull'archivio sia esso lotto o altro, a prescindere dai tempi di elaborazioni (ahimè elaborazioni dai terni in su è complicato).

Ti posso dire che il tuo discorso senza tabelle può essere anche fattibile ma i tempi restano pur sempre lontani dalle aspettative.

Ti posso consigliare di sfruttare lo script a pezzi di numeri e raccogliere cosi le tue indicazioni.

Noi Poveri scripter, ma Ricchi di disponibiltà non siamo ancora attrezzati per i miracoli.
Magari il nostro Deus chissà !!!.

Ciao un saluto anche all'amico I legend (sempre + bravo)

 

[i legend]

Ciao a tutti.
Grazie mille mike
Scrivo nella casella dei messaggi. Immagina la fatica.
X Giorgio
Se a te interessa soli la frequenza metti un apice dove c'è Call statisticaformazioneturbo
Lascia serieFreqTurbo di Mike
Sicuramente sarà più veloce
Cmq 22 min è troppo ora provo io
Ciao

 

[i legend]

Ciao statistica formazione dl è una lumaca rispetto quella del lotto oppure sbaglio?
Ciao

 

[giorgioantonio]

Ciao Mike,

spero non hai ritenuto di aver detto che si fa così,
dalla mia completa ignoranza in fatto di codici, di qualsiasi tipo,
ho voluto lanciare una idea.
Ho fatto come quelli che stanno dietro la scrivania, devi fare questo e quello
ma la pala la tengono gli altri.
Chiarito che non si può fare, volevo chiedere se si può togliere qualche statistica
perchè dopo che ha elaborato ci vuole molto tempo per dare i dati,
certo che non so da cosa dipende.
Avevo chiesto, se questo non stravolge il lavoro fatto, di poter inserire
a piacimento una fissa. Se almeno questo è possibile.
Saluti con i dovuti ringraziamenti.
Parlo per entrambi.
Ciao

 

[Mike58]

Ciao GiorgioAntonio, la mia era solo una risposta logica che voleva far emergere la difficolta ad elaborare una momtagna di dati, non ho assolutamente pensato nulla di negativo stai tranquillo.

Il fisso penso sia possibile metterlo l'ho giò fatto con questa tipologia di script, devo solo ripescare la routine che avevo scritto e visto che lo script non è una mia fattura devo rivederlo e capirne i punti, ma penso che sia io che i legend potremmo riuscire in questo.

P.s. tante volte agire sui codici altrui è + dispendioso e difficoltoso che partire e raggiungere la meta con i propri piedi.

Quanto prima vedremo di farlo.

Ciao

 

[i legend]

Ciao allora anche togliendo statistica formazione e verifica esito rimane lento.
I ritardi in una statistica penso Cmq sua importante. Per fissa che si intende?
Capogioco ?

 

[giorgioantonio]

Salve e ancora un pò di fastidio che poi come si suol dire mi tolgo davanti alle p....,
Siamo sempre nelle richieste ipotizzabili quindi da prendere sul serio solo se si
possono fare.
1)primo uno script può leggere e servirsi dei dati su un foglio di excel?
2)secondo se si da una colonna di dati può analizzare quanti di questi dati
sono presenti in un'altra tabella sempre dello stesso foglio excel?

Chiedo questo perchè una elaborazione fatta con formule e anche con
codice vba comporta moltissimo tempo ricercarli.
E' un tentativo.
Mi basta una piccola risposta
Il mio quesito è rivolto a chiunque è in grado di risolvermelo.
Grazie