Novità

"Help"per SCRIPT Spaziometria di ricerca

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
 

joe

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

:)
 

Red*one

Banned
ti ringrazio joe , sarebbe la perfezione se si potesse aggiungere l'evidenza in verde se risultano nella stessa posizione
 

Red*one

Banned
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

Advanced Member >PLATINUM PLUS<
ti ringrazio joe , sarebbe la perfezione se si potesse aggiungere l'evidenza in verde se risultano nella stessa posizione

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

:)
 

Red*one

Banned
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

:)
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?
 

Alien.

Advanced Premium Member
è 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

Red*one

Banned
non credevo qualcuno si potesse risentire, non sapendo come farlo ho pensato di poterlo chiedere.
va bene uguale grazie joe
 

Alien.

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

joe

Advanced Member >PLATINUM PLUS<
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.

:)
 

joe

Advanced Member >PLATINUM PLUS<
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:

ppaaoolloo

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

:)


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
 

joe

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

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

:)
 

joe

Advanced Member >PLATINUM PLUS<
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.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto