Novità

RicercaLunghetteNET

C
Edoardo_95 ha scritto:
Nuovo aggiornamento (30/03/2024)

RicercaLunghetteNET 1.0.21

Cambiamenti :
  1. Rimosso browser estrazioni da schermata principale, ed inserito in menu -> Archivio -> Browser standard
  2. Inserito calendario al posto del browser (quel punto vuoto mi urtava)
  3. All'interno del browser aggiunta possibilità di visualizzare Ritardi/frequenze - Somme/Distanze, Disegnare, ricercare, filtri preimpostati ecc ecc..
  4. Aggiunta sezione "Classifiche"
  5. Aggiunta possibilità attraverso il doppio click di far partire automaticamente la statistica della formazione in esame (funzione abilitata sia nella griglia delle lunghette sia all'interno della funzione piramide ritardi (come da richiesta ppaaoolloo).
  6. Aggiunta funzione "Statistica esiti" ancora in fase sperimentale (come da richiesta Lotto_Tom).
Clicca per espandere...
Considerando i diversi cambiamenti e le implementazioni, verificate sempre i risultati e la funzionalità del software.
 
Edoardo ora t' impegno . :) Potresti aggiungere un modulo per tenere aggiornati i ritardi attuali e la ricerca del max storico per ciascuna ruota delle 9 decine dinamiche .

Fai girare lo script

Codice: 
Option Explicit
Sub Main
Dim DN,R,N,S
R = BA_ : DN = "0" : S = 2
For N = 1 To 90
DN = DN & "." & N
If Cadenza(N) = 0 Then EuRiDin DN,R,S : DN = "0"
Next
End Sub
Sub EuRiDin(DN,R,S)
Dim K,P,Es,Ini,Fin,Tmp,GR,Nu
Dim Ru(1) : Ru(1) = R
Nu = Split(DN,".")
Ini = EstrazioneFin - 100 : Fin = EstrazioneFin
Messaggio " Decina Naturale " & DecinaNaturale(Nu(2))
K = 0 : Scrivi FormatSpace(NomeRuota(Ru(1)),11),1,0
For P = 1 To UBound(Nu) : Scrivi FormatSpace(Nu(P) & "°",3),1,0 : Next : Scrivi " PdR",1
For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
K = K + 1
If SerieFreqTurbo(Es,Es,Nu,Ru,1,,,1) >= S Then
Scrivi DataEstrazione(Es) & " ",1,0
For P = 1 To UBound(Nu)
Tmp = NumeroPosRit((Es - 1),Ru(1),Nu(P))
If Posizione(Es,Ru(1),Tmp) > 0 Then ColoreTesto 2 : GR = 1
Scrivi Format2(Tmp) & " ",GR,0 : ColoreTesto 0 : GR = 0
Next
Scrivi " Rit" & FormatSpace(K,4,1),1 : K = 0
End If
Next
Scrivi DataEstrazione(Fin) & " ",1,0
For P = 1 To UBound(Nu)
Scrivi Format2(NumeroPosRit(Fin,Ru(1),Nu(P))) & " ",1,0
Next : Scrivi " Rc " & FormatSpace(K,4,1),1
Scrivi String(49,"="),1
End Sub


Poi passeremo ha qualcosa di più complesso come il ritardo relativo di primo e secondo grado .

Ciao Eugenio
 
Edoardo_95 ha scritto:
Fatto (y)
Clicca per espandere...
ciao
inanzi tutto ti ringrazio per la tua disponibilità

quello che vorrei ottenere io dalle ricerche è la possibilità di ottenere risultati
con numeri consecutivi nella piramide

faccio un esempio con numeri a caso

esempio:

combinazione ruote ritardo
75-76-77 MI 88
44-45-46 MI-RO 50
58-59-60 CA-NA-TO 48
58-59-60 CA-MI-NA-TO 44
21-22-23 CA-FI-MI-TO-VE 20
14-15-16 BA-CA-MI-NA-PA-VE 10
47-48-49 BA-CA-FI-NA-PA-TO-VE 7
 
ppaaoolloo ha scritto:
ciao
inanzi tutto ti ringrazio per la tua disponibilità

quello che vorrei ottenere io dalle ricerche è la possibilità di ottenere risultati
con numeri consecutivi nella piramide

faccio un esempio con numeri a caso

esempio:

combinazione ruote ritardo
75-76-77 MI 88
44-45-46 MI-RO 50
58-59-60 CA-NA-TO 48
58-59-60 CA-MI-NA-TO 44
21-22-23 CA-FI-MI-TO-VE 20
14-15-16 BA-CA-MI-NA-PA-VE 10
47-48-49 BA-CA-FI-NA-PA-TO-VE 7
Clicca per espandere...
Screenshot 2024-04-01 214741.png

Ok fatto. Nel prossimo aggiornamento ci sarà
 
genios ha scritto:
Edoardo ora t' impegno . :) Potresti aggiungere un modulo per tenere aggiornati i ritardi attuali e la ricerca del max storico per ciascuna ruota delle 9 decine dinamiche .

Fai girare lo script

Codice: 
Option Explicit
Sub Main
Dim DN,R,N,S
R = BA_ : DN = "0" : S = 2
For N = 1 To 90
DN = DN & "." & N
If Cadenza(N) = 0 Then EuRiDin DN,R,S : DN = "0"
Next
End Sub
Sub EuRiDin(DN,R,S)
Dim K,P,Es,Ini,Fin,Tmp,GR,Nu
Dim Ru(1) : Ru(1) = R
Nu = Split(DN,".")
Ini = EstrazioneFin - 100 : Fin = EstrazioneFin
Messaggio " Decina Naturale " & DecinaNaturale(Nu(2))
K = 0 : Scrivi FormatSpace(NomeRuota(Ru(1)),11),1,0
For P = 1 To UBound(Nu) : Scrivi FormatSpace(Nu(P) & "°",3),1,0 : Next : Scrivi " PdR",1
For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
K = K + 1
If SerieFreqTurbo(Es,Es,Nu,Ru,1,,,1) >= S Then
Scrivi DataEstrazione(Es) & " ",1,0
For P = 1 To UBound(Nu)
Tmp = NumeroPosRit((Es - 1),Ru(1),Nu(P))
If Posizione(Es,Ru(1),Tmp) > 0 Then ColoreTesto 2 : GR = 1
Scrivi Format2(Tmp) & " ",GR,0 : ColoreTesto 0 : GR = 0
Next
Scrivi " Rit" & FormatSpace(K,4,1),1 : K = 0
End If
Next
Scrivi DataEstrazione(Fin) & " ",1,0
For P = 1 To UBound(Nu)
Scrivi Format2(NumeroPosRit(Fin,Ru(1),Nu(P))) & " ",1,0
Next : Scrivi " Rc " & FormatSpace(K,4,1),1
Scrivi String(49,"="),1
End Sub


Poi passeremo ha qualcosa di più complesso come il ritardo relativo di primo e secondo grado .

Ciao Eugenio
Clicca per espandere...
Mmm vediamo un pò cosa si può fare 😃.
 
genios ha scritto:
Edoardo ora t' impegno . :) Potresti aggiungere un modulo per tenere aggiornati i ritardi attuali e la ricerca del max storico per ciascuna ruota delle 9 decine dinamiche .

Fai girare lo script

Codice: 
Option Explicit
Sub Main
Dim DN,R,N,S
R = BA_ : DN = "0" : S = 2
For N = 1 To 90
DN = DN & "." & N
If Cadenza(N) = 0 Then EuRiDin DN,R,S : DN = "0"
Next
End Sub
Sub EuRiDin(DN,R,S)
Dim K,P,Es,Ini,Fin,Tmp,GR,Nu
Dim Ru(1) : Ru(1) = R
Nu = Split(DN,".")
Ini = EstrazioneFin - 100 : Fin = EstrazioneFin
Messaggio " Decina Naturale " & DecinaNaturale(Nu(2))
K = 0 : Scrivi FormatSpace(NomeRuota(Ru(1)),11),1,0
For P = 1 To UBound(Nu) : Scrivi FormatSpace(Nu(P) & "°",3),1,0 : Next : Scrivi " PdR",1
For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
K = K + 1
If SerieFreqTurbo(Es,Es,Nu,Ru,1,,,1) >= S Then
Scrivi DataEstrazione(Es) & " ",1,0
For P = 1 To UBound(Nu)
Tmp = NumeroPosRit((Es - 1),Ru(1),Nu(P))
If Posizione(Es,Ru(1),Tmp) > 0 Then ColoreTesto 2 : GR = 1
Scrivi Format2(Tmp) & " ",GR,0 : ColoreTesto 0 : GR = 0
Next
Scrivi " Rit" & FormatSpace(K,4,1),1 : K = 0
End If
Next
Scrivi DataEstrazione(Fin) & " ",1,0
For P = 1 To UBound(Nu)
Scrivi Format2(NumeroPosRit(Fin,Ru(1),Nu(P))) & " ",1,0
Next : Scrivi " Rc " & FormatSpace(K,4,1),1
Scrivi String(49,"="),1
End Sub


Poi passeremo ha qualcosa di più complesso come il ritardo relativo di primo e secondo grado .

Ciao Eugenio
Clicca per espandere...
Ho controllato lo script ma non posso implementare questo modulo per ora. Per ottenere i risultati dello script devo per forza ricreare la funzione "NumeroPosRit" la quale si basa sul tabellone analitico (di fatto i valori vengono presi li), funzione che non implementerò attualmente. Posso valutare il ritardo relativo di primo e secondo grado (che non so cosa siano) ponendo il presupposto che non debba inserire il tabellone analitico.
 
Edoardo_95 ha scritto:
Ho controllato lo script ma non posso implementare questo modulo per ora. Per ottenere i risultati dello script devo per forza ricreare la funzione "NumeroPosRit" la quale si basa sul tabellone analitico (di fatto i valori vengono presi li), funzione che non implementerò attualmente. Posso valutare il ritardo relativo di primo e secondo grado (che non so cosa siano) ponendo il presupposto che non debba inserire il tabellone analitico.
Clicca per espandere...
Se trovo una soluzione all'ottenimento dei dati alternativa al tabellone procederò subito 😄
 
genios ha scritto:
Edoardo ora t' impegno . :) Potresti aggiungere un modulo per tenere aggiornati i ritardi attuali e la ricerca del max storico per ciascuna ruota delle 9 decine dinamiche .

Fai girare lo script

Codice: 
Option Explicit
Sub Main
Dim DN,R,N,S
R = BA_ : DN = "0" : S = 2
For N = 1 To 90
DN = DN & "." & N
If Cadenza(N) = 0 Then EuRiDin DN,R,S : DN = "0"
Next
End Sub
Sub EuRiDin(DN,R,S)
Dim K,P,Es,Ini,Fin,Tmp,GR,Nu
Dim Ru(1) : Ru(1) = R
Nu = Split(DN,".")
Ini = EstrazioneFin - 100 : Fin = EstrazioneFin
Messaggio " Decina Naturale " & DecinaNaturale(Nu(2))
K = 0 : Scrivi FormatSpace(NomeRuota(Ru(1)),11),1,0
For P = 1 To UBound(Nu) : Scrivi FormatSpace(Nu(P) & "°",3),1,0 : Next : Scrivi " PdR",1
For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
K = K + 1
If SerieFreqTurbo(Es,Es,Nu,Ru,1,,,1) >= S Then
Scrivi DataEstrazione(Es) & " ",1,0
For P = 1 To UBound(Nu)
Tmp = NumeroPosRit((Es - 1),Ru(1),Nu(P))
If Posizione(Es,Ru(1),Tmp) > 0 Then ColoreTesto 2 : GR = 1
Scrivi Format2(Tmp) & " ",GR,0 : ColoreTesto 0 : GR = 0
Next
Scrivi " Rit" & FormatSpace(K,4,1),1 : K = 0
End If
Next
Scrivi DataEstrazione(Fin) & " ",1,0
For P = 1 To UBound(Nu)
Scrivi Format2(NumeroPosRit(Fin,Ru(1),Nu(P))) & " ",1,0
Next : Scrivi " Rc " & FormatSpace(K,4,1),1
Scrivi String(49,"="),1
End Sub


Poi passeremo ha qualcosa di più complesso come il ritardo relativo di primo e secondo grado .

Ciao Eugenio
Clicca per espandere...
Genios ci sono delle novità. Allora sono riuscito ad ottenere ciò che cerchi senza il tabellone ma ho notato una cosa. Dopo aver imprecato, urlato contro il computer (come se lui mi capisse) sul perchè non ottenevo lo stesso risultato, ho notato un piccolo particolare che mi sfuggiva (D'altro canto era da un pò che non usavo spazioscript).

SerieFreqTurbo(Es,Es,Nu,Ru,1,,,1) >= S
Clicca per espandere...

o in modo più preciso ...
SerieFreqTurbo(Es,Es,Nu,Ru,1,,,1) >= S
Clicca per espandere...

Il fatto di mettere 1 come ultimo parametro fa si da dichiarare alla funzione di utilizzare l'archivio superiore L1 (chiamato archivio virtuale anche)
Non mi dilungherò sull'infinita spiegazione degli archivi paralleli ma porro una semplice domanda... E' una cosa voluta o un errore?
 
Edoardo_95 ha scritto:
Genios ci sono delle novità. Allora sono riuscito ad ottenere ciò che cerchi senza il tabellone ma ho notato una cosa. Dopo aver imprecato, urlato contro il computer (come se lui mi capisse) sul perchè non ottenevo lo stesso risultato, ho notato un piccolo particolare che mi sfuggiva (D'altro canto era da un pò che non usavo spazioscript).



o in modo più preciso ...


Il fatto di mettere 1 come ultimo parametro fa si da dichiarare alla funzione di utilizzare l'archivio superiore L1 (chiamato archivio virtuale anche)
Non mi dilungherò sull'infinita spiegazione degli archivi paralleli ma porro una semplice domanda... E' una cosa voluta o un errore?
Clicca per espandere...
Edoardo penso sia una cosa voluta da Luigi . Il numero 1 nella funzione a cui tu fai riferimento SerieFreqTurbo(Es,Es,Nu,Ru,1,,,1) indica allo script di usare l' archivio L1 il quale da quanto ne so e da quanto ho capito si forma quando aggiorniamo l' archivio reale del gioco del lotto . In pratica associa le 90 posizioni con i 90 numeri nel senso che si genera un archivio diciamo parallelo a quello reale che associa il numero più ritardato nella posizione 1 e il meno ritardato alla posizione 90 . Esempio all estrazione n. 10417 del 05 04 2024 ruota di BA il numero 23 è il numero più ritardato sulla ruota di BA e occupa la posizione 1 . Mentre sempre sulla ruota di BA il numero 27 essendo l' ultimo estratto dell' estrazione n. 10417 del 05 04 2024 occupa la posizione 90 . Quindi poi ai vari ritardi intermedi dei numeri vanno associate le varie posizioni le quali sono sempre 90 come i numeri . Spero di essermi spiegato .

Ciao Eugenio
 
Edoardo Sempre abbastanza impegnativo chiedo se puoi inserire il seguente modulo :

Simmetria degli ambi

Coppie di ambi ( o biambi ) simmetrici

Coppie di ambi si formano legando insieme il primo ambo

01 – 02

Nell’ ordine naturale , con l’ ultimo ambo

89 – 90

Poi il secondo

01 -03

Con il penultimo

88 – 90

e cosi via fino a formare 2002 coppie o biambi ( 4004 ambi : viene escluso l’ ambo 27 41, definito ambo centrale poiche avrebbe il proprio simmetrico in se stesso, sempre 27 41 e quindi non si potrrebbe formare la necessaria coppia di ambi o biambo .

Naturalmente di tali formazioni vanno ricercati la frequenza ritardo attuale e ritardo storico per ogni singola ruota e per tutte e 10 le ruote .

Ciao Eugenio
 
Edoardo buongiorno,
ti chiedo cortesemente se ti è possibile fare delle aggiunte
a questo tuo bel lavoro, quello che vorrei suggerirti è di
mettere la possibilità di poter esportare in testo e csv anche
dalla ricerca piramide ritardi.
Poi sempre in piramide avere se possibile le ultime 3 o 5 piramidi
mentre adesso è possibile visionarne solo 1

Ti ringrazio ancora per la disponibilità e cortesia
Fammi sapere
Saluti
 
Ultima modifica:
ciao
riporto su questo post perchè è davvero impressionante
la velocità e le lunghette che si possono creare, con la speranza
che Edoardo_95 possa esaudire questi miei suggerimenti
ultime 3 o 5 piramidi o più
con un nuovo aggiornamento e lo ringrazio ancora
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 04 gennaio 2025
    Bari
    48
    55
    67
    87
    14
    Cagliari
    60
    78
    37
    36
    07
    Firenze
    04
    55
    45
    27
    42
    Genova
    46
    77
    47
    17
    33
    Milano
    17
    86
    14
    63
    55
    Napoli
    25
    71
    16
    48
    28
    Palermo
    65
    55
    31
    05
    25
    Roma
    80
    05
    74
    75
    28
    Torino
    28
    66
    20
    24
    87
    Venezia
    25
    29
    20
    70
    24
    Nazionale
    62
    71
    03
    28
    15
    Estrazione Simbolotto
    Bari
    42
    33
    18
    36
    32
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto