Novità

Per chi ne è in grado

toon

Advanced Member
E' possibile avere uno script per Million day che mi dia i numeri spia di un numero a richiesta sul totale delle estrazioni?
Chiedo molto, lo so , ma se qualche volenteroso potesse...
Grazie in anticipo..
 

claudio8

Premium Member
"numeri spia di un numero" ???

Spiegati meglio, si dovrebbero chiamare precursori.
Se è questo che intedi devi anche specificare le estrazioni precedenti di ricerca
Se invece vuoi i seguenti della spia devi chiamarli frequenti
Fai prima a predisporre un esempio anche ipotetico che serva da falsa riga alla tua esigenza.....

io non seguo il million day ma altri si.

ps: ti piace così tanto la faccia che hai in immagine?
 

toon

Advanced Member
Precursori , precursori intendo quelli che escono prevalentemente prima della sortita di un certo numero, Claudio8 se ti impressiona la cambio ste immagine, io la trovo ridicola..;)😅
Alien, mi si era piantato il PC, ho dovuto rimediare..:cautious:(y)adesso è OK..
 

Alien.

Advanced Premium Member
E speiamo che faccia degli ottimi "FRUTTI" :unsure:😂😂

oddio megli l'altra immagine .....

e ci vorrebbe anche per il superenalotto i numeri spia ma credo che nessuo l'abbia mai fatto.
 

fabri.m

Banned
ciao prova questo listato ,
devi eventualmente cambiare il percorso del file archivio .
Codice:
Option Explicit
Sub Main()
   Dim sFileArchivio : sFileArchivio = GetDirectoryAppData & "Archivio MillionDAY\MillionDay.txt"
   Call ApriBaseDatiFT(sFileArchivio,05,";",55)
   Call Scrivi()
   Call Scrivi(String(36," ") & "NUMERI PRECURSORI MILLIONDAY",True,True,,01)
   Call Scrivi()
   Dim numero(55,03),num(01),nn(01)
   Dim N : N = CInt(InputBox("NUMERO SPIATO ?"," 1 - 55 ",1))
   If N = "" Then Exit Sub
   Dim ESTR : ESTR = CInt(InputBox("QUANTI CASI VUOI CONTROLLARE ?",,10))
   If ESTR = "" Then Exit Sub
   Dim TOT : TOT = CInt(InputBox("NUMERI GENERATORI DA CERCARE ?",,5))
   If TOT = "" Then Exit Sub
   Dim ER : ER = CInt(InputBox("ESTRAZIONI RETROATTIVE DA ESAMINARE ?",,10))
   If ER = "" Then Exit Sub
   Dim Mostra_OUT : Mostra_OUT = CInt(InputBox("VUOI VEDERE LE ESTRAZIONI ?" & Chr(13) & "1 = SI" & Chr(13) & "2 = NO",,01))
   If Mostra_OUT = "" Then Exit Sub
   Dim Casi : Casi = 00
   Dim Ini,Fin,IniS,Es : Ini = EstrazioniArchivioFT - ESTR : Fin = EstrazioniArchivioFT : IniS = 0001
   Dim P,a,Cont,ix,ixx,axx,Ex,Ess,Pos,b,Rit
   For Es = Fin To 01 Step - 01 : Call Messaggio(Es) : Call AvanzamentoElab(Fin,01,Es)
      If Casi < ESTR Then
         For P = 01 To 05
            a = EstrattoFT(Es,P)
            If a = N Then
               Casi = Casi + 01
               Cont = 00
               ix = Es - 01
               ixx =(ix - ER) + 01
               For axx = ixx To ix
                  Call info2(Mostra_OUT,axx)
               Next
               Call info1(Mostra_OUT,Casi,Es,N)
               Ex = Es - ER + 01
               For Ess = Ex To Es - 01
                  For Pos = 01 To 05
                     b = EstrattoFT(Ess,Pos)
                     nn(01) = b
                     Rit = SerieRitardoFT(IniS,Fin,nn,AMBATA_)
                     numero(b,01) = b
                     numero(b,02) = numero(b,02) + 01
                     numero(b,03) = Rit
                     Cont = Cont + 01
                  Next
               Next
            End If
         Next
      End If
   Next
   Call OrdinaMatriceTurbo(numero,- 01,02)
   Call Scrivi()
   If Mostra_OUT = 01 Then Call Scrivi("IN COLORE BLU LE " & Format2(ER) & " ESTRAZIONI PRECEDENTI",True,True,,01)
   Call Scrivi("NUMERO:    " & Format2(N),True,True)
   Call Scrivi("CASI ESAMI SPIATONATI:   " & Format2(Casi),True,True)
   Call Scrivi("ESTR.RETROATTIVE  " & Format2(ER),True,True)
   Call Scrivi()
   Call Scrivi("NUMERI RILEVATORI CON RISPETTIVE FREQUENZE E RITARDI",True,True)
   Call Scrivi()
   Call Scrivi("NUM. |  FREQ. |  RIT.",True,True)
   Call Scrivi()
   Dim NR,NSTR,Stringa
   For NR = 01 To TOT
      Call Scrivi(Format2(numero(NR,01)) & "   |   " & Format2(numero(NR,02)) & "   |   " & Format2(numero(NR,03)),True,True)
      NSTR = CStr(numero(NR,01))
      If Len(NSTR) < 02 Then NSTR = "0" + NSTR
      Stringa = Stringa + NSTR
      If NR < TOT Then Stringa = Stringa + "."
   Next
   Call Scrivi()
   Call Scrivi("Stringa numeri rilevatori:  " & Stringa,True,True)
End Sub
Function info2(mostra_out,axx)
   If mostra_out = 01 Then Call Scrivi("    " & DataEstrazioneFT(axx) & "  " & StringaEstrattiFT(axx),True,True,,01)
End Function
Function info1(mostra_out,casi,es,n)
   If mostra_out = 01 Then Call Scrivi(Format2(casi) & ") " & DataEstrazioneFT(es) & "  " & StringaEstrattiFT(es) & _
   "  Numero spiato: " & Format2(n),True,True)
End Function
 
Ultima modifica:

Alien.

Advanced Premium Member
Ciao fabri non ho l'archivio Millionday,per cortesia puoi cambiare l'archivo con il superenalotto . Grazie.
 

fabri.m

Banned
prova , vale solo sulla sestina base .
Codice:
Option Explicit
Sub Main()
   Call Scrivi() : Call Scrivi(String(36," ") & "NUMERI RILEVATORI SUPERENALOTTO *",True,True,,01) : Call Scrivi()
   Dim numero(90,03),num(01),nn(01)
   Dim N : N = CInt(InputBox("NUMERO SPIATO ?"," 1 - 90 ",1))
   If N = "" Then Exit Sub
   Dim ESTR : ESTR = CInt(InputBox("QUANTI CASI VUOI CONTROLLARE ?",,10))
   If ESTR = "" Then Exit Sub
   Dim TOT : TOT = CInt(InputBox("NUMERI GENERATORI DA CERCARE ?",,5))
   If TOT = "" Then Exit Sub
   Dim ER : ER = CInt(InputBox("ESTRAZIONI RETROATTIVE DA ESAMINARE ?",,10))
   If ER = "" Then Exit Sub
   Dim Mostra_OUT : Mostra_OUT = CInt(InputBox("VUOI VEDERE LE ESTRAZIONI ?" & Chr(13) & "1 = SI" & Chr(13) & "2 = NO",,1))
   If Mostra_OUT = "" Then Exit Sub
   Dim Casi : Casi = 00
   Dim Ini,Fin,IniS,Es : Ini = EstrazioniArchivioSE - ESTR : Fin = EstrazioniArchivioSE : IniS = 0001
   Dim P,a,Cont,ix,ixx,axx,Ex,Ess,Pos,b,Rit
   For Es = Fin To 01 Step - 01 : Call Messaggio(Es) : Call AvanzamentoElab(Fin,01,Es)
      If Casi < ESTR Then
         For P = 01 To 06
            a = EstrattoSE(Es,P)
            If a = N Then
               Casi = Casi + 01
               Cont = 00
               ix = Es - 01
               ixx =(ix - ER) + 01
               For axx = ixx To ix
                  Call info2(Mostra_OUT,axx)
               Next
               Call info1(Mostra_OUT,Casi,Es,N)
               Ex = Es - ER + 01
               For Ess = Ex To Es - 01
                  For Pos = 01 To 06
                     b = EstrattoSE(Ess,Pos)
                     nn(01) = b
                     Rit = SerieRitardoSE(IniS,Fin,nn,AMBATA_)
                     numero(b,01) = b
                     numero(b,02) = numero(b,02) + 01
                     numero(b,03) = Rit
                     Cont = Cont + 01
                  Next
               Next
            End If
         Next
      End If
   Next
   Call OrdinaMatriceTurbo(numero,- 01,02)
   Call Scrivi()
   If Mostra_OUT = 01 Then Call Scrivi("IN COLORE BLU LE " & Format2(ER) & " ESTRAZIONI PRECEDENTI",True,True,,01)
   Call Scrivi("NUMERO:    " & Format2(N),True,True)
   Call Scrivi("CASI ESAMI SPIATONATI:   " & Format2(Casi),True,True)
   Call Scrivi("ESTR.RETROATTIVE  " & Format2(ER),True,True)
   Call Scrivi()
   Call Scrivi("NUMERI RILEVATORI CON RISPETTIVE FREQUENZE E RITARDI",True,True)
   Call Scrivi()
   Call Scrivi("NUM. |  FREQ. |  RIT.",True,True)
   Call Scrivi()
   Dim NR,NSTR,Stringa
   For NR = 01 To TOT
      Call Scrivi(Format2(numero(NR,01)) & "   |   " & Format2(numero(NR,02)) & "   |   " & Format2(numero(NR,03)),True,True)
      NSTR = Format2(numero(NR,01))
      Stringa = Stringa + NSTR
      If NR < TOT Then Stringa = Stringa + "."
   Next
   Call Scrivi()
   Call Scrivi("Stringa numeri rilevatori:  " & Stringa,True,True)
End Sub
Function info2(mostra_out,axx)
   If mostra_out = 01 Then Call Scrivi("    " & DataEstrazioneSE(axx) & "  " & StringaEstrattiSE(axx),True,True,,01)
End Function
Function info1(mostra_out,casi,es,n)
   If mostra_out = 01 Then Call Scrivi(Format2(casi) & ") " & DataEstrazioneSE(es) & "  " & StringaEstrattiSE(es) & _
   "  Numero spiato: " & Format2(n),True,True)
End Function
 

toon

Advanced Member
Grazie, funziona benissimo, a buon rendere, grazie di nuovo,,,(y):D Accetta una birretta virtuale 🍻
 

Alien.

Advanced Premium Member
Ciao fabri ma per il superenaotto mi da solo 5 numeri puoi modificare,grazie,

Stringa numeri rilevatori: 21.27.87.25.37

no
scusa va tutto bene non avevo letto bene l'input. Grazie.
 

Alien.

Advanced Premium Member
Scusami facendo delle prove per il superenalotto mi è venuta un idea per il lotto, senti basta cambiare l'archivio cosa devo cambiare,grazie.
 

fabri.m

Banned
prova questo

Codice:
Option Explicit
Sub Main()
   Call Scrivi()
   Call Scrivi(String(36," ") & "NUMERI RILEVATORI LOTTO *",True,True,,01)
   Call Scrivi()
   Dim numero(90,03),num(01),ruota(1),nn(01)
   Dim N : N = CInt(InputBox("NUMERO SPIATO ?"," 1 - 90 ",1))
   If N = "" Then Exit Sub
   Dim R : R = CInt(InputBox("RUOTA DI RICERCA ?",,2))
   If R = "" Then Exit Sub
   Dim ESTR : ESTR = CInt(InputBox("QUANTI CASI VUOI CONTROLLARE ?",,10))
   If ESTR = "" Then Exit Sub
   Dim TOT : TOT = CInt(InputBox("NUMERI GENERATORI DA CERCARE ?",,5))
   If TOT = "" Then Exit Sub
   Dim ER : ER = CInt(InputBox("ESTRAZIONI RETROATTIVE DA ESAMINARE ?",,10))
   If ER = "" Then Exit Sub
   Dim Mostra_OUT : Mostra_OUT = CInt(InputBox("VUOI VEDERE LE ESTRAZIONI ?" & Chr(13) & "1 = SI" & Chr(13) & "2 = NO",,1))
   If Mostra_OUT = "" Then Exit Sub
   Dim Casi : Casi = 00
   Dim Ini,Fin,IniS,Es : Ini = EstrazioniArchivio - ESTR : Fin = EstrazioniArchivio : IniS = EstrazioneIni
   Dim P,a,Cont,ix,ixx,axx,Ex,Ess,Pos,b,Rit
   For Es = Fin To 01 Step - 01 : Call Messaggio(Es) : Call AvanzamentoElab(Fin,01,Es)
      If Casi < ESTR Then
         For P = 01 To 05
            a = Estratto(Es,R,P)
            If a = N Then
               Casi = Casi + 01
               Cont = 00
               ix = Es - 01
               ixx =(ix - ER) + 01
               For axx = ixx To ix
                  Call info2(Mostra_OUT,R,axx)
               Next
               Call info1(Mostra_OUT,Casi,Es,R,N)
               Ex = Es - ER + 01
               For Ess = Ex To Es - 01
                  For Pos = 01 To 05
                     b = Estratto(Ess,R,Pos)
                     nn(01) = b
                     ruota(01) = R
                     Rit = SerieRitardoTurbo(IniS,Fin,nn,ruota,AMBATA_)
                     numero(b,01) = b
                     numero(b,02) = numero(b,02) + 01
                     numero(b,03) = Rit
                     Cont = Cont + 01
                  Next
               Next
            End If
         Next
      End If
   Next
   Call OrdinaMatriceTurbo(numero,- 01,02)
   Call Scrivi()
   If Mostra_OUT = 01 Then Call Scrivi("IN COLORE BLU LE " & Format2(ER) & " ESTRAZIONI PRECEDENTI",True,True,,01)
   Call Scrivi("NUMERO :  " & Format2(N),True,True)
   Call Scrivi("RUOTA DI RICERCA : " &SiglaRuota(R),True,True)
   Call Scrivi("CASI ESAMI SPIATONATI :  " & Format2(Casi),True,True)
   Call Scrivi("ESTR.RETROATTIVE :  " & Format2(ER),True,True)
   Call Scrivi()
   Call Scrivi("NUMERI RILEVATORI CON RISPETTIVE FREQUENZE E RITARDI",True,True)
   Call Scrivi()
   Call Scrivi("NUM. |  FREQ. |  RIT.",True,True)
   Call Scrivi()
   Dim NR,NSTR,Stringa
   For NR = 01 To TOT
      Call Scrivi(Format2(numero(NR,01)) & "   |   " & Format2(numero(NR,02)) & "   |   " & Format2(numero(NR,03)),True,True)
      NSTR = Format2(numero(NR,01))
      Stringa = Stringa + NSTR
      If NR < TOT Then Stringa = Stringa + "."
   Next
   Call Scrivi()
   Call Scrivi("Stringa numeri rilevatori:  " & Stringa,True,True)
End Sub
Function info2(mostra_out,r,axx)
   If mostra_out = 01 Then Call Scrivi("    " & DataEstrazione(axx) & "  " & SiglaRuota(r) & "  " & _
   StringaEstratti(axx,r),True,True,,01)
End Function
Function info1(mostra_out,casi,es,r,n)
   If mostra_out = 01 Then Call Scrivi(Format2(casi) & ") " & DataEstrazione(es) _
   & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & "  Numero spiato: " & Format2(n),True,True)
End Function
 

Alien.

Advanced Premium Member
E speiamo che faccia degli ottimi "FRUTTI" :unsure:😂😂

oddio megli l'altra immagine .....

e ci vorrebbe anche per il superenalotto i numeri spia ma credo che nessuo l'abbia mai fatto.
errore volevo dire ovviamente DIRE : E SPERIAMO CHE FACCIA DEGLI OTTIMI "FRUTTI"
 

Alien.

Advanced Premium Member
è se non erro toom a chiesto dei numeri che anticipano l'uscita di un un numero ....ma non avevo letto bene e veloce a me interessava l'incotrario che dato un numero mi dia la frequenza ,quali numeri sono usciti dopo è come cercare l'isola che non c'è.Si può fare, grazie.
 

claudio8

Premium Member
per Fabri ed utenti

Nello script del lotto ( unico letto ) consiglio di sostituire la riga 20

Dim Ini,Fin,IniS,Es : Ini = EstrazioniArchivio - ESTR : Fin = EstrazioniArchivio : IniS = EstrazioneIni
con
Dim Ini,Fin,IniS,Es : Ini = EstrazioneFin - ESTR : Fin = EstrazioneFin : IniS = EstrazioneIni
altrimenti qualsiasi test vogliate fare a ritroso con il fine range di SPTM, per verificare il funzionamento della ricerca sarà falso.

Mi permetto di dare qualche suggerimento per gli scripter ( non me ne vogliate, ma se cambiate modo di approcciarvi al "progetto script" di qulasiasi argomento sia, ne trarrete vantaggio)
- nello script sopra citato. viene ciclata la ricerca x estrazioni a ritroso e posizioni, correttissimo, ma sarebbe stato meglio utilizzare la funzione "seriefrequenza" o la stessa turbo;
- quando si opera con ricerche con blocchi di estrazioni ( range colpi ), sia il ciclo for delle estrazioni con annesso quello delle posizioni, che la funzione "serie frequenza" rilevano la totalità delle occorrenze rilevabili, mentre l'analisi deve terminare alla presenza o meno della singola occorrenza nel range in analisi, la sommatoria nuda e cruda quasi sempre falsa la validità della ricerca;
- consiglio di utilizzare sempre le matrici per depositare i dati ricercati in modo da poter meglio sfruttare gli stessi nelle ulteriori fasi di outp o riutilizzo ricerca ( possono essere diversi i modi per esporre dei dati in output, se si opera con la scittura diretta in corso di svolgimento dello script, il tutto viene esposto in maniera piatta e sterile ) lasciatevi sempre la possibilità di rivedere ed esporre la ricerca da altri punti di vista.

Saluti
 

Alien.

Advanced Premium Member
Precursori , precursori intendo quelli che escono prevalentemente prima della sortita di un certo numero, Claudio8 se ti impressiona la cambio ste immagine, io la trovo ridicola..;)😅
Alien, mi si era piantato il PC, ho dovuto rimediare..:cautious:(y)adesso è OK..
Perdonami toon ma ...........dici::::::::::::::quelli che escono prevalentemente prima della sortita di un certo numero...mi sono infrenato le cellule..........in genere si usa un numero per sapere quali escono dopo per frequenza spiegami perchè devo sciogliere questo nodo....grazie
 

claudio8

Premium Member
:quelli che escono prevalentemente prima della sortita di un certo numero.
Perfetto
....in genere si usa un numero per sapere quali escono dopo per frequenza spiegami perchè devo sciogliere questo nodo..
Quelli sono i frequenti dopo la spia

I primi sono i precursori ed i secondi sono i frequenti .
Il concetto di ricerca è identico ma si invertono le parti.
Esempio: se il 90 è precursore del 5 automaticamente il 5 è il successore del 90 dopo il 90 esce il 5.
 
Ultima modifica:

Alien.

Advanced Premium Member
Si claudio esatto ma il mio pensiero dei precursori è : se inserisco il 90 mi dice che dopo l'uscita del 5-30 41 ecc. dovrebbe uscire il 90.
ma se inserisco il 90 e voglio i frequenti come fa a darmi sempre gli stessi numeri 5-30-41 ?
I precursori sono il passato e i frequenti sono il futuro acc.....
.......ho un pensiero ..errato !
 

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