Novità

Per Ilegend o chi è capace

solare

Advanced Member >PLATINUM<
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

Advanced Member >PLATINUM<
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.

Immagine.gif
 

i legend

Premium Member
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

Premium Member
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

Advanced Member >PLATINUM<
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

Premium Member
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.
 

solare

Advanced Member >PLATINUM<
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

Premium Member
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.
 
Ultima modifica:

solare

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

joe

Advanced Member >PLATINUM PLUS<
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:

Codice:
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

Advanced Member >PLATINUM PLUS<
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:

Codice:
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

Premium Member
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

(y)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto