Novità

SerieRitardo

Xeroxs

Advanced Member >GOLD<
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

Codice:
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

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

Codice:
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

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

(y) ;)
 

joe

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

:)
 
Ultima modifica:

joe

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

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