Per Ilegend o chi è capace

[solare]

ciao, chiedo per questo bellissimo listato una modifica.
In origine analizza il periodo da al
Quello che chiedo io è analizzare le sortite del numero interessato, es. avere una statistica delle ultime 10/15/20 ecc sortite.
Grazie

Option Explicit
' script per Paolo utente su forum LottoCed
' lo script non restituisce previsioni, controllare  da altre fonti se i dati in output siano esatti
' gli errori sono sempre possibili
' lo script è dato gratuitamente nessuno puo venderlo o cederlo chiedendo una donazione in cambio
Sub Main
   ' dichiaro le variabili di impostazione ricerca  da utilizzare
   Dim Ini,Fin,bRet,aComb,nClasse
   ReDim aRu(0)
   'Verifico che i parametri inseriti siano corretti
   aComb = Array("Estratto","Coppia")
   bRet = False
   If MsgBox("Non si garantisce la correttezza dei dati Riportati " & vbCrLf & "Vuoi continuare ugualmente ?",_
      32 + 4,"Script Statistico per estratto o coppia nelle 5 posizioni") = vbYes Then
      If ScegliRange(Ini,Fin,EstrazioneIni,EstrazioneFin) Then
         Call ScegliRuote(aRu)
         If UBound(aRu) Then
            nClasse = ScegliOpzioneMenu(aComb,0,"Classe da Sviluppare") + 1
            If nClasse Then
               bRet = True
            Else
               Call MsgBox("Non hai inserito alcuna Classe",vbYes,"Wrong Message")
            End If
         Else
            Call MsgBox("Non hai inserito alcuna ruota",vbYes,"Wrong Message")
         End If
      Else
         Call MsgBox("Il range Estrazioni inserito non è valido",vbYes,"Wrong Message")
      End If
   Else
      Exit Sub
   End If
   If bRet = False Then Exit Sub
   ' dichiaro le altre variabili utili alla ricerca
   ReDim aNum(90)
   Dim N,p,C,Rit,RitMax,Freq,SumRit,SumFreq,idSvi
   Dim RcMax,RstoMin,RstoMax,FreqMax,FreqMin,RcMin
   Dim aRit(5),aRitMax(5),aFreq(5),aPos(1)
   For N = 1 To 90
      aNum(N) = N
   Next
   Dim colT:colT = InitSviluppoIntegrale(aNum,nClasse)
   Dim aTit:aTit = Array(0,"IdComb","Formazione","FrP1","FrP2","FrP3","FrP4","FrP5","SumFre","FreqMin","FreqMax","RcP1","RcP2","RcP3","RcP4","RcP5","SumRit","RitMin","RitMax","RsP1","RsP2","RsP3","RsP4","RsP5","RstMin","RstMax")
   Call InitTabella(aTit)
   idSvi = 0
   Do While GetCombSviluppo(aNum)
      If ScriptInterrotto Then Exit Do
      idSvi = idSvi + 1
      Call AvanzamentoElab(1,colT,idSvi)
      SumRit = 0
      SumFreq = 0
      For p = 1 To 5
         aPos(1) = p
         Call StatisticaFormazioneTurbo(aNum,aRu,1,Rit,RitMax,0,Freq,Ini,Fin,,aPos)
         aRit(p) = Rit
         aRitMax(p) = RitMax
         aFreq(p) = Freq
         SumRit = SumRit + Rit
         SumFreq = SumFreq + Freq
      Next
      RcMin = MinimoV(aRit,1,5)
      RcMax = MassimoV(aRit)
      FreqMin = MinimoV(aFreq,1,5)
      RstoMax = MassimoV(aRitMax)
      RstoMin = MinimoV(aRitMax,1,5)
      FreqMax = MassimoV(aFreq)
      Dim atab
      atab = Array(0,idSvi,StringaNumeri(aNum,,True),aFreq(1),aFreq(2),aFreq(3),aFreq(4),aFreq(5),SumFreq,FreqMin,FreqMax,_
      aRit(1),aRit(2),aRit(3),aRit(4),aRit(5),SumRit,RcMin,RcMax,aRitMax(1),aRitMax(2),aRitMax(3),aRitMax(4),aRitMax(5),RstoMin,RstoMax)
      Call AddRigaTabella(atab,RGB(240,240,255))
      ' imposto la formattazione delle celle
      Call SetColoreCella(1,RGB(240,240,240),RGB(128,0,0))
      Call SetColoreCella(2,RGB(255,255,255),RGB(20,68,107))
      For C = 3 To 7
         If atab(C) = atab(9) Then
            Call SetColoreCella(Int(C),RGB(255,213,213),RGB(83,0,0))
         ElseIf atab(C) = atab(10) Then
            Call SetColoreCella(Int(C),RGB(218,250,247),RGB(11,79,72))
         End If
      Next
      Call SetColoreCella(8,vbWhite,RGB(0,100,0))
      Call SetColoreCella(9,vbWhite,RGB(255,0,0))
      Call SetColoreCella(10,vbWhite,RGB(0,73,147))
      For C = 11 To 15
         If atab(C) = atab(17) Then
            Call SetColoreCella(Int(C),RGB(255,213,213),RGB(83,0,0))
         ElseIf atab(C) = atab(18) Then
            Call SetColoreCella(Int(C),RGB(218,250,247),RGB(11,79,72))
         End If
      Next
      Call SetColoreCella(16,vbWhite,RGB(0,100,0))
      Call SetColoreCella(17,vbWhite,RGB(255,0,0))
      Call SetColoreCella(18,vbWhite,RGB(0,73,147))
      For C = 19 To 23
         If atab(C) = atab(24) Then
            Call SetColoreCella(Int(C),RGB(255,213,213),RGB(83,0,0))
         ElseIf atab(C) = atab(25) Then
            Call SetColoreCella(Int(C),RGB(218,250,247),RGB(11,79,72))
         End If
      Next
      Call SetColoreCella(24,vbWhite,RGB(255,0,0))
      Call SetColoreCella(25,vbWhite,RGB(0,73,147))
   Loop
   If ScriptInterrotto Then
      Scrivi "Lo script è stato interrotto"
      Exit Sub
   End If
   ' scrivo i parametri di ricerca
   Dim sRic
   If nClasse = 1 Then sRic = "un Estratto":Else sRic = "una Coppia per estratto"
   Scrivi FormatSpace("  Analisi Ritardi e Frequenze di " & sRic & "  nelle cinque posizioni",158),1,,RGB(240,240,240),RGB(100,100,100)
   Scrivi FormatSpace(" ",158),,,RGB(238,238,239),vbWhite
   Scrivi FormatSpace("  Data inizio Analisi:     " & DataEstrazione(Ini) & "    ( Conc: " & FormatSpace(Ini,5,1) & " )",158),1,,RGB(245,245,247),RGB(100,100,100)
   Scrivi FormatSpace("  Data fine Analisi:       " & DataEstrazione(Fin) & "    ( Conc: " & FormatSpace(Fin,5,1) & " )",158),1,,RGB(246,246,248),RGB(100,100,100)
   Scrivi FormatSpace("  Ruote analizzate:        " & StringaRuote(aRu),158),1,,RGB(247,247,249),RGB(100,100,100)
   Scrivi FormatSpace(" ",158),,,RGB(248,248,250)
   Scrivi
   Scrivi FormatSpace("  Legenda Colori utilizzati  ",158),1,,RGB(0,128,192),RGB(240,250,255)
   Scrivi
   Scrivi "    FreqMin,RitMin,RstoMin   ",1,,RGB(255,213,213),RGB(83,0,0)
   Scrivi
   Scrivi "    FreqMax,RitMax,RstoMax   ",1,,RGB(218,250,247)
      Scrivi
   Call SetTableWidth("1270 pxz")
   Call SetTableHeight("286 pxz")
   Call CreaTabellaOrdinabile()
End Sub

 

[i legend]

Ciao quello che chiedi è un altro .
Modificare un listato ,può portare a comprometterne il corretto funzionamento.
Prova a spiegare cosa ti o corre e fai degli esempi .
In base a quelli si ne prepara uno ad ok.
Ciao.

 

[solare]

Ciao i legend, ti ringrazio della tua risposta, vedo di spiegare cosa vorrei facesse il listato.

Il listato dovrà chiedermi il numero da analizzare, la selezione della ruota 1 o 2 ruote ed inoltre

Quante presenze considerare del numero da me selezionato.

Alla fine dovrà mostrarmi: le cinquine sortite assieme al numero preso in esame, il ritardo attuale, ritardo storico e frequenza per ogni posizione .
L'esempio sotto riportato è relativo alle ultime 15 volte che è sortito il 90 a BA.

Analizzando il numero 90 sulla ruota di Bari:

Ritardo attuale in 1 posizione 76 freq. 2

In 2 posizione 0 freq. 4

In 3 posizione 16 freq. 2

In 4 posizione 63 freq. 3

In 5 posizione 26 Freq. 5

Questo è quanto, se fossi possibile avere anche il rit. Storico sarebbe il top.

Grazie

 

[i legend]

ciao
Ho buttato giu una piccola bozza di script
Non ho capito come devo raggruppare i dati
ti posto un immagine
allora si comincia scegliendo il numero, poi le ruote su cui effettuare l analisi, da 1 a 11 ,e ,infine quante presenze analizzare partendo dall ultima
ecco il riferimento

le ruote devono essere unite o separate? la situazione statistica cambia non poco,ritardi,e,Massimi
questi giorni sono molto stanco perche sto lavorando parecchio ,quindi ci lavorero nei momenti di relax
Non avere fretta per favore
ciao

 

[i legend]

ecco un altra immagine
presenza e frequenza ovviamente sono differenti


sempre controllare se i risultati sono corretti

 

[solare]

No, tranquillo. Fai quando puoi.
Segue immagine relativa alla statistica del listato che ho postato.
Comunque per non crearti perdita di tempo va bene anche analizzare una sola ruota
Inoltre dome visualizzi le X immagino vengano visualizzate le cinquine.

 

[i legend]

Solare essendo un mio listato lo conosco.
La statistica è su ruote unite.
Avevo capito male,pensavo ti interessasse una statistica più particolareggiata, qualcosa di più complesso insomma anche nei report.
Appena possibile ti sposto la modifica.
Ciao

 

[solare]

Ok Grazie infinite

 

[i legend]

Non capisco il senso degli storici se vuoi analizzare solo le ultime 20 -30 uscite
Questo mi aveva messo fuori strada.

 

[i legend]

Di nulla , appena possibile posto.
Ciao

 

[solare]

In pratica quel tuo listato è perfetto
l'unica cosa che a me serviva era non fare la statistica sul periodo dal al
ma la statistica soltanto sulle ultime sortite da me richieste che potrebbero essere ultime 10 sortite 15 ecc, questo dato da poterlo selezionare di volta in volta .

 

[i legend]

Solare dato che si tratta di un estratto non capisco che senso ha verificare le ultime uscite e verificarne gli storici.
Se inserisci ultime 10 presenze è quell estratto ha avuto un iperfrequenza ( 3,4,5 volte) in pochissime estrazioni che statistica ne ricavi?
A mio personalissimo avviso è concettualmente errato.
Mi spiace ,ma non posso fare una cosa che ritengo errata anche se magari per altri è esatta . Lo script originale l ho regalato, se qualcuno volesse modificarlo per accontentarti ,liberissimo di farlo

Mi spiace ma io non posso.
Se hai bisogno di altro chiedi pure ,se sono in grado e condivido l idea sarò felice di aiutarti.
Ciao

 

[solare]

Ok grazie lo stesso

 

[i legend]

Ciao solare
Ho fatto lo script.
Posta alcuni casi che vuoi esaminare
Almeno 5
Esempio :
Numero 1
Ruota/e: ba,ca,fi
Ultimi casi: 20
============
Numero 20
Ruota: no
Ultimi casi 30
Ecco
Casi che puoi verificare
Postero le varie statistiche, se saranno esatte posto lo script
Ciao

 

[solare]

Ciao, vorrei esaminare gli ultimi 15 casi: 50 a Ca , il 10 a Ro/pa, 90 a Pa, 75 a Ba e 41e 50 sempre ba.

 

[i legend]

Ok solare
Comincia ad inserire i tuoi risultati.
Lo script l ho impostato come hai richiesto
Scelgo un numero
Scelgo le ruote
Scelgo quanti casi

Ok. Aspetto e posto anche io.

 

[solare]

Cercherò di riportarti qualche caso ma non di più in quanto a mano si fa molta difficoltà.
tu sicuramente attraverso il listato fai molto prima.
Comunque appena posso inserisco qualche caso.
Poi vedi tu se postarlo o meno.

 

[i legend]

Solare mi serve per confermare o aggiustare lo script

 

[i legend]

ciao Solare se utilizzi questo modulo di spaziometria , puoi trovare l inizio ricerca contando i casi ,e ,con lo script che hai gia ,postare i dati . purtroppo per lo script ho impiegato un po di tempo,e sarebbe carino che anche chi richiede lo script o altri utilizzatori collaborino al risultato finale.
cosi non si dovrebbe impiegare lo stesso tempo di una ricerca visuale
a dopo

 

[solare]

Grazie del tuo interessamento, appena tro un po' di tempo lo farò.