Novità

"Help"per SCRIPT Spaziometria di ricerca

R

Red*one

Banned
Ringrazio chi vorrà essermi d'aiuto
Nello specifico sto cercando uno script che vada ad individuare numeri nel quadro estrazionale che si sono ripetuti all'estrazione successiva nella stessa identica posizione.
allego degli screen di esempio.

Screenshot_8.pngScreenshot_11.png
 
Ciao.

Prova questo:

Codice: 
Option Explicit
Sub Main
  'Tabella Estratti Ripetuti Isotopi By Joe V.1.0 del 16/07/2021
  'https://forum.lottoced.com/threads/help-per-script-spaziometria-di-ricerca.2200831/#post-2346402
  Dim Ini,Fin,Es,R,P,E,F
  Ini = EstrazioneFin - 155 : Fin = EstrazioneFin
  Titoli
  For Es = Ini To Fin
    Scrivi DataEstrazione(Es) & Space(1) & "| ",True,False
    For R = 1 To 12 : If R = 11 Then R = 12
      For P = 1 To 5
        E = CInt(Estratto(Es,R,P))
        If E = CInt(Estratto(Es - 1,R,P)) Then
          Scrivi Format2(E) & Space(1),True,False
        Else
          Scrivi String(2,"-") & " ",False,False
        End If
      Next
      Scrivi "| ",False,False
    Next
    Scrivi
  Next
  Titoli
End Sub
Sub Titoli
  Dim R,L,P
  Scrivi "Data-Ruota | ",1,0
  For R = 1 To 12 : If R = 11 Then R = 12
    L =(16 -(Len(NomeRuota(R)) + 4))
    P = String(L/2,"-") & Space(1) & NomeRuota(R) & Space(1)
    Scrivi P & String(14 - Len(P),"-") & " | ",True,False
  Next : Scrivi
End Sub

:)
 
ti ringrazio joe , sarebbe la perfezione se si potesse aggiungere l'evidenza in verde se risultano nella stessa posizione
 
joe ha scritto:
Ciao.

Prova questo:

Codice: 
Option Explicit
Sub Main
  'Tabella Estratti Ripetuti Isotopi By Joe V.1.0 del 16/07/2021
  'https://forum.lottoced.com/threads/help-per-script-spaziometria-di-ricerca.2200831/#post-2346402
  Dim Ini,Fin,Es,R,P,E,F
  Ini = EstrazioneFin - 155 : Fin = EstrazioneFin
  Titoli
  For Es = Ini To Fin
    Scrivi DataEstrazione(Es) & Space(1) & "| ",True,False
    For R = 1 To 12 : If R = 11 Then R = 12
      For P = 1 To 5
        E = CInt(Estratto(Es,R,P))
        If E = CInt(Estratto(Es - 1,R,P)) Then
          Scrivi Format2(E) & Space(1),True,False
        Else
          Scrivi String(2,"-") & " ",False,False
        End If
      Next
      Scrivi "| ",False,False
    Next
    Scrivi
  Next
  Titoli
End Sub
Sub Titoli
  Dim R,L,P
  Scrivi "Data-Ruota | ",1,0
  For R = 1 To 12 : If R = 11 Then R = 12
    L =(16 -(Len(NomeRuota(R)) + 4))
    P = String(L/2,"-") & Space(1) & NomeRuota(R) & Space(1)
    Scrivi P & String(14 - Len(P),"-") & " | ",True,False
  Next : Scrivi
End Sub

:)
Clicca per espandere...
ti ringrazio joe , sarebbe la perfezione se si potesse aggiungere l'evidenza in verde se risultano nella stessa posizione
 
Red*one ha scritto:
ti ringrazio joe , sarebbe la perfezione se si potesse aggiungere l'evidenza in verde se risultano nella stessa posizione
Clicca per espandere...

Codice: 
Option Explicit
Sub Main
  'Tabella Estratti Ripetuti Isotopi By Joe V.1.1 del 16/07/2021
  'https://forum.lottoced.com/threads/help-per-script-spaziometria-di-ricerca.2200831/#post-2346402
  Dim Ini,Fin,Es,R,P,E,F
  Ini = EstrazioneFin - 155 : Fin = EstrazioneFin
  Titoli
  For Es = Ini To Fin
  ReDim N(5)
    Scrivi DataEstrazione(Es) & Space(1) & "| ",True,False
    For R = 1 To 12 : If R = 11 Then R = 12
      For P = 1 To 5
        E = CInt(Estratto(Es,R,P))
        If E = CInt(Estratto(Es - 1,R,P)) Then N(P) = N(P)+1
      Next
      Next
    For R = 1 To 12 : If R = 11 Then R = 12
      For P = 1 To 5
        E = CInt(Estratto(Es,R,P))
        If E = CInt(Estratto(Es - 1,R,P)) Then
          Scrivi Format2(E) ,True,False,Iif (N(P)>= 2,3,5)
          Scrivi Space(1) ,True,False
        Else
          Scrivi String(2,"-") & " ",False,False
        End If
      Next
      Scrivi "| ",False,False
    Next
    Scrivi
  Next
  Titoli
End Sub
Sub Titoli
  Dim R,L,P
  Scrivi "Data-Ruota | ",1,0
  For R = 1 To 12 : If R = 11 Then R = 12
    L =(16 -(Len(NomeRuota(R)) + 4))
    P = String(L/2,"-") & Space(1) & NomeRuota(R) & Space(1)
    Scrivi P & String(14 - Len(P),"-") & " | ",True,False
  Next : Scrivi
End Sub

:)
 
joe ha scritto:
Codice: 
Option Explicit
Sub Main
  'Tabella Estratti Ripetuti Isotopi By Joe V.1.1 del 16/07/2021
  'https://forum.lottoced.com/threads/help-per-script-spaziometria-di-ricerca.2200831/#post-2346402
  Dim Ini,Fin,Es,R,P,E,F
  Ini = EstrazioneFin - 155 : Fin = EstrazioneFin
  Titoli
  For Es = Ini To Fin
  ReDim N(5)
    Scrivi DataEstrazione(Es) & Space(1) & "| ",True,False
    For R = 1 To 12 : If R = 11 Then R = 12
      For P = 1 To 5
        E = CInt(Estratto(Es,R,P))
        If E = CInt(Estratto(Es - 1,R,P)) Then N(P) = N(P)+1
      Next
      Next
    For R = 1 To 12 : If R = 11 Then R = 12
      For P = 1 To 5
        E = CInt(Estratto(Es,R,P))
        If E = CInt(Estratto(Es - 1,R,P)) Then
          Scrivi Format2(E) ,True,False,Iif (N(P)>= 2,3,5)
          Scrivi Space(1) ,True,False
        Else
          Scrivi String(2,"-") & " ",False,False
        End If
      Next
      Scrivi "| ",False,False
    Next
    Scrivi
  Next
  Titoli
End Sub
Sub Titoli
  Dim R,L,P
  Scrivi "Data-Ruota | ",1,0
  For R = 1 To 12 : If R = 11 Then R = 12
    L =(16 -(Len(NomeRuota(R)) + 4))
    P = String(L/2,"-") & Space(1) & NomeRuota(R) & Space(1)
    Scrivi P & String(14 - Len(P),"-") & " | ",True,False
  Next : Scrivi
End Sub

:)
Clicca per espandere...
semplice curiosità joe ,rinnovo il mio ringraziamento, se volessi cambiare colore invece del verde mettere il rosso e fare in modo che i numeri siano intermittenti in un tempo di circa 2 sec come potrei fare?
 
è io ci metterei pure un semaforo non si sa mai.
Senti joe se puoi stessi numeri usciti in più ruote non conta la posizione tipo tabellone analitico, grazie.
 
  • Haha
Reazioni: lla
non credevo qualcuno si potesse risentire, non sapendo come farlo ho pensato di poterlo chiedere.
va bene uguale grazie joe
 
Ma no Red a scrivere invece di parlare si fraintendono le parole la tua frase mi ha fatto venire in mente un semaforo a volte mi vengono spontanee le battute il tutto in senso ironico se in qualche moto te la sei presa mi scuso.
 
Per sostituire i colori non è un problema, per i pochi colori disponibili ed i loro sfondi.

Sono circa 6x6 con pesanti limiti imposti dalla necessaria leggibilità.

Per esempio quella del giallo su bianco e viceversa, o peggio, del bianco sul bianco, nero sul nero ecc.

Poi si possono espandere le scelte di colore, sempre ad aumentando la pesantezza dello script e dell'output.

C'è tra gli esempi di script (nel mio computer) "Call Blink ecc.." che tuttavia non (mi) funziona.

Non ricordo di aver visto script ed opzioni dell'istruzione Scrivi al riguardo.

Penso si possa trovare "un modo" per far lampeggiare i caratteri,

Però non mi sono mai interessato al riguardo.

Di seguito ...

Alien ... è-é ... come il Willy Coyote, vittima, delle sue stesse trappole

poste alla caccia dell'imprendibile. Beep-Beep.

Il semaforo l' aveva proposto Hetman molti anni fa all'avvicinarsi dell storico.

Anche le polivalenze sono già state ampiamente trattate.

:)
 
Codice: 
Option Explicit
Sub Main
  Dim Es,R,P,N
  'Conta Presenze V.1.0 By Joe del 17/07/2021
  Es = EstrazioneFin
  Scrivi DataEstrazione(Es),True : Scrivi
  For R = 1 To 10
    Scrivi SiglaRuota(R) & Space(1),True,False
    For P = 1 To 5
      N = Estratto(Es,R,P)
      Scrivi Format2(N) & Space(1),1,0,,EstrattoFrequenza(TT_,N,Es,Es)
    Next
    Scrivi
  Next
  Scrivi : Scrivi "Legenda :",True  : For N = 0 To 7 : Scrivi N & " Pres" ,1,,,N : Next
End Sub

Immagine.jpg

:)
 
Ultima modifica:
joe ha scritto:
Codice: 
Option Explicit
Sub Main
  Dim Es,R,P,N
  'Conta Presenze V.1.0 By Joe del 17/07/2021
  Es = EstrazioneFin
  Scrivi DataEstrazione(Es),True : Scrivi
  For R = 1 To 10
    Scrivi SiglaRuota(R) & Space(1),True,False
    For P = 1 To 5
      N = Estratto(Es,R,P)
      Scrivi Format2(N) & Space(1),1,0,,EstrattoFrequenza(TT_,N,Es,Es)
    Next
    Scrivi
  Next
  Scrivi : Scrivi "Legenda :",True  : For N = 0 To 7 : Scrivi N & " Pres" ,1,,,N : Next
End Sub

Vedi l'allegato 2218262

:)
Clicca per espandere...


ciao joe
ti chiedo anch'io una cosa se si può fare,
vorrei poter vedere le ultime 3 estrazioni
così come nell'immagine
ringrazio anticipatamente
 
ppaaoolloo ha scritto:
ciao joe
ti chiedo anch'io una cosa se si può fare,
vorrei poter vedere le ultime 3 estrazioni
così come nell'immagine
ringrazio anticipatamente
Clicca per espandere...

Quello che hai chiesto può essere interpretato in più modi.

Non so se questo è quello giusto.

Codice: 
Option Explicit
Sub Main
   Dim Es,N
   For Es = EstrazioneFin - 2 To EstrazioneFin
      Scrivi DataEstrazione(Es,,,"/") & Space(1) & String(6,"="),True
      Call Colora_Presenze(Es)
      Scrivi
   Next
   Call Legenda()
End Sub
Sub Colora_Presenze(Es)
   'V.1.0 By Joe del 17/07/202
   Dim R,P,N
   For R = 1 To 10
      Scrivi SiglaRuota(R) & Space(1),True,False
      For P = 1 To 5
         N = Estratto(Es,R,P)
         Scrivi Format2(N) & Space(1),1,0,,EstrattoFrequenza(TT_,N,Es,Es)
      Next
      Scrivi
   Next
End Sub
Sub Legenda()
   Dim N
   Scrivi
   Scrivi "Legenda :",True
   For N = 0 To 7
      Scrivi N & " Pres",1,,,N
   Next
End Sub

:)
 
Nel ringraziare e salutare Zetrix,

aggiungo un paio di semplici e brevi note.

Ho diviso lo script che era stato fatto precedentemente in alcune parti.

La prima (la Sub Main) è quella che gestisce il tutto

Cioè quella che stabilisce chi / come / dove / quando / quanto

deve richiamare le altre funzioni.

Cioè 3 volte la parte che colora le 3 Estrazioni. (Sub Colora_Estrazioni)

E poi ... infine, la Legenda utile ad interpretare il valore dei colori.

Coloretesto è l'istruzione vecchio-stile per colorare il testo.

Con essa il colore attribuito al testo rimane memorizzato e si continua

con lo stesso colore ... finché non lo si cambia.

Con Spaziometria come con Excel si può usare (ed ho usato)

Iif (condizione ,Vera,Falso) applicandola ai "parametri" dell'istruzione Scrivi.

Con essa il colore "dura" solamente il breve periodo dell'istruzione Scrivi (che si sta utilizzando).

E' implicito, che per l'utilizzo che ho fatto di questa istruzione (e di altre)

questi script possono essere usati solo con Spaziometria.

Mentre per altri ambienti di sviluppo e piattaforme, devono essere adattati.

:) Buona serata a tutte/i.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 15 luglio 2025
    Bari
    60
    18
    12
    57
    28
    Cagliari
    20
    26
    81
    55
    18
    Firenze
    28
    59
    46
    83
    81
    Genova
    32
    57
    09
    41
    17
    Milano
    58
    31
    49
    38
    63
    Napoli
    36
    58
    57
    45
    59
    Palermo
    03
    05
    48
    86
    62
    Roma
    47
    18
    01
    23
    79
    Torino
    56
    34
    49
    89
    90
    Venezia
    46
    44
    52
    82
    78
    Nazionale
    16
    36
    15
    13
    60
    Estrazione Simbolotto
    Nazionale
    27
    09
    44
    18
    11
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto