Sub combConCapogioco

[i legend]

Ho scritto la sub Capogioco utilizzando gli ultimi insegnamenti di luigi quindi con scelta classe e non fissi , ma è un po lenta si può velocizzare ottimizzare?
Forse nel ciclo del Capogioco ?
Fare un if 90 volte rallenta?
Ciao e grazie.

Il codice può essere molto utile per tutti
Ciao

Sub Getcombconcapogioco (idCG,IdClasse, aComb)
Dim  anumeri (89)
Dim I, j
Dim k, e, s 
Dim aColonne 
I=0
For j = 1 To 90
       If j < > icg then
        I= I + 1 
        Anumeri  (i)=j
    End if
Next
AColonne=SviluppoIntegrale ( anumeri, IdClasse ) 
Redim aComb (ubound ( aColonne ) ) 
For  k = 1 To ubound ( aColonne ) 
       S = " " 
              For e = 1 To idClasse 
                       S = s & ". "&format2 (aColonne  (k,e))
             Next 
AComb(k) =format2 (idcg)&S
Next 
End Sub

Ciao la seguente sub trova la statistica di un cap + formazione
Salvo errori fate sapere se vi è utile

Sub main
Dim  idcg, IdClasse 
Dim  j,num,sNum , sruote 
Dim  aComb 
Dim  sorte
Dim Rit, RitMax, Incr, Freq 
Redim  aRuote ( 0 ) 
Idcg=cint ( InputBox ( " inserisci un numero  tra 1 & 90","CapoGioco",1))
If Not isnumerovalidolotto (idcg) Then  exit sub
IdClasse =getclasse
Sorte = cint ( InputBox ( " inserisci un numero tra 1 & 3","esito ",2))
ScegliRuote ( aruote ) 
Sruote =stringaruote ( aruote ) 
Call getTitoli 
Call getcombconcapogioco (idcg,IdClasse, acomb)
For  j = 1 To ubound ( aComb )
'Num= split ( " 0. " & acomb  (j), ". " ) 
Redim aVer (0)
Call  splitbychar  (acomb ( j ), ".",aVer)
Snum = stringanumeri ( aver,".",true)
Call messaggio ( "combinazione : "&snum)
Call avanzamentoElab ( 1, ubound ( aComb ), j)
Call  statisticaformazioneturbo ( aVer , aRuote, sorte,rit, RitMax, Incr, Freq ) 
Redim  aTab ( 7 ) 
Call  getTabella ( atab, j,sruote, snum, Freq, rit, RitMax, Incr ) 
Call  addrigatabella ( atab ) 

If scriptinterrotto  then  exit  For 
Next 
Call creatabellaordinabile  (4,-1,,151)
End sub 
Function  getClasse
Dim aVoci (3)
For I = 1  To 3
aVoci(i)=nomesorte ( i)
Next 
Getclasse =scegliopzionemenu  (aVoci, 1,"comb=comb+1")
End function 
Sub  getTitoli 
Dim aTitoli 
Atitoli = array ( " ", " id ", " RUOTE ", " FORMAZIONE ", " FREQ ", " RIT ", " RITMAX ", " INC.RIT " ) 
Call inittabella ( Atitoli ) 
End sub
Sub  getTabella ( atab, id, sRuote, sNum, Freq, rit, RitMax, Incr ) 
Atab ( 1 ) = id
Atab ( 2 ) = sruote 
Atab ( 3 ) = snum 
Atab ( 4 ) = Freq 
Atab ( 5 ) = rit 
Atab ( 6 ) = RitMax 
Atab ( 7 ) = incr 
End sub

 

[Talia]

 

[i legend]

Ciao anche a te mafalda

 

[i legend]

Per 10&lotto

Sub Getcombconcapogioco (idCG,IdClasse, aComb)
Dim  anumeri (89)
Dim I, j
Dim k, e, s 
Dim aColonne 
I=0
For j = 1 To 90
       If j < > icg then
        I= I + 1 
        Anumeri  (i)=j
    End if
Next
AColonne=SviluppoIntegrale ( anumeri, IdClasse ) 
Redim aComb (ubound ( aColonne ) ) 
For  k = 1 To ubound ( aColonne ) 
       S = " " 
              For e = 1 To idClasse 
                       S = s & ". "&format2 (aColonne  (k,e))
             Next 
AComb ( k)=format2 (idcg)&S
Next 
End Sub

Ciao la seguente sub trova la statistica di un cap + formazione
Salvo errori fate sapere se vi è utile

Sub main
Dim  idcg, IdClasse 
Dim  j,num,sNum , sruote 
Dim  aComb 
Dim  sorte
Dim  Ini, fin
Dim Rit, RitMax, Incr, Freq 

Ini= estrazionefin -180 
Fin=estrazionefin 
Idcg=cint ( InputBox ( " inserisci un numero  tra 1 & 90","CapoGioco",1))
If Not isnumerovalidolotto (idcg) Then  exit sub
IdClasse =getclasse
Sorte = cint ( InputBox ( " inserisci un numero tra 1 & 3","esito ",2))
If sorte >  3 then   exit sub
Call getTitoli 
Call getcombconcapogioco (idcg,IdClasse, acomb)
For  j = 1 To ubound ( aComb )
Num= split ( " 0. " & acomb  (j), ". " ) 
Snum = stringanumeri ( num,".",true)
Call messaggio ( "combinazione : "&snum)
Call avanzamentoElab ( 1, ubound ( aComb ), j)
Call  statisticaformazionedl ( num, sorte,rit, RitMax, Incr, Freq,ini,fin ) 
Redim  aTab ( 7 ) 
Call  getTabella ( atab, j,sorte, snum, Freq, rit, RitMax, Incr ) 
Call  addrigatabella ( atab ) 

If scriptinterrotto  then  exit  For 
Next 
Call creatabellaordinabile  (4,-1,,151)
End sub 
Function  getClasse
Dim aVoci (3)
For I = 1  To 3
aVoci(i)=nomesorte ( i)
Next 
Getclasse =scegliopzionemenu  (aVoci, 1,"comb=comb+1")
End function 
Sub  getTitoli 
Dim aTitoli 
Atitoli = array ( " ", " id ", " SORTE ", " FORMAZIONE ", " FREQ ", " RIT ", " RITMAX ", " INC.RIT " ) 
Call inittabella ( Atitoli ) 
End sub
Sub  getTabella ( atab, id, sorte, sNum, Freq, rit, RitMax, Incr ) 
Atab ( 1 ) = id
Atab ( 2 ) = sorte
Atab ( 3 ) = snum 
Atab ( 4 ) = Freq 
Atab ( 5 ) = rit 
Atab ( 6 ) = RitMax 
Atab ( 7 ) = incr 
End sub

Controllare formattazioni
Ciao

 

[i legend]

Commenti? Piace non piace , utile inutile,
Anche solo un ciao visto il numero di visite è gradito
Ciao; )

 

[i legend]

Ciao disaronno ora provo a confrontarlo con quello sul pc .l originale senza modifiche funziona?
Se no ho fatto degli errori di trascrizione.
Fammi sapere .intanto verifico.
Grazie e ciao

 

[i legend]

Ciao disaronno prova ricopiare la sub getcombconcapogioco dal post 1 , c'era un errore
Ora ho corretto prova a verificare.
Fammi sapere grazie
Ciao

 

[Joe91]

Ciao i legend.

Difficile mettere le mani su uno script simile.

Qundi mi permetto focalizzare il mio commento, solo alcune cose, che non piacciono nè a me ne al pc ... peraltro più recalcitrante del sottoscritto.

* Split funziona meglio con un solo carattere delimitatore. (via gli spazi)

* Il segno di diverso non richiede spazi tra i simboli maggiore e minore. (via gli spazi II)

* aComb = Format2(idCG) & s ... dice: "Array" ... mentre fa "Stringa"

* Ubound (icg) ... icg è un "nome" sbagliato.

 

[i legend]

Ciao joe grazie mille per le ottimizzazioni
Ti spiego :
Lo spazio tra i simboli < > è dovuto al fatto che non viengono scritti senza .forse è dovuto al cell .
AComb dovuto ad un errore di scrittura Mea culpa
Ubound ( icg ) non ho capito bene ma lo ricerco
Invece mi potresti spiegare la funzione split cosa intendi?
Come posso fare per velocizzare a.
Grazie mille davvero.
Sono queste le cose che mi permettono e finora mi hanno fatto migliorare.
Ciao

 

[Joe91]

Riporto dalla guida:

SplitByChar

Sub SplitByChar(sTesto, sSeparatore, aValori)

Descrizione
Alimenta un vettore con i dati prelevati da una stringa in funzione del carattere separatore specificato

Note

Valore di ritorno

Parametri

[TABLE="border: 0, cellpadding: 1, cellspacing: 2"]
[TR]
[TD] sTesto
[/TD]
[TD] Testo su cui opera la funzione
[/TD]
[/TR]
[TR]
[TD] sSeparatore
[/TD]
[TD] Carattere separatore
[/TD]
[/TR]
[TR]
[TD] aValori
[/TD]
[TD] Vettore contenente i dati splittati
[/TD]
[/TR]
[/TABLE]



Come vedi prevederebbe di utilizzare un solo carattere separatore. Spesso:

"." (importato dal vecchio L8) per separare i numeri

";" per le formazioni o lunghette ed anche per la compatibilità con i delimitatori di excel.

 

[i legend]

Grazie joe , in effetti hai ragione come al solito , ho fatto le prove sulle terzine ed il risultato è migliore.
Grazie ancora una volta; )

 

[i legend]

CNEL post uno inserito anche la funzione splitbychar
Ciao

 

[giorgioantonio]

Salve Disaronno,
ho provato il suo script e per quanto riguarda lo sviluppo terno con fissa
compresa è abbastanza veloce mentre con fissa a quaterna non nè parliamo,
molto ma molto lento.
Però si è dimenticao che i dati li deve ottenere da un archivio limitato con non più di
300 estrazioni.
Non so se mi sono spiegato
Saluti

 

[giorgioantonio]

Salve Disaronno. I Legend
avevo chiesto se possibile utilizzare i dati di un archivio limitato
Si può ottenere?
Cortesemente Grazie

 

[giorgioantonio]

Salve Disaronno
le chiedo scusa per il da fare che sto procurando ma quando c'è qualche cosa
che pare non va.
Quando lancio il programma mi esce errore 13, ho provato a cambiare diverse
volte i dati da inserire ma niente da fare ,però pare che lo sviluppo lo fa ma
al riguardo non mi da nessuna statistica; frequenza, ritardo, le voci in tabella.

Salve

 

[i legend]

StatisticaFormazioneDL(aver,sorte,Rit,RitMax,Incr,Freq,Ini,fin)


Ciao disaronno penso che l'errore fosse in num
Bisogna sostituire con aVer
Prova per favore.

 

[giorgioantonio]

Salve e buona giornata,
FANTASTICO!!! appena 90 secondi di elaborazione per la quaterna.
Volendo e al Sig.Disaronno piacendo si potrebbe tentare anche per la cinquina.
Calcoli fatti non dovrebbe impiegare più di 25 minuti.
Grazie Sig. Disaronno.
Buona giornata ancora.

 

[i legend]

Ciao disaronno non saprei dirti.sul mio PC funziona deve esserci n errore di scrittura.
Mi spiace ma con il cell è davvero faticoso scrivere uno script intero.
P.s sconsiglio vivamente di portare le combinazioni a sviluppo superiore a tre . Il PC si impalla. Poi ognuno libero di fare quello vuole.
Lo script è free e modificabile come meglio si crede.
Ognuno si assume le sue responsabilità .
Ciao

 

[giorgioantonio]

Ciao I Legend,
proprio ieri sera ho sviluppato, col tuo script la quaterna con capogioco,
ti dico bravo perchè hai smussato di parecchio gli errori.
Secondo me dovresti trovare la via per lo sviluppo che ci ha impiegato
55 minuti. Portato a temine, contro quello del Sig. Disaronno che ci ha
messo pochi minuti.
Quindi non scoraggiarti e poi prendi qualche consiglio da chi è più avanti
di te. Per imparare devi rubare il mestiere.
Ciao e buon proseguimento

 

[i legend]

Buon giorno a tutti


Mi farebbe piacere se disaronno postasse il suo Algoritmo veloce per poterlo studiare. Grazie

Cordialmente come sempre I legend