Ritardo attuale di un Numero

[Xeroxs]

Ciao a Tutti,
Vorrei sapere se esiste una riga di codice che mi scriva il ritardo attuale di un numero,
Faccio un esempio ho calcolato da un metodo "qualsiasi" un ambata ad esempio il numero 26 su Torino, mi piacerebbe sapere
se posso far scrivere al listato che quel numero ha un ritardo attuale o RA di 27 estrazioni (Valore reale ad oggi) sulla Ruota di Torino.

Grazie come sempre

 

[joe]

Ci sono le istruzioni specifiche tipo:

Option Explicit
Sub Main
  Scrivi ESTRATTORITARDO (TO_,26)
End Sub

Alcune di esse permettono anche di avere un maggior numero "parametri"

per gestire situazioni più complesse e sono compatibili con altri programmi in grado di eseguirle.

Regina, tra esse, "SERIERITARDO" istruzione che però richiede degli array.

Uno per i numeri (il numero), uno per le ruote (la ruota),

e poi si deve anche scegliere inizio e fine periodo di cui avere il risultato.

Con SerieRitardo si può ... anche scegliere quale sia la sorte

(tra quelle possibili) di cui calcolare il ritardo.

 

[Xeroxs]

Grazie, non pensavo fosse così semplice, riferendomi ad un solo comando, Ci provo.
Come sempre gentilissimo.

 

[Xeroxs]

Buon Pomeriggio a Tutti Voi,

Dopo il consiglio di Joe, ho applicato il codice all'ambata di un metodo che mi hanno passato per creare il listato o meglio se va bene, direi che per la mia esperienza sui sommativi al momento è positivo, preferisco tesarli per 5-6 mesi dopo sembra perdere efficacia, quindi lo posto visto che da Febbraio ha dato sempre l'ambo in terzina ma visto che si tratta di soli 3 numeri giocherei solo gli ambi.
Previsione su 5 colpi uno già passato spero che offra in questi ultimi 4 colpi magari già da stasera l'esito positivo nella scia attuale del metodo.

Sub Main()
   Dim nu(3),ruote(2),ambata(1),posta(1),poste(3)
   posta(1) = 1 : poste(2) = 1 : poste(3) = 1
   Scrivi String(30," ") & "****** Metodo Torino-Venezia - Versione.1.0 ****** ",1
   Scrivi String(38," ") & "** Sommativo alla 9° del Mese ** ",1
   Scrivi String(42," ") & "****** By Xeroxs ****** ",1
   Scrivi
   ColoreTesto 1
   ini = 9740
   fin = EstrazioneFin
   For es = ini To fin
       If IndiceMensile(es) = 9 Then
       AvanzamentoElab ini,fin,es
       '-------------------------------------------------------------------------- Ruote di Gioco
       ruote(1) = 9 : ruote(2) = 10
       '-------------------------------------------------------------------------- Ambata
       ambata(1) = Abs(Estratto(es,3,3) - Estratto(es,5,1))
       nu(1) = ambata(1)
       '-------------------------------------------------------------------------- Abbinamenti per Ambo
       nu(2) = 8
       nu(3) = 34
      
       casi = casi + 1
       co = co + 1
         ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
         Scrivi "Test",1
         ColoreTesto 1:Scrivi DataEstrazione(es) & " ---> " & IndiceMensile(es) & "° Estrazione Mensile" & Chr(10) & _
         "Ambata " & Format2(ambata(1)) & "  Abb. " & Format2(nu(2)) & "." & Format2(nu(3)),1
         Scrivi "Ritardo Attuale sulla Ruota di " & NomeRuota(ruote(1)) & " è di Estrazioni "&_
         EstrattoRitardo (ruote(1) ,nu(1))
         Scrivi "Ritardo Attuale sulla Ruota di " & NomeRuota(ruote(2)) & " è di Estrazioni "&_
         EstrattoRitardo (ruote(2) ,nu(1))
         Scrivi
         ColoreTesto 0
         ImpostaGiocata 1,ambata,ruote,posta,5,0
         ImpostaGiocata 2,nu,ruote,poste,5,0
         Gioca es
       End If
   Next
   ScriviResoconto
End Sub

 

[Xeroxs]

Ai Migliori chiedo se si può esporre in modo migliore il ritardo dell'ambata così scritto da me.

Grazie come sempre