Novità

verificaesitoSE

genios

Advanced Member >PLATINUM<
Come si usa la funzione verificaesitoSE per controllare l' esito di una matrice bidimensionale di numeri ?
Nel senso quale è l', esito del primo gruppo di numeri e quale l' esito del secondo gruppo di numeri?

Codice:
Sub Main

    Dim Ini
    Dim aNumeri(10,2) ' matrice bidimensionale dei numeri in gioco

    aNumeri(1,1) = 1
    aNumeri(2,1) = 10
    aNumeri(3,1) = 19
    aNumeri(4,1) = 28
    aNumeri(5,1) = 37
    aNumeri(6,1) = 46
    aNumeri(7,1) = 55
    aNumeri(8,1) = 64
    aNumeri(9,1) = 73
    aNumeri(10,1) = 82

    aNumeri(1,2) = 2
    aNumeri(2,2) = 11
    aNumeri(3,2) = 20
    aNumeri(4,2) = 29
    aNumeri(5,2) = 38
    aNumeri(6,2) = 47
    aNumeri(7,2) = 56
    aNumeri(8,2) = 65
    aNumeri(9,2) = 74
    aNumeri(10,2) = 83

     For Ini = 1 To EstrazioniArchivioSE ' gioco su tutto l'archivio

        Call ScriviEstrazioneSE(Ini,True) ' scrivo l'estrazione di cui sto verificando l' esito

    Next
End Sub

Cordiali saluti
Eugenio
 
Buonanotte,
forse potrebbe inserire i numeri delle matrici in un Array.
dopo di che , farlo passare in VerificaEsitoSE
 
Scusa Magia non so se erro ma Dim aNumeri(10,2) è gia un Array di 10 righe e 2 colonne . Quello che vorrei fare è verificare l' esito dei 10 numeri della colonna 1 e dei 10 numeri della colonna 2 e avere in out i risultati che hanno prodotto ad ogni estrazione .

Ciao Eugenio
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 09 maggio 2025
    Bari
    23
    87
    53
    62
    33
    Cagliari
    16
    38
    41
    62
    87
    Firenze
    19
    52
    85
    23
    13
    Genova
    01
    61
    85
    60
    48
    Milano
    87
    80
    07
    41
    50
    Napoli
    53
    32
    83
    31
    78
    Palermo
    12
    58
    56
    50
    82
    Roma
    06
    48
    17
    12
    75
    Torino
    89
    26
    30
    01
    20
    Venezia
    32
    21
    20
    82
    49
    Nazionale
    68
    44
    32
    49
    83
    Estrazione Simbolotto
    Milano
    20
    19
    43
    18
    17

Ultimi Messaggi

Indietro
Alto