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 30 agosto 2025
    Bari
    85
    39
    37
    73
    79
    Cagliari
    73
    35
    51
    59
    10
    Firenze
    49
    44
    08
    68
    61
    Genova
    55
    05
    44
    42
    62
    Milano
    54
    79
    11
    78
    70
    Napoli
    23
    71
    09
    14
    49
    Palermo
    88
    07
    28
    30
    26
    Roma
    31
    84
    35
    48
    85
    Torino
    39
    48
    87
    16
    27
    Venezia
    56
    35
    87
    17
    73
    Nazionale
    53
    02
    90
    72
    66
    Estrazione Simbolotto
    Nazionale
    24
    15
    10
    03
    07

Ultimi Messaggi

Indietro
Alto