ARCHIVIO LOTTO SPAZIOMETRIA [UTILITY] due

[Master]

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,








Grazie a tutti

  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

 

[Mike58]

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