Script

[Joe91]

In questa ultima parte si da uno sguardo a Spaziometria, agli Archivi

ed alle principali istruzioni che potremo trovare o inserire negli script per questi argomenti.

Nella immagine, qui sopra, si legge in basso a sinistra "Archivio Reale Lotto"

Questo è l'Archivio che è stato "scelto" tra i vari, che Spaziometria può gestire.

Quindi, al momento, è stato scelto quello Reale o Ordinario del Lotto.

Subito appresso è presente un fitro con cui è possibile selezionare

alcuni parametri e/o date ... per poter eseguire ricerche speciali.

03950 è l'indirizzo numerico, ovvero l' indice dell'array estrazioni. L' Id-Estrazione.

E' il numero progressivo che si deve idealmente attibuire alla estrazione del 14/09/1946.

14/09/1946 e' la data in cui sono presenti TUTTE le 10 Ruote E ...

le estrazioni si svolgono in tutte le Ruote con regolarità. SENZA INTERRUZIONI.

Pertanto 3950, da alcuni, è considerata la data di inizio archivio lotto "senza-buchi".

I bottoni che seguono la finestrella ove sono riportati "3950 - 14/09/1946",

con le frecce ed i simboli che ne indicano il comportamento, permettono di variare,

l' INIZIO dell' ARCHIVIO-CONSIDERATO-NELLE-RICERCHE che Spaziometria effettuerà.

L'Id-Estrazione INIziale (in questo caso 3950)

è il numero che viene LETTO dall'istruzione: EstrazioneIni.

Sub Main()
Ini = EstrazioneIni  : Scrivi Ini 
End Sub

Una volta eseguito RESTITUISCE lo stesso ID che è stato fissato

essere inizio della parte attiva dell'archivio.

DataEstrazione (ID-ESTRAZIONE) restituisce la data corrispondente al numero (ID) che gli è comunicato come valore. Quindi:

Sub Main()
Ini = EstrazioneIni : Scrivi Ini & " - " & DataEstrazione(Ini)
End Sub

Restituisce in output lo stesso contenuto della finestrella di cui s'è detto.

In questo caso: "3950 - 14.9.1946"

Eseguendo lo stesso script dopo aver variato l' Inizio della parte attuva dell' Archivio ...

l' OutPut delle script, si adegua di conseguenza, fornendo il nuovo ID e la Data corrispondente.

TUTTA la "Barra-Termometro" rappresenta TUTTA la dimensione dell'archivio.

Di esso una parte è inattiva quella più a sinistra con gli Id minori di 3950 ...

ed è attivo come indicato (dalla parte rosa-fucsia) fino alla fine dell'archivio (di allora)

per un totale di 4704 Rstrazioni su un Totale di oltre 8 Mila.

Ancora proseguendo l'esplorazione di questa linea, verso destra, troviamo altri bottoni ...

del tutto identici ai precedenti, ma riguardano la selezione delle estrazioni-attive

nella parte finale dell'archivio.

In questo caso la lettura dell "Id" è demandata a EstrazioneFin.

Lo script identico ad una immagine speculare diventa :

Sub Main()
Fin = EstrazioneFin : Scrivi Fin & " - " & DataEstrazione(Fin)
End Sub

Come il precedente script esso riproduce "Id-Estrazione" e "Data Corrispondente",

Anch'esee sono identiche al contenuto della finestralla in esempio grafico.

In prima sintesi nello script EstrazioneIni e EstrazioneFin "LEGGONO"

i limiti della parte ATTIVA dell'Archivio.

Attivazione effettuata per mezzo dei cursori, le freccie e gli inuput utilizzati dall'utente.

 

[Joe91]

Riporto la medesima immagine per comodità e prima di continuare

con la riproduzione attraverso gli script della Barra di spaziometria ... con le istruzioni necessarie ed il loro uso,

come questa immagine accenno pure io, che essa tetmina con pulsanti per mezzo dei quali è possibile,

inserire e disnserire le ruote ammesse alle ricerche con la pressione dei bottoni corrispondenti.

Ed ecco lo script che riassume i precedenti:

Sub Main
 Ini = EstrazioneIni 
 Fin = EstrazioneFin
 Scrivi Ini & " - " & DataEstrazione(Ini),1,0  
 Scrivi " [ ] " ,0,0
 Scrivi Fin & " - " & DataEstrazione(Fin),1,0  
End Sub

Eseguendolo, si notano, ed ottengono riprodotti, i contenuti delle finestrelle blu.

Mentre [tra parentesi, (quadre)] è ASSENTE il numero di estrazioni attive.

 

[Joe91]

In prima approssimazione possiamo scrivere che il numero di estrazionei attive

è la differenza tra il due numeri letti (Fin-Ini) quindi modifichiamo lo script.

Sub Main
 Ini = EstrazioneIni 
 Fin = EstrazioneFin
 Scrivi Ini & " - " & DataEstrazione(Ini),1,0  
 Scrivi " [" & Fin-Ini & " Estrazioni] " ,0,0
 Scrivi Fin & " - " & DataEstrazione(Fin),1,0  
End Sub

Ma eseguendo ... c'è +/- 1 di differenza tra cosa dice Spaziometria

e quanto calcola lo script ... Chi ha ragione lo diciamo subito: Spaziometria.


Buona sera a tutte/i.

 

[Joe91]

Buon Giorno a tutte/i.

Prima di proseguire ... termino quanto lasciato sospeso sul MicroBrowser.

Se è vero che lo script MicroBrowser (assieme agli altri script) non ha una sua barra .... con cui scegliere l' Estrazione,

utilizzando "la lettura" fatta da EstrazioneFin ... si può utilizzare quella di Spaziometria, come se appartenesse allo scritpt.

Pertanto volendo visualizzare, ad esempio l'Estrazione 8000, e l'eventuale presenza dei numeri in input,

è sufficiente porre il limite FINALE della parte attiva dell'Archivio di Spaziometria ad 8000 (o al 16/12/2008 che dir si voglia)

e poi eseguire lo script.

Come dicevo eliminato l'InputBox (scomodo) ... per inserire il numero di estrazione di riferimento,

l'ho sostituito con "una barra" (virtuale ?) degna di SPaziometria.

 

[Joe91]

In prima approssimazione possiamo scrivere che il numero di estrazionei attive

è la differenza tra il due numeri letti (Fin-Ini) quindi modifichiamo lo script.

Sub Main
 Ini = EstrazioneIni 
 Fin = EstrazioneFin
 Scrivi Ini & " - " & DataEstrazione(Ini),1,0  
 Scrivi " [" & Fin-Ini & " Estrazioni] " ,0,0
 Scrivi Fin & " - " & DataEstrazione(Fin),1,0  
End Sub

Ma eseguendo ... c'è +/- 1 di differenza tra cosa dice Spaziometria

e quanto calcola lo script ... Chi ha ragione lo diciamo subito: Spaziometria.

Il perchè la prossima volta.

Buona sera a tutte/i.

Succede perchè, erroneamente, non si tiene conto dello zero.

Lo, si vede bene, con lo script.

Supponiamo leggere i limiti di un archivio di una sola Estrazione.

Ad esempio supponiamo essere la 8000.

Ini = 8000 : Fin = 8000.

Se è vero che 8000-8000 = ZERO è pur vero .... ed è piu vero, che l'estrazione 8000 ... è UNA.

Quindi si deve correggere aggiungendo anche il bistrattato ZERO.

Sub Main()
Ini= 8000 : Fin = 8000
For Es= Ini To Fin 
K= K +1 : Scrivi k & ") " & DataEstrazione (Es)
NExt

 

[Joe91]

Avendo dimostrato che anche a Fin-Ini ... SI DEVE ... aggiungere "+1",

se si vuole avere il risultato esatto. Va da sè che lo script corretto è:

Sub Main ()
Ini = EstrazioneIni 
Fin = EstrazioneFin 

Scrivi Ini & " - " & DataEstrazione(Ini),1,0 
Scrivi " [" & Fin-Ini [B] [COLOR=#ff0000]+[/COLOR][/B][COLOR=#ff0000] [B]1 [/B][/COLOR]& " Estrazioni] " ,0,0 
Scrivi Fin & " - " & DataEstrazione(Fin),1,0 
End Sub

 

[Joe91]

Riassumendo e completando:

EstrazioneIni Restituisce il numero INIZIALE delle estrazioni attive

EstrazioneFin Restituisce il numero FINALE delle estrazioni attive

EstrazioniRicerca Restituisce il numero delle estrazioni attive (Mai visto utilizzato!)

EstrazioniArchivio Restituisce il numero TOTALE di estrazioni presenti in archivio.

Sono le principali istruzioni per avere gli indici ed i limiti delle Estrazioni presenti in Archivio.

 

[Joe91]

Normalmente gli script,

siano essi di ricerca, che di verifica di metodi ... si sviluppano, o analizzano, un certo numero di estrazioni.

In genere, terminano, la loro esecuzione all'ultima Estrazione diponibile. EstrazioneFin.

Da questa retrocedono o iniziano 1 / 10 / 100 / 1000 ... estrazioni prima.

Abbiamo già detto che si può usare EstrazioneIni e poi dosare il numero di estrazioni attive, per mezzo degli appositi pulsanti.

Oppure leggere solo uno dei due valori estremi EstrazioneIni e/o EstrazioneFin e poi ricavare in valore opposto ...

aggiungendo / sottraendo la quantità di estrazioni (equivalenti al periodo) desiderato.

In soldoni: EstrazioneFin "meno" il numero di estrazioni (che si vuole controllare).

Qui si deve porre la stessa attenzione per far si che il conteggio coincida

con numero di estrazioni che si vogliono controllare.

Specie se il numero è immesso con un InputBox.

Questo è il tipico esempio di script SBAGLIATO ... (Lo sono quasi tutti !)

Sub Main ()
E = InputBox("Quante ?","ESTRAZIONI",1000)
 Fin = EstrazioneFin : Ini = Fin - E
 For Es = Ini To Fin
  K = K + 1 : Messaggio K
 Next
 Scrivi K
End Sub

In questo caso l'errore è il solito noto "+1" ma se fossero periodi o 1000 cicli ... sarebbe un errore di 1000 estrazioni (in più)

Quindi si corrregge l'InputBox aggiungendo (algebricamente) il "-1". Così:

E = InputBox("Quante ?","ESTRAZIONI",1000) [COLOR=#ff0000][B]-1
[/B][/COLOR]

 

[rabberto]

Ciao Joe91 ancora grazie per quello che stai facendo , non mi sono ancora chiari alcuni concetti riguardo al discorso del +1 , del k ,ma ci sto lavorando sopra , ancora grazie , ciao.

 

[Joe91]

La struttura portante su cui si sviluppa la maggior parte degli script ...

coincide con un ciclo For - Next attraverso il quale si analizza un certo numero di Estrazioni.

Sub Main
 Ini = EstrazioneIni : Fin = EstrazioneFin
 For Es = Ini To Fin
  k = k + 1 : Messaggio(K)
 Next
 Scrivi K
End Sub

Questo per esempio dimostra di saper conteggiare ... quante estrazioni attive ci sono in Archivio.

Normalmente poi ... per molti metodi, sovente viene posta in essere "una condizione":

Prima del mese / ultima del mese / seconda / terza ecc ...ecc...

Vi sono istruzioni apposite per estrarre queste "date" particolari.

Ricavare, per confronto, l' Id-Estrazione.

Supponiamo per esempio di voler conoscere in quale data sia avvenuta la 50-esima Estrazione di ogni anno.

Sub Main
 Ini = EstrazioneIni : Fin = EstrazioneFin
 For Es = Ini To Fin
  k = k + 1 : Messaggio(K)
  If IndiceAnnuale (Es) = 50 Then Scrivi DataEstrazione (Es)
 Next
 Scrivi K
End Sub

dove il Tutto il "Test condizionale" per ricavare la data avviene con:

If IndiceAnnuale (Es) = 50 Then Scrivi DataEstrazione (Es)

Naturalmente "50" è un numero variabile (qui, puramente casuale) ... a piacimento del metodista.

Potrebbe essere 1 come alias della prima estrazione di ogni Anno.

E' identico quanto avviene per il Mese-Lottologico.

If Indicemensile (Id-Estrazione) = xyz Then 

' per ricavare l'indice "xyz" dell' Estrazione ogni mese.

End If

E ... (SOLO IN SPAZIOMETRIA)

IsUltimaDelMEse, Restituisce il numero dell' Ultima Estrazione di ogni Mese

Sub Main
 Ini = EstrazioneIni : Fin = EstrazioneFin
 For Es = Ini To Fin
  k = k + 1 : Messaggio(K)
  If IsUltimaDelMese (Es) = True Then  Scrivi DataEstrazione (Es)
 Next
 Scrivi K
End Sub

 

[Joe91]

Ciao Rabberto.

"K" è il nome di una variabile ... inizialmente non definita ... utilizzata come Kontatore .

Quindi "k" inizialmente ... vale zero (meglio sarebbe dire "" (nulla)).

Sub Main ()
Scrivi K
End Sub

Come puoi provare e vedere ... scrive "nulla".

Se invece fosse :

Sub Main ()
k = k + 1
Scrivi k
End Sub

Scrive ... "1"

Perchè ?

Inizialmente a "K" (che vale Zero), viene aggiunto "+1"

pertanto "k" memorizza di se stessa di valere "1"

E dopo ... K = 0 + 1 .... k vale 1 / Scrivi K / Scrive "1"

-----

se Reiteri / Esegui "N" volte

Sub Main ()
k = k + 1
Scrivi k
k = k + 1 
Scrivi k
k = k + 1
Scrivi k

End Sub

Ottieni:

1
2
3

Perchè ?

Ogni volta, al valore che "K" ha di se stessa, viene aggiunto "+1" .

Se dunque k = k +1 si trova all'interno di un ciclo for-next

e per esempio k = k + 1 viene eseguita 100 volte ...

alla fine del ciclo, K "vale" 100.

Sub Main()
For N =  1 to 100 
K= K + 1
Next 
Scrivi K
End Sub

E' questa la ragione per cui l''ho definita essere alias di "Kontatore".

Però attenzione: E' un conteggio in "tempo reale" se non fossero realmente 100 ...

scriverebbe quel che risulta dal conteggio "in pratica" (magari differente dal teorico previsto).

Ed è tra la teoria sbagliata, ed il conteggio materiale, che si evidenzia, nella pratica, l'errore del "+1"

Buona Giornata.

 

[rabberto]

Ciao Joe91 come sempre molto gentile e molto chiaro nel spiegare gli script ora e tutto piu chiaro , grazie , ciao.

 

[Joe91]

Ciao Joe91 come sempre molto gentile e molto chiaro nel spiegare gli script ora e tutto piu chiaro , grazie , ciao.

Ok ...

Mi riservo di dare una rilettura a tutto quanto scritto e di effettuare le correzioni ...

che possano migliorare il testo e correggere errori.

Se vi sono appunti da muovere ... parti, poco comprensibi ecc, chiedo cortesemente, di segnalarle.

Dopo di che ... penso si possa, autorizzare Rabberto a "riassumere" come in precedenza.

Rinnovo il mio grazie a tutti coloro intervenuti ... e gli attenti lettori.

Cordiali Saluti.

 

[rabberto]

Ciao Joe91 dopo che rileggi il tutto e non ci sono segnalazioni da parte di nessun utente mi dai l'ok e io procedo con il secondo riassunto , aspetto un tuo ok , grazie ancora , ciao.

 

[rabberto]

Ciao Joe91 io mi sono riletto il post sembra che sia tutto ok , non ci sono segnalazioni , anche se sei tu che mi devi dire se per te e ok , quindi quando decidi che per te va bene fammelo sapere che procedo con il secondo riassunto , ciao e grazie ancora.

 

[Joe91]

Ciao Rabberto,

Si ho aggiunto un esempio di conteggio, del ritardo, utilizzando l' Id-Estrazione,

e corretto alcuni errori. Tutto è perfettibile, ma anch'io, penso vada bene così.

Grazie sin d'ora , buona serata.

 

[rabberto]

Ciao Joe91 grazie a te il merito e tutto tuo non sapevo nemmeno da dove dovevo iniziare gli script adesso con le tue guide ho iniziato a fare i primi passi , procedo come sono pronto pubblichero' il secondo riassunto , grazie ancora , ciao.