Aiuto x script

[irepi]

Qualcuno gentilmente mi aiuta? Vorrei poter inserire negli script un comando che, su 2 o piu previsioni mi evidenzi i numeri uguali ripetuti e, se possibile anche le indicazioni dei comandi, cosi potrei inserirli in tutti gli script. Faccio un esempio in 1 script in data 9 luglio ho 10 previsioni quali sono i numeri ripetuti in queste 10 previsioni? quante volte? allego 1 script con 20 previsioni per poter inserire le eventuali modifiche
Ringrazio per l'attenzione!

Sub Main()
Dim ruote(12)
Dim numeri1(10),numeri2(10),numeri3(10),numeri4(10),numeri5(10),numeri6(10)
Dim numeri7(10),numeri8(10),numeri9(10),numeri10(10),numeri11(10),numeri12(10)
Dim numeri13(10),numeri14(10),numeri15(10),numeri16(10),numeri17(10),numeri18(10)



Dim posta(5)

'posta(1) = 1
posta(2) = 1
posta(3) = 1
posta(4) = 1
posta(5) = 1


ruote(1) = 1

For n = 8946 To EstrazioneFin
If IndiceMensile = 2 Then
co = co + 1
Scrivi String(70,"*") & " Caso n°" & co,1
ColoreTesto 1
Scrivi DataEstrazione & " " & SiglaRuota(1) & " " & StringaEstratti(n,1) & " BA >>> "
Scrivi String(70,"*"),1
ColoreTesto 0

numeri1(1) = Fuori90(Estratto(n,3,1) + 13)
numeri1(2) = Fuori90(Estratto(n,3,1) + 16)
numeri1(3) = Fuori90(Estratto(n,3,1) + 39)
numeri1(4) = Fuori90(Estratto(n,3,1) + 43)
numeri1(5) = Fuori90(Estratto(n,3,1) + 46)
ImpostaGiocata 1,numeri1,ruote,posta,9
numeri2(1) = Fuori90(Estratto(n,3,1) + 52)
numeri2(2) = Fuori90(Estratto(n,3,1) + 54)
numeri2(3) = Fuori90(Estratto(n,3,1) + 70)
numeri2(4) = Fuori90(Estratto(n,3,1) + 74)
numeri2(5) = Fuori90(Estratto(n,3,1) + 78)
ImpostaGiocata 2,numeri2,ruote,posta,9
numeri3(1) = Fuori90(Estratto(n,3,2) + 7)
numeri3(2) = Fuori90(Estratto(n,3,2) + 11)
numeri3(3) = Fuori90(Estratto(n,3,2) + 14)
numeri3(4) = Fuori90(Estratto(n,3,2) + 20)
numeri3(5) = Fuori90(Estratto(n,3,2) + 22)
ImpostaGiocata 3,numeri3,ruote,posta,9
numeri4(1) = Fuori90(Estratto(n,3,2) + 38)
numeri4(2) = Fuori90(Estratto(n,3,2) + 42)
numeri4(3) = Fuori90(Estratto(n,3,2) + 46)
numeri4(4) = Fuori90(Estratto(n,3,2) + 71)
numeri4(5) = Fuori90(Estratto(n,3,2) + 74)
ImpostaGiocata 4,numeri4,ruote,posta,9
numeri5(1) = Fuori90(Estratto(n,3,3) + 18)
numeri5(2) = Fuori90(Estratto(n,3,3) + 22)
numeri5(3) = Fuori90(Estratto(n,3,3) + 25)
numeri5(4) = Fuori90(Estratto(n,3,3) + 31)
numeri5(5) = Fuori90(Estratto(n,3,3) + 33)
ImpostaGiocata 5,numeri5,ruote,posta,9
numeri6(1) = Fuori90(Estratto(n,3,3) + 49)
numeri6(2) = Fuori90(Estratto(n,3,3) + 53)
numeri6(3) = Fuori90(Estratto(n,3,3) + 57)
numeri6(4) = Fuori90(Estratto(n,3,3) + 82)
numeri6(5) = Fuori90(Estratto(n,3,3) + 85)
ImpostaGiocata 6,numeri6,ruote,posta,9
numeri7(1) = Fuori90(Estratto(n,3,4) + 10)
numeri7(2) = Fuori90(Estratto(n,3,4) + 14)
numeri7(3) = Fuori90(Estratto(n,3,4) + 17)
numeri7(4) = Fuori90(Estratto(n,3,4) + 23)
numeri7(5) = Fuori90(Estratto(n,3,4) + 25)
ImpostaGiocata 7,numeri7,ruote,posta,9
numeri8(1) = Fuori90(Estratto(n,3,4) + 41)
numeri8(2) = Fuori90(Estratto(n,3,4) + 45)
numeri8(3) = Fuori90(Estratto(n,3,4) + 49)
numeri8(4) = Fuori90(Estratto(n,3,4) + 74)
numeri8(5) = Fuori90(Estratto(n,3,4) + 77)
ImpostaGiocata 8,numeri8,ruote,posta,9
numeri9(1) = Fuori90(Estratto(n,3,5) + 3)
numeri9(2) = Fuori90(Estratto(n,3,5) + 26)
numeri9(3) = Fuori90(Estratto(n,3,5) + 30)
numeri9(4) = Fuori90(Estratto(n,3,5) + 33)
numeri9(5) = Fuori90(Estratto(n,3,5) + 39)
ImpostaGiocata 9,numeri9,ruote,posta,9
numeri10(1) = Fuori90(Estratto(n,3,5) + 41)
numeri10(2) = Fuori90(Estratto(n,3,5) + 57)
numeri10(3) = Fuori90(Estratto(n,3,5) + 61)
numeri10(4) = Fuori90(Estratto(n,3,5) + 65)
numeri10(5) = Fuori90(Estratto(n,3,5) + 90)
ImpostaGiocata 10,numeri10,ruote,posta,9


Gioca n,1
End If
Next
ScriviResoconto
End Sub

irepi

 

[irepi]

ciao a tutti,
non c'e' nessuno che mi possa aiutare?

 

[irepi]

cercando nel web su altro forum ho trovato questi comandi:

NumeriRipetutiRilevatiV(VetNumeri, VetRitornoN, Optional VetRitornoQ = Nothing) As Integer
dove vetNumeri è il vettore da analizzare
vetritornoN torna 1 vettore contenente i numeri ripetuti
vetritornoQ torna 1 vettore contenente la quantità dei numeri ripetuti.

la persona che ha postato segnala che da errore e in ogni caso non saprei come inserirlo, non so nemmeno se puo essere utile x il mio caso

 

[irepi]

Buonasera Disaronno, volevo ringraziarla per la sua disponibilita, mi scuso per il ritardo, ho provato tante volte a entrare nel sito ma nn mi dava la possibilita di rispondere. Volevo anche segnalre che il conteggio dei ripetuti non sempre e esatto e non sempre rileta tutti i numeri ripetuti,
grazie ancora irepi

 

[irepi]

Grazie!!! Sempre generoso e gentilissimo! Irepi