annuncio

Comprimi
Ancora nessun annuncio.

ARCHIVIO LOTTO SPAZIOMETRIA [UTILITY] due

Comprimi
X
  • Filtro
  • Ora
  • Visualizza
Elimina tutto
nuovi messaggi

  • ARCHIVIO LOTTO SPAZIOMETRIA [UTILITY] due

    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,


    Clicca sull'immagine per ingrandirla.*  Nome:   2ybpj.png* Visite: 1* Dimensione: 65.6 KB* ID: 2082012


    quindi sono andato alla ricerca dei buchi del mio archivio ho trovato 1 buco nell'estrazione 3795
    e 1 buco nell'estrazione 3949

    Vorrei avere altri confronti a riguardo


    Clicca sull'immagine per ingrandirla.*  Nome:   Primo buco.JPG* Visite: 1* Dimensione: 33.8 KB* ID: 2082010

    Clicca sull'immagine per ingrandirla.*  Nome:   Secondo buco.JPG* Visite: 1* Dimensione: 36.8 KB* ID: 2082011



    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

    Ultima modifica di Master; 12-10-2017, 11:25.

  • #2
    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
    Ciaohttp://forum.lottoced.com/core/images/smilies/smile.png

    Commenta

    Unconfigured Ad Widget

    Comprimi

    Ultima estrazione del lotto

    Comprimi

    Estrazione del lotto
    martedì 16 gennaio 2018
    Bari
    76
    34
    60
    75
    71
    Cagliari
    48
    42
    32
    09
    66
    Firenze
    36
    10
    78
    77
    52
    Genova
    23
    36
    03
    10
    21
    Milano
    09
    54
    06
    89
    10
    Napoli
    53
    60
    72
    76
    54
    Palermo
    50
    01
    03
    48
    59
    Roma
    15
    38
    32
    58
    82
    Torino
    39
    64
    55
    85
    89
    Venezia
    55
    56
    21
    78
    16
    Nazionale
    22
    74
    02
    43
    18
    Sto operando...
    X