aiuto: Spaziometria e Numeri Ripetuti

[PasiMax]

Buongiorno a tutti
ho appreso la funzione EliminaRipetuti che ovviamente toglie i numeri doppi...


la domanda è: Esiste un modo per fare evidenziare SOLO i numeri ripetuti da un elenco di n primadi impostare la giocata??

 

[i legend]

Numeriripetutirilevativ()
Ciao.

 

[PasiMax]

grazie mille... domani ci provo

 

[PasiMax]

Numeriripetutirilevativ()
Ciao.

digitando
Numeriripetutirilevativ()

mi appare laseguente stringa..,
NumeriRipetutiRilevatiV(VetNumeri,VetRitornoN,OptionalVetRitornoQ=Noting)

scusami ma non so come gestirla... in pratica vorrei fare estrapolare da un insieme di estratti (t1) solo i numeri ripetuti
per poi impostare la giocata con quelli (potremmo chiamarli (t2) ad esempio

 

[Mike58]

ecco un esempio

Sub Main
   Dim Num(6)
   Dim VettoreNumeri,VettoreQuantita
   Num(1) = 10
   Num(2) = 20
   Num(3) = 30
   Num(4) = 40
   Num(5) = 10
   Num(6) = 20
   Call NumeriRipetutiRilevatiV(Num,VettoreNumeri,VettoreQuantita)
   Scrivi "Numeri in Vettore.... " & StringaNumeri(Num)
   Scrivi "Numeri Ripetuti...... " & StringaNumeri(VettoreNumeri)
   Scrivi "Relativa quantità.... " & StringaNumeri(VettoreQuantita)
End Sub

Numeri in Vettore.... 10.20.30.40.10.20
Numeri Ripetuti...... 10.20
Relativa quantità.... 2.2

 

[PasiMax]

ecco un esempio

Sub Main
   Dim Num(6)
   Dim VettoreNumeri,VettoreQuantita
   Num(1) = 10
   Num(2) = 20
   Num(3) = 30
   Num(4) = 40
   Num(5) = 10
   Num(6) = 20
   Call NumeriRipetutiRilevatiV(Num,VettoreNumeri,VettoreQuantita)
   Scrivi "Numeri in Vettore.... " & StringaNumeri(Num)
   Scrivi "Numeri Ripetuti...... " & StringaNumeri(VettoreNumeri)
   Scrivi "Relativa quantità.... " & StringaNumeri(VettoreQuantita)
End Sub

Numeri in Vettore.... 10.20.30.40.10.20
Numeri Ripetuti...... 10.20
Relativa quantità.... 2.2

ti ringrazio...questo è già molto utile...

esiste un modo per impostare la giocata con i soli numeri ripetuti??

qualcosa tipo
ImpostaGiocata 1,(NumeriRipetuti),ruota,posta,clp

 

[PasiMax]

TROVATO!!!!

a tentativi...come Edison con la lampadina!! AHAHAHHAHA

ImpostaGiocata 1,(VettoreNumeri),ruota,posta,clp