Novità

xSalvo50, tabellone 10elotto

Zetrix

Advanced Premium Member
buongiorno Salvo50, vorrei evidenziare i numeri con la funzione ubound nel tabellone del 10elotto
ma non sono riuscito mai a imparare come si scrive esatta questa funzione con ubound..


Codice:
Option Explicit
Sub Main
   Dim R,E,S,X,A,B,W,Q,J,N,SEQ,L
   Dim nRighe,nColonne
   Dim nCaselleDaEvid
   Dim aQuadroNum,Numeri(50)
   Dim aNumDaEvid,TV,EX,K,Qt,num(90)
   nRighe = 11
   nColonne = 20
   ReDim aQuadroNum(nRighe,nColonne)
   ReDim aNumDaEvid(121,1) ' Quantità di caselle possibili
   Qt = ScegliNumeri(num)
   For K = EstrazioniArchivioDL - 9 To EstrazioniArchivioDL
      '
      S = S + 1 'Riga della Tabella
      For E = 1 To 20
         '
         aQuadroNum(S,E) = EstrattoDL(K,E)
         '
         Qt = UBound(num)
         If(aQuadroNum(S,E)) = Qt Then
            '
            nCaselleDaEvid = nCaselleDaEvid + 1
            aNumDaEvid(nCaselleDaEvid,0) = S
            aNumDaEvid(nCaselleDaEvid,1) = E
            nCaselleDaEvid = nCaselleDaEvid + 1
            aNumDaEvid(nCaselleDaEvid,0) = S
            aNumDaEvid(nCaselleDaEvid,1) = E
         End If
      Next
   Next
   Call DisegnaEstrazioneQN(aQuadroNum,aNumDaEvid)
End Sub
 
Ultima modifica:
Ciao a Tutti

Ciao Zetrix

Mi hai sopravvalutato, poi con le tabelle sono proprio negato
se qualche volta ho fatto script con le tabelle è perché ho
scopiazzato dagli altri script
 
Ciao Salvo, come non detto, credevo che eri esperto sulle tabelle , ho visto che ai scritto una marea di script
ma forse mi ero sbagliato, comunque non fa niente, lo script lo girato in un altro forum..
grazie lo stesso..
 
Ciao Salvo, come non detto, credevo che eri esperto sulle tabelle , ho visto che ai scritto una marea di script
ma forse mi ero sbagliato, comunque non fa niente, lo script lo girato in un altro forum..
grazie lo stesso..

Ho scritto una marea di script, ma il 99%, tratta le 4 operazioni principali
addizioni, sottrazioni, moltiplicazioni e divisioni, se vado oltre queste
4 operazioni devo chiedere aiuto
 
sulle addizioni, sottrazioni, moltiplicazioni e divisioni dei numeri questi li so scrivere sulle tabelle,
il problema e quanto si devono evidenziare i numeri nella tabella con scegli numeri
questa e una funzione che a scritto LuigiB, ma non so come si scrive nello script la stringa con scegli numeri..

Qt = ScegliNumeri(num)

ho un altro script e funziona con questa stringa ma al lotto..invece al 10elotto e un po piu complicato la tabella..
ho notato se si scelgono es, 40,49,54,88 evidenzia nella tabella solo il numero 4
questo vuol dire che lo script legge solo la numerazione dei conteggi dei numeri scelti perche sono quattro numeri
se si scelgono due numeri qualsiasi evidenzia solo il numero 2 nella tabella..
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 04 ottobre 2025
    Bari
    54
    40
    12
    02
    73
    Cagliari
    49
    46
    45
    54
    70
    Firenze
    77
    72
    82
    01
    33
    Genova
    36
    42
    53
    90
    11
    Milano
    71
    25
    27
    61
    37
    Napoli
    77
    09
    66
    87
    75
    Palermo
    24
    55
    54
    25
    06
    Roma
    30
    17
    57
    84
    04
    Torino
    06
    32
    56
    42
    33
    Venezia
    20
    05
    03
    29
    14
    Nazionale
    84
    48
    36
    86
    02
    Estrazione Simbolotto
    08
    05
    21
    30
    10
Indietro
Alto