Novità

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

lotto_tom75

lotto_tom75

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

Codice: 
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 :eek: :D
 
Ultima modifica:
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.
 
Ultima modifica:
Tom una curiosità .ma perché non usi le tabelle?
Con tabella ordinabile puoi valutare tutti i parametri .ciao;)
 
i legend;n1922448 ha scritto:
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.
Clicca per espandere...


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 :-)
 
Codice: 
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 ;)
 
Ultima modifica:
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. :)
 
i legend;n1922644 ha scritto:
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. :)
Clicca per espandere...


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! :)
 
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
 
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;n1922963 ha scritto:
Ciao tom come va lo script?
Mi fai sapere per favore?
Ciao:)
Clicca per espandere...
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 ?
 
Ultima modifica:
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 :)
 
i legend;n1923211 ha scritto:
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 :)
Clicca per espandere...

Ok legend nessun problema :D 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 ;)
 
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 :)
 
Ciao grandissimo legend :)
Dunque finalmente dopo aver installato win 10 e risolto alcuni problemini al pc sono tornato a poter testare il tuo script! :p Che dire... fantastico come tutte le tue creazioni :D 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!
 
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;)
 
i legend;n1924360 ha scritto:
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;)
Clicca per espandere...


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! ;)
 
No Title

i legend;n1924412 ha scritto:
Tom li ho scritti con il cell Forse devi solo riformattare posta l errore ( la riga e ti dico) ciao:)
Clicca per espandere...


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

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

Grazie e Buon Week End Friend ;)
 

Allegati

  • photo11543.jpg
    photo11543.jpg
    60,4 KB · Visite: 0
  • photo11544.jpg
    photo11544.jpg
    32,4 KB · Visite: 0
  • photo11545.jpg
    photo11545.jpg
    69,8 KB · Visite: 0
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 23 gennaio 2025
    Bari
    86
    50
    83
    38
    78
    Cagliari
    11
    36
    52
    31
    74
    Firenze
    56
    59
    86
    27
    84
    Genova
    03
    61
    53
    11
    38
    Milano
    13
    14
    79
    87
    47
    Napoli
    21
    90
    48
    55
    37
    Palermo
    56
    46
    59
    02
    53
    Roma
    74
    13
    07
    38
    77
    Torino
    27
    54
    62
    36
    81
    Venezia
    09
    14
    69
    28
    62
    Nazionale
    32
    73
    27
    11
    51
    Estrazione Simbolotto
    Bari
    36
    27
    19
    08
    24
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto