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
    venerdì 19 aprile 2024
    Bari
    39
    05
    81
    89
    73
    Cagliari
    56
    21
    01
    90
    03
    Firenze
    05
    56
    68
    27
    09
    Genova
    42
    50
    90
    27
    83
    Milano
    16
    71
    29
    85
    04
    Napoli
    29
    19
    23
    63
    50
    Palermo
    35
    54
    33
    57
    61
    Roma
    17
    29
    43
    55
    74
    Torino
    69
    60
    03
    01
    26
    Venezia
    05
    57
    59
    43
    34
    Nazionale
    30
    43
    64
    65
    21
    Estrazione Simbolotto
    Genova
    02
    20
    25
    12
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto