Roby o Altri Scripter x Modifica Listato

[trivellatomariotretre33]

lo script deve eseguire le voci come dice input e dare i frequenti abbinati al capogioco
o provato a modificarlo pro non mi escono i risultati grazie,
allego script da modificare ....


Sub Main()
Dim R,A,ca,co,es,est,pos,N,NR
Scrivi "Ricerca di un numero quando estratto ",1,,,2:Scrivi
A = CInt(InputBox("Digita il Numero Spia "," SPIA","2"))
IM = CInt(InputBox("Indice mensile","INICE MENSILE",12))
R = CInt(InputBox("RUOTA DI RICERCA N° 1 ","PRIMA RUOTA",3)) '1 ruota
r1 = CInt(InputBox("RUOTA DI RICERCA N° 2 ","SECONDA RUOTA",5))'2 ruota
estr = CInt(InputBox("Numero di estrazioni in esame","ESTRAZIONI",13))'2 ruota
ReDim Vet1(estr*5) 'ridimensiono il vettore in base al numero degli estratti che devo caricare
ReDim Vet2(estr*5)
ReDim Vet(estr*11)
caso = 0
fin = PrimaSuccessiva(DAT) ' <--- 09/07/2020
ini = fin -(estr) 'ini= EstrazioneFin-(estr-1) : fin = EstrazioneFin
'-------------------------------------------------- carico il vettore con gli estratti
For es = fin To 1 Step - 1
If IndiceMensile(es) = IM Then
caso = caso + 1
If caso < estr + 1 Then
Scrivi SiglaRuota(R) & " " & DataEstrazione(es) & " " &(es) & " " & StringaEstratti(es,R," "),0,0
For p = 1 To 5
N = N + 1 : Vet1(N) = Estratto(es,R,p)
Next
Scrivi Space(4) & SiglaRuota(r1) & " " & DataEstrazione(es) & " " &(es) & " " & StringaEstratti(es,r1," ") & " -> caso " & caso
For p1 = 1 To 5
n1 = n1 + 1 : Vet2(n1) = Estratto(es,r1,p1)
Next
End If
End If
Next
For i = 1 To UBound(Vet1)
Vet(i) = Vet1(i)
Next
For i = 1 To UBound(Vet2)
Vet(i + UBound(Vet1) + 1) = Vet2(i)
Next
'--------------------------------------------------- cerco i ripetuti
OrdinaMatrice Vet,1 ' <======= FONDAMENTALE ORDINARE CRESCENTA IL VETTORE
x = UBound(Vet)'verifico qual'è il limite maggiore del vettore e lo assegno ad x
ReDim stat(2,0) 'dimensiono la matrice stat a 2 righe e 0 colonne
For i = 1 To x
If Vet(i) > Vet(i - 1) Then
co = co + 1 'contatore colonne
ReDim Preserve stat(2,co) 'ridimensiono le colonne di stat via via che trovo nuovi num
stat(1,co) = Vet(i) 'carico il nuovo numero sulla riga 1 man mano che procedo
stat(2,co) = 1 'sulla riga 2 assegno 1 come frequenza provvisoria rilevata
For y = i + 1 To x 'creo le coppie dei numeri per il confronto
If Vet(i) = Vet Then stat(2,co) = stat(2,co) + 1 'se sono = incremento di 1 la freq sulla 2^riga
Next
End If
Next
'-----------------------------------------------------------OUTPUT DEI RISULTATI
Scrivi
Scrivi " La matrice finale filtrata -- Indice mensile " & IM,1
Scrivi " per visualizzare solo i ripetuti => " & NomeRuota(R) & " / " & NomeRuota(r1) & Chr(10),1
Scrivi Space(2) & "Num - Freq"
For i = 1 To co
If stat(2,i) > 2 Then Scrivi Space(3) & Format2(stat(1,i)) & FormatSpace(stat(2,i),5,1)
Next
End Sub






-----------------------------------------------------------------------------------------------------------------

dovrebbe darmi Risultati Simili col capogioco che scelgo

------------------------------------------------------------------------------------------------------------------

esempio non reale





La matrice finale filtrata -- Indice mensile 12
per visualizzare solo i ripetuti col Capogioco scelto => Firenze / Milano

Num - Freq
08 3
09 4
12 3
15 4
26 3
33 4
40 3
59 3
63 3
76 3
85 4
87 3



grazie a chi mi aiuta in questa modifica per questo listato.