Novità

PER SCRIPTER

trivellato

Super Member >PLATINUM<
Messaggi
298
Punti reazione
4
Punti
18
SALVE BUONGIORNO SE E POSSIBBILE AVERE MODIFICA per questo listato
invece Di cercare RIPETUTI SU OGNI ESTRAZIONE ,
SE E POSSIBILE CERCARE a ID MENSILE A SCELTA . E MAGARI AGGIUNGERE PIU RUOTE A SCELTA ,
GRAZIE. ALLEGO TX CON LISTATO.
 

Allegati

Master

Advanced Member >GOLD<
Messaggi
775
Punti reazione
28
Punti
28
Quello che cerchi credo lo trovi qua


 

trivellato

Super Member >PLATINUM<
Messaggi
298
Punti reazione
4
Punti
18
ciao Master quello che o inserito nel tx, e nella richiesta, non e' presente dove mi ai indicato, io chiedo il listato come e nel tx solo modificare quello che o chiesto -
invece Di cercare RIPETUTI SU OGNI ESTRAZIONE ,
SE E POSSIBILE CERCARE RIPETUTI a ID MENSILE A SCELTA . E MAGARI AGGIUNGERE PIU RUOTE A SCELTA grazie.
 

trivellato

Super Member >PLATINUM<
Messaggi
298
Punti reazione
4
Punti
18
Buonasera nessuno mi puo' aiutare con la mia richiesta lo script lo posto anche qui sotto , nel caso contrario ce il tx come allegato.




Sub Main()
'Rif. 0901_24b Beppe verifica ripet. su alcune estrazioni (prova)

Dim Vet(),stat()
estr = 18 ' <===== numero di estrazioni in esame
r = 1 ' r<===== ruota in esame
ReDim Vet(estr*5) 'ridimensiono il vettore in base al numero degli estratti che devo caricare
fin = 9578
ini = fin -(estr - 1) 'ini= EstrazioneFin-(estr-1) : fin = EstrazioneFin

'-------------------------------------------------- carico il vettore con gli estratti
For es = ini To fin
Scrivi DataEstrazione(es) & " " &(es) & " " & StringaEstratti(es,r) ' <== scrivo gli estratti per il controllo
For p = 1 To 5
n = n + 1 : Vet(n) = Estratto(es,r,p)
Next
Next
'--------------------------------------------------- cerco i ripetuti

'OrdinaMatrice Vet' <======= 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",1
Scrivi " per visualizzare solo i ripetuti => " & NomeRuota(r) & 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
 

Master

Advanced Member >GOLD<
Messaggi
775
Punti reazione
28
Punti
28
Ciao
il link che ti ho dato trova i ripetuti a ID MENSILE A SCELTA
ma non va bene...
prova a mettere un esempio magari riesco ad aiutarti
grazie
buona giornata
 

trivellato

Super Member >PLATINUM<
Messaggi
298
Punti reazione
4
Punti
18
GRAZIE Master per il tuo intervento esempio
allora lo script che ti o postato da questi risultati

06.12.2018 9561 51.21.12.10.62
10.12.2018 9562 32.58.10.25.13
11.12.2018 9563 03.84.73.71.40
13.12.2018 9564 04.81.31.30.14
15.12.2018 9565 34.49.16.27.31
18.12.2018 9566 66.15.30.16.12
20.12.2018 9567 72.34.90.11.03
22.12.2018 9568 33.03.34.46.35
24.12.2018 9569 15.10.75.86.49
27.12.2018 9570 45.09.86.60.54
29.12.2018 9571 10.88.89.34.77
02.01.2019 9572 48.01.56.51.64
03.01.2019 9573 49.50.14.17.56
05.01.2019 9574 01.30.18.25.23
08.01.2019 9575 21.04.09.63.02
10.01.2019 9576 71.25.45.70.78
12.01.2019 9577 38.63.56.55.43
15.01.2019 9578 77.66.67.10.78
La matrice finale filtrata
per visualizzare solo i ripetuti => Bari


Num - Freq
25 3
34 4
49 3
56 3




come vedi fa la ricerca a ogni estrazione MENTRE ME LI DOVREBBE TROVARE MENSILMENTE A ID MIA SCELTA
P.S (ESTRAZIONI CASUALI SOLO PER FARTI ESEMPIO)

01.01.2018 51.21.12.10.62
01.02.2018 32.58.10.25.13
01.03.2018 03.84.73.71.40
01.04.2018 04.81.31.30.14
01.05.2018 34.49.16.27.31
01.06.2018 66.15.30.16.12
01.07.2018 72.34.90.11.03
01.08.2018 33.03.34.46.35
01.09.2018 15.10.75.86.49
01.10.2018 45.09.86.60.54
01.11.2018 10.88.89.34.77
01.12.2019 48.01.56.51.64

La matrice finale filtrata
per visualizzare solo i ripetuti => Bari


Num - Freq
? ?


CON SCELTA MINIMO 2 RUOTE E COL RESOCONDO DI FREQUENTI CONVERGENTI .
 

Master

Advanced Member >GOLD<
Messaggi
775
Punti reazione
28
Punti
28
Ciao
Ho controllato i risultati dello script che hai messo ed ho anche letto che è una "prova" quindi ti consiglio che per avere risultati corretti di fare richiesta per un nuovo script

Buona serata
 

trivellato

Super Member >PLATINUM<
Messaggi
298
Punti reazione
4
Punti
18
GRAZIE
Master
LA PROVA ERA SOLO UN ESEMPIO PER FARTI INTENDERE COME DOVEVA ESSERE LO SCRIPT RICHIESTO.
 

Master

Advanced Member >GOLD<
Messaggi
775
Punti reazione
28
Punti
28
Ciao
All'inizio lo script cita questo

Sub Main()
'Rif. 0901_24b Beppe verifica ripet. su alcune estrazioni (prova)

Dim Vet(),stat()
Ho effettuato una verifica sui risultati reali che hai messo
allora lo script che ti o postato da questi risultati

06.12.2018 9561 51.21.12.10.62
10.12.2018 9562 32.58.10.25.13
11.12.2018 9563 03.84.73.71.40
13.12.2018 9564 04.81.31.30.14
15.12.2018 9565 34.49.16.27.31
18.12.2018 9566 66.15.30.16.12
20.12.2018 9567 72.34.90.11.03
22.12.2018 9568 33.03.34.46.35
24.12.2018 9569 15.10.75.86.49
27.12.2018 9570 45.09.86.60.54
29.12.2018 9571 10.88.89.34.77
02.01.2019 9572 48.01.56.51.64
03.01.2019 9573 49.50.14.17.56
05.01.2019 9574 01.30.18.25.23
08.01.2019 9575 21.04.09.63.02
10.01.2019 9576 71.25.45.70.78
12.01.2019 9577 38.63.56.55.43
15.01.2019 9578 77.66.67.10.78
La matrice finale filtrata
per visualizzare solo i ripetuti => Bari


Num - Freq
25 3
34 4
49 3
56 3
Mi sono accorto che mancano delle frequenze
il N° 10 ha freq 5
il N° 3 ha freq 3
il N° 30 ha freq 3
e questi dati NON vengono riportati
------------------------------------
Un altro esempio mettendo estrazione 9562
i risultati sono questi

La matrice finale filtrata
per visualizzare solo i ripetuti => Bari


Num - Freq
90 3
58 4
62 3
70 4
70 3


Come vedi il N°70 riporta freq 4 e freq 3
---------------------------------------------------------------

Non è per non fare la modifica, inserire l'indice mensile è abbastanza semplice
però sarebbe meglio avere i risultati corretti non solo per te
ma anche per altri che lo utilizzeranno
tutto qua
 

trivellato

Super Member >PLATINUM<
Messaggi
298
Punti reazione
4
Punti
18
MASTER SE PUOI POSTARMELO LO STESSO MI VA BENE CON LA MODIFICA
GRAZIE .
 

Master

Advanced Member >GOLD<
Messaggi
775
Punti reazione
28
Punti
28
Ciao
Certamente!
Ho ti inserito l'indice mensile e la data di partenza

Codice:
Sub Main()
   'Rif. 0901_24b Beppe verifica ripet. su alcune estrazioni (prova)
   Dim Vet(),stat()
   DAT = InputBox("DA QUALE DATA INIZIARE"," INIZIO ","31/12/2019")
   IM = CInt(InputBox("Indice mensile","INICE MENSILE",1))
   estr = 18 ' <===== numero di estrazioni in esame
   r = 1 ' r<=====  ruota in esame
   ReDim Vet(estr*5) 'ridimensiono il vettore in base al numero degli estratti che devo caricare
   caso = 0
   fin = PrimaSuccessiva(DAT) '   <--- 31-12-2019
   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 DataEstrazione(es) & " " &(es) & "  " & StringaEstratti(es,r," ") & " -> caso " & caso ' <== scrivo gli estratti per il controllo
            For p = 1 To 5
               n = n + 1 : Vet(n) = Estratto(es,r,p)
            Next
         End If
      End If
   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) & 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
 
Ultima modifica:

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.792
Punti reazione
399
Punti
83
Ciao a tutti , ma la richiesta mi sembra di capire sia la stessa che abbiamo sviluppato per xerox ossia cercare i numeri presenti in un determinato indice mensile. Se così non è in cosa differisce?
 

trivellato

Super Member >PLATINUM<
Messaggi
298
Punti reazione
4
Punti
18
grazie Master lo script come chiesto nella richiesta mi serviva anche con scelta di piu ruote (MAGARI SCELTA CON 2 RUOTE) TI RINGRAZIO PER L'AIUTO
i legend
LO SCRIPT CHE AI CITATO E DIFFERENTE DALLA MIA RICHIESTA.
 

Master

Advanced Member >GOLD<
Messaggi
775
Punti reazione
28
Punti
28
Ciao ilegend
penso anch'io sia la stessa cosa solo con freq >2
però nell'originale è stata remmata "ordina matrice... forse perchè dava errore su spazioM...
quindi dava risultati sballati....ora l'ho modificarla in ordina matrice ,1
e i risultati risultano corretti.... credo
X Trivellato riscarica con la modifica
Provo ad aggiungere le 2 ruote

Buona domenica
 
Ultima modifica:

trivellato

Super Member >PLATINUM<
Messaggi
298
Punti reazione
4
Punti
18
OK MASTER ME LO PUOI POSTARE CON SCELTA DI 2 RUOTE
TI RINGRAZIO ANTICIPATAMENTE E BUONA DOMENICA ANCHE A TE.
 

trivellato

Super Member >PLATINUM<
Messaggi
298
Punti reazione
4
Punti
18
Master risolto per i mesi 2020 mi manca solo opzione scelta a 2 ruote grazie ...
 
Ultima modifica:

Master

Advanced Member >GOLD<
Messaggi
775
Punti reazione
28
Punti
28
Ciao
Con 2 ruote
Ps: nessun'altra modifica - domenica di sole e settimana di lavoro

Codice:
Sub Main()
   'Rif. 0901_24b Beppe verifica ripet. su alcune estrazioni (prova)
   'aggiunto IM e 2 ruote Master
   Dim Vet(),stat(),Vet1(),Vet2()
   DAT = InputBox("DA QUALE DATA INIZIARE"," INIZIO ","31/12/2019")
   IM = CInt(InputBox("Indice mensile","INICE MENSILE",1))
   r = CInt(InputBox("RUOTA DI RICERCA N° 1  ","PRIMA RUOTA",1)) '1 ruota
   r1 = CInt(InputBox("RUOTA DI RICERCA N° 2  ","SECONDA RUOTA",10))'2 ruota
   estr = CInt(InputBox("Numero di estrazioni in esame","ESTRAZIONI",18))'2 ruota
   'estr = 18 ' <===== numero di estrazioni in esame
   'r = 1 ' r<=====  ruota in esame
   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) '   <--- 31-12-2019
   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
 

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.792
Punti reazione
399
Punti
83
Ciao ,oggi sole e bisogna goderselo le previsioni chiamano pioggia per la settimana.
Non avevo capito che si voleva la statistica per ruote separate ,pensavo unite, il fine settimana si sconta la stanchezza accumulata durante la settimana di lavoro :)
Bravo master 👍
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 13 agosto 2020
    Bari
    85
    14
    03
    88
    26
    Cagliari
    75
    85
    81
    77
    13
    Firenze
    69
    86
    10
    60
    36
    Genova
    02
    57
    16
    09
    59
    Milano
    83
    06
    51
    18
    46
    Napoli
    75
    80
    20
    52
    47
    Palermo
    64
    05
    73
    89
    88
    Roma
    67
    02
    60
    74
    63
    Torino
    83
    42
    23
    03
    35
    Venezia
    83
    87
    86
    72
    88
    Nazionale
    12
    77
    42
    19
    32
    Estrazione Simbolotto
    Genova
    11
    36
    06
    30
    05

Ultimi Messaggi

Alto