Novità

Listato ritardo ambo in decina

solare

Advanced Member >PLATINUM<
Ciao, chiedo se qualcuno può fare un listato che possa analizzare tutte le decine naturali di una ruota
e visualizzare il ritardo attuale e max e la frequenza.
Grazie
 
Trovato tra i miei listati, metto a disposizione per chi lo vuole:
REM Frequenze e Ritardi nelle Decine Naturali V.6.0 per Solare Script By Joe

Sub Main()
C = True ' C=True=Compatto // C=False=Esteso
Dim Nu(10),Ru(1),ST(9),TG(9),R(9): ReDim T(9) : Ru(1) = ScegliRuota
Scrivi "Frequenze degli Ambi nella Decina Naturale : " & NomeRuota(Ru(1)),1
Scrivi : Scrivi " Estraz.",1,0 : Scrivi String(5," "),0,0
Scrivi " Estratti" & String(6," "),1,0
For D = 0 To 8 : Scrivi "D" & D & " ",1,0 : Next : Scrivi
For Es = EstrazioneFin - 179 To EstrazioneFin : KK = 0 : K = K + 1
If Not C Then Scrivi DataEstrazione(Es) & " " & StringaEstratti(Es,Ru(1)),0,0 '
If K = 1 Then Ini = Es
For D = 0 To 80 Step 10
For U = 1 To 10
Nu(U) = D + U
Next
SF = SerieFreq(Es,Es,Nu,Ru,2)
KK = KK + 1 : T(KK) = T(KK) + SF
If Not C Then Scrivi FormatSpace(SF,4,1),0,0
If SF > 0 And R(KK) >= ST(KK) Then ST(KK) = R(KK)'Rilevo Storico
If SF > 0 Then R(KK) = 0 Else R(KK) = R(KK) + 1 'Calcolo Ritardi
Next
If Not C Then Scrivi '
If K = 10 Then
Fin = ES : K = 0 : Scrivi : Scrivi(Ini) & "-" &(Fin),0,0
Scrivi " .... Ambi ....",0,0
For Tot = 1 To 9
Scrivi FormatSpace(T(Tot),4,1),1,0 : TG(Tot) = TG(Tot) + T(Tot)
Next : Scrivi : Scrivi
ReDim T(9)
End If
Next
Scrivi : Scrivi "Riepilogo" & String(5," "),1,0
Scrivi FormatSpace(NomeRuota(Ru(1)),14),1,0
For D = 0 To 8 : Scrivi "D" & D & " ",1,0 : Next : Scrivi
Scrivi String(63,"="),1
Scrivi EstrazioneFin - 179 & "-" & EstrazioneFin & " . Frequenze . ",1,0
For Tot = 1 To 9 : Scrivi FormatSpace(TG(Tot),4,1),1,0 : Next
Scrivi : Scrivi String(63,"="),1
Scrivi EstrazioneFin - 179 & "-" & EstrazioneFin & " . Ritardi . ",1,0
For Tot = 1 To 9 : Scrivi FormatSpace(R(Tot),4,1),1,0 : Next
Scrivi : Scrivi String(63,"="),1
Scrivi EstrazioneFin - 179 & "-" & EstrazioneFin & " . Sto/Per . ",1,0
For Tot = 1 To 9 : Scrivi FormatSpace(ST(Tot),4,1),1,0 : Next
Scrivi : Scrivi String(63,"="),1
Scrivi "Periodo : " & DataEstrazione(Fin - 179) & " >< " & DataEstrazione(Fin),1
End Sub
 
Ciao, chiedo se qualcuno può fare un listato che possa analizzare tutte le decine naturali di una ruota
e visualizzare il ritardo attuale e max e la frequenza.
Grazie

Ciao solare , il listato non mi sembra corretto o sono io che mi sbaglio


Qui sotto vedi il ritardo per Ambo in decina per ogni ruota , se confronti con lo script non corrisponde

NUM---------------------------- BA- CA -FI- GE- MI- NA- PA- RM- TO- VE- NZ-
01.02.03.04.05.06.07.08.09.10- 0-- 13- 9-- 9-- 0-- 43- 49- 4-- 11- 12- 15
11.12.13.14.15.16.17.18.19.20- 8-- 8-- 41- 13- 9-- 7-- 11- 7-- 3-- 2-- 0
21.22.23.24.25.26.27.28.29.30- 3-- 9-- 37- 4-- 6-- 5-- 21- 9-- 75- 15- 1
31.32.33.34.35.36.37.38.39.40- 6-- 1-- 20- 2-- 12- 20- 14- 0-- 6-- 7-- 5
41.42.43.44.45.46.47.48.49.50- 9-- 15- 4-- 5-- 4-- 1-- 3-- 65- 21- 4-- 16
51.52.53.54.55.56.57.58.59.60- 1-- 2-- 14- 7-- 12- 6-- 23- 3-- 1-- 1-- 6
61.62.63.64.65.66.67.68.69.70- 3-- 7-- 10- 0-- 5-- 8-- 18- 1-- 13- 13- 43
71.72.73.74.75.76.77.78.79.80- 4-- 19- 2-- 10- 19- 11- 6-- 10- 2-- 3-- 13
81.82.83.84.85.86.87.88.89.90- 38- 17- 0-- 1-- 1-- 13- 5-- 2-- 15- 6-- 3
 
Ultima modifica:
Ciao oscar21, questo è il mio risultato è perfetto

Riepilogo Bari D0 D1 D2 D3 D4 D5 D6 D7 D8
===============================================================
3959-8798 . Frequenze . 534 577 485 530 547 546 555 494 559
===============================================================
3959-8798 . Ritardi . 0 8 3 6 9 1 3 4 38
===============================================================
3959-8798 . Sto/Per . 68 66 76 86 57 70 69 83 69
===============================================================
Periodo : 14.12.1946 >< 21.01.2014
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 23 agosto 2025
    Bari
    67
    05
    41
    45
    12
    Cagliari
    29
    78
    54
    88
    28
    Firenze
    57
    58
    15
    45
    44
    Genova
    53
    33
    89
    34
    77
    Milano
    09
    31
    36
    03
    21
    Napoli
    82
    35
    45
    06
    65
    Palermo
    25
    40
    82
    48
    62
    Roma
    21
    24
    74
    52
    09
    Torino
    28
    78
    50
    90
    84
    Venezia
    38
    87
    03
    25
    41
    Nazionale
    56
    09
    42
    57
    33
    Estrazione Simbolotto
    Nazionale
    41
    44
    04
    07
    21
Indietro
Alto