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
    sabato 21 ottobre 2017
    Bari
    13
    68
    85
    40
    28
    Cagliari
    86
    59
    61
    69
    03
    Firenze
    16
    23
    37
    04
    73
    Genova
    01
    41
    33
    58
    02
    Milano
    68
    04
    06
    86
    28
    Napoli
    05
    57
    26
    01
    29
    Palermo
    84
    35
    63
    22
    08
    Roma
    33
    84
    43
    78
    35
    Torino
    57
    07
    40
    64
    32
    Venezia
    80
    31
    74
    32
    11
    Nazionale
    59
    70
    65
    85
    11
    Sto operando...
    X