Novità

ARCHIVIO LOTTO SPAZIOMETRIA [UTILITY] due

Master

Advanced Member >PLATINUM<
Buongiorno a tutti
Mi sono permesso continuare la discussione considerato che nell'altro non riesco a rispondere

Utilizzando lo script di i legend ((riporto in fondo) con l'inizio 3950 ho gli stessi suoi risultati,

però modificando l'inizio ad estrazione 1, ritrovo 2 buchi o vuoti nella ruota di Milano,
confrontando gli esiti di Mike58 con VL7 (vedi sotto) ritrovo 1 vuoto o buco solo sulla ruota di Milano,


Primo buco.JPG

Secondo buco.JPG



Grazie a tutti


Codice:
  Option Explicit
'Da verificare se i risultati riportati siano corretti
Sub Main
    Dim IdEstr,R,M,Ini,Mem,Vuote,Fin,SumEstr
        Dim aTit:aTit=Array(0,"  Inizio  ","  Fine  ","  Ruota ","Concorsi","SommaEstratti","  Buchi ")
    Call InitTabella(aTit,RGB(242,242,242),,,,"Courier New")
    Ini = 3950 :Fin=9376
    For R = 1 To 12
        If R = 11 Then R = 12
        Vuote = 0
        SumEstr = 0
        If R = 12 Then Ini = 7440
        For IdEstr = Ini To Fin
            SumEstr = SumEstr + SommaEstratti(IdEstr,R)
            If Estratto(IdEstr,R,1) > 0 Then
                M = M + 1
            Else
                Vuote = Vuote + 1
            End If
        Next
        Dim aTab
        aTab=Array(0,Ini,(Fin) ,SiglaRuota(R) , M , SumEstr , Vuote)
        M = 0
        Call AddRigaTabella(aTab,,,,,"Courier New")

    Next
    Call CreaTabella
End Sub





PS : Sono riuscito a scrivere dall'altra parte SCUSATEMI
 

Allegati

  • 2ybpj.png
    2ybpj.png
    65,6 KB · Visite: 0
Ultima modifica:

Mike58

Advanced Member >PLATINUM PLUS<
Visto che è stato un tuo quesito ti rispondo qui.
Confermo i tuoi dati anche in vl7.
3795 BA 18.70.04.50.01
3795 CA 00.00.00.00.00
3795 FI 82.54.40.37.52
3795 GE 82.19.77.85.38
3795 MI 30.01.83.05.71
3795 NA 00.00.00.00.00
3795 PA 00.00.00.00.00
3795 RM 22.27.61.67.17
3795 TO 70.63.60.06.76
3795 VE 42.14.64.65.17
3795 NZ 00.00.00.00.00

3949 BA 31.74.75.28.80
3949 CA 79.58.82.50.57
3949 FI 38.48.12.27.34
3949 GE 81.52.83.03.55
3949 MI 00.00.00.00.00
3949 NA 16.31.29.38.10
3949 PA 32.87.62.38.23
3949 RM 30.17.58.12.16
3949 TO 83.59.34.38.60
3949 VE 62.61.30.54.39
3949 NZ 00.00.00.00.00

Ciao
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto