Novità

RicercaLunghetteNET

E

Edoardo_95

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

genios

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

ppaaoolloo

Super Member >PLATINUM<
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
 
E

Edoardo_95

Advanced Member
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à
 
E

Edoardo_95

Advanced Member
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 😃.
 
E

Edoardo_95

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

Edoardo_95

Advanced Member
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 😄
 
E

Edoardo_95

Advanced Member
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?
 
G

genios

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

genios

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

ppaaoolloo

Super Member >PLATINUM<
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:
P

ppaaoolloo

Super Member >PLATINUM<
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 18 maggio 2024
    Bari
    77
    62
    67
    60
    04
    Cagliari
    89
    01
    35
    54
    38
    Firenze
    84
    58
    25
    64
    57
    Genova
    53
    25
    66
    59
    23
    Milano
    22
    75
    48
    16
    77
    Napoli
    81
    41
    42
    67
    39
    Palermo
    19
    63
    57
    43
    05
    Roma
    04
    35
    50
    33
    23
    Torino
    56
    20
    46
    14
    88
    Venezia
    78
    81
    42
    74
    36
    Nazionale
    42
    83
    59
    86
    34
    Estrazione Simbolotto
    Milano
    41
    29
    01
    27
    30
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto