Novità

Per Ilegend o chi è capace

solare

Advanced Member >PLATINUM<
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
Codice:
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

Premium Member
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

Advanced Member >PLATINUM<
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

Premium Member
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
prova1.png
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

Premium Member
ecco un altra immagine
presenza e frequenza ovviamente sono differenti

prova2.png
sempre controllare se i risultati sono corretti :)
 

solare

Advanced Member >PLATINUM<
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.

1583431221802.png
 

i legend

Premium Member
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
 

i legend

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

solare

Advanced Member >PLATINUM<
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

Premium Member
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 :)
 

i legend

Premium Member
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

Advanced Member >PLATINUM<
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

Premium Member
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

Advanced Member >PLATINUM<
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

Premium Member
provaSolare.png
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 :)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto