Per chi ne è in grado

Sakti · 13 Maggio 2022

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 · 15 Maggio 2022

"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?

Alien. · 16 Maggio 2022

toon ti sei fermato ?

Sakti · 17 Maggio 2022

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..adesso è OK..

Alien. · 17 Maggio 2022

E speiamo che faccia degli ottimi "FRUTTI"

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 · 17 Maggio 2022

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

Alien. · 17 Maggio 2022

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

fabri.m · 17 Maggio 2022

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

Sakti · 17 Maggio 2022

Grazie, funziona benissimo, a buon rendere, grazie di nuovo,,,

Accetta una birretta virtuale

Alien. · 17 Maggio 2022

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. · 17 Maggio 2022

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 · 19 Maggio 2022

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. · 19 Maggio 2022

Perfetto grazie fabri faccio delle prove poi ti dico.....

Alien. · 19 Maggio 2022

Alien. ha scritto:
E speiamo che faccia degli ottimi "FRUTTI"

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. · 19 Maggio 2022

è 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 · 20 Maggio 2022

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. · 20 Maggio 2022

Ciao, claudio, grazie.

Alien. · 20 Maggio 2022

toon ha scritto:
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..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 · 20 Maggio 2022

Alien. ha scritto:
:quelli che escono prevalentemente prima della sortita di un certo numero.

Perfetto

Alien. ha scritto:
....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.

Alien. · 20 Maggio 2022

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 !

Per chi ne è in grado

Advanced Member >GOLD<

Premium Member

Advanced Premium Member

Advanced Member >GOLD<

Advanced Premium Member

Banned

Advanced Premium Member

Banned

Advanced Member >GOLD<

Advanced Premium Member

Advanced Premium Member

Banned

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Premium Member

Advanced Premium Member

Advanced Premium Member

Premium Member

Advanced Premium Member