[VB6] Determinare valori ripetuti in un gruppo

[Magicolotto]

ciao ragazzi
domandas semplicissima

esiste una funzione che permette di restituire dei valori ripetuti in un determinato gruppo?

esempio

ho
1,2,3,4,5,6,7,8,9,1

qualcosa che restituisca l'1

grazie

[oregon]

No ... devi scrivere del codice per farlo ...

[Magicolotto]

ok
please a moment

lo preparo

[Magicolotto]

Dim ba(10)
ba(1) = ba1
ba(2) = ba2
ba(4) = ba3
ba(5) = ba4
ba(6) = ba5
ba(7) = ba6
ba(8) = ba7
ba(3) = ba8
ba(9) = ba9
ba(10) = ba10
Dim uguale As Integer
Dim e, Text3 As Integer
For e = ba(1) To ba(9)
    Numero = e + 1
    uguale = 0
    For ba = ba(1) To ba(10)
            If Numero = Text3(e) Then
                Text3(e).Interior.Color = vbYellow
                uguale = uguale + 1
            Else
                
                End If
            End If
    Next ba
Next e

text3 appartiene aduna matrice di controllo da da text(0) to text(9)
riempiti precedentemetente

[Magicolotto]

eccone....uno che pero' non va ugualmente



Dim ba(10)
ba(0) = Text3(0)
ba(1) = Text3(1)
ba(2) = Text3(2)
ba(3) = Text3(3)
ba(4) = Text3(4)
ba(5) = Text3(5)
ba(6) = Text3(6)
ba(7) = Text3(7)
ba(8) = Text3(8)
ba(9) = Text3(9)
Dim uguale As Integer
Dim e As Integer
For e = ba(0) To ba(9)
Numero = e + 1
uguale = 0
If Numero = Text3(e) Then
Text3(e).Interior.Color = vbYellow
uguale = uguale + 1
Else

End If
End If
Next ba
Next e

[oregon]

interior.color ... ??

Ma che linguaggio e' ?

Next ba ? E la for corrispondente ?

Ma sono istruzioni buttate lì o hai fatto un'analisi ...?
Perche' non possono neanche essere eseguite ...

[Magicolotto]

chiedo scusa per la mia ingnoranza acuta

eccolo

Dim ba(10)
ba(0) = Text3(0)
ba(1) = Text3(1)
ba(2) = Text3(2)
ba(3) = Text3(3)
ba(4) = Text3(4)
ba(5) = Text3(5)
ba(6) = Text3(6)
ba(7) = Text3(7)
ba(8) = Text3(8)
ba(9) = Text3(9)
Dim e As Integer
For e = ba(0) To ba(9)
Numero = e + 1
If Numero = Text3(e) Then
Text3(e) = vbYellow
Else

End If


Next e




pero la text3, non viene visualizzata in giallo

[oregon]

Le proprieta' per i colori delle textbox sono

ForeColor
BackColor

devi usare quelle ...

Text1(e).BackColor = vbYellow

... ma sono elementi "molto basilari" di VB queste ...

Va bene che stai iniziando pero' questi concetti sono necessari per scrivere programmi elementari ...

[Magicolotto]

sihai ragione

cmq ho messo cio' che mi hai detto, pero' la text3 non viene evidenziata in gialo

dove sbaglio???

[oregon]

Non ho la minima idea di dove sbagli, perche' non ho capito cosa vuoi fare e, soprattutto, a cosa serva il codice che hai postato e cosa ha a che fare adesso il colore giallo con la ricerca di numeri ripetuti ...

Insomma ... se non spieghi il problema in maniera da farti capire, non so cosa aggiungere ... mi dispiace, ma per programmare non si puo' andare a tentoni ...