Ritardo del ritardo

[joe]

Ciao Cinzia,

l'istruzione-chiave RitEstrazione (Es,R,P) NON è nel corredo del Basic di Spaziometria.

Cioè con Spaziometria lo script non può essere eseguito,

perché quando il compilatore incontra la riga di comando dove c'è l'istruzione sconosciuta,

restituisce un messaggio di errore.

Per coloro che intendono usare lo script con Spaziometria, ho redatto il codice necessario,

per aggiungere questa funzione al corredo delle istruzioni basic.

Si devono incollare queste poche righe DOPO End Sub (al fondo dello script).

Function RitEstrazione(Es,R,P) 'By Joe
  Dim E
  E = Estratto(Es,R,P)
  RitEstrazione = EstrattoRitardo(R,E,1,Es - 1)
End Function

Per il resto mi risulta giusto.

 

[Cinzia27]

Grazie mille Joe dell' adattamento e del controllo.

Sub Main()
' Per Simimi
'Attuali cs passo da 1 a ...
'si ricerca da quante estrazioni non esce una cs per ambata con un certo ritardo
'Si considera, infatti, non  il rc ma il periodo di assenza del ritardo all' estrazione (Cinzia27-Joe)
Dim ru(1),nu(1)
fin = EstrazioneFin
ini = fin - 2000
For i = 0 To 200
co = 0
For r = 5 To 5
If r = 11 Then r = 12
ru(1) = r
co = 0
For es = fin To ini Step - 1
For p = 1 To 5
re = RitEstrazione(es,r,p)
If re = i Then
co = co + 1
If co = 1 Then
at = fin - es
ri = FormatSpace(es,4,1) & " " & SiglaRuota(r) & " rit all' estr. " & FormatSpace(re,4,1) & " manca da " & _
FormatSpace(at,4,1)
Scrivi ri & " n ",0,0
For x = 1 To 90
nu(1) = x
rit = SerieRitardo(1,EstrazioneFin,nu,ru,1)
If rit = re Then
 ColoreTesto 2
Scrivi Format2(nu(1)) & " ",0,0
If at > mx Then mx = at
End If
Next
ColoreTesto 0
Scrivi
End If
End If
Next
Next
Next
Next
Scrivi mx
End Sub
Function RitEstrazione(Es,R,P) 'By Joe
  Dim E
  E = Estratto(Es,R,P)
  RitEstrazione = EstrattoRitardo(R,E,1,Es - 1)
End Function

 

[Ramco]

Brava Cinzia... sempre sul pezzo!

 

[simimi]

Buonasera,
vi ringrazio per aver trasformato una idea in script.
Grazie Cinzia27 per la tua disponibilità e del tempo che mi hai dedicato e grazie a Joe che da super visore non lascia mai nessuno indietro.
A presto.

 

[Cinzia27]

Grazie, mitico Ramco. Non solo per il complimenti ma per tutto ciò che hai condiviso con noi appassionati di lotto.
Simimi, mi fa piacere che lo script risponda alla tua richiesta.

 

[simimi]

Ciao Cinzia, volevo chiederti se è possibile modificare il listato in modo che anche nelle cinquine dove il numero uscito era presente, riportasse una uscita azzerando il ritardo. Ti ho portato l'esempio del numero 80, come vedi nella cinquina relativa al rigo 13 il numero 80 era presente e quindi lo script si deve comportare riportando un ritardo a zero.
Spero di essermi spiegato e mi auguro che questa modifica si possa fare.
A presto

	Bari
Rit	1	2	3	4	5
0	29​	69​	52​	80​	88​
1	73​	10​	19​	26​	34​
2	55​	18​	78​	36​	64​
3	50​	65​	72​	26​	38​
4	81​	2​	42​	55​	79​
5	86​	56​	14​	65​	47​
6	27​	89​	7​	65​	85​
7	26​	9​	78​	48​	22​
8	47​	73​	44​	59​	84​
9	90​	32​	45​	44​	62​
10	88​	33​	11​	53​	51​
11	30​	4​	62​	33​	44​
12	80​	18​	70​	39​	65​
13	11​	80​	24​	90​	81​
14	81​	85​	48​	86​	38​
15	83​	51​	84​	34​	5​
16	27​	69​	3​	1​	12​
17	43​	50​	77​	49​	59​
18	38​	69​	47​	22​	46​
19	7​	21​	15​	54​	27​
20	27​	38​	71​	15​	84​
21	88​	81​	53​	41​	90​
22	70​	15​	3​	11​	34​
23	72​	6​	63​	79​	86​
24	47​	6​	11​	33​	41​
25	86​	51​	57​	79​	65​
26	22​	86​	81​	65​	75​