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, 12: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
    gioved 19 luglio 2018
    Bari
    20
    87
    21
    59
    03
    Cagliari
    53
    14
    29
    56
    73
    Firenze
    02
    03
    47
    76
    34
    Genova
    04
    40
    32
    01
    77
    Milano
    58
    06
    56
    71
    15
    Napoli
    27
    60
    43
    49
    15
    Palermo
    77
    75
    14
    38
    81
    Roma
    73
    47
    41
    90
    10
    Torino
    06
    69
    18
    16
    26
    Venezia
    16
    56
    39
    88
    89
    Nazionale
    41
    50
    53
    61
    32
    Sto operando...
    X