Come Posso scrivere " Casi Positivi " su nCasi?

[i legend]

 

[claudio8]

Caro I legend mi scrivi:

Ciao Claudio , credo di sì se è lo stesso che aveva un suo sito .
Non saprei cosa dire, ho cercato in lungo e largo script che in output avessero questa differenza, casi positivi, o coperture, e presenze, ma non ne ho mai trovato, credo di essere stato il primo a postarli,

ed ancora :
Claudio non è una gara, io non ho mai trovato uno script con questa soluzione, questo ho detto. Se fossi stato il primo , come credo, l ho regalato


Caro I legend mi fa piacere che fai affermazioni di "titolarità" e su mia richiesta, ti esimi dal darne dimostrazione.

Te la dò io la dimostrazione che distinguevo le presenze dalle coperture ancora prima del tuo ingresso in questo forum ( 7 ottobre 2011) il post è questo: https://forum.lottoced.com/threads/modifica-x-script-numero-spia.2474/#post-162015


Buon proseguimento,

 

[i legend]

Parlavo di soluzioni di codice, che si conoscesse la differenza tra presenze e casi positivi ne sono più che consapevole. Sono stato frainteso.

 

[i legend]

Come sopra.

 

[i legend]

Al momento non ho la possibilità, se vuoi modificare e postare la soluzione proposta da tom puoi modificare il codice, sono sicuro che è in ottime mani.

 

[i legend]

Mi piacerebbe studiare il tuo codice del perodo a cui ti riferisci .se vuoi ovviamente, spero non si prosegua in una sterile polemica

 

[ppaaoolloo]

Visto che precedentemente, in questo contesto, non sono stato di alcuna utilità...
voglio condividervi questo mio piccolo "potenziamento" di questo interessantissimo, a mio parere, script del bravissimo xeroxs, che saluto e ringrazio insieme al maestro ilegend.

errori permettendo...

Sub Main
   Dim Ini,Fin,es,TotAnni
   Dim N,Ruota
   Dim Bret,Tro,K
   Dim Mesevoluto
   Dim annivoluti
   annivoluti = CInt(InputBox("anni",,3))
   Ini = EstrazioneFin -((144 * annivoluti)) - 30
   Fin = EstrazioneFin
   Mesevoluto = CInt(InputBox("mese",,10))
   Ruota = CInt(InputBox("ruota",,1))
   For N = 1 To 90
      'N = 8
      Scrivi "Analisi dall'Anno " & Anno(Ini) & " All'Anno " & Anno(Fin),1,1,,1,2
      Scrivi "Analisi dal " & DataEstrazione(Ini) & " Al " & DataEstrazione(Fin),1,1,,1,2
      TotAnni =(Anno(Fin) - Anno(Ini)) '+ 1
      Scrivi "Numero Scelto ---> ",1,0,,1,2
      Scrivi N,1,1,,2,2
      Scrivi "Anni Analizzati ----> " & TotAnni,1,,,1
      Scrivi "Mese Analizzato: ",Mesevoluto,0,,1,2
      Scrivi MeseNome(Mesevoluto),1,1,,2,2
      Scrivi
      For es = Ini To Fin
         Bret = False
         If Mese(es) = Mesevoluto Then
            Do While Mese(es) = Mesevoluto
               If Posizione(es,Ruota,N) Then K = K + 1 : Scrivi "<font color=red>" & GetInfoEstrazione(es) & "</font>" : Bret = True
               es = es + 1
               Scrivi GetInfoEstrazione(es)
            Loop
         End If
         If Bret Then Tro = Tro + 1
      Next
      Scrivi
      Scrivi "Statistica: Del Numero " & N & " Sulla Ruota di <font color=red><b>" & NomeRuota(Ruota) & "</b></font> Nel Mese di " & MeseNome(Mesevoluto)
      Scrivi "Positivi = " & Tro & " frequenze : " & K
      Scrivi
      Dim Stringadeicostanti
      If Tro >= TotAnni Then
         Stringadeicostanti = Stringadeicostanti & "." & N & "."
         Scrivi "stringa dei costanti " & Stringadeicostanti
      End If
      Dim gruppodeicostanti
      Call SplitByChar(Stringadeicostanti,".",gruppodeicostanti)
      Call AvanzamentoElab(1,90,N)
      If ScriptInterrotto Then Exit For
      Call Messaggio(N)
      Tro = 0
      K = 0
   Next
   Scrivi
   Scrivi "i + costanti per questa ricerca sono stati: " & StringaNumeri(gruppodeicostanti)
   Scrivi
End Sub

ciao a tutti
molto bello davvero questo script,
non si potrebbe avere la possibilità
di poter selezionare più ruote?
ed anche se possibile invece
di poterlo scegliere come mese
avere la possibilità di poter
scegliere un periodo da ... a ....
come per esempio dal 15 di marzo
al 10 aprile.
grazie ed ancora complimenti
ciao

 

[claudio8]

Continui a cancellare post come se stessi scrivendo cose di cui non sei convinto.

Parlavo di soluzioni di codice, che si conoscesse la differenza ne sono più che consapevole.

Ti accontento anche con il codice:

' postato da marconi - modificato da Claudio8 - [url]http://forum.lottoced.com/topic.asp?TOPIC_ID=139028[/url]
Sub Main()
    Dim ru(3)
    Dim terni(117480,5)
    Dim nn(3)
    r = InputBox("Ruota  della spia(1-10)",,1)
    n1 = InputBox("Numero Spia",,1)
    ee = InputBox("Estrazioni da controllare",,155)
    rr = InputBox("Ruota di ricerca(1-10)",,11)
    c = InputBox("Numero colpi di gioco",,9)
    For i = 1 To 117480
        terni(i,1) = 0
        terni(i,2) = 0
        terni(i,3) = 0
        terni(i,4) = 0
        terni(i,5) = 0
    Next
    casi = 0
    co = 0
    fin = EstrazioneFin
    ini = EstrazioneFin - ee
    For es = ini To fin
        Messaggio " Elaboro il N. " & CInt(n1) & " nell'estr. N. " & es & " su " & NomeRuota(r) & " dal " & DataEstrazione(ini) & " al " &DataEstrazione(fin)

        AvanzamentoElab ini,fin,es
        If Posizione(es,r,n1) > 0 Then
            casi = casi + 1
            'c = 9
            ess = es + c
            If ess > fin Then ess = fin End If
            co = 0
            For x = 1 To 88
                For y = x + 1 To 89
                    For z = y + 1 To 90
                        co = co + 1
                        terni(co,1) = co
                        terni(co,2) = x
                        terni(co,3) = y
                        terni(co,4) = z
                        nn(1) = x
                        nn(2) = y
                        nn(3) = z
                        ru(1) = rr
                        'terni(co,5) = terni(co,5)+ SerieFreq(es + 1,ess,nn,ru,3)' RIGA ERRATA
                        presenze = SerieFreq(es + 1,ess,nn,ru,3)
                        If presenze > 0 Then    'condizione da non eliminare perch'e se capitano + terni(es. 10..eccediamo)
                                          'nello stesso caso in analisi, il resoconto finale viene falsato da tutti questi errori.
                        terni(co,5) = terni(co,5) + 1
                        End If
                        
                    Next
                Next
            Next
        End If
    Next
    OrdinaMatrice terni,- 1,5
    ColoreTesto 1
    Scrivi String(4," ") &"Spia " & CInt(n1) & " su " & NomeRuota(r)
    Scrivi String(4," ") &"Terni più frequenti entro " & c & " colpi sulla a ruota di "& NomeRuota(rr)
    Scrivi String(4," ") &"N. " & CInt(casi) & " casi " & "dal " & DataEstrazione(ini) & " a al " &DataEstrazione(fin)
    Scrivi
    Scrivi "    Terni sulla ruota di " & NomeRuota(rr)& "    ",1,2,4
    ColoreTesto 2
    Scrivi "    Posiz.ne |  Terno   | Pres.ze "
        ColoreTesto 0
    For x = 1 To 50
            riga =FormatSpace(x,8,-1)& " | " & Format2(terni(x,2)) & "." & Format2(terni(x,3)) & "." & Format2(terni(x,4)) & " |   " & Format2(terni(x,5))
        Scrivi String(4," ") & riga
        riga = ""
    Next
End Sub

Nello script, trovi scritto anche la specifica nel punto di cui ho fatto lo screenshot e postato qui:


eccoti anche il mio post (del 28 ottobre 2011) a questo link:
https://forum.lottoced.com/threads/aiuto-per-ordina-matrice.3327/#post-171403

PS: a differenza di te che sei, in attesa che qualcuno posti i tuoi script, io non ho fatto altro che inserire su google la dicitura "lottoced Download SerieFreq(" ed è apparso quanto ti invio.

Mi scuso con l'ideatore del tread, ma mi piace essere preciso, il che non vuol dire polemico.
Claudio8

 

[lotto_tom75]

ciao a tutti
molto bello davvero questo script,
non si potrebbe avere la possibilità
di poter selezionare più ruote?
ed anche se possibile invece
di poterlo scegliere come mese
avere la possibilità di poter
scegliere un periodo da ... a ....
come per esempio dal 15 di marzo
al 10 aprile.
grazie ed ancora complimenti
ciao

Grazie ppaaoolloo x i complimenti a nome di tutti coloro che ci hanno messo mano a cominciare da xeroxs cui va il principale merito dello script e di questa attuale ricerca relativa. Se non ho rifatto errori... questo ulteriore piccolo potenziamento dovrebbe consentire l'analisi su + ruote...

'vers. 6

Sub Main
   Dim Ini,Fin,es,TotAnni
   Dim N,Ruota
   Dim Bret,Tro,K
   Dim Mesevoluto
   Dim annivoluti
   annivoluti = CInt(InputBox("anni",,5))
   Dim quantestrazioniescluderedallafine
   quantestrazioniescluderedallafine = CInt(InputBox("quante estrazioni escludere dalla fine ",,1))
   Ini = EstrazioneFin -((144 * annivoluti))
   Fin = EstrazioneFin - quantestrazioniescluderedallafine
   Mesevoluto = CInt(InputBox("mese",,10))
   Dim sorte
   ReDim aRuote(11)
   Call ScegliRuote(aRuote)
   sorte = 1
   Dim rit,ritmax,Incmax,freq
   ReDim anum(0)
   ScegliNumeri(anum)
   Dim caN
   Dim aN(1)
   For caN = 1 To UBound(anum)
      aN(1) = anum(caN)
      Scrivi "Analisi dall'Anno " & Anno(Ini) & " All'Anno " & Anno(Fin),1,1,,1,2
      Scrivi "Analisi dal " & DataEstrazione(Ini) & " Al " & DataEstrazione(Fin),1,1,,1,2
      TotAnni =(Anno(Fin) - Anno(Ini))
      Scrivi "Numero Scelto ---> " & "<font color=red>" & StringaNumeri(aN) & "</font>" ',0,,1,2
      Scrivi "Anni effettivi analizzati rimuovendo quello del mese deciso in corso... ----> " & TotAnni,1,,,1
      Scrivi "Mese Analizzato: ",Mesevoluto,0,,1,2
      Scrivi MeseNome(Mesevoluto),1,1,,2,2
      Scrivi "ruote analizzate " & StringaRuote(aRuote)
      Scrivi
      For es = Ini To Fin
         Bret = False
         If Mese(es) = Mesevoluto Then
            Do While Mese(es) = Mesevoluto
               Call StatisticaFormazioneTurbo(aN,aRuote,sorte,rit,ritmax,Incmax,freq,es,es)
               If rit = 0 Then
                  K = K + 1
                  Scrivi "<font color=red>" & GetInfoEstrazione(es) & "</font>"
                  Dim r
                  Dim ru
                  For r = 0 To UBound(aRuote)
                     ru = aRuote(r)
                     Scrivi "<font color=blue>" & NomeRuota(ru) & " - " & StringaEstratti(es,ru) & "</font>"
                  Next
                  Scrivi "<font color=blu>" & "..." & "</font>"
                  Bret = True
               End If
               es = es + 1
               'Scrivi GetInfoEstrazione(es)
            Loop
         End If
         If Bret Then Tro = Tro + 1
      Next
      Scrivi
      Scrivi "Statistica: Del Numero " & aN(1) & " Sulla/e Ruota/e di <font color=red><b>" & StringaRuote(aRuote) & "</b></font> Nel Mese di " & MeseNome(Mesevoluto)
      Scrivi "Positivi = " & Tro & " frequenze : " & K
      Scrivi
      Dim Stringadeicostanti
      If Tro >= TotAnni Then
         Stringadeicostanti = Stringadeicostanti & "." & aN(1) & "."
         Scrivi "stringa dei costanti " & Stringadeicostanti
         Scrivi
      End If
      Dim gruppodeicostanti
      Call SplitByChar(Stringadeicostanti,".",gruppodeicostanti)
      Call AvanzamentoElab(1,UBound(anum),anum(caN))
      If ScriptInterrotto Then Exit For
      Call Messaggio(aN(1) & " sulle ruote scelte di " & StringaRuote(aRuote))
      Tro = 0
      K = 0
   Next ' x aN(1)
   Scrivi
   Scrivi "i + costanti per questa ricerca sono stati: " & StringaNumeri(gruppodeicostanti)
   Scrivi
   Scrivi "gruppo base esaminato " & StringaNumeri(anum) & " classe" & " [ " & UBound(anum) & " ] "
   Scrivi "i + costanti per questa ricerca di <b>max copertura</b> nel mese di <font color=red>" & MeseNome(Mesevoluto) & "</font> per la <font color=red>" & "sorte di Estratto " & "</font>" & "in questi ultimi<font color=red> " & annivoluti & "</font> anni (" & annivoluti - 1 & " escluso l'attuale) in classe<font color=red> 1 </font>sulla Ruota di <font color=red>" & StringaRuote(aRuote) & "</font> sono stati: " & StringaNumeri(gruppodeicostanti)
   Scrivi
End Sub

Per quanto riguarda la possibilità di scegliere periodi temporali "custom" nonchè la revisione ed eventuale correzione del presente "potenziamento" lascio la parola ai grandi ilegend e claudio che saluto

 

[i legend]

Claudio , per me va benissimo, purtroppo all epoca come hai detto non ero ancora scritto al forum e non sono riuscito a trovare la soluzione che avevi postato. In realtà neanche dopo. Ti faccio i miei complimenti. Quella è stata anche la mia prima soluzione. Adottata.
Per fortuna che avevo scritto credo ,

Se postati subito ci saremmo risparmiati qualche post, e ti avrei dato ragione e fstto i complimenti prima. Che ti faccio ors
Ciao

 

[Xeroxs]

Buongiorno a Tutti,
Volevo Ringraziare lotto_tom75 per fin dal suo primo intervento e per le sue parole, I legend per i suoi consigli e per la soluzione alla mia richiesta, ed anche Claudio8 per i suoi interventi, penso che quando a fronte di una richiesta di aiuto, un osservazione, una domanda si va verso una soluzione costruttiva ogni commento, proposta o soluzione la vedo come una "cosa" positiva, perchè comunque un sano dibattito aiuta a crescere e a migliorarsi se si rimane nel giusto e corretto contesto ed è per questo che Vi ringrazio.

Purtroppo su questo argomento che da un punto puramente statistico e di fondamentale importanza ho trovato ben poco, sicuramente come dice I-Legend e Claudio8 ci sono gli script ma non sapendo come cercarli ho avuto difficolta a trovarli e quindi studiarli per ogni soluzione in quanto diverse a seconda delle nostre ricerche, perchè ad esempio se la fai per un indice mese e diverso da quella mensile ed il codice magari va rivisto o plasmato/modificato per portare alla soluzione e so bene che purtroppo mi sono perso un pò di argomenti interessanti già trattati da Voi (escludo ovvio a chi è intervenuto) nel passato e qualcuno di Voi pur con soluzioni o anche vecchi script anche di altri non ha la voglia di proporli come se fosse un tesoro, "trovato" grazie ad altri in maniera gratuita, purtroppo ha ragione anche i legend, qualcuno li fa suoi, ho visto lavori fatti da Voi e proposti in altre sedi ed è chiara l'origine perchè ognuno di Voi ha la sua impronta di base nel creare lo script a volte diversi per lo stesso argomento, ma con DNA scriptico personale e d ovvio che poi non si ha voglia di intervenire.

Sarebbe bello vedere se qualcuno a voglia di "Riproporre" altre soluzioni diverse, perchè anche se trattato nel passato questo argomento ci sono state magari evoluzioni o soluzioni alternative.

Ovvio che quanto fatto da I Legend, Lotto_tom75 e Claudio8 resta un valido aiuto per chi ama questo tipo di ricerca.

Grazie ancora.

 

[Mike58]

un Saluto a Tutti.
per Xeroxs incuriosito dai conteggi incrociati , ho fatto una mia versione dei conteggi.
Lo script è semplice e facilmente leggibile.
P.s Salvo errori ... controllare
ciao

Sub Main
   Ini = EstrazioneIni' - 2000
   fin = EstrazioneFin
   an1 = CInt(InputBox("Anno Inizio Range",,2005))
   an2 = CInt(InputBox("Anno di fine range",,Year(Now)))
   r = InputBox ("Quale Ruota",,5)
   n = InputBox("Quale Numero",,90)
   m = CInt(InputBox("Quale Mese",,9))
   Scrivi "Numero in Esame..... " & n,1
   Scrivi "Ruota in Esame...... " & NomeRuota(r)
   Scrivi "Anno di Partenza.... " & (an1)
   Scrivi "Anno di Fine range.. " & (an2)
   Scrivi "Mese in analisi..... " & MeseNome(m)
   Scrivi
   For es = Ini To fin
      If Mese(es) = m And Anno(es) >= an1 And Anno(es) <= an2 Then
         If Posizione(es,r,n) > 0 Then
            k = k + 1
            ReDim Preserve anni(k)
            anni(k) = Anno(es)
            Scrivi k & vbTab &  GetInfoEstrazione(es) & vbTab & Anno(es) & vbTab & StringaEstratti(es,r)
         End If
      End If
   Next
   Scrivi
 
   Scrivi "Casi Positivi... " & k,1
   Scrivi "Anni Positivi... " &(k - NumeriRipetuti(anni))
   Scrivi "Anni Ripetuti... " & NumeriRipetuti(anni)
   Scrivi Space(20) & "Script by Mike58",1,,,1
End Sub

Numero in Esame..... 42
Ruota in Esame...... Milano
Anno di Partenza.... 2015
Anno di Fine range.. 2022
Mese in analisi..... Ottobre

1 [09063] [118] 01.10.2015 2015 11.28.42.76.85
2 [09231] [129] 27.10.2016 2016 32.73.42.13.88
3 [09380] [121] 10.10.2017 2017 14.66.90.42.02
4 [09538] [123] 13.10.2018 2018 70.03.42.24.51
5 [09539] [124] 16.10.2018 2018 42.50.78.29.53
6 [09540] [125] 18.10.2018 2018 88.43.42.17.62
7 [09692] [121] 08.10.2019 2019 51.42.33.27.69
8 [09994] [127] 23.10.2021 2021 62.46.45.24.42

Casi Positivi... 8
Anni Positivi... 6
Anni Ripetuti... 2
Script by Mike58

 

[i legend]

Ottima soluzione alternativa Mike

 

[solare]

Ciao Mike58, ottimo lavoro
Non si potrebbe aggiungere anche i numeri che si sono presentati assieme al numero di ricerca ?
es: Numero di ricerca 90
Numeri sortiti assieme : 15 due volte 87 tre volte ecc ecc.

 

[Mike58]

Solare, non saprei, francamente lo script ed il costrutto nasce per arrivare ad una soluzione del problema - quesito.
Altra cosa è poi conteggiarci gli abbinamenti sui pochi casi nei mesi e per anno.
Direi che può avere pochi riscontri.
Diverso magari è un problema inverso gli abbinamenti su capogioco indipendentemente dal mese o anno , ma in range definito.
Questo è sicuramente possibile, però se ti interessa fai la richiesta ex novo con tutti i parametri definiti.
P.s. mi riservo però di capire meglio la richiesta
Ciao

 

[solare]

Ok mike58
Grazie comunque

 

[claudio8]

Ciao Mike58, ottimo lavoro
Non si potrebbe aggiungere anche i numeri che si sono presentati assieme al numero di ricerca ?
es: Numero di ricerca 90
Numeri sortiti assieme : 15 due volte 87 tre volte ecc ecc.

Prima di pensare agli abbinamenti, prova a scoprire l'ambata testando tutti i numeri da 1 a 90



Ciao Mike, un salutone.
ho testato Bari Settembre, n. 48 da errore dipendente dal Redim Preverse.

Ciao.

Domani Vi mando una versione Plugin ampliata per tutte le ruote e tutti numeri.
Un saluto

 

[i legend]

Ottimo lavoro
Quando la vecchia guardia si mette a lavoro

 

[Mike58]

Ciao Mike, un salutone.
ho testato Bari Settembre, n. 48 da errore dipendente dal Redim Preverse.

Ciao Claudio sicuramente è dovuto al range anni usati, se non trova risultanze il valore k associato alla redim preserve va in errore.

usando gli anni di default trova risultati.

 

[lotto_tom75]

Ottimo lavoro
Quando la vecchia guardia si mette a lavoro

Già proprio vero carissimo ilegend, e perchè ancora non si è ridestato... il megalodonte...

Mentre ne aspettiamo il ritorno... e, mentre aspettiamo la super chicca di claudio8, anche io ho voluto provare, nel mio piccolo, a "potenziare" anche questo ennesimo favoloso e pulitissimo script del grande Mike che saluto e ringrazio .

Pasticci codificati permettendo...

Sub Main
   Ini = EstrazioneIni' - 2000
   fin = EstrazioneFin
   an1 = CInt(InputBox("Anno Inizio Range",,2005))
   an2 = CInt(InputBox("Anno di fine range",,Year(Now)))
   'r = InputBox ("Quale Ruota",,5)
   filereport = ".\filereport-stringastabili.txt"
   If FileEsistente(filereport) Then
      Call EliminaFile(filereport)
   End If
   annitotali = an2 - an1
   stringadeglistabili = ""
   'n = InputBox("Quale Numero",,90)
   m = CInt(InputBox("Quale Mese",,9))
   'Scrivi "Numero in Esame..... " & n,1
   'Scrivi "Ruota in Esame...... " & NomeRuota(r)
   Scrivi "Anno di Partenza.... " &(an1)
   Scrivi "Anno di Fine range.. " &(an2)
   Scrivi "Anni totali esaminati " & an2 - an1
   Scrivi "Mese in analisi..... " & MeseNome(m)
   Scrivi
   For r = 1 To 10
      For n = 1 To 90
         Scrivi
         Scrivi "Ruota in Esame...... " & NomeRuota(r)
         Scrivi
         Scrivi "Numero in Esame...... " & n
         Scrivi
         For es = Ini To fin
            If Mese(es) = m And Anno(es) >= an1 And Anno(es) <= an2 Then
               If Posizione(es,r,n) > 0 Then
                  k = k + 1
                  ReDim Preserve anni(k)
                  anni(k) = Anno(es)
                  Scrivi k & vbTab & GetInfoEstrazione(es) & vbTab & Anno(es) & vbTab & StringaEstratti(es,r)
               End If
            End If
         Next
         Scrivi
         annipositivi = k - NumeriRipetuti(anni)
         anniripetuti = NumeriRipetuti(anni)
         Scrivi "Casi Positivi... " & k,1
         Scrivi "Anni Positivi... " & annipositivi '(k - NumeriRipetuti(anni))
         Scrivi "Anni Ripetuti... " & anniripetuti ' NumeriRipetuti(anni)
         If ScriptInterrotto Then Exit For
         Messaggio NomeRuota(r) & " n. " & n
         Call AvanzamentoElab(1,90,n)
         If annipositivi = annitotali Then
            Scrivi
            Scrivi "<font color=red>SEGNATI STO NUMERELLO AMICO/A! :) " & n & " </font>"
            Scrivi
            stringadeglistabili = Stringadeglistabili & "." & n & "."
            Scrivi
         End If
         k = 0
         annipositivi = 0
         anniripetuti = 0
      Next ' x n
      If ScriptInterrotto Then Exit For
      'Messaggio NomeRuota(r) & " n. " & n
      'k = 0
      ' annipositivi  = 0
      'anniripetuti = 0
      Scrivi
      Scrivi "i numeri + costanti per questo mese esaminato di " & MeseNome(m) & " negli ultimi " & annitotali & " anni per questa ruota di <font color=red>" & NomeRuota(r) & "</font> sono stati : <font color=red>" & stringadeglistabili & "</font>"
      Scrivi
      Stringareport = "i numeri + costanti per questo mese esaminato di " & MeseNome(m) & " negli ultimi " & annitotali & " anni per questa ruota di " & NomeRuota(r) & " sono stati : " & stringadeglistabili
      ScriviFile filereport,Stringareport
      Call CloseFileHandle(filereport)
      Stringareport = ""
      Stringadeglistabili = ""
   Next ' x r
   Scrivi
   Scrivi "Tt : " & TempoTrascorso
   Scrivi
   Scrivi Space(20) & "Script by Mike58 'potenziato' da lotto_tom75",1,,,1
End Sub

Es. di relativo elaborato da monitorare per tutto Ottobre...

Con archivio aggiornato all'es del 1/10/2022

i numeri + costanti per questo mese esaminato di Ottobre negli ultimi 7 anni per questa ruota di Bari sono stati : .26.
i numeri + costanti per questo mese esaminato di Ottobre negli ultimi 7 anni per questa ruota di Cagliari sono stati :
i numeri + costanti per questo mese esaminato di Ottobre negli ultimi 7 anni per questa ruota di Firenze sono stati : .50.
i numeri + costanti per questo mese esaminato di Ottobre negli ultimi 7 anni per questa ruota di Genova sono stati : .39.
i numeri + costanti per questo mese esaminato di Ottobre negli ultimi 7 anni per questa ruota di Milano sono stati :
i numeri + costanti per questo mese esaminato di Ottobre negli ultimi 7 anni per questa ruota di Napoli sono stati : .52.
i numeri + costanti per questo mese esaminato di Ottobre negli ultimi 7 anni per questa ruota di Palermo sono stati : .56.
i numeri + costanti per questo mese esaminato di Ottobre negli ultimi 7 anni per questa ruota di Roma sono stati : .6..48.
i numeri + costanti per questo mese esaminato di Ottobre negli ultimi 7 anni per questa ruota di Torino sono stati : .31.
i numeri + costanti per questo mese esaminato di Ottobre negli ultimi 7 anni per questa ruota di Venezia sono stati : .31..45..76.




Nessuna Certezza Solo Poca Probabilità