x luigiB info

[Beppignello]

ciao LuigiB

vorrei usare l'istruzione disegnaestrazioneQN,
ma non trovo un esempio
e non riesco a farla funzionare, nelle mie prove.

puoi darmi una dritta di dove trovare qualcosa?


ho una decina di numeri ottenuti in una decina di concorsi, su 2 ruote e vorrei vederli disegnati tutti insieme

 

[LuigiB]

Ciao , non so se fa al caso tuo perche è un po' rigida come funzione consente di mostrare solo caratteri numerici , e inoltre il legame tra le caselle mi pare che abbia un errore perche se si usa non funziona percio nello script che ti posto la parte del legame caselle è remmata , funzionera con la prossima versione..
comunqu un esempio eccolo , scrive i numeri delle prime 10 ruote ed evidenzia i gemelli

Option Explicit
Sub Main
    Dim r,e
    Dim nRighe,nColonne
    Dim nCaselleDaEvid

    Dim aQuadroNum
    Dim aNumDaEvid
    ' predispone le dimensioni della matrice che contien i numeri
    nRighe = 10
    nColonne = 5
    ReDim aQuadroNum(nRighe,nColonne)
    ReDim aNumDaEvid(100,1) ' dato che non so a priori la quantita di numeri metto 100


    For r = 1 To 10

        For e = 1 To 5
            aQuadroNum(r,e) = Estratto(EstrazioneFin,r,e)

            If Gemello(aQuadroNum(r,e)) Then
                nCaselleDaEvid = nCaselleDaEvid + 1
                '
                aNumDaEvid(nCaselleDaEvid,0) = r
                aNumDaEvid(nCaselleDaEvid,1) = e



            End    If
        Next
    Next


    Call DisegnaEstrazioneQN(aQuadroNum,aNumDaEvid )



    'ReDim aMatriceLegami(nCaselleDaEvid - 1,3)
'    For r = 1 To nCaselleDaEvid - 1
'        aMatriceLegami(r,0) = aNumDaEvid(r,0)
'        aMatriceLegami(r,1) = aNumDaEvid(r,1)
'        
'        aMatriceLegami(r,2) = aNumDaEvid(r + 1,0)
'        aMatriceLegami(r,3) = aNumDaEvid(r + 1,1)
'        
'
'    Next
'    Call DisegnaEstrazioneQN(aQuadroNum,aNumDaEvid,aMatriceLegami ,CLng(0))
'    
 End Sub