Indici mensili

aldinobis · 19 Maggio 2024

Biongiorno a tutti

Ho notato empiricamente,mi sembra, che le previsioni "sommative" calcolate con indici cadenti in giorni della settimana differenti
abbiano esiti piu' o meno veloci .
Quindi chiedevo se esiste gia' ,su Spaziometria, la possibilita' d' impostare le ricerche ,anziche' sull'indice mensile,
sul giorno della settimana,ed eventualmente, se no, di implentarla.
grazie e buon proseguimento

claudio8 · 19 Maggio 2024

aldinobis ha scritto:
Biongiorno a tutti

Ho notato empiricamente,mi sembra, che le previsioni "sommative" calcolate con indici cadenti in giorni della settimana differenti
abbiano esiti piu' o meno veloci .
Quindi chiedevo se esiste gia' ,su Spaziometria, la possibilita' d' impostare le ricerche ,anziche' sull'indice mensile,
sul giorno della settimana,ed eventualmente, se no, di implentarla.
grazie e buon proseguimento

Mi permetto di risponderti, senza polemiche e faccio questa precisazione perchè ultimamente qualsiai conversazione sfocia in malintesi.
Non credo ci possano essere implementazioni in Spaziometria per l'assenza dal forum del suo creatore LuigiB.

Gli script sono la soluzione di qualsiasi ricerca e quindi devi attendere/sperare che qualcuno legga la tua richiesta e lo crei a tua esigenza.

Ti consiglio di inserire alcuni esempi reali di questa tua "empirica" valutazione in modo da rendere il + semplice possibile ed elementare la tua richiesta.
Nel frattempo, cerca sul web o nel forum se c'è qualcosa di attinente alla tua esigenza con una parola chiave del tipo " Lottoced script sommativi".
Saluti

aldinobis · 19 Maggio 2024

Ciao claudio8

attualmente sono disponibili
If IsUltimaDelMese(Es) Then
If IndiceMensile(Es) = 1-18 Then

andrebbe bene una function tipo : if martedi(es) Then ( come pure ;giovedi,venerdi,sabato)

spero di non aver creato alcun tipo di problema

Salluti e buon proseguimento

claudio8 · 19 Maggio 2024

Non so se c'è in Sptm una funzione che gestisce il giorno della settimana, ma se sei in grado di fare lo script, sarai sicuramente capace di aggirare il problema con la gestione del giorno (settimanale) partendo dalla data della estrazione usando il Vbscript
Saluti

salvo50 · 19 Maggio 2024

Ciao a Tutti

Questo è uno script fatto dal mitico Mike58

Codice:

Sub Main()
   'Sabato, martedi, giovedi
   Dim nu(1),ru(1)
   num = InputBox("Quale numero cercare ",,90)
   rt = InputBox("Quale ruota ",,1)
   et = CInt(InputBox("Quante estrazioni",,300))
   nu(1) = num
   ru(1) = rt
   For Es = EstrazioneFin - et To EstrazioneFin
      aps = Posizione(es,rt,num)
      If Sabato(es) Then
         If SerieFreq(es,es,nu,ru,1) = 1 Then
            sab = EstrazioneFin - es
            Scrivi DataEstrazione(Es,1) & vbTab & " - " & StringaEstratti(es,rt) & " - Posiz. " & aps
            co = co + 1
         End If
      End If
   Next
   Scrivi
   ColoreTesto 1
   Scrivi "Numero cercato..." & num & " Sulla ruota di..." & NomeRuota(rt) & " è uscito..." & co & " Volte al Sabato " & " è Ritarda da... " & sab,1
   ColoreTesto 0
   Scrivi
   For Es = EstrazioneFin - et To EstrazioneFin
      apg = Posizione(es,rt,num)
      If giovedi(es) Then
         If SerieFreq(es,es,nu,ru,1) = 1 Then
            gio = EstrazioneFin - es
            Scrivi DataEstrazione(Es,1) & vbTab & " - " & StringaEstratti(es,rt) & " - Posiz. " & apg
            co1 = co1 + 1
         End If
      End If
   Next
   Scrivi
   ColoreTesto 1
   Scrivi "Numero cercato..." & num & " Sulla ruota di..." & NomeRuota(rt) & " è uscito..." & co1 & " Volte al giovedì" & " è Ritarda da... " & gio,1
   ColoreTesto 0
   Scrivi
   For Es = EstrazioneFin - et To EstrazioneFin
      apm = Posizione(es,rt,num)
      If martedi(es) Then
         If SerieFreq(es,es,nu,ru,1) = 1 Then
            mar = EstrazioneFin - es
            Scrivi DataEstrazione(Es,1) & vbTab & " - " & StringaEstratti(es,rt) & " - Posiz. " & apm
            co2 = co2 + 1
            sr = SerieRitardo(es,EstrazioneFin,nu,ru,1)
         End If
      End If
   Next
   Scrivi
   ColoreTesto 1
   Scrivi "Numero cercato..." & num & " Sulla ruota di..." & NomeRuota(rt) & " è uscito..." & co2 & " Volte al martedì " & " è Ritarda da... " & mar,1
   ColoreTesto 0
   Scrivi
   tt = co + co1 + co2
   ColoreTesto 2
   Scrivi "Totali di volte uscito.... " & tt & " Ritarda da... " & sr & " Dalla data ultima... " & DataEstrazione(EstrazioneFin - sr,1),1
   ColoreTesto 0
End Sub
Function Sabato(Es)
   Sabato = False
   Data = Replace(DataEstrazione(Es),".","/")
   Mike = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Mike) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbSaturday Then Sabato = True
End Function
Function giovedi(Es)
   giovedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Mike = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Mike) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbThursday Then giovedi = True
End Function
Function martedi(Es)
   martedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Mike = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Mike) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbTuesday Then martedi = True
End Function

*blacklotto* · 19 Maggio 2024

aldinobis ha scritto:
Biongiorno a tutti

Ho notato empiricamente, mi sembra, che le previsioni "sommative" calcolate con indici cadenti in giorni della settimana differenti
abbiano esiti più o meno veloci .
Quindi chiedevo se esiste già ,su Spaziometria, la possibilità d' impostare le ricerche ,anziché sull'indice mensile,
sul giorno della settimana, ed eventualmente, se no, di imprentarla.
grazie e buon proseguimento

Con questo script di Joe, datato, ho aggiunto il Venerdi, in modo che tu ti possa creare delle previsioni da mettere in gioco nel giorno da te scelto. Va bene ?

Sub Main()
Dim posta(5),poste(5),postee(5),posteee(5)
Dim ruota(5),ruote(5)
Dim am(10),am1(10),am2(10)
posta(1) = 1
posta(2) = 1
cp = CInt(InputBox(" Scrivi 1 Martedi 2 Giovedi 3 Venerdi 4 Sabato"," ",1))
k = CInt(InputBox(" Colpi di Gioco"," ",10))
For Es = EstrazioneFin - 15 To EstrazioneFin
If(Sabato(Es)And cp = 4)Or(Venerdi(Es)And cp = 3)Or(Giovedi(Es)And cp = 2)Or(Martedi(Es)And cp = 1)Then
Scrivi
Scrivi DataEstrazione(Es),1
a = Fuori90(Estratto(es,BA_,1) + 5)
b = Fuori90(Estratto(es,BA_,1) + 10)
co = co + 1
ruote(1) = 1
am2(1) = a
am2(2) = b
ImpostaGiocata 1,am2,ruote,posta,k
Gioca es,1
End If
Next
ScriviResoconto,0
End Sub
Function Martedi(Es)
Martedi = False
Data = Replace(DataEstrazione(Es),".","/")
Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
If WeekDay(Data) = vbTuesday Then Martedi = True
End Function
Function Giovedi(Es)
Giovedi = False
Data = Replace(DataEstrazione(Es),".","/")
Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
If WeekDay(Data) = vbThursday Then Giovedi = True
End Function
Function Venerdi(Es)
Venerdi = False
Data = Replace(DataEstrazione(Es),".","/")
Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
If WeekDay(Data) = vbFriday Then Venerdi = True
End Function
Function Sabato(Es)
Sabato = False
Data = Replace(DataEstrazione(Es),".","/")
Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
If WeekDay(Data) = vbSaturday Then Sabato = True
End Function

claudio8 · 19 Maggio 2024

Come vedi la settimana è completa

aldinobis · 19 Maggio 2024

o.k grazie a tutti

riesco a smanettare un po' su script gia' fatti ..ma anni luce dall'essere un programmatore .

Con quanto sopra a disposizione avro ' di che essere impegnato per settimane

ancora grazie e buon proseguimento.

Alien. · 26 Maggio 2024

*blacklotto* ha scritto:
Con questo script di Joe, datato, ho aggiunto il Venerdi, in modo che tu ti possa creare delle previsioni da mettere in gioco nel giorno da te scelto. Va bene ?

Sub Main()
Dim posta(5),poste(5),postee(5),posteee(5)
Dim ruota(5),ruote(5)
Dim am(10),am1(10),am2(10)
posta(1) = 1
posta(2) = 1
cp = CInt(InputBox(" Scrivi 1 Martedi 2 Giovedi 3 Venerdi 4 Sabato"," ",1))
k = CInt(InputBox(" Colpi di Gioco"," ",10))
For Es = EstrazioneFin - 15 To EstrazioneFin
If(Sabato(Es)And cp = 4)Or(Venerdi(Es)And cp = 3)Or(Giovedi(Es)And cp = 2)Or(Martedi(Es)And cp = 1)Then
Scrivi
Scrivi DataEstrazione(Es),1
a = Fuori90(Estratto(es,BA_,1) + 5)
b = Fuori90(Estratto(es,BA_,1) + 10)
co = co + 1
ruote(1) = 1
am2(1) = a
am2(2) = b
ImpostaGiocata 1,am2,ruote,posta,k
Gioca es,1
End If
Next
ScriviResoconto,0
End Sub
Function Martedi(Es)
Martedi = False
Data = Replace(DataEstrazione(Es),".","/")
Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
If WeekDay(Data) = vbTuesday Then Martedi = True
End Function
Function Giovedi(Es)
Giovedi = False
Data = Replace(DataEstrazione(Es),".","/")
Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
If WeekDay(Data) = vbThursday Then Giovedi = True
End Function
Function Venerdi(Es)
Venerdi = False
Data = Replace(DataEstrazione(Es),".","/")
Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
If WeekDay(Data) = vbFriday Then Venerdi = True
End Function
Function Sabato(Es)
Sabato = False
Data = Replace(DataEstrazione(Es),".","/")
Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
If WeekDay(Data) = vbSaturday Then Sabato = True
End Function

joe · Martedì alle 14:55

Raga,

mi permetto di scrivere (forse come le altre 100 volte) che,

uno script fatto per una cosa è poco adatto a farne altra.

Quanto avete fatto, rapportato alla vita di tutti i giorni corrisponde alla situazione

in cui uno che per chiedere un giorno di ferie, instaura un "Processo"

fino al terzo grado di giudizio, (o il forse 7°) per far condannare il responsabile,

affinché gli conceda la possibilità di poter chiedere quel "permesso" nel giorno della settimana, di cui ha "bisogno".

Da questo discende che: Se la firma è di Joe ... la colpa del pasticciaccio è di Joe.

E' CHIARO IL CONCETTO ?

Non è così semplice, vero ?

Codice:

Option Explicit
Sub Main
   Dim Es,D
   For Es = EstrazioneFin - 200 To EstrazioneFin
      D = DataEstrazione(Es,1)
      If Left(D,3) = "sab" Then Scrivi D
   Next
End Sub

Senza firma ... così ... è di chi lo inventa, SENZA passare per l'ufficio complicazioni affari semplici

e senza cercare ... di voler essere ... quelli che fanno pasticci.

BaffoBlù · Martedì alle 17:30

aldinobis ha scritto:
Biongiorno a tutti

Ho notato empiricamente,mi sembra, che le previsioni "sommative" calcolate con indici cadenti in giorni della settimana differenti
abbiano esiti piu' o meno veloci .
Quindi chiedevo se esiste gia' ,su Spaziometria, la possibilita' d' impostare le ricerche ,anziche' sull'indice mensile,
sul giorno della settimana,ed eventualmente, se no, di implentarla.
grazie e buon proseguimento

SCUSATE RAGA, (A TUTTI) MA QUESTO A CHE SERVIREBBE ???

Marco-elle · Martedì alle 20:04

Così tanto per provare con lo script del buon Joe.....

Codice:

Sub Main()
   Dim posta(5),poste(5),postee(5),posteee(5)
   Dim ruota(5),ruote(5)
   Dim am(10),am1(10),am2(10)
   posta(2) = 1
   cp = CInt(InputBox(" Scrivi 1 Martedi 2 Giovedi 3 Venerdi 4 Sabato"," ",1))
   k = CInt(InputBox(" Colpi di Gioco"," ",10))
   For Es = EstrazioneFin - 60 To EstrazioneFin
      If(Sabato(Es)And cp = 4)Or(Venerdi(Es)And cp = 3)Or(Giovedi(Es)And cp = 2)Or(Martedi(Es)And cp = 1)Then
         Scrivi
         Scrivi DataEstrazione(Es),1
         a = Fuori90(Estratto(es,6,5) + Estratto(es,8,4) + 17)
         b = Fuori90(Estratto(es,6,3) + Estratto(es,8,2) + 14)
         c = Fuori90(Estratto(es,10,5) + Estratto(es,12,2) + 5)
         d = Fuori90(Estratto(es,4,1) + Estratto(es,9,4) + 3)
         co = co + 1
         ruote(1) = 1
         am2(1) = a
         am2(2) = b
         am2(3) = c
         am2(4) = d
         ImpostaGiocata 1,am2,ruote,posta,k
         Gioca es,1
      End If
   Next
   ScriviResoconto,0
End Sub
Function Martedi(Es)
   Martedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbTuesday Then Martedi = True
End Function
Function Giovedi(Es)
   Giovedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbThursday Then Giovedi = True
End Function
Function Venerdi(Es)
   Venerdi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbFriday Then Venerdi = True
End Function
Function Sabato(Es)
   Sabato = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbSaturday Then Sabato = True
End Function

joe · Martedì alle 20:19

Baffo, non so.

Ma a me funziona "malamente" per il mio modo di concepire le cose.

Cioè quando l'ho provato ricordo che attiva delle estrazioni e ne esclude altre

operando una sorta di compressione dell'archivio.

La dimensione dell'archivio cambia e trovo sia difficile raccapezzarsi,

Cioè forse bisognerebbe essere così puri ... da considerare solo quanto selezionato,

Come se il resto non esistesse. (Non credo sia nelle corde del giocatore)

Per esempio selezionando solo il Sabato l'archivio si riduce da 10000 a7800 estrazioni.

E questo ... a me crea una certa "difficoltà".

Ma è giusto sia così perché con più elasticità mentale e maggiore rigore

si possono allargare e comprimere, le proprie prospettive.

In sintesi preferisco demandare allo script la selezione.

BaffoBlù · Mercoledì alle 11:33

joe ha scritto:
Baffo, non so.

Ma a me funziona "malamente" per il mio modo di concepire le cose.

Cioè quando l'ho provato ricordo che attiva delle estrazioni e ne esclude altre

operando una sorta di compressione dell'archivio.

La dimensione dell'archivio cambia e trovo sia difficile raccapezzarsi,

Cioè forse bisognerebbe essere così puri ... da considerare solo quanto selezionato,

Come se il resto non esistesse. (Non credo sia nelle corde del giocatore)

Per esempio selezionando solo il Sabato l'archivio si riduce da 10000 a7800 estrazioni.

E questo ... a me crea una certa "difficoltà".

Ma è giusto sia così perché con più elasticità mentale e maggiore rigore

si possono allargare e comprimere, le proprie prospettive.

In sintesi preferisco demandare allo script la selezione.

Si, lo so che con gli script si può specificare qualsiasi cosa ormai.

Però, ho visto, letto e sentito gente che non considera affatto le altre estrazioni
se non quelle avvenute di Sabato.

In pratica le altre estrazioni è come se non esistessero o non fossero mai esistite.

Solo ed esclusivamente quelle del sabato. (come era, diciamo in "Antichità"...).

Allora mi domandavo, se imposto (nel riquadro che ho mostrato prima)
solo le estrazioni del sabato, non si viene a creare un archivio di siffatta maniera?

Giusto? o No?

Se è giusto così, tutti gli script tratteranno questo archivio alla stregua di qualsiasi archivio impostato.

Giusto? o No?

...o meglio non giocare troppo con quelle impostazioni?

Ho visto che questa è stata una delle ultime implementazioni di LuigiB
(ossia le estrazioni in qualsiasi giorno della settimana
per farci entrare quella del venerdì e qualsiasi altra)

Lo sto domandando da quasi profano, visto che io uso da sempre solo i menù (spaziometria e script),
nel resto, raramente metto le mani.

Caso a parte se diciamo i "calcoli" si effettuano sull'archivio "completo" e poi invece si gioca solo il sabato,
allora si che lo script è di aiuto per discernere e distinguere l'estrazione.
Come è vero che otteniamo comunque lo stesso quello che vogliamo con lo script.

Ad ogni modo, comunque sia, siamo fortunati che con gli script possiamo fare praticamente "Quasi" tutto...

Alla fine Joe, anche io preferisco farlo fare ad uno script senza andare a sconvolgere nulla
che non so che reazione ottengo di preciso...

in quel "Quasi" ci sono "quasi" tutte quelle cose che solo "La Mia Mente" partorisce...

...e su questo sono sfigato, perché si direbbe che me le vado proprio a cercare...

Più di qualcuno qui, sa benissimo quanto io sia anomalo...con i Numeri...

Peli nell'Uovo...Aghi nei Pagliai...Unicorni...Dei con Arti Multipli...

joe · Mercoledì alle 11:54

Per la verità anche il vecchio L8

forse aveva istruzioni per attivare estrazioni e disattivarne altre.

Penso ... che si entri, in questo modo, in fasi molto evolute, del considerare il gioco.

Dicevo che non so quanti giocatori, (pensando a quelli che ti prendono a gomitate al bar

facendoti rovesciare il caffè, per accaparrarsi un altro gratta e vinci) possono giocare solo un sabato,

o una volta al mese, o una volta ... ogni qualvolta dovrebbe parere loro.

Comunque si, penso sia ... come scrivi.

Dovrebbe trasformarsi in un archivio del sabato o più genericamente delle selezioni fatte.

Non so se ho mai controllato ed in ogni caso, non ricordo, quali fossero i risultati.

Se non mi dimentico prima di trovarne il tempo e sparisce in mezzo ai tanti "To Do" controllo.

joe · Mercoledì alle 18:41

Ho trovato il 57 su Palermo uscito recentemente 3 volte di cui 2 di sabato.

Inserendo un filtro e limitando l'archivio alle sole estrazioni del sabato,

lo script, come mi pareva di ricordare, non è influenzato dal filtro,

e considera le estrazioni teoricamente escluse.

E' anche un po il motivo per cui avevo preparato quella funzione,

cioè per poter operare a livello di script ... a determinate condizioni (ad esempio al sabato)

senza pre-creare un archivio ad-hoc.

In questa immagine si vede la presenza del filtro (l'imbuto rosso) ed i risultati di due miei script.

Lo script è in grado di evidenziare TUTTE le ultime estrazioni, nonostante le limitazioni all'archivio.

BaffoBlù · Mercoledì alle 19:21

joe ha scritto:
Ho trovato il 57 su Palermo uscito recentemente 3 volte di cui 2 di sabato.

Inserendo un filtro e limitando l'archivio alle sole estrazioni del sabato,

lo script, come mi pareva di ricordare, non è influenzato dal filtro,

e considera le estrazioni teoricamente escluse.

E' anche un po il motivo per cui avevo preparato quella funzione,

cioè per poter operare a livello di script ... a determinate condizioni (ad esempio al sabato)

senza pre-creare un archivio ad-hoc.

In questa immagine si vede la presenza del filtro (l'imbuto rosso) ed i risultati di due miei script.

Lo script è in grado di evidenziare TUTTE le ultime estrazioni, nonostante le limitazioni all'archivio.

Vedi l'allegato 2284589

..e Joe tagliò definitivamente la testa al toro...

joe · Mercoledì alle 20:11

Invece ... la selezione è attiva nei vari menù del programma.

Infatti qui è evidente il passo settenario 4/11/18/25 ... delle estrazioni.

Come il 57 a Palermo fosse in ritardo di una ventina di estrazioni del sabato

Non le ho contate, ma era dal 18/11/2023 che non veniva estratto,

e poi ... il sabato successivo, come non ci fossero le altre estrazioni intermedie.

aldinobis · Giovedì alle 18:30

ciao a tutti
e grazie per il vs interventi
il motivo per cui ho chiesto quanto sopra e' che volevo provare a vedere cosa succedeva se anziche' a fine mese o inizio mese
la ricerca la facciamo iniziare a inizio settimana(martedi) e portare avanti il gioco solo x i tre colpi g.v, e s.
Siccome non sono un programmatore ,faccio quello che riesco a fare per mio uso strettamente personale.
posso dirvi che con un po' di pazienza qualche osservazione positiva l'ho cavata fuori ma niente di continuo che possa sfidare
le famose giocate(sicure?) da 18 colpi.
buon proseguimento
aldo

joe · Giovedì alle 18:44

Buongiorno a tutte/i.

S'è detto che a fronte di un problema, si possono adottare diverse soluzioni.

La selezione attuata attraverso il filtro trova applicazione principalmente,

con l'utilizzo del programma Spaziometria vero e proprio.

C'è la soluzione di utilizzare uno script generico ed un archivio ad-hoc.

Per esempio quello che fosse formato delle sole estrazioni del sabato (o altro).

O anche attraverso, l'utilizzo di uno script che sappia creare sfruttare ed attuare,

da sè la scelta delle Estrazioni desiderate.

In pratica creandosi un archivio temporaneo "su misura" da utilizzarsi per lo scopo.

Lo script che vi propongo, ha un selettore che di default è "a zero" e non filtra le estrazioni.

Eseguito, invece, con il selettore attivato ad "1", utilizzerà solo le Estrazioni del Sabato

Sarà pertanto in grado di allineare i suoi risultati, (per il numero e la ruota) a quelli che ho già proposto,

con altrettante immagini nei messaggi precedenti.

Ho assegnato ad esso un titolo che fosse "in linea" con quelli già presenti e simili

tra i Test di funzionamento del VBScript a corredo di Spaziometria.

Codice:

Option Explicit
Sub Main
'Test EstrazioneAttivata V.2.0 By Joe del 30/05/2024
   Dim Es,Nu(1),Ru(1),Po(1),F
   Nu(1) = 57 :Ru(1) = PA_ :Po(1) = 1
   F = InputBox(" 0 = Disattivo / 1 = Attivo","F I L T R O - E S T R A Z I O N I",0)
   If F = "1" Then
      For Es = 1 To EstrazioniArchivio
         If Left(DataEstrazione(Es,1),3) = "sab" Then
            Call ImpostaEstrazione(Es,True)
         Else
            Call ImpostaEstrazione(Es,False)
         End If
      Next
   End If
   ImpostaGiocata 1,Nu,Ru,Po,150
   Gioca 10330
   ScriviResoconto
End Sub

Indici mensili

Super member

Premium Member

Super member

Premium Member

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Premium Member

Super member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super member

Advanced Member >PLATINUM PLUS<