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
    sabato 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto