Possibile controllare in modo integrale e automatico i vari casi su tot ruote unite?

[lotto_tom75]

Sarebbe possibile modificare questo script affinchè valuti TUTTE le TOT ruote unite a rotazione?

Option Explicit
Sub Main
Dim sFile
Dim k,y
Dim nSorte,RetRit1,RetRitMax,RetIncrRitMax,Inizio,Fine,RetFreq,anum,QuantitaNumeriscelti
Dim coltot,acol,Classe,i

ReDim aRuote(3)

aRuote(1) = BA_
aRuote(2) = CA_
aRuote(3) = FI_
'aRuote(4) = GE_
'aRuote(5) = MI_
'aRuote(6) = NA_
'aRuote(7) = PA_
'aRuote(8) = RO_
'aRuote(9) = TO_
'aRuote(10) = VE_
'aRuote(11) = NZ_


nSorte = 3

ReDim anum(0)
QuantitaNumeriscelti = ScegliNumeri(anum)

Classe = 3

coltot = InitSviluppoIntegrale(anum,Classe)

If coltot > 0 Then

Do While GetCombSviluppo(acol) = True

i = i + 1

Call StatisticaFormazioneTurbo(acol,aRuote,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)

Dim Diff
Diff = RetRitMax - RetRit1

If(RetRit1 > 0) Then

Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(acol) & " RA: " & RetRit1 & " RS: " & RetRitMax & " INCMAX: " & RetIncrRitMax & " FQ: " & RetFreq & " RUOTA: " & " ruote decise (unite)" & " Diff " & Diff)

End If

Call AvanzamentoElab(1,coltot,i)

Call Messaggio("Colonna " & i)

If ScriptInterrotto Then Exit Do

Loop
End If
End Sub

Es. impostiamo una condizione, un range di ricerca e quante ruote unite esaminare "integralmente" e lo script, nel caso ad esempio avessimo scelto come numero di ruote unite 3, valuta sempre considerandole unite:

prima BACAFI poi BACAGE poi BACAMI poi BACANA poi BACAPA poi BACARO poi BACATO poi BACAVE poi (saltando eventualmente la nazionale...) salta... a valutare CAFIGE ... CAFIMI ecc... fino all'ultimissimo caso ROTOVE...

Qualcuno riuscirebbe a modificare lo script riportato sopra affinchè riesca a fare questo CICLO?

Grazie mille per l'attenzione e Good Week End a tutti/e

Ps: L'idea mi è venuta dopo aver visto in ricevitoria una vincita x T secco ottenuta con una giocata su 3 ruote BAFIVE

 

[i legend]

Sub main
Redim aRuote (0)' seleziono le ruote
Dim R1,R2, R3 'variabili indici
Dim aRuVer (3) 'combinazioni ruote
Call validaRuote (aruote)
For r1=1 To ubound ( aruote )-2
For r2=r1+1 To ubound ( aruote )-1
For r3=r2+1 To ubound ( aruote )
aRuVer( 1 ) = aruote (r1)
ARuver ( 2 )=aruote (r2)
ARuver (3)=aruote (r3)
Scrivi stringaruote (aRuVer, 1)
" tuo codice
Next
Next
Next
End sub
Sub validaRuote (aruote )
ScegliRuote (aruote )
Do until ubound (aruote )>=3
Msgbox"è necessario selezionare almeno 3 ruote "
ScegliRuote (aruote )
Loop
End sub
Ciao tom
Non lo faccio tutto xche scrivo da cellulare.
Fammi sapere.

 

[i legend]

Tom una curiosità .ma perché non usi le tabelle?
Con tabella ordinabile puoi valutare tutti i parametri .ciao

 

[lotto_tom75]

Sub main
Redim aRuote (0)' seleziono le ruote
Dim R1,R2, R3 'variabili indici
Dim aRuVer (3) 'combinazioni ruote
Call validaRuote (aruote)
For r1=1 To ubound ( aruote )-2
For r2=r1+1 To ubound ( aruote )-1
For r3=r2+1 To ubound ( aruote )
aRuVer( 1 ) = aruote (r1)
ARuver ( 2 )=aruote (r2)
ARuver (3)=aruote (r3)
Scrivi stringaruote (aRuVer, 1)
" tuo codice
Next
Next
Next
End sub
Sub validaRuote (aruote )
ScegliRuote (aruote )
Do until ubound (aruote )>=3
Msgbox"è necessario selezionare almeno 3 ruote "
ScegliRuote (aruote )
Loop
End sub
Ciao tom
Non lo faccio tutto xche scrivo da cellulare.
Fammi sapere.

Ciao grandissimooo anche io sono da cellulare e posso provarlo solo stasera sul tardi comunque grazie infinite e ancora complimenti per la rapidità di risposta e di programmazioneee Ti faccio sapere senz'altro ps: non ho capito come potrei usare le tabelle ottenendo lo stesso risultato. Comunque se è possibile e me lo spieghi provo senza ombra di dubbio Grazie anche per questo. Ciao

 

[lotto_tom75]

Sub Main
ReDim aRuote(0)' seleziono le ruote
Dim R1,R2,R3 'variabili indici
Dim aRuVer(3) 'combinazioni ruote
Call validaRuote(aRuote)
For R1 = 1 To UBound(aRuote) - 2
For R2 = R1 + 1 To UBound(aRuote) - 1
For R3 = R2 + 1 To UBound(aRuote)
aRuVer(1) = aRuote(R1)
aRuVer(2) = aRuote(R2)
aRuVer(3) = aRuote(R3)
Scrivi StringaRuote(aRuVer,1)

'codice

Dim sFile
Dim k,y
Dim nSorte,RetRit1,RetRitMax,RetIncrRitMax,Inizio,Fine,RetFreq,anum,QuantitaNumeriscelti
Dim coltot,acol,Classe,i

ReDim aRuote(3)

'codice

nSorte = 3

ReDim anum(0)
QuantitaNumeriscelti = ScegliNumeri(anum)

Classe = 3

coltot = InitSviluppoIntegrale(anum,Classe)

If coltot > 0 Then

Do While GetCombSviluppo(acol) = True

i = i + 1

Call StatisticaFormazioneTurbo(acol,aRuote,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)

Dim Diff
Diff = RetRitMax - RetRit1

If(RetRit1 > 0) Then

Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(acol) & " RA: " & RetRit1 & " RS: " & RetRitMax & " INCMAX: " & RetIncrRitMax & " FQ: " & RetFreq & " RUOTA: " & " ruote decise (unite)" & " Diff " & Diff)

End If

Call AvanzamentoElab(1,coltot,i)

Call Messaggio("Colonna " & i)

If ScriptInterrotto Then Exit Do

Loop
End If

'fine codice

Next
Next
Next
End Sub
Sub validaRuote(aruote)
ScegliRuote(aruote)
Do Until UBound(aruote) >= 3
MsgBox"è necessario selezionare almeno 3 ruote "
ScegliRuote(aruote)
Loop
End Sub

Ciao legend, purtroppo come vedi non riesco ad implementare il codice nel tuo script. Fammi sapere se riesci a farlo tu Ancora grazie 1000 mito

 

[i legend]

Ciao tom lo devi inserire dentro il do while l ho provato funziona ma è lentissimo. Provo a studiare qual osa di più flessibile e più veloce .ci sto lavorando su.
Cmq se metti tanti numeri devi moltiplicare lo sviluppo numerico per lo sviluppo delle ruote.
Ciao.

 

[lotto_tom75]

Ciao tom lo devi inserire dentro il do while l ho provato funziona ma è lentissimo. Provo a studiare qual osa di più flessibile e più veloce .ci sto lavorando su.
Cmq se metti tanti numeri devi moltiplicare lo sviluppo numerico per lo sviluppo delle ruote.
Ciao.

Niente... non riesco ad unirli... se puoi mettermi il codice unito che a te funziona seppur lento ti ringrazio

Ben vengano ulteriori tue ottimizzazioni ma se intanto posti il codice "lento" provo a fare qualche piccolo test anche con quello...

GRAZIE friend!

 

[i legend]

Ciao tom scusa sono stato frettoloso il ciclo combinatorio funziona per la scrittura. Ci lavoro credo di sapere dove sbaglio. Ci lavoro su domani .ciao

 

[i legend]

Sub main
Dim Ncol, id,rit
Dim R1, R2, R3
Dim atitoli
Redim aRuote ( 0 ), aNum ( 0)
Atitoli =array ("","id","ruote","comb","rit")
Call inittabella ( Atitoli )
Sceglinumeri (aNum )
ScegliRuote ( aruote )
Ncol =initsviluppointegrale (aNum, 3)
Redim aRu (3)
Id=0
Idnum=0 ' se vuoi inserire avanzamento elab
Do while getcombsviluppo (aNum )
Idnum=Idnum +1
For R1 = 1 To ubound ( aruote ) - 2
For r2 = r1 + 1 To ubound ( aruote ) - 1
For r3 = r2 + 1 To ubound ( aruote )
Id=id+1
ARu (1)=aruote (r1 )
Aru (2)=aruote (r2)
Aru (3)=aruote (r3)
Call statisticaformazioneturbo (aNum, aRu,2,rit,0,0,0)
Redim aTab (4)
Atab (1)=id
Atab (2)= stringaruote (Aru )
Atab ( 3)=stringanumeri (aNum, ,true)
Atab ( 4)=rit
Call addrigatabella ( atab )
Next
Next
Next
Loop
Creatabellaordinabile
End sub
Ho scritto con cell
Forse bisogna formattare.
Controlla che la stat sia corretta
Non ho verificato
Fammi sapere per favore.
Ciao

 

[i legend]

Ciao tom come va lo script?
Mi fai sapere per favore?
Ciao

 

[lotto_tom75]

Ciao tom come va lo script?
Mi fai sapere per favore?
Ciao

Ciao mitico certo che ti faccio sapere appena riesco a provarlo . Ora scrivo da tablet e ieri non ho potuto stare al pc. Intanto Complimenti e Grazie 1000. Ti faccio sapere il prima possibile. ps: 18 numeri x potenziale T su tutte anche a colpo ti interesserebbero per le tue eventuali esercitazioni riduzionali ?

 

[i legend]

Ciao tom al momento sto cercando di ottimizza lo script sono concentrato su questo. Appena finisco questo faccio qualcosa ad hoc per filtrare le tue lunghetta.
Ciao a presto

 

[lotto_tom75]

Ciao tom al momento sto cercando di ottimizza lo script sono concentrato su questo. Appena finisco questo faccio qualcosa ad hoc per filtrare le tue lunghetta.
Ciao a presto

Ok legend nessun problema io lo dicevo per te se ti potevano fare comodo Ad ogni modo quando e se vorrai per adesso le trovi qui sul forum in questo thread Grazie ancora per il tuo ottimo supporto

 

[i legend]

Ciao tom ;
Non c'è di che.
Nel post per luigi ci sono le ottimizzazioni flessibili
Puoi sviluppare le ruote in qualsiasi classe tu voglia.
Ciao

 

[lotto_tom75]

Ciao grandissimo legend
Dunque finalmente dopo aver installato win 10 e risolto alcuni problemini al pc sono tornato a poter testare il tuo script! Che dire... fantastico come tutte le tue creazioni La ciliegina sulla torta? Poter elaborare l'incmax per ogni risultanza... e tutte le formazioni di ruote volute analizzandole integralmente.. mentre per adesso mi pare che si debba scegliere solo 3 ruote di volta mantenendo il numero di ruote scelte entro il limite impostato nel codice giusto?

Un altro chiarimento al riguardo di quest ultimo che ti chiedo è: la sorte elaborata si imposta in forma criptica... dalla riga sottostante con il valore evidenziato in rosso vero? Perchè altrimenti non trovo il parametro da nessuna altra parte

Call StatisticaFormazioneTurbo (aNum, aRu,2,rit,0,0,0)

Ciao e grazie ancora!

 

[i legend]

Ciao tom si è il num eretto se vai nel post domanda x luigi scritto da me in fondo trovi 2 miei script provati li ho fatti per te.
Sei meno vincolato w non devi reimpostare i cicli volta x volta .se hai dubbi chiedi.
Mi potresti dire qual è il più veloce dei tre con gli stessi parametri?
Ciao

 

[lotto_tom75]

Ciao tom si è il num eretto se vai nel post domanda x luigi scritto da me in fondo trovi 2 miei script provati li ho fatti per te.
Sei meno vincolato w non devi reimpostare i cicli volta x volta .se hai dubbi chiedi.
Mi potresti dire qual è il più veloce dei tre con gli stessi parametri?
Ciao

Ciao i legend ho provato anche gli script che mi hai ricordato qui ma purtroppo mi danno tutti e tre errore e non riesco a capire dove devo aggiustarli.. Puoi verificarli tu e postarmi il codice da te eseguito senza intoppi? GRAZIE MITICO!

 

[i legend]

Tom li ho scritti con il cell Forse devi solo riformattare posta l errore ( la riga e ti dico) ciao

 

[lotto_tom75]

No Title

Tom li ho scritti con il cell Forse devi solo riformattare posta l errore ( la riga e ti dico) ciao

Addirittura con il cell? Ma come fai a programmare su cell? Sei un mostro... (di bravura)

Ad ogni modo ecco gli errori che mi appaiono rispettivamente ai 3 script

Grazie e Buon Week End Friend