Come avere un incremento dinamico di un parametro di verificaesitoturbo

lotto_tom75 · 13 Ottobre 2021

Cerco di spiegarmi... meglio sperando che maestro Shifu o claudio8 o Ilegend ecc (i maestri Tigre, Gru, Vipera, Scimmia e Mantide, scegliete voi chi essere...

)... abbiano come sempre la soluzione

verificaesitoturbo...

io dovrei avere dinamicamente l'incremento di 1 punto per ogni tipo diverso del parametro relativo al colpo di uscita...

ovvero anzichè scrivere...

dim colponumero1
dim colponumero2
dim colponumero3

ecc...

dim colponumero8000

...vorrei poter riuscire ad incrementarli ognuno di 1 punto con l'opportuno select case a seconda di quale colpo venga verificato...

e mi piacerebbe incrementarli indipendentemente dal loro numero... in modo dinamico appunto...

ovvero poter alla fine avere un report del tipo

al colpo numero 1 : 10 casi...
al colpo numero 8000 : 1 caso

ecc...

Capite bene come l'idea di scrivere 8000 dim ecc... non mi alluzzichi affatto... 😬🥴

Grazie comunque per l'attenzione...

🧑‍🍳🐼 Po 👋😄

claudio8 · 14 Ottobre 2021

io non ho capito cosa vuoi fare.
Fai uno script che ci capiamo meglio .

lotto_tom75 · 14 Ottobre 2021

claudio8 ha scritto:
io non ho capito cosa vuoi fare.
Fai uno script che ci capiamo meglio .

Ciao claudio ok...

eccolo al volo uscito ora ora dal forno... 🧑‍🍳

Codice:

Option Explicit

Sub Main
 
 Dim vp
 Dim ru(1)
 Dim clp
 Dim s
 Dim estrazione
 Dim esito
 Dim winalcolponumero
 Dim estratti
 Dim idesuscita
 
 vp = Array(0,1,2,3)
 ru(1) = 1
 clp = 18
 s = 1
 
 For estrazione = EstrazioneFin-100 To EstrazioneFin
 
 Call VerificaEsitoTurbo(vp,ru,estrazione+1,1,clp,,esito,winalcolponumero,estratti,idesuscita)
 
 Scrivi StringaNumeri(vp)  & "-" & StringaNumeri(ru) & "-" & estrazione & "-" & clp & "-" & esito & "-" & winalcolponumero & "-" & estratti & "-" & idesuscita
 
 Next
   
End Sub

In questo fast script di es. vorrei semplicemente riuscire a sapere quante win al colpo 1, colpo 2 ecc... ci sono senza prima dovermi costruire le relative variabili di salvataggio...

dim quanticolpi1
dim quanticolpi2

ecc...

i legend · 14 Ottobre 2021

Verifica esito turbo calcola già il colpo.
Mettili in un array . Visto che calcola solo il primo esito è ancora più semplice.
Buona notte a tutti

claudio8 · 14 Ottobre 2021

Allora Tom ti è sufficente la risposta di I legend?

claudio8 · 14 Ottobre 2021

Cerchiamo di trovare la soluzione insieme.

Codice:

l' 1.2.3 su 1 alla 9890 per clp 18 - Estratto al  14° colpo BA 02 .. .. .. .. id 9904
 l' 1.2.3 su 1 alla 9891 per clp 18 - Estratto al  13° colpo BA 02 .. .. .. .. id 9904
 l' 1.2.3 su 1 alla 9892 per clp 18 - Estratto al  12° colpo BA 02 .. .. .. .. id 9904
 l' 1.2.3 su 1 alla 9893 per clp 18 - Estratto al  11° colpo BA 02 .. .. .. .. id 9904
 l' 1.2.3 su 1 alla 9894 per clp 18 - Estratto al  10° colpo BA 02 .. .. .. .. id 9904
 l' 1.2.3 su 1 alla 9895 per clp 18 - Estratto al   9° colpo BA 02 .. .. .. .. id 9904
 l' 1.2.3 su 1 alla 9896 per clp 18 - Estratto al   8° colpo BA 02 .. .. .. .. id 9904
 l' 1.2.3 su 1 alla 9897 per clp 18 - Estratto al   7° colpo BA 02 .. .. .. .. id 9904
 l' 1.2.3 su 1 alla 9898 per clp 18 - Estratto al   6° colpo BA 02 .. .. .. .. id 9904
 l' 1.2.3 su 1 alla 9899 per clp 18 - Estratto al   5° colpo BA 02 .. .. .. .. id 9904
 l' 1.2.3 su 1 alla 9900 per clp 18 - Estratto al   4° colpo BA 02 .. .. .. .. id 9904
 l' 1.2.3 su 1 alla 9901 per clp 18 - Estratto al   3° colpo BA 02 .. .. .. .. id 9904
 l' 1.2.3 su 1 alla 9902 per clp 18 - Estratto al   2° colpo BA 02 .. .. .. .. id 9904
 l' 1.2.3 su 1 alla 9903 per clp 18 - Estratto al   1° colpo BA 02 .. .. .. .. id 9904

questa sopra è una parte dell'output in sostanza lo stesso esito ti viene conteggiato per 14 volte.
ipotizzando che sia solo questo l range di estrazioni e conteggiando gli esiti, avresti un elenco di 14 esiti
dal 1° al 14 colpo.
in una eventuale ìtrabella avresti:
esiti al 1° colpo 1
esiti al 2° colpo 1
..... .........
esiti al 14° colpo 1
stiamo comunque parlando dello stesso esito (id 9904)
a tuo parere cosa dobbiamo fare x ovviare a questo risultato?
attendo e spegni il forno che ci vuole tempo prima di sfornare il "pasticcio di crema".
☮️🆑8️⃣

lotto_tom75 · 14 Ottobre 2021

claudio8 ha scritto:
Cerchiamo di trovare la soluzione insieme.

Codice:

l' 1.2.3 su 1 alla 9890 per clp 18 - Estratto al 14° colpo BA 02 .. .. .. .. id 9904 l' 1.2.3 su 1 alla 9891 per clp 18 - Estratto al 13° colpo BA 02 .. .. .. .. id 9904 l' 1.2.3 su 1 alla 9892 per clp 18 - Estratto al 12° colpo BA 02 .. .. .. .. id 9904 l' 1.2.3 su 1 alla 9893 per clp 18 - Estratto al 11° colpo BA 02 .. .. .. .. id 9904 l' 1.2.3 su 1 alla 9894 per clp 18 - Estratto al 10° colpo BA 02 .. .. .. .. id 9904 l' 1.2.3 su 1 alla 9895 per clp 18 - Estratto al 9° colpo BA 02 .. .. .. .. id 9904 l' 1.2.3 su 1 alla 9896 per clp 18 - Estratto al 8° colpo BA 02 .. .. .. .. id 9904 l' 1.2.3 su 1 alla 9897 per clp 18 - Estratto al 7° colpo BA 02 .. .. .. .. id 9904 l' 1.2.3 su 1 alla 9898 per clp 18 - Estratto al 6° colpo BA 02 .. .. .. .. id 9904 l' 1.2.3 su 1 alla 9899 per clp 18 - Estratto al 5° colpo BA 02 .. .. .. .. id 9904 l' 1.2.3 su 1 alla 9900 per clp 18 - Estratto al 4° colpo BA 02 .. .. .. .. id 9904 l' 1.2.3 su 1 alla 9901 per clp 18 - Estratto al 3° colpo BA 02 .. .. .. .. id 9904 l' 1.2.3 su 1 alla 9902 per clp 18 - Estratto al 2° colpo BA 02 .. .. .. .. id 9904 l' 1.2.3 su 1 alla 9903 per clp 18 - Estratto al 1° colpo BA 02 .. .. .. .. id 9904

questa sopra è una parte dell'output in sostanza lo stesso esito ti viene conteggiato per 14 volte.
ipotizzando che sia solo questo l range di estrazioni e conteggiando gli esiti, avresti un elenco di 14 esiti
dal 1° al 14 colpo.
in una eventuale ìtrabella avresti:
esiti al 1° colpo 1
esiti al 2° colpo 1
..... .........
esiti al 14° colpo 1
stiamo comunque parlando dello stesso esito (id 9904)
a tuo parere cosa dobbiamo fare x ovviare a questo risultato?
attendo e spegni il forno che ci vuole tempo prima di sfornare il "pasticcio di crema".
☮️🆑8️⃣

Credo che bisognerebbe fermarsi al 1° esito risultante di id9904

Per quanto riguarda la spiegazione di ilegend purtroppo non mi basta.. in quanto so che la funzione verificaesitoturbo ha già il valore esito ma non so come poterlo conteggiare come spiegato sopra anche se inserisco i valori in un array...

claudio8 · 14 Ottobre 2021

lotto_tom75 ha scritto:
Credo che bisognerebbe fermarsi al 1° esito risultante di id9904 Esatto dobbiamo fermarci alla estrazione che rileva il 1° esito

Per quanto riguarda la spiegazione di ilegend purtroppo non mi basta.. (l'avrei giurato, con te bisogna essere elementari) in quanto so che la funzione verificaesitoturbo ha già il valore esito ma non so come poterlo conteggiare come spiegato sopra anche se inserisco i valori in un array...

Esatto dobbiamo fermarci alla estrazione, ripeto all'estrazione in cui la funzione rileva relativamente ai numeri analizzati il 1° esito e per ottenere questo cosa dobbiamo fare?
inserire una condizione... vero?
prova a scriverla in questo script meno personalizzato ma + esplicto (se non lo hai notato, il nome dei parametri decisi da Luigi hanno una logica intuitiva, non sono nomi a caso, sono compositi ret = parametto che ritorna/restitusce un valore ecc. ecc. :

Codice:

Option Explicit
Sub Main
    Dim vp
    Dim ru(10)
    Dim clp
    Dim s
    Dim es
    Dim retEsito
    Dim retColpo
    Dim retEstratti
    Dim retIdestr
    vp = Array(0,1,2,3)
    ru(1) = 1
    'ru(2)= 2
    clp = 18
    s = 1
    For es = EstrazioneFin - 100 To EstrazioneFin
        Call VerificaEsitoTurbo(vp,ru,es + 1,1,clp,,retEsito,retColpo,estratti,retIdestr)
        Scrivi " l' " & StringaNumeri(vp) & " su " & StringaNumeri(ru) & " alla " & es & " per clp " & clp & " - " & retEsito & " al " & FormatSpace(retColpo,3,1) & "° colpo " & retEstratti & " id " & retIdestr
    Next
End S

a te la condizione e se rieci anche ciò che ne deriverebbe.

claudio8 · 14 Ottobre 2021

ripetuto- cancellato

claudio8 · 14 Ottobre 2021

otterremo alla fine questo output

Codice:

 l' 1.2.3 su 1 alla 9888 per clp 18 - Estratto al   2° colpo BA .. .. .. 02 .. id 9890
 l' 1.2.3 su 1 alla 9891 per clp 18 - Estratto al  13° colpo BA 02 .. .. .. .. id 9904
 l' 1.2.3 su 1 alla 9905 per clp 18 - Estratto al  10° colpo BA .. .. 02 .. .. id 9915
 l' 1.2.3 su 1 alla 9916 per clp 18 - Estratto al   9° colpo BA .. .. .. .. 03 id 9925
 l' 1.2.3 su 1 alla 9926 per clp 18 - Estratto al   3° colpo BA .. .. 01 .. .. id 9929
 l' 1.2.3 su 1 alla 9930 per clp 18 - Estratto al   7° colpo BA .. .. 03 .. .. id 9937
 l' 1.2.3 su 1 alla 9938 per clp 18 - Ambo al   5° colpo BA .. .. 03 01 .. id 9943
 l' 1.2.3 su 1 alla 9944 per clp 18 - Estratto al  11° colpo BA .. 02 .. .. .. id 9955
 l' 1.2.3 su 1 alla 9956 per clp 18 - Estratto al   9° colpo BA .. .. .. .. 02 id 9965
 l' 1.2.3 su 1 alla 9966 per clp 18 - Estratto al   3° colpo BA 02 .. .. .. .. id 9969
 l' 1.2.3 su 1 alla 9970 per clp 18 - Estratto al   6° colpo BA .. .. .. 03 .. id 9976
 l' 1.2.3 su 1 alla 9977 per clp 18 - Estratto al   7° colpo BA 01 .. .. .. .. id 9984
 l' 1.2.3 su 1 alla 9985 per clp 18 -  al   3° colpo  id

che è la base da cui estrapolare i colpi in cui ci sono stati gli esiti che man mano che scorrono le estrazione vengono inseriti in una matrice o tabella che visualizzeremo o scriveremo in output a fine script.

lotto_tom75 · 14 Ottobre 2021

claudio8 ha scritto:
Esatto dobbiamo fermarci alla estrazione, ripeto all'estrazione in cui la funzione rileva relativamente ai numeri analizzati il 1° esito e per ottenere questo cosa dobbiamo fare?
inserire una condizione... vero?
prova a scriverla in questo script meno personalizzato ma + esplicto (se non lo hai notato, il nome dei parametri decisi da Luigi hanno una logica intuitiva, non sono nomi a caso, sono compositi ret = parametto che ritorna/restitusce un valore ecc. ecc. :

Codice:

Option Explicit Sub Main Dim vp Dim ru(10) Dim clp Dim s Dim es Dim retEsito Dim retColpo Dim retEstratti Dim retIdestr vp = Array(0,1,2,3) ru(1) = 1 'ru(2)= 2 clp = 18 s = 1 For es = EstrazioneFin - 100 To EstrazioneFin Call VerificaEsitoTurbo(vp,ru,es + 1,1,clp,,retEsito,retColpo,estratti,retIdestr) Scrivi " l' " & StringaNumeri(vp) & " su " & StringaNumeri(ru) & " alla " & es & " per clp " & clp & " - " & retEsito & " al " & FormatSpace(retColpo,3,1) & "° colpo " & retEstratti & " id " & retIdestr Next End S

a te la condizione e se rieci anche ciò che ne deriverebbe.

Bho forse... qualcosa di simile...?

Codice:

if retidestr <> ""

exit for

???

claudio8 · 14 Ottobre 2021

se hai provato a metterlo nelloscript avrai notato che ti butta fuori dal ciclo for che è l'unico che hai quindi ... sbagliato.
non voglio scrivere ritenta, ma te lo meriti.

lotto_tom75 · 14 Ottobre 2021

claudio8 ha scritto:
se hai provato a metterlo nelloscript avrai notato che ti butta fuori dal ciclo for che è l'unico che hai quindi ... sbagliato.
non voglio scrivere ritenta, ma te lo meriti.

si mi scrive solo il primo esito

claudio8 · 14 Ottobre 2021

lotto_tom75 ha scritto:
si mi scrive solo il primo esito

in sostanza ti ha buttato fuori dal ciclo for delle estrazioni
appena verificata la cindizione if retidestr <> ""
e ti ha scritto solo ciò che ha rilevato la 1a volta.

comincia con il togliere sti maledetti call che mettete dappertutto come se fosse prezzemolo e ragiona sul verifica estito relativamente a cosa ritorna dalla funzione
dall'help:

VerificaEsito
Valore di ritorno
Torna true se il pronostico si è verificato
se ha verificato il pronostico ti dice che è "true/vero "

quindi se il pronostico è verificato estrrapoliamo il valore del colpo di esito "retColpo" che nello specifico andremo a chiamare "salto"
ricordati che stai ciclando le estrazioni ed al 1° verificarsi del valore true come ritorno da verificaesito "es" devi saltare alla estrazione es+ salto

quindi il costrutto deve essere ;
per es = EstrazioneFin - 100 To EstrazioneFin

" se verificaesito = true allora salto = retColpo
continuiamo con Scrivi e poi
"es" lo facciamo diventare "es+salto"
quindi riprendiamo a ciclare con "next"
la seconda fase è quella di inserire all'interno del ciclo for. sempre se la condizione verificaesito è true, un quantificatore e memorizzatore dei valori che a te interessano.

claudio8 · 14 Ottobre 2021

se non sono stato chiaro ti metto dietro alla lavanga

come vedi non devi fare niente di tutto quello che avevi in mente.
avevi scritto:

"ovvero anzichè scrivere...

dim colponumero1
dim colponumero2
dim colponumero3
ecc...
dim colponumero8000"

non devi fare niente di tutto questo.
devi creare una tabella che contiene nelle righe il n° di colpi da 1 a max colpi da te impostabili e nella colonna 1 0 2 a seconda se usi la "colonna zero" il valore totale che il contatore interno al ciclo for delle estrazioni ti avrà quantificato man mano che le estraziono vengono ciclate.
muoviti o ti considero dietro alla lavagna prima di andare a letto. 🆑8️⃣

claudio8 · 14 Ottobre 2021

Mi fa piacere..... Tom......
io sto qui a spiegarti passo passo la lezioncina e tu senza avvisarmi ti scolleghi e magari ti sei anche messo a letto....
Sfadigato di un pasticcere ... questa me la paghi 😄😄😄
Domattina ripasso di qui, e voglio trovare cappuccino e cornetto pagati.
Notte

lotto_tom75 · 15 Ottobre 2021

claudio8 ha scritto:
Mi fa piacere..... Tom......
io sto qui a spiegarti passo passo la lezioncina e tu senza avvisarmi ti scolleghi e magari ti sei anche messo a letto....
Sfadigato di un pasticcere ... questa me la paghi 😄😄😄
Domattina ripasso di qui, e voglio trovare cappuccino e cornetto pagati.
Notte

Codice:

Option Explicit

Sub Main
 
 Dim vp
 Dim ru(1)
 Dim clp
 Dim s
 Dim estrazione
 Dim esito
 Dim salto
 Dim estratti
 Dim idesuscita
 
 vp = Array(0,1,2,3)
 ru(1) = 1
 clp = 18
 s = 1
 
 For estrazione = EstrazioneFin - 100 To EstrazioneFin
 
 VerificaEsitoTurbo vp,ru,estrazione + 1,1,clp,,esito,salto,estratti,idesuscita
 
 If idesuscita <> "" Then
 
 VerificaEsitoTurbo vp,ru,estrazione + salto,1,clp,,esito,salto,estratti,idesuscita
 
 Scrivi idesuscita
 
 End If 
 
 Next
   
End Sub

provando a saltare... nel burrone...

claudio8 · 15 Ottobre 2021

allora ti nascondi per non essere bacchettato...

con questo tue 4 righe modificate/zuccherate al punto giusto, ti lascio riflettere x tutta la notte

Codice:

Option Explicit
Sub Main
    Dim vp,salto
    Dim ru(10)
    Dim clp
    Dim s
    Dim es
    Dim retEsito
    Dim retColpo
    Dim retEstratti
    Dim retIdestr
    vp = Array(0,1,2,3)
    ru(1) = 1
    'ru(2)= 2
    clp = 18
    s = 1
    For es = EstrazioneFin - 100 To EstrazioneFin
        If VerificaEsitoTurbo(vp,ru,es + 1,1,clp,,retEsito,retColpo,retEstratti,retIdestr) Then salto = retColpo
        Scrivi " l' " & StringaNumeri(vp) & " su " & StringaNumeri(ru) & " alla " & es & " per clp " & clp & " - " & retEsito & " al " & FormatSpace(retColpo,3,1) & "° colpo " & retEstratti & " id " & retIdestr
          es = es + salto
    Next
End Sub

🆑8️⃣ buona notte

lotto_tom75 · 15 Ottobre 2021

claudio8 ha scritto:

allora ti nascondi per non essere bacchettato...

con questo tue 4 righe modificate/zuccherate al punto giusto, ti lascio riflettere x tutta la notte

Codice:

Option Explicit
Sub Main
    Dim vp,salto
    Dim ru(10)
    Dim clp
    Dim s
    Dim es
    Dim retEsito
    Dim retColpo
    Dim retEstratti
    Dim retIdestr
    vp = Array(0,1,2,3)
    ru(1) = 1
    'ru(2)= 2
    clp = 18
    s = 1
    For es = EstrazioneFin - 100 To EstrazioneFin
        If VerificaEsitoTurbo(vp,ru,es + 1,1,clp,,retEsito,retColpo,retEstratti,retIdestr) Then salto = retColpo
        Scrivi " l' " & StringaNumeri(vp) & " su " & StringaNumeri(ru) & " alla " & es & " per clp " & clp & " - " & retEsito & " al " & FormatSpace(retColpo,3,1) & "° colpo " & retEstratti & " id " & retIdestr
          es = es + salto
    Next
End Sub

🆑8️⃣ buona notte

'Notte

i legend · 15 Ottobre 2021

Ciao a tutti

Tom forse ieri ho capito male.
A te cosa serve? Verifica esito turbo si ferma al primo risultato ottenuto.

Potresti dare un esempio concreto? Forse esiste una funzione più specifica di verifica esito.

Come avere un incremento dinamico di un parametro di verificaesitoturbo

Advanced Premium Member

Premium Member

Advanced Premium Member

Premium Member

Premium Member

Premium Member

Advanced Premium Member

Premium Member

Premium Member

Premium Member

Advanced Premium Member

Premium Member

Advanced Premium Member

Premium Member

Premium Member

Premium Member

Advanced Premium Member

Premium Member

Advanced Premium Member

Premium Member