xMIKE58 combinazioni mancanti 10ellottoserale

[Rafele ‘o Ruoss’]

Buonasera,

è possibile avere uno script per il 10elottoserale che vada a verificare negli ultimi mesi /se possibile selezionare il mese nell'output

quante combinazioni si sono verificate nel periodo selezionato per quella serie di numeri che andro' a selezionare nell' output per verifica e quali mancano alla sortita da poter mettere in gioco.

esempio : 11-22-33-44

11 e 22 nel mese selezionato è sortito 3 volte
11 e 44 è sortito 2 volte
22 e 33 utile
44 e 33 sortito una volta

ecco vorrei la verifica delle combinazioni uscite e le combinazioni che mancano da poter mettere in gioco .

grazie

 

[Mike58]

Ciao Bogotà, premesso che ultimamente non ho più stimoli per fare script, e vedo questo anche in altri scripter.
La tua richiesta nel vedere presenze per mesi secondo me è poco significativa, infatti le presenze che ci possono essere in un dato mese, possono essere molto diversi in termini di distribuzione numerica in altro mese, pertanto poco leggibile.

Tuttavia perchè non racccogliere i dati e la distribuzione numerica in un range ragionevole per il 10 e lotto 15-20 estrazioni.

Giusto per non lasciare inevasa la richiesta ti metto uno script già complilato, con scelta numeri o anche tutti.

Sub Main
   Dim T,V,Nu(1)
   ImpostaArchivio10ELotto(1)
   estr = InputBox("Quante estrazioni Analizzo",,20)
   Ini = EstrazioniArchivioDL - estr
   fin = EstrazioniArchivioDL
   Tot = fin - Ini
   Scrivi "Presenze Dieci e Lotto Serale",1,1,,1,3,,1
   Scrivi "Range Inizio  : " & DataEstrazioneDL(Ini)
   Scrivi "Range Fine    : " & DataEstrazioneDL(fin)
   Scrivi "Totali Estraz.: " & Tot
   Scrivi
   T = Array(T,"N.Presenze","Numeri","Q.tà","Ritardo Serie","Verifica","esito")
   Call InitTabella(T)
   'ReDim riga(10,8)
   ReDim aCol(0)
   Call ScegliNumeri(aCol)
   For x = 0 To estr
      For n = 1 To UBound(aCol)
         Nu(1) = aCol(n)
         If SerieFreqDL(Ini,fin,Nu,1) = x Then
            k = k + 1
            ReDim Preserve riga(k)
            riga(k) = Nu(1)
            'Riga = Riga & Nu(1) & " "
            sr = SerieRitardoDL(Ini,fin,riga,1)
            'sr = EstrattoRitardoDL(n,Ini,fin)
            Call VerificaEsitoDL(riga,fin,1,,esito,,es1)
         End If
      Next
      
      If k > 0 Then
         V = Array(V,x,StringaNumeri(riga),k,sr,es1,esito)
         Call AddRigaTabella(V)
      End If
      'riga = ""
      k = 0
   Next
   Call CreaTabella()
   Scrivi StringaEstrattiDL(fin),1
End Sub

 

[Mike58]

Per le tue ricerche anche un semplice Tabellone Analitico.

Sub Main
   ImpostaArchivio10ELotto(1)
   Dim nu(20)
   Ini = EstrazioniArchivioDL - 40
   fin = EstrazioniArchivioDL
   'nk = 0
   Scrivi Space(15) & " ************* TABELLONE ANALITICO 10 & LOTTO ************** ",1,1,,1,3
   Scrivi
   For es = fin To Ini Step - 1
   nk = nk + 1
      For p = 1 To 20
         nu(p) = EstrattoDL(es,p)
      
      If EstrattoFrequenzaDL(nu(p),es,fin) > 1 Then nu(p) = "__"
      'If nu(p) = "--" Then k = k + 1
      If nu(p) <> "__" Then kk = kk + 1
      
      Next
      
      If kk > 0 Then
      Scrivi GetInfoEstrazioneDL(es) & vbTab,0,0
      Scrivi nk - 1 & vbTab,0,0
      Scrivi StringaNumeri(nu,,1) & vbTab & 20 - kk & vbTab & kk '& vbTab & NumeroOroDL(es),1
      'k = 0
      kk = 0
      End If
   Next
End Sub

Ciao

 

[Rafele ‘o Ruoss’]

Ciao Bogotà, premesso che ultimamente non ho più stimoli per fare script, e vedo questo anche in altri scripter.
La tua richiesta nel vedere presenze per mesi secondo me è poco significativa, infatti le presenze che ci possono essere in un dato mese, possono essere molto diversi in termini di distribuzione numerica in altro mese, pertanto poco leggibile.

Tuttavia perchè non racccogliere i dati e la distribuzione numerica in un range ragionevole per il 10 e lotto 15-20 estrazioni.

Giusto per non lasciare inevasa la richiesta ti metto uno script già complilato, con scelta numeri o anche tutti.

Sub Main
   Dim T,V,Nu(1)
   ImpostaArchivio10ELotto(1)
   estr = InputBox("Quante estrazioni Analizzo",,20)
   Ini = EstrazioniArchivioDL - estr
   fin = EstrazioniArchivioDL
   Tot = fin - Ini
   Scrivi "Presenze Dieci e Lotto Serale",1,1,,1,3,,1
   Scrivi "Range Inizio  : " & DataEstrazioneDL(Ini)
   Scrivi "Range Fine    : " & DataEstrazioneDL(fin)
   Scrivi "Totali Estraz.: " & Tot
   Scrivi
   T = Array(T,"N.Presenze","Numeri","Q.tà","Ritardo Serie","Verifica","esito")
   Call InitTabella(T)
   'ReDim riga(10,8)
   ReDim aCol(0)
   Call ScegliNumeri(aCol)
   For x = 0 To estr
      For n = 1 To UBound(aCol)
         Nu(1) = aCol(n)
         If SerieFreqDL(Ini,fin,Nu,1) = x Then
            k = k + 1
            ReDim Preserve riga(k)
            riga(k) = Nu(1)
            'Riga = Riga & Nu(1) & " "
            sr = SerieRitardoDL(Ini,fin,riga,1)
            'sr = EstrattoRitardoDL(n,Ini,fin)
            Call VerificaEsitoDL(riga,fin,1,,esito,,es1)
         End If
      Next
     
      If k > 0 Then
         V = Array(V,x,StringaNumeri(riga),k,sr,es1,esito)
         Call AddRigaTabella(V)
      End If
      'riga = ""
      k = 0
   Next
   Call CreaTabella()
   Scrivi StringaEstrattiDL(fin),1
End Sub

ti ringrazio davvero per la tua disponibilità e epr il tuo tempo , tengo a dirti che nello specifico a me serve per incrociare per una determinata combinazione di numeri ,quante volte si sono combinati e come oltre al fatto di quali combinazioni rimangano per poi decidere di metterle in gioco. in effetti qualcosa ho fatto con exel facendo una prima scrematura. Un grazie sentitissimo da parte mia.saluti

 

[Mike58]

Ciao Bogotà su quante volte i tuoi numeri convergono in sorte voluta è possibile farlo con sviluppoCombinazione, ma quale combinazioni rimangono per mettere in gioco ecco qui manca il parametro di scelta o di operazione logica da far fare allo script.

Solo per chiarezza e ripsosta, non so se poi ho voglia di rpensare a come fare uno script.

 

[EVERITA]

EVERITA​

Junior Member​

• Oggi alle 07:57
• Aggungi bookmark
• #25

Ciao Mike58 avrei bisogno di uno script che faccia queste ricerche:

Cinquina base somma 90 posizioni 1 3 5

Cinquina di ricerca a ritroso somma 90 posizioni 2 3 4

Tre equazioni a 90 byron

Cinquina base somma 45 posizioni 1 3 5

Cinquina di ricerca a ritroso somma 45 posizioni 2 3 4

Tre equazioni a 90 byron

 

[Mike58]

Come dicevo sopra non ho più molta voglia di scriptare e soprattutto di ingegnarmi in progetti che mancano di parametri chiari.
Il Byron è complesso e poi ognuno lo personalizza come vuole .
Mi spiace ma passo.....

Ciao

 

[EVERITA]

Neanche se le porto casi reali?

 

[EVERITA]

Al limite qualche anima buona che mi puo' aiutare?

 

[Mike58]

Non Saprei chi può aver voglia, sicuramente qualcuno potrebbe.
Poi è sempre meglio dare specifiche dettagliate e correlate da esempi reali.
In ultimo è ancora meglio aprire un nuovo post per richieste diverse dall'argomento relativo di chi lo ha aperto,

Quindi apri un nuovo post e fornisci le specifiche dettagliate e poi non ti rimane che qualcuno sia stimolato dal progetto.

Ciao