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
    martedì 28 ottobre 2025
    Bari
    71
    36
    81
    10
    35
    Cagliari
    42
    69
    62
    52
    35
    Firenze
    03
    80
    38
    54
    11
    Genova
    88
    41
    18
    07
    45
    Milano
    48
    43
    11
    17
    57
    Napoli
    18
    55
    10
    15
    04
    Palermo
    67
    26
    33
    49
    45
    Roma
    14
    77
    10
    05
    54
    Torino
    79
    87
    42
    55
    40
    Venezia
    62
    18
    85
    74
    01
    Nazionale
    61
    45
    38
    34
    62
    Estrazione Simbolotto
    44
    34
    11
    25
    16
Indietro
Alto