Novità

Joe

trivellatomariotretre33

Super Member >PLATINUM<
lo script deve eseguire le voci come dice input e dare i frequenti abbinati al capogioco
o provato a modificarlo pero 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(y) 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.
 
Ciao, trivellato.

quello script non è mio, o perlomeno ci hanno già messo su le mani più volte ed a varie riprese.

Inoltre, quello che chiedi non è semplicissimo, da realizzare in quella struttura,

senza correre il rischio, di avere risultati di pura fantasia, o solamente dipendenti dalle scelte fatte con gli input,

o dagli errori commessi, nel correggere ed aggiungere.

Non so se potrò, trovare una risposta alla tua richiesta.

:)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 24 luglio 2025
    Bari
    71
    27
    87
    61
    39
    Cagliari
    69
    17
    79
    09
    04
    Firenze
    32
    13
    25
    58
    22
    Genova
    24
    41
    61
    66
    16
    Milano
    55
    59
    33
    80
    38
    Napoli
    18
    52
    32
    12
    72
    Palermo
    49
    77
    78
    90
    60
    Roma
    35
    04
    30
    02
    44
    Torino
    19
    79
    56
    77
    26
    Venezia
    82
    59
    68
    24
    21
    Nazionale
    81
    32
    19
    60
    38
    Estrazione Simbolotto
    Nazionale
    32
    07
    29
    37
    28

Ultimi Messaggi

Indietro
Alto