Novità

PER SCRIPTER

trivellatomariotretre33

Super Member >PLATINUM<
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

  • LISTATO.txt
    1,8 KB · Visite: 15

Master

Advanced Member >PLATINUM<
Quello che cerchi credo lo trovi qua


 

trivellatomariotretre33

Super Member >PLATINUM<
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.
 

trivellatomariotretre33

Super Member >PLATINUM<
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 >PLATINUM<
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
 

trivellatomariotretre33

Super Member >PLATINUM<
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 >PLATINUM<
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
 

Master

Advanced Member >PLATINUM<
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
 

Master

Advanced Member >PLATINUM<
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

Premium Member
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?
 

trivellatomariotretre33

Super Member >PLATINUM<
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 >PLATINUM<
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:

Master

Advanced Member >PLATINUM<
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

Premium Member
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ì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto