Per Ilegend o chi è capace

[i legend]

Ok. Quando puoi

 

[solare]

Solare dato che si tratta di un estratto non capisco che senso ha verificare le ultime uscite e verificarne gli storici.
Se inserisci ultime 10 presenze è quell estratto ha avuto un iperfrequenza ( 3,4,5 volte) in pochissime estrazioni che statistica ne ricavi?
A mio personalissimo avviso è concettualmente errato.
Mi spiace ,ma non posso fare una cosa che ritengo errata anche se magari per altri è esatta . Lo script originale l ho regalato, se qualcuno volesse modificarlo per accontentarti ,liberissimo di farlo

Mi spiace ma io non posso.
Se hai bisogno di altro chiedi pure ,se sono in grado e condivido l idea sarò felice di aiutarti.
Ciao

Ilegend, mi avevi detto che la cosa non ti interessava perché ritenevi errata, adesso sei incuriosito.
Io non sono un programmatore, ma ti avevo semplicemente chiesto di modificare quello che ti ho allegato con quella statistica riportata da quel listato. L'unica differenza anziché elaborare dal al considerare solo le ultime 15/20 volte che era sortito il numero a me interessato.
Tutto quà.

 

[solare]

Eccoti una breve ricerca relativa alla ruota di Bari in merito al numero 90 sortito le ultime 15 volte.
Ovvio che più dati abbiamo meglio è in merito alla statistica, tipo rit min. rit. max ecc.

 

[i legend]

​

Ilegend, mi avevi detto che la cosa non ti interessava perché ritenevi errata, adesso sei incuriosito.
Io non sono un programmatore, ma ti avevo semplicemente chiesto di modificare quello che ti ho allegato con quella statistica riportata da quel listato. L'unica differenza anziché elaborare dal al considerare solo le ultime 15/20 volte che era sortito il numero a me interessato.
Tutto quà.

Ciao Solare

Se non ho un confronto dati ,non mi sento di postare qualcosa che potrebbe essere errato.

Ho fatto lo script nel tempo che potevo dedicarci.
Aspetto te per verificare e confrontare i dati.
Fai con il tempo che puoi dedicarci.
Ciao
P.s :
Non sono incuriosito. Lo script che mi hai chiesto di modificare potrebbe già fare questo.
Infatti se vuoi controllare gli ultimi n casi
Si potrebbe fare come ho suggerito.
In statistica veloce conti i casi ,vedi la data del primo caso che ti interessa , e la inserisci in scegliRange, e lasci estrazionefin per avere la statistica alla ultima estrazione che hai in archivio aggiornato. In pratica
Ottieni quello che vuoi con lo script che già hai.
Mi scuso se chiedo di dedicare del tempo per un confronto dati.
Spero di aver fatto bene, e che il risultato finale ,vi soddisfi a pieno.

Ciao ,

 

[i legend]

Ok. Grazie
Solare potresti postare 15 casi?
Hai scritto 15 ma in foto ci sono solo 10 casi.
P.s : se hai già lo script a che serviva modificare l altro ? Quello che ho realizzato fa le stesse cose.
Complimenti alla autore dello script.

 

[solare]

i legend, siano 15 casi o 10 casi non cambia nulla, il senso della ricerca è quello. Userò quel listato, in qualche modo farò lo stesso
Grazie

 

[i legend]

Cercherò di riportarti qualche caso ma non di più in quanto a mano si fa molta difficoltà.
tu sicuramente attraverso il listato fai molto prima.
Comunque appena posso inserisco qualche caso.
Poi vedi tu se postarlo o meno.

Hai scritto che a mano si fa molta difficoltà ,ma hai già uno script che fa la ricerca in due secondi,
Questo non lo capisco.
Questo mi fa dispiacere.

 

[i legend]

Eccoti una breve ricerca relativa alla ruota di Bari in merito al numero 90 sortito le ultime 15 volte.
Ovvio che più dati abbiamo meglio è in merito alla statistica, tipo rit min. rit. max ecc.

Vedi l'allegato 2195448

Ciao

 

[i legend]

Ti confermo i tuoi risultati.
Il tuo script fa già quanto richiedevi

 

[solare]

I legend, per fare questa ricerca, anche tramite spaziometria ci si impiega 10 minuti, basta trovare le ultime x volte che è sortito il numero che interessa, vedere i numeri ripetuti ed il ritardo in posizione. Non serve nessun listato. Ovvio che per velocizzare il tutto, serve un listato. Ma comunque non preoccuparti, faccio lo stesso. Poi io penso, se si vuole fare un listato lo si fa senza tanti misteri.
Ti ho già detto grazie mille e la chiudiamo qua.

 

[i legend]

I legend, per fare questa ricerca, anche tramite spaziometria ci si impiega 10 minuti, basta trovare le ultime x volte che è sortito il numero che interessa, vedere i numeri ripetuti ed il ritardo in posizione. Non serve nessun listato. Ovvio che per velocizzare il tutto, serve un listato. Ma comunque non preoccuparti, faccio lo stesso. Poi io penso, se si vuole fare un listato lo si fa senza tanti misteri.
Ti ho già detto grazie mille e la chiudiamo qua.

Ho letto tutto quello che ho scritto e non ho trovato nulla di scortese nelle mie risposte da portarti a scrivere la chiudiamo qua.

dato che avevo scritto che per me era importante il confronto dei dati, se puo interessarti li ho allineati ai tuoi
e ti posto conferma,


Cordiali Saluti.

 

[solare]

Ok grazie ancora
nel caso tu decidessi di postare il tuo listato sarà sicuramente utile per tutti.
Ciao

 

[joe]

I dati al messaggio 23, mi risultano corretti.

Ho scritto un semplice programma,

per limitare l'output al numero di presenze volute.

Sperando sia gradito ed utile lo allego qui di seguito:

Option Explicit
Sub Main
  'Demo InputBox Interattivo By Joe
  Dim Ini,Fin,Es,G,R,N,K,Q
  Ini = EstrazioneIni : Fin = EstrazioneFin
  ReDim P(Fin - Es)
  R = BA_ : N = 90
  For Es = Ini To Fin
    If Posizione(Es,R,N) > 0 Then
      G = G + 1
      P(G) = Es
    End If
  Next
  Messaggio "Trovate " & G & " presenze del n° " & N & " a " & NomeRuota(R)
  Q = InputBox("Quante ?","ULTIME ESTRAZIONI",G)
  Ini = P(G - Q + 1)
  Scrivi "Ultime " & Q & " presenze del n° " & N & " a " & NomeRuota(R)
  Scrivi
  For Es = Ini To Fin
    If Posizione(Es,R,N) > 0 Then
      K = K + 1
      Scrivi FormatSpace(K,3) & Space(1),True,False
      Scrivi DataEstrazione(Es) & Space(1) & SiglaRuota(R) & Space(1),False,False
      Scrivi StringaEstratti(Es,R)
    End If
  Next
End Sub

Buona Serata a tutte/i.

 

[salvo50]

I dati al messaggio 23, mi risultano corretti.

Ho scritto un semplice programma,

per limitare l'output al numero di presenze volute.

Sperando sia gradito ed utile lo allego qui di seguito:

Option Explicit
Sub Main
  'Demo InputBox Interattivo By Joe
  Dim Ini,Fin,Es,G,R,N,K,Q
  Ini = EstrazioneIni : Fin = EstrazioneFin
  ReDim P(Fin - Es)
  R = BA_ : N = 90
  For Es = Ini To Fin
    If Posizione(Es,R,N) > 0 Then
      G = G + 1
      P(G) = Es
    End If
  Next
  Messaggio "Trovate " & G & " presenze del n° " & N & " a " & NomeRuota(R)
  Q = InputBox("Quante ?","ULTIME ESTRAZIONI",G)
  Ini = P(G - Q + 1)
  Scrivi "Ultime " & Q & " presenze del n° " & N & " a " & NomeRuota(R)
  Scrivi
  For Es = Ini To Fin
    If Posizione(Es,R,N) > 0 Then
      K = K + 1
      Scrivi FormatSpace(K,3) & Space(1),True,False
      Scrivi DataEstrazione(Es) & Space(1) & SiglaRuota(R) & Space(1),False,False
      Scrivi StringaEstratti(Es,R)
    End If
  Next
End Sub

Buona Serata a tutte/i.

Ciao a Tutti.

Bello!

 

[i legend]

Ciao Joe
come al solito il tuo codice è semplice ed elegante
Ho impiegato del tempo per fare lo script solo perche volevo regalare ,un qualcosa di piu articolato, e visualmente più user friendly .
ottimo lavoro

 

[solare]

Grazie Joe, gentile come sempre.