SerieRitardo

[Xeroxs]

Buongiorno a Tutti,

Ho bisogno di creare l'elenco dei Ritardi RC ( o Attuali) in questo Script, ma scrivo e riscrivo ma non mi risulta nulla, ho bisogno di ultimare quanto fatto.

Vi posto lo Script

Option Explicit
Sub Main
   Dim N,R,es
   Scrivi String(10," ") & " Statistica Ritardatari - Centenari all'ultima Estrazione ",1,,,1,2
   Scrivi
   Scrivi "    " & " BA " & "    CA" & "     FI" & "     GE" & "     MI" & "     NA" & "     PA" & "     RO" & "     TO" & "     VE" & "     NZ",1,2,,2
   Scrivi String(80,"-") & "   Alla Data del " & DataEstrazione(EstrazioneFin),1,1
   For R = 1 To 12
      If R = 11 Then R = 12
      Scrivi FormatSpace(PiuRitardatario(EstrazioneFin,R),7,True),1,0
   Next
   Scrivi
End Sub

Statistica Ritardatari - Centenari all'ultima Estrazione

BA CA FI GE MI NA PA RO TO VE NZ
--------------------------------------------------------------------------------------------------------- Alla Data del 28.09.2021
40 45 26 49 90 78 18 87 70 16 79

il ritardo dovrei scriverlo sotto il numero

Spero che qualcuno possa aiutarmi a completarlo

Grazie.

 

[Mike58]

Dovevi usare il codice per il ritardo o serieRitardo o estrattoritardo in questo script ho usato il 2°
Poi ho scritto la sequenza in riga.
vedi codici

Option Explicit
Sub Main
   Dim N,R,es,Rit,er,RigaRitardi,RigaNumero
   Scrivi String(10," ") & " Statistica Ritardatari - Centenari all'ultima Estrazione ",1,,,1,2
   Scrivi
   Scrivi "    " & " BA " & "    CA" & "     FI" & "     GE" & "     MI" & "     NA" & "     PA" & "     RO" & "     TO" & "     VE" & "     NZ",1,2,,2
   Scrivi String(80,"-") & "   Alla Data del " & DataEstrazione(EstrazioneFin),1,1
   For R = 1 To 12
      If R = 11 Then R = 12
      Rit = PiuRitardatario(EstrazioneFin,R)
      er = EstrattoRitardo(R,Rit)
      RigaNumero = RigaNumero & Format2(Rit) & "     "
      RigaRitardi = RigaRitardi & FormatSpace(er,3) & "    "
   Next
   Scrivi Space(5) &(RigaNumero) & Space(5) & " Numeri Ritardari ",1
   Scrivi Space(5) & RigaRitardi & Space(5) & " Ritardo corrente ",1,,,1,2
   Scrivi
End Sub

 

[Xeroxs]

Grazie Mike48,
Avevo interpretato male l'intero costrutto, Ti Ringrazio davvero tanto, Ora analizzo bene lo Script per capire dove io non riuscivo.

 

[joe]

Un caro saluto a Mike, Xeroxs ed a tutti i lettori.

Il "blocco" di istruzioni come: Serie/Freq/Ritardo/Storico/Prima/Ultima ecc.

hanno sintassi simile tra loro e sono piuttosto compatibili con L8+ e LD.

Richiedono per sommi capi che si specifichi: Inizio e Fine Periodo / Numeri / Ruote / Sorte

ed altri eventuali dati con cui elaborare il segmento dell'archivio desiderato per fornire risultati voluti.

Spaziometria ha la versione Turbo di molte di queste istruzioni. Uguale nel funzionamento ma più veloce.

Dunque Inizio e Fine sono i "numeri di estrazione" (gli IdEstrazione) con cui si delimita il periodo in cui cercare.

Potrebbero per esempio essere 6001 e 8000 per cercare nelle 2000 estrazioni tra l' inizio del 1986 a la fine del 2008.

Numeri e Ruote possono essere più d'uno dunque li si inserisce in array a seconda di quanti sono.

Ad Esempio

Dim Nu(2), Ru(2)

Nu(1) = 30
Nu(2) = 60

Ru(1) = Ba_
Ru(2) = To_

La sorte può essere (in questo caso) quella di estratto (1) o di Ambo (2 perché ci sono 2 numeri)

Dopo di che, se si esegue lo script con la linea di comando come SerieFreq/SerieRitardo ( .... ) ecc...

(quando possibile) esso restituisce i risultati voluti.

Dierettamente come: Scrivi Serie...

Oppure indirettamente dopo averli raccolti in una apposita Memoria/Variabile

Risultato = Serie ....

Scrivi Risultato

Questo secondo caso è più utile quando si vogliono effettuare dei test condizionali

Del tipo:

IF Risultato > xyz Then Scrivi Risultato

Perché diventano anche disponibili con tutti gli operatori logici e quelli che agiscono sui colori.

Senza dimenticare tutti i test che rimandano ad altri calcoli ed altre parti dello script,

"eseguiti alle condizioni" che il metodo o i calcoli che in esso contenuti.

 

[joe]

Chiedo scusa, ma non ho fatto in tempo a correggere.

"eseguiti alle condizioni" che il metodo o i calcoli che in esso contenuti.

E' da leggersi :

"eseguiti alle condizioni" previste dal metodo e dai calcoli contenuti nello dello script.

Cordiali saluti.

 

[Xeroxs]

Ciao, sempre utili consigli.