Novità

Con i miei auguri di Buon Natale

C

Cinzia27

Premium Member
'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

lotto_tom75

Advanced Premium Member
Cinzia27 ha scritto:
'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
Clicca per espandere...

tagcode.jpg
Codice: 
 Grazie e Buon Natale e Buone Feste anche a Te mitica ;)
😜 💪👋🙂
 
X

Xeroxs

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

Cinzia27

Premium Member
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
 
kira

kira

Premium Member
Cinzia27 ha scritto:
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
Clicca per espandere...
e x ki di questi script ne capisce na MAZZA???????? naturalmente AUGURI DI BUONE FESTE anke da parte mia
 
C

Cinzia27

Premium Member
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

:)
 
Ultima modifica:
joe

joe

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

CNZ.jpg
:) Auguri.
 
C

Cinzia27

Premium Member
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à.
 
Roberto57

Roberto57

Advanced Premium Member
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...🙏
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 02 maggio 2024
    Bari
    43
    35
    83
    74
    40
    Cagliari
    10
    23
    48
    01
    87
    Firenze
    71
    12
    04
    27
    01
    Genova
    83
    37
    42
    70
    78
    Milano
    28
    72
    27
    30
    07
    Napoli
    34
    42
    13
    67
    11
    Palermo
    37
    77
    19
    17
    12
    Roma
    79
    85
    90
    55
    49
    Torino
    83
    56
    46
    57
    19
    Venezia
    41
    48
    57
    12
    15
    Nazionale
    84
    70
    10
    67
    74
    Estrazione Simbolotto
    Milano
    22
    09
    04
    01
    11
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto