Dovrei analizzare la situazione fino all'estrazione finale - 21 estrazioni invece...

[lotto_tom75]

Cerco di spiegarmi meglio...

Mi riferisco a questa funzione del grandissimo Maestro Luigi che se non erro costruì proprio su mia esplicita richiesta...

Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23")

Ora nell'esempio la funzione mostra i 23 casi teoricamente ancora in corso...

Ad es. questi...

Giocate in corso per colpi 23
Estrazione generatrice del pronostico 09516 [101 - 23/08/2018]
G 0001 Numeri in gioco : 78.10 su PA per Estratto
N. [78.10 ] [PA] [.. .. .. .. ..] C. 1 09517 [102 - 25/08/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 2 09518 [103 - 28/08/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 3 09519 [104 - 30/08/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 4 09520 [105 - 01/09/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 5 09521 [106 - 04/09/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 6 09522 [107 - 06/09/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 7 09523 [108 - 08/09/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 8 09524 [109 - 11/09/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 9 09525 [110 - 13/09/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 10 09526 [111 - 15/09/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 11 09527 [112 - 18/09/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 12 09528 [113 - 20/09/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 13 09529 [114 - 22/09/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 14 09530 [115 - 25/09/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 15 09531 [116 - 27/09/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 16 09532 [117 - 29/09/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 17 09533 [118 - 02/10/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 18 09534 [119 - 04/10/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 19 09535 [120 - 06/10/2018] < vorrei che si fermasse a questa estrazione... ovvero 21 estrazioni prima... rispetto all'ultima in archivio
N. [78.10 ] [PA] [.. .. .. .. ..] C. 20 09536 [121 - 09/10/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 21 09537 [122 - 11/10/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 22 09538 [123 - 13/10/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 23 09539 [124 - 16/10/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 24 09540 [125 - 18/10/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 25 09541 [126 - 20/10/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 26 09542 [127 - 23/10/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 27 09543 [128 - 25/10/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 28 09544 [129 - 27/10/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 29 09545 [130 - 30/10/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 30 09546 [131 - 02/11/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 31 09547 [132 - 03/11/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 32 09548 [133 - 06/11/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 33 09549 [134 - 08/11/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 34 09550 [135 - 10/11/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 35 09551 [136 - 13/11/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 36 09552 [137 - 15/11/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 37 09553 [138 - 17/11/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 38 09554 [139 - 20/11/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 39 09555 [140 - 22/11/2018]
N. [78.10 ] [PA] [.. .. .. .. ..] C. 40 09556 [141 - 24/11/2018] <<< Invece lo script analizza mediante quella funzione la situazione fino a qui...


Lo script come si vede riporta in output la situazione finale all'ultima estrazione presente in archivio ovvero come indicato dalla freccia al 24-11-2018 mentre a me servirebbe che la analizzasse solo fino al 6-10-2018 ad esempio ovvero si fermasse a 21 estrazioni prima ca.

Come potrei fare per far fermare l'analisi a 21 estrazioni prima rispetto l'ultima estrazione + attuale?

Per adesso ho provato in questi modi che elenco qui sotto ma nessuno per adesso ha funzionato...

1) Ho provato a mettere nel codice il - 21 nella estrazione "fin"

ini = EstrazioneFin - h
fin = EstrazioneFin  - 21

2) E anche a spostare la barra in basso relativa all'estrazione finale di valutazione alla data che mi interessava (es. 6-10-2018)

Ma come ripeto per adesso mi valuta sempre la situazione fino all'ultima estrazione presente in archivio...

Un saluto a tutti/e

 

[Rubino]

Dai lottotom

Si può usare una inputbox per il campo fin

così gli dai tu il limite finale , cambiando l ultima


fin = inputbox("estrazione fino a ",,estrazionefin)

Se come dici lo script continua fino last estraz. In archivio
senza script non ti posso aiutare

guardati bene lo script

 

[lotto_tom75]

Dai lottotom

Si può usare una inputbox per il campo fin

così gli dai tu il limite finale , cambiando l ultima


fin = inputbox("estrazione fino a ",,estrazionefin)

Se come dici lo script continua fino last estraz. In archivio
senza script non ti posso aiutare

guardati bene lo script

Ciao rubino, grazie dell'intervento ma anche cambiando semplicemente e direttamente il fin nell'estrazione finale voluta...

 ini = EstrazioneFin - h
 fin = 9535  ' anche se si mette il numero di estrazione corrispondente all'estrazione 6-10-2018 lo script se ne sbatte... :-/

Comunque lo script è questo se ti può servire anche per trovare la soluzione al mio quesito...

Sub Main()

   Dim ruota(12)
   Dim ruote(10)
   Dim ambata(2)
   Dim posta(1)
   posta(1) = 1

   Dim x

   For ds = 1 To 45


   k = 63

   h = 300

   ini = EstrazioneFin - h

   fin = 9535

For es = ini To fin

   Call AvanzamentoElab(ini,fin,es)

      For r = 1 To 12
         If r = 11 Then r = 12
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               ruota(1) = r
               n1 = Estratto(es,r,p1)
               n2 = Estratto(es,r,p2)
               If Distanza(n1,n2) = ds Then
                  If Decina(n2) = Decina(n1) Then
                     x =(n1 + n2)/2
                     m1 = Fuori90(x + 4)
                     'm2 = x
                     m3 = Vert(x)
                     m4 = Vert(m1)
                     co = co + 1
                     Scrivi String(100,"=") & " Caso n°" & Format2(co),1
 Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " Ambo Distanza " & ds & " [" & Format2(n1) & "-" & Format2(n2) & "] Stessa decina"
                     ColoreTesto 0
                     'ambata(1) = m1
                     'ambata(2) = m2
                     ambata(1) = m3
                     ambata(2) = m4
                     Call ImpostaGiocata(1,ambata,ruota,posta,k,1)
                     'Gioca es
                  Gioca es,False,False,0,0,False
                  End If
               End If
            Next
         Next
      Next
      Next
      If ScriptInterrotto Then Exit For
   Next

Call ScriviDistribuzioneEsiti(True)
Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23")

  ' Scrivi : ScriviResoconto
End Sub

In sostanza è come se la funzione ScriviDistribuzioneCasiInCorso valutasse comunque fino all'ultima estrazione presente in archivio..., indipendentemente da qualsiasi altra configurazione e impostazione decisa...

Ciao e Grazie