Con i miei auguri di Buon Natale

[Cinzia27]

'Ritardo di Posizione capolista ruota - Cinzia27
Sub Main()
Dim n(1),ru(1)
Scrivi " I più ritardatari su ruota (Cinzia)"
fin=EstrazioneFin
ini=fin-100
q=CInt(InputBox(" Quanti ritardatari vuoi visualizzare ?",,1))
If q="" Then Exit Sub

For r=1 To 11
If r=11 Then r=12
ru(1)=r
Scrivi String(35,"*")

For es=ini To fin
co=co+1
Scrivi " "&FormatSpace(es,5,1)&" "&SiglaRuota(r)&" ",1,0
For x=1 To q
a=NumeroPosRit(es-1,r,x)
n(1)=a
If Posizione(es,r,a)>0 Then
co=0
ColoreTesto 2
Scrivi " "&Format2(a)&" ",1,0
Else
ColoreTesto 0
rt=SerieRitardo(1,es-1,n,ru,1)
Scrivi " "&Format2(n(1))&" ",1,0
Scrivi " rc "&FormatSpace(rt+1,5,1)&" ",0,0
ColoreTesto 0
End If
ColoreTesto 0
Next
If co>0 Then Scrivi " rdp "&co Else Scrivi ""
Next
Next
End Sub

 

[lotto_tom75]

'Ritardo di Posizione capolista ruota - Cinzia27
Sub Main()
Dim n(1),ru(1)
Scrivi " I più ritardatari su ruota (Cinzia)"
fin=EstrazioneFin
ini=fin-100
q=CInt(InputBox(" Quanti ritardatari vuoi visualizzare ?",,1))
If q="" Then Exit Sub

For r=1 To 11
If r=11 Then r=12
ru(1)=r
Scrivi String(35,"*")

For es=ini To fin
co=co+1
Scrivi " "&FormatSpace(es,5,1)&" "&SiglaRuota(r)&" ",1,0
For x=1 To q
a=NumeroPosRit(es-1,r,x)
n(1)=a
If Posizione(es,r,a)>0 Then
co=0
ColoreTesto 2
Scrivi " "&Format2(a)&" ",1,0
Else
ColoreTesto 0
rt=SerieRitardo(1,es-1,n,ru,1)
Scrivi " "&Format2(n(1))&" ",1,0
Scrivi " rc "&FormatSpace(rt+1,5,1)&" ",0,0
ColoreTesto 0
End If
ColoreTesto 0
Next
If co>0 Then Scrivi " rdp "&co Else Scrivi ""
Next
Next
End Sub

 Grazie e Buon Natale e Buone Feste anche a Te mitica ;)

 

[Xeroxs]

Ciao, Cinzia27

Quanta Bravura, Proponi sempre Ottimi Spunti Utili per chi ama questo Gioco, anche solo per avere dati statistici.

Grazie, Non mi sembra di Avertelo mai scritto, Ne approfitto Ora e Ti Faccio anche io i miei Auguri di un Sereno Natale.

 

[Cinzia27]

Grazie, siete molto gentili.
Scusatemi, ho fatto una rettifica.

'Ritardo di Posizione capolista ruota - Cinzia27
Sub main()
Dim n(1),ru(1)
Scrivi " I più ritardatari su ruota (Cinzia)"
fin=EstrazioneFin
ini=fin-100
q=CInt(InputBox(" Quanti ritardatari vuoi visualizzare ?",,1))
If q="" Then Exit Sub

For r=1 To 11
If r=11 Then r=12
ru(1)=r
Scrivi String(35,"*")
co=0

For es=ini To fin
co=co+1
Scrivi " "&formatspace(es,5,1)&" "&siglaruota(r)&" ",1,0
For x=1 To q
a=NumeroPosRit(es-1,r,x)
n(1)=a
If Posizione(es,r,a)>0 Then
co=0
ColoreTesto 2
Scrivi " "&format2(a)&" ",1,0
Else
ColoreTesto 0
rt=SerieRitardo(1,es-1,n,ru,1)
Scrivi " "&format2(n(1))&" ",1,0
Scrivi " rc "&formatspace(rt+1,5,1)&" ",0,0
ColoreTesto 0
End If
ColoreTesto 0
Next
If co>0 Then Scrivi " rdp "&co Else Scrivi ""
Next
Next
End Sub

 

[rudivall]

Grazie Cinzia, sei gentilissima, buone festività anche per te, ricambio di cuore gli auguri...

 

[micro__]

Tanti Auguri Cinzia,Buon Natale!!
micro

 

[.MRK1.]

 

[kira]

Grazie, siete molto gentili.
Scusatemi, ho fatto una rettifica.

'Ritardo di Posizione capolista ruota - Cinzia27
Sub main()
Dim n(1),ru(1)
Scrivi " I più ritardatari su ruota (Cinzia)"
fin=EstrazioneFin
ini=fin-100
q=CInt(InputBox(" Quanti ritardatari vuoi visualizzare ?",,1))
If q="" Then Exit Sub

For r=1 To 11
If r=11 Then r=12
ru(1)=r
Scrivi String(35,"*")
co=0

For es=ini To fin
co=co+1
Scrivi " "&formatspace(es,5,1)&" "&siglaruota(r)&" ",1,0
For x=1 To q
a=NumeroPosRit(es-1,r,x)
n(1)=a
If Posizione(es,r,a)>0 Then
co=0
ColoreTesto 2
Scrivi " "&format2(a)&" ",1,0
Else
ColoreTesto 0
rt=SerieRitardo(1,es-1,n,ru,1)
Scrivi " "&format2(n(1))&" ",1,0
Scrivi " rc "&formatspace(rt+1,5,1)&" ",0,0
ColoreTesto 0
End If
ColoreTesto 0
Next
If co>0 Then Scrivi " rdp "&co Else Scrivi ""
Next
Next
End Sub

e x ki di questi script ne capisce na MAZZA???????? naturalmente AUGURI DI BUONE FESTE anke da parte mia

 

[Cinzia27]

Ricambio caramente gli auguri di Tom, Xeroxs, Rudivall, Micro_, MKR1 e i tuoi.
Questo script basta farlo girare e ti dice da quante estrazioni il numero più ritardario è tale ( situazione attuale) e quante
estrazioni hanno aspettato i precedenti ritardatari ( in rosso) per uscire (situazione passata).
Ad esempio, il 16, appena uscito a Venezia, è stato ritardataro per 81 estrazioni.
Attualmente abbiamo il 45 su Cagliari che è ritardatario da 60 estrazioni.
Poi abbiamo due ritardari che sono diventati tali nello stesso momento e che hanno, quindi, la stessa posizione di ritardo, 19, e sono
67 a FI
53 a RO

 

[kira]

grazie della tua gentilezza e buona giornata

 

[Bubblegum]

Grazie Cinzia , buone feste a te e tutti voi !!

 

[joe]

Ciao Cinzia.

Ricambio volentieri i graditi auguri,

aggiungendo i miei per tutte/i quanti li vorranno accogliere.

Ho controllato cosa facesse il tuo script e mi sembra funzioni bene.

Tra i plug-in di Spaziometria dovrebbe essercene uno dal titolo

Ritardo di Casella che effettua calcoli analoghi.

Inoltre molti anni fa avevo anche inserito un mio vecchissimo script

che nato in altro "basic" avevo adattato a Spaziometria.

Dai dati prodotti ... rilevo che è interessante la situazionie di Torino.

Considerando che Venezia ha appena ceduto il suo centenario.

Tre zerati di cui 1 capolista e 2 isocroni e ritardi molto lunghi,

tra i 5 massimi ritardatari ... sono zoccolo alto da cui è facile cadere.


Auguri.

 

[Paki144]

Ciao Cinzia27 grazie per il tuo script
auguri di Buon Natale
Saluti Cinzia27

 

[i legend]

Auguri a tutti anche da parte mia

 

[simimi]

Tanti auguri a tutti voi

 

[Zetrix]

Ciao CInzia,

ricambio anch'io gli auguri di buon natale e graxie per gli script

 

[Cinzia27]

Grazie anche a voi,Bubblegum, Joe,Paki144, Ilegend, Simimi, Zetrix ( il 2° sostituisce il primo).
Che bella compagnia, Tanti tanti auguri di serenità e di felicità.

 

[pigano65]

Grazie e ricambio gli auguri di buon Natale.

 

[Roberto57]

Tantissimi auguri a tutti anche da parte mia.
Oggi sono riuscito a giocare perchè è andata mia Moglie ma prossimamente mi fermo per un po.
Un'oretta fa mi hanno mandato a casa dal lavoro perchè trovato positivo, il 24 devo andare al Galeazzi per il tampone molecolare e per il 26/27 dovrei avere l'esito. E' andata così prendiamoci anche questa mazzata...

 

[Cinzia27]

Ciao, Roberto. Mi dispiace molto di questa notizia. Mi raccomando, segui le cure.
Ti auguro che vada tutto per il meglio.