x Luigib

[Rubino]

SPAZIOSCRIPT

ciao Luigib
non riesco a calcolare il ritardo degli estratti per il 10 e Lotto

nota: io ho spazioscript 1.0.0.7
sarà perché mi sembra che sono indietro come versione, anche perché non ho ricevuto più notizie
per versioni più recenti, se ce ne sono, non lo so.

puoi guardare il perché non ottengo il ritardo attuale?
mi da sempre zero

grazie e scusa il disturbo

Option Explicit
Sub Main
 Dim n,ini,fine,q,d,teo,rit
 Dim nr(90,2)
 ImpostaArchivio10ELotto(1)
 fine = InputBox("Estraz.n.",,EstrazioniArchivioDL)
 ini = fine - 1000
 Scrivi "Tabellone 10 e lotto" & ini & " / " & DataEstrazione(ini) & " : " & fine & " / " & DataEstrazione(fine),1
 For ini = ini + 1 To fine
  For d = 1 To 20
   n = EstrattoDL(ini,d)
   nr(n,1) = n
   nr(n,2) = nr(n,2) + 1
  Next
 Next
 For q = 1 To 90
  teo = Int(1000 * (20/90))
  rit = EstrattoRitardoDL(q,ini,fine)
  Scrivi fine & "..." & Format2(q) & "...." & nr(q,2) & "..." & teo & "....R.." & rit
 Next
End Sub

 

[LuigiB]

Ciao il programma è fermo non credo che lo continuerò. Il tuo script in spaziometria funziona ?

 

[Rubino]

ciao
come si faceva a cancellare l'archivio (bho sarà corrotto), e farlo ricostruire?

non mi ricordo più