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 ritardi avere se possibile delle ultime 3 o 5 piramidi
mentre adesso è possibile visionarne solo 1

Ti ringrazio ancora per la disponibilità e cortesia
Fammi sapere
Saluti
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 26 aprile 2024
    Bari
    65
    67
    84
    22
    77
    Cagliari
    38
    09
    83
    18
    20
    Firenze
    76
    24
    78
    30
    40
    Genova
    50
    56
    61
    90
    57
    Milano
    87
    21
    15
    12
    79
    Napoli
    13
    66
    86
    25
    49
    Palermo
    72
    60
    68
    74
    09
    Roma
    23
    15
    43
    07
    75
    Torino
    82
    79
    31
    41
    64
    Venezia
    66
    89
    18
    80
    41
    Nazionale
    04
    24
    10
    69
    73
    Estrazione Simbolotto
    Genova
    33
    03
    16
    35
    32
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto