scrivere uno script

[giorgioantonio]

Ciao I Legend,
si per fissa intendo capogioco, un numero che sia presente in tutte le combinazioni
in modo tale che pur cercando combinazioni in quaterna in effetti svilupperebbe terni.
NB se puoi leggere ho messo un altro quesito sempre in questo. Leggilo.
Ciao

 

[i legend]

1 Capogioco e gli altri numeri a scelta o tutti gli altri 89? Tieni presente che sviluppare una quartine ossia 1 fisso più sviluppo in terzine non è uno scherzo. Ossia e più lento dello script di precedente perché li lo sviluppo usa funzioni native così la Costruiamo noi.
Si più specifico così mike ed io possiamo costruire un algoritmo ad hoc.

Ciao

 

[giorgioantonio]

Ciao,

l'idea è quella di usare i 90 numeri perchè si deve andare a cercare i + frequenti.
Mancando di qualche numero non sai se quelli scartati possono essere dei + frequenti.
L'idea è appunto questa. tienine conto.
Poi l'ho detto prima di prendere solo combinazioni che hanno 3 punti sul terno, 4 e 3 punti sulla
quaterna compreso il capogioco/fissa.

Ciao

 

[i legend]

Ciao Giorgio scrivere la funzione del Capogioco non è difficile, ma essendo le statistiche del 10 e lotto lente i tempi si allungano .
Al massimo possiamo fare Capogioco .+ ambi . Proprio al max Capogioco + terzine.
Se non l ha già postata mike la posto più tardi io ma devo fare prima i test. Ciao

 

[Mike58]

Ciao Giorgioantonio, eccoti lo stesso script precedentemente postato con il capogioco voluto.
Ti ribadisco che le righe in tabella hanno un limite e comunque puoi ottenenere le migliori 100 righe ordinate x ritardo, frequenza o altro.

Per gli altri punti non saprei, come allacciare un foglio Excel sicuramente con dei parametri rispondenti potrebbe anche essere possibile, ma la voglia ed il poco tempo almeno a me non lo permettono.
Ti posso altresì dire che con un foglio Txt è possibile leggere ed elaborare dati da archivio esterno ma questi dati hanno bisogno di 3 parametri necessari

1 - id numero combinazione
2 - data o id estrazione
3 - riga colonna o combinazione

solo cosi si riesce ad estrapolare dati da un foglio txt esterno (Notepad).

P.s. per legend per il capogioco basta mettere il vettoreNumeri di sviluppo combinazione con valore zero ed il primo numero elaborato sarà sempre il capogioco.

Sub Main

Dim aCol

ReDim aNum(0)

Call ImpostaArchivio10ELotto(1)

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

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

capog = CInt(InputBox("Quale capogioco ",,90))

ScegliNumeri(aNum)

Scrivi StringaNumeri(aNum),1

Scrivi "CapoGioco Inserito : " & capog,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

For k = 1 To UBound(aNum)

aNum(0) = capog

aNum(k) = aNum(k)

Next

Ncol = InitSviluppoIntegrale(aNum,IdClasse)

Idcol = 0

Call GetTesto'Tab

Do While GetCombSviluppo(aCol) = True

Snum = StringaNumeri(aCol,,True)

Idcol = Idcol + 1

Call Messaggio(snum)

Call AvanzamentoElab(1,ncol,idcol)

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

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

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

ReDim aTab(8)

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

If aCol(1) = capog Then

Call AddRigaTabella(aTab)

End If

If ScriptInterrotto Then Exit Do

Loop

Call CreaTabellaOrdinabile(3)

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

 

[i legend]

Ciao Mike non va bene così per il Capogioco.
L utilità del Capogioco e sviluppare meno colonne.
Così carichi il Capogioco alla inizio ma sviluppi anche tutte le altre combinazioni. Che non servono.
Ho aperto un post apposito dove ho scritto proprio una sub ma spero che sia ottimizza bile.
Dagli un occhiata per vedere la logica che ho seguito.
Ciao fammi sapere.li
Ho fatto una sub che fa la statistica basta mettere la funzione del 10 e lotto ed è il seguente script.
Il post è sub combconcapogioco
Ciso

 

[giorgioantonio]

Ciao Mike,
personalmente non vorrei darti fastidio ma purtroppo dovresti verificare
lo script.
1)-questa è a mia richiesta: quando esce la statistica se puoi portare
i valori più alti di FREQUENZE, naturalmente tutta la riga;
2)-ho fatto uno sviluppo su 35 numeri e come velocità almeno per
35 non è niente male, l'ho fatto per quaterna e con la fissa/capogioco
quando finisce lo sviluppo ricomincia daccapo e il capogioco non lo
considera più. chiedevo 3 punti minimo.
3)-per la quaterna se chiedo 4 punti su 4 mi da indice non compreso nello
intervallo.
Vedi un pò.
Ciao

 

[i legend]

Ciao anche a te Giorgio.

 

[giorgioantonio]

Ciao ho fatto uno sviluppo con 90 numeri e la fissa. Secondo me fa 2 elaborazioni che sarebbunica.
Mi spiego prima sviluppa con la ifssa poi continua con tutti gli altri numeri.
Mi spiego meglio ancora fa lo sviluppo integrale dei 90 numeri.
Dovrebbe arrestarsi quando con la fissa ha passato gli 89 numeri e quindi fermarsi.
Ripeto prima fa lo sviluppo con la fissa e poi continua col resto dei numeri.
Il che comporta tanto tempo mentre se tiene conto della fissa in 2 minuti a terni finirebbe.
Ciao

 

[Mike58]

Ciao Giorgioantonio lo script è ordinabile in tabella e se clicchi sulle frequenze ascendebte o discendente fa l'ordinamento richiesto.
Legend non lo so se lo script non fa quello che chiede a me sembra di si infatti se elaboro ambi con il capogioco elabora esattamente 89 combinazioni.
per gli errori questi saranno dovuti a esiti che non sono.

ad ogni modo non lo so si possono fare tutte le verifiche del caso, guarderò anche la tua sub.

Ciao raga devo scappare.

 

[giorgioantonio]

Salve I Legend, Mike,

non potete fare altro sullo script, tipo migliorie sullo sviluppo?

Ciao e buona domenica

 

[giorgioantonio]

Salve i legend, buona giornata, nello script iniziato da te e continuato col Sig. Disaronno e in ultimo il Sig Magia, chiedevo in ultimo di inserire come ricerca la lista dei numeri più frequenti che poi servirebbe da scegliere come capogioco. Il tutto andrebbe inteso sull'archivio che si sceglie che può essere di 50 oppure 200, come da richiesta iniziale.con una piccola aggiunta che al numero sia segnalato le volte che esce consecutivo: Cioè è uscito es. 5 volte consecutivo 3 oppure 2 volte con consecutività 3. Così si può chiudere in vera bellezza questo script. Spero di essermi spiegato, è una necessità del programma che andrebbe completato. Ti saluto e ringrazio per l'iniziativa e l'inizio di aver iniziato a trattare l'argomento. Buona giornata salutare.