Novità

Richiesta listato

oracolotto

Advanced Member >GOLD<
Chiedo agli esperti scripters del forum se si può avere un listato che, in un arco di ricerca a scelta di estrazioni, calcoli per ogni numero la media dei ritardi delle relative sortite nel periodo, le frequenze nel periodo impostato ed il ritardo attuale.
Grazie a Buon Anno a tutti
Oracolotto
 

oracolotto

Advanced Member >GOLD<
(Untitled)

Buongiorno, neanche una risposta o un commento.Non credevo di aver fatto anche questa volta una richiesta complicata, dovuto sicuramente alla mia ignoranza sui listati.
 

superbone

Super Member >PLATINUM<
ciao Oracolotto,
abbi fede, come avrai notato tutti gli scripter di questa sezione che di solito fanno listati, sono impegnati in questo momento a testare le funzionalità del nuovo programma che LuigiB sta mettendo a punto.
Al momento opportuno vedrai che qualche anima buona esaudirà la tua richiesta
 

oracolotto

Advanced Member >GOLD<
(Untitled)

Grazie superbone per il tuo conforto e devo dire che avevo pensato anch io la stessa cosa.
Rimaniamo allora fiduciosi che, appena possibile, qualche buon intenzionato proverà a fare il listato.
Grazie di nuovo a tutti gli scripters di questo forum ed anche e soprattutto a LuigiB che si adopera tantissimo per noi.
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Oracolotto, non ti dispiacere e non prenderla come fatto personale chi esegue script in questo forum sono davvero pochi e a volte anche la voglia viene a mancare ed il tempo manca per tutti.

In un attimo di buona vena, eccoti lo script per come ho capito la richiesta.

Codice:
Sub Main
 Dim Nu(1),Ru(1),T,V
 est = InputBox("QUANTE ESTRAZIONI CONTROLLO ",,500)
 r = InputBox("Quale RUOTA",,1)
 Ini = EstrazioneFin - est
 fin = EstrazioneFin
 SetColorSezione(6)
 Scrivi "Statistica Numeri Con Elenco Ritardi e RitardoMedio",1,,,1,3,,1
 Scrivi Space(100) & "Script By Mike58",1
 Scrivi "Inizio Ricerca.............. " & GetInfoEstrazione(Ini)
 Scrivi "Fine   Ricerca.............. " & GetInfoEstrazione(fin)
 Scrivi "Totali Estrazioni........... " & est
 EndColorSezione
 T = Array(T,"Ruota","Numeri","Ritardo","Rit Max","Freq","-","Elenco Ritardi","Somma Rit","Ritardo Medio")
 Call InitTabella(T)
 For n = 1 To 90
  Nu(1) = n
  Ru(1) = r
  Call StatisticaFormazioneTurbo(Nu,Ru,1,rit,max,Incr,fre,Ini,fin)
  '---------- elenco ritardi --------------------
  ReDim rp(fre)
  riga = ""
  InizioR = Ini
  fineR = fin
  somrit = 0
  For z = 1 To CInt(fre)
   rp(z) = SerieRitardo(InizioR,fineR,Nu,Ru,1)
   riga = riga & rp(z) & " "
   fineR = fineR -(rp(z) + 1)
   somrit = somrit + rp(z)
   Medrit = Round((somrit/z),2)
  Next
  ' fine calcolo----------------------------------
  V = Array(V,SiglaRuota(r),StringaNumeri(Nu),rit,max,fre,"-",riga,somrit,Medrit)
  AddRigaTabella(V)
  riga = 0
 Next
 CreaTabellaOrdinabile
End Sub
 

oracolotto

Advanced Member >GOLD<
(Untitled)

Ciao Mike58, hai capito benissimo la mia richiesta e ti ringrazio tanto per il tempo dedicatomi e, come dici tu, mancante a tutti.
Lo script và benissimo come tutti i tuoi listati, sperando che possa essere utile anche ad altri.
Un caro saluto
Oracolotto
 

claudio8

Premium Member
Interessante script, sia per l'oggetto che per la bravura di Mike.
Ho notato che sul mio portatile la tabella va oltre lo schermo per cui ho inseriro ,
Codice:
questa riga    Call SetTableWidth("100%")
  prima di     CreaTabellaOrdinabile
saluti
 
Ultima modifica:

oracolotto

Advanced Member >GOLD<
Grazie claudio8 per il tuo commento, fortunatamente a me non dà quel problema.
Riguardo allo script, adesso stà a noi trovare i parametri " giusti " per estrapolare numeri più prossimi all'uscita.
Si accettano ben volentieri suggerimenti da tutti voi.
Grazie e buon week-end.
Oracolotto
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Oracolotto , dici bene poi le idee vanno sviluppate ed ampliate, intanto io ho messo anche i ripetuti a zero ed il trend degli ultimi 10 estratti. e altro.

un saluto a Claudio.

Codice:
Sub Main
 Dim Nu(1),Ru(1),T,V
 est = InputBox("QUANTE ESTRAZIONI CONTROLLO ",,450)
 r = InputBox("Quale RUOTA",,1)
 Ini = EstrazioneFin - est
 fin = EstrazioneFin
 SetColorSezione(6)
 Scrivi "Statistica Numeri Con Elenco Ritardi e RitardoMedio",1,,,1,3,,1
 Scrivi Space(100) & "Script By Mike58",1
 Scrivi "Inizio Ricerca.............. " & GetInfoEstrazione(Ini)
 Scrivi "Fine   Ricerca.............. " & GetInfoEstrazione(fin)
 Scrivi "Totali Estrazioni........... " & est
 EndColorSezione
 T = Array(T,"Ruota","Numeri","Ritardo","Rit Max","Freq","-","Elenco Ritardi","Somma Rit","Ritardo Medio","Ripetuti Zero","Trend10","Sup al ciclo teorico","Inf al ciclo Teorico")
 Call InitTabella(T)
 For n = 1 To 90
  Nu(1) = n
  Ru(1) = r
  Call StatisticaFormazioneTurbo(Nu,Ru,1,rit,max,Incr,fre,Ini,fin)
  '---------- elenco ritardi --------------------
  ReDim rp(fre)
  riga = ""
  InizioR = Ini
  fineR = fin
  somrit = 0
  For z = 1 To CInt(fre)
   rp(z) = SerieRitardo(InizioR,fineR,Nu,Ru,1)
   riga = riga & rp(z) & " "
   fineR = fineR -(rp(z) + 1)
   somrit = somrit + rp(z)
   Medrit = Round((somrit/z),2)
   If rp(z) = 0 Then zz = zz + 1
   If rp(z) > 18 Then zzz = zzz + 1
   If rp(z) =< 18 Then zx = zx + 1
   Med10 = Round (((rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9) + rp(10))/10),2)
  Next
  ' fine calcolo----------------------------------
  V = Array(V,SiglaRuota(r),StringaNumeri(Nu),rit,max,fre,"-",riga,somrit,Medrit,zz,Med10,zzz,zx)
  AddRigaTabella(V)
  riga = 0
  zz = 0
  zzz = 0
zx = 0
 Next
 Call SetTableWidth("100%")
 CreaTabellaOrdinabile
End Sub
 
Ultima modifica:

oracolotto

Advanced Member >GOLD<
Grazie mille Mike58 per la tua aggiunta che dà ulteriori elementi statistici ma il trend degli ultimi 10 estratti, ovviamente, condiziona l'arco di ricerca che non può scendere sotto le 385 estrazioni ( prova fatta solo sulla ruota di BA ) altrimenti dà errore.
Oracolotto
 

Mike58

Advanced Member >PLATINUM PLUS<
Si hai ragione a volte può capitare che nel range usato non ci sono + di 10 frequenze e quindi 10 ritardi e pertanto la media dei 10 elementi da errore in quanto inferiori alle presenze, per questo io avevo optato per un range superiore.

questa è la riga incriminata al massimo prova a togliere il relativo valore esempio rp(10) e dividerlo x 9

Med10 = Round (((rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9) + rp(10))/10),2)


Ciao se ti vengono idee fattibili, ci possiamo provare.
 
Ultima modifica:

oracolotto

Advanced Member >GOLD<
(Untitled)

Grazie ancora Mike58!
Vista la tua esortazione, provo a suggerirti se possibile, se la ricerca, invece che a ruota singola, può essere impostata su n ruote ( basterebbero 2 ruote ) oppure, avere la finestra con l elenco delle ruote e selezionarle manualmente.
 

claudio8

Premium Member
Mike58;n2097259 ha scritto:
Si hai ragione a volte può capitare che nel range usato non ci sono + di 10 frequenze e quindi 10 ritardi e pertanto la media dei 10 elementi da errore in quanto inferiori alle presenze, per questo io avevo optato per un range superiore.

questa è la riga incriminata al massimo prova a togliere il relativo valore esempio rp(10) e dividerlo x 9

Med10 = Round (((rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9) + rp(10))/10),2)


Ciao se ti vengono idee fattibili, ci possiamo provare.

Prova ad inserire gli esiti, forse si stringe un pò il cerchio.
 

Mike58

Advanced Member >PLATINUM PLUS<
oracolotto;n2097270 ha scritto:
Grazie ancora Mike58!
Vista la tua esortazione, provo a suggerirti se possibile, se la ricerca, invece che a ruota singola, può essere impostata su n ruote ( basterebbero 2 ruote ) oppure, avere la finestra con l elenco delle ruote e selezionarle manualmente.

Ciao Oracolotto, Si la finestra di scelta ruote è possibile, ma poi se si sceglie un range elevato anche i ritardi in elenco sono tanti ed, il codice per sringare il tutto in una schermata non basta, pena l'allungamento della schermata.

Poi ho remmato il med10 in modo da riattivarlo quando le frequenze sono superiori o uguali i a 10

Per Claudio non so se intenti la visualizzazione delle ruote, ma mettiamo anche quello così come la vedo io.

Per il resto tutto sta al vostro utilizzo e scopo.

ciao

Codice:
Sub Main
 Dim Nu(1),T,V
 est = InputBox("QUANTE ESTRAZIONI CONTROLLO ",,270)
 'r = InputBox("Quale RUOTA",,1)
 Ini = EstrazioneFin - est
 fin = EstrazioneFin
    ReDim RU(0)
 ScegliRuote(RU)
 k = UBound(RU)
 SetColorSezione(6)
 Scrivi "Statistica Numeri Con Elenco Ritardi e RitardoMedio",1,,,1,3,,1
 Scrivi Space(100) & "Script By Mike58",1
 Scrivi "Inizio Ricerca.............. " & GetInfoEstrazione(Ini)
 Scrivi "Fine   Ricerca.............. " & GetInfoEstrazione(fin)
 Scrivi "Totali Estrazioni........... " & est
 EndColorSezione
 T = Array(T,"Ruota","Numeri","Ritardo","Rit Max","Freq","esito Ru","Elenco Ritardi","Somma Rit","Ritardo Medio","Ripetuti Zero","T10","Sup al ciclo teorico","Inf al ciclo Teorico")
 Call InitTabella(T)
 For n = 1 To 90
  Nu(1) = n
  'RU(1) = r
  Call StatisticaFormazioneTurbo(Nu,RU,1,rit,max,Incr,fre,Ini,fin)
  Call VerificaEsito(Nu,RU,fin-rit,1,,,,,es1)
  '---------- elenco ritardi --------------------
  ReDim rp(fre)
  riga = ""
  InizioR = Ini
  fineR = fin
  somrit = 0
  For z = 1 To CInt(fre)
   rp(z) = SerieRitardo(InizioR,fineR,Nu,RU,1)
   riga = riga & rp(z) & " "
   fineR = fineR -(rp(z) + 1)
   somrit = somrit + rp(z)
   Medrit = Round((somrit/z),2)
   If rp(z) = 0 Then zz = zz + 1
   If rp(z) > (18/k) Then zzz = zzz + 1
   If rp(z) =< (18/k) Then zx = zx + 1
   'Med10 = Round (((rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9) + rp(10))/10),2)
  Next
  ' fine calcolo----------------------------------
  V = Array(V,StringaRuote(RU),StringaNumeri(Nu),rit,max,fre,es1,riga,somrit,Medrit,zz,Med10,zzz,zx)
  AddRigaTabella(V)
  riga = 0
  zz = 0
  zzz = 0
zx = 0
 Next
 Call SetTableWidth("100%")
 CreaTabellaOrdinabile
End Sub
 

vincenzo4221

Advanced Member >PLATINUM<
Bravissimi tutti e grazie di cuore a Mike per lo script , vorrei cercare di dare una mano e sopratutto mi si è innescata la curiosità e la voglia di poter ancora migliorare i dati che questo meraviglia di script ci dà , quindi ho pensato che forse ci potrebbe ancor di più essere utile ai nostri fini ottenere i risultati attraverso un diverso punto di vista, mi spiego meglio , secondo me e qui inizia la mia richiesta..se noi avessimo la possibilità di poter chiedere i dati non attraverso un range di estrazioni.. ma lo script ci dovrebbe chiedere i dati attraverso una determinazione di due punti 1- che numero di estrazioni vogliamo sia formato un ciclo, 2-e sopratutto di quanti cicli vogliamo elaborare , ottenendo quindi i risultati in base a questi presupposti con base ciclica .. che ne dite? quindi la colonna "elenco ritardi" sarà determinata dai dati di imput immessi , e saranno fissi per tutti i numeri...

Ottima la possibilità di poter analizzare anche più ruote insieme...come fatto nell'ultimo script..

Poi , inoltre se vogliamo ancora di più ..mi è appena venuta un'altra piccola idea .. ma andiamo con ordine..una cosa alla volta..
...forza ragazzi insieme è meglio...
 
Ultima modifica:

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Vincenzo, ti ringrazio per l'apprezzamento dello script, e se ci sono dei punti che possono venire utile allo scopo originario ben vengano sempre che questi siano fattibili e attinenti allo script in origine.

A volte sembra facile ma agire su uno script che segue un suo iter o percorso e poi farlo lavorare in altro senso risulta complicato.

Questo script è costruito con un suo scopo vedere i vari ritardi in un arco di estrazioni e valutarne la media degli stessi.

Lo scopo gira attorno a questo dato.

Poi invece quello che tu chiedi agirebbe sulle frequenze (così mi sembra di capire ) ed uno script del genere Già ho avuto forse occasione di presentarlo.

Te lo posto tanto può essere usato come completamento dell'altro.


Codice:
Sub Main
Dim Nu(1),Ru(1),T,V,nCicli,Qcicli
nCicli = 10
Qcicli = 90
r = InputBox("Quale ruota analizzo",,1)
Ini =(EstrazioneFin -(nCicli * Qcicli)) + 1
fin = EstrazioneFin
Tot = fin - Ini + 1
Scrivi "*** Numeri In Frequenza ciclica **** Script & Project By Mike58  *** Forum LottoCed *** ",1,,,1,3,,1
Scrivi
ReDim T(23)'....................................................
T(1) = "Ruota"
T(2) = "Numero"
For x = 3 To 12
T(x) = "C" & x - 2
Next
'T(13) = " Totali "
T(14) = " Tot.Freq "
T(15) = " Ritardo "
T(16) = " RitMax "
For xx = 17 To 21
T(xx) = "C" & xx - 16
Next
T(22) = " Med Freq "
T(23) = " I.C "
Call InitTabella(T)
For y = 1 To 90
Nu(1) = y
Ru(1) = r
ReDim V(23)'...................................................
V(1) = SiglaRuota(Ru(1))
V(2) = StringaNumeri(Nu)
For es = Ini To fin Step Qcicli
k = k + 1
Call StatisticaFormazione(Nu,Ru,1,rit,max,Incr,fre,es,es +(Qcicli - 1))

ReDim Preserve freq(k)
freq(k) = fre
som = som + freq(k)
Next
For x = 3 To 12
V(x) = freq(x - 2)
Next
'V(13) = som
Call StatisticaFormazioneTurbo(Nu,Ru,1,rit1,max1,Incr1,fre1,Ini,fin)
ic = Round((fre1/Tot*rit1),2)
V(14) = fre1
V(15) = rit1
V(16) = max1
Inix =(EstrazioneFin -(5 * 18)) + 1
finx = EstrazioneFin
For ess = Inix To finx Step 18
kk = kk + 1
Call StatisticaFormazione(Nu,Ru,1,rit2,max2,Incr2,fre2,ess,ess + 17)
ReDim Preserve freq18(kk)
freq18(kk) = fre2
Next
For xx = 1 To 5
V(xx + 16) = freq18(xx)
Next
V(22) = Round((900/fre1),2)
V(23) = ic
Call AddRigaTabella(V)
k = 0
som = 0
kk = 0
Next
CreaTabellaOrdinabile(12)
End Sub
 

oracolotto

Advanced Member >GOLD<
Mike58;n2097343 ha scritto:
Ciao Oracolotto, Si la finestra di scelta ruote è possibile, ma poi se si sceglie un range elevato anche i ritardi in elenco sono tanti ed, il codice per sringare il tutto in una schermata non basta, pena l'allungamento della schermata.

Poi ho remmato il med10 in modo da riattivarlo quando le frequenze sono superiori o uguali i a 10

Per Claudio non so se intenti la visualizzazione delle ruote, ma mettiamo anche quello così come la vedo io.

Per il resto tutto sta al vostro utilizzo e scopo.

ciao

Codice:
Sub Main
Dim Nu(1),T,V
est = InputBox("QUANTE ESTRAZIONI CONTROLLO ",,270)
'r = InputBox("Quale RUOTA",,1)
Ini = EstrazioneFin - est
fin = EstrazioneFin
ReDim RU(0)
ScegliRuote(RU)
k = UBound(RU)
SetColorSezione(6)
Scrivi "Statistica Numeri Con Elenco Ritardi e RitardoMedio",1,,,1,3,,1
Scrivi Space(100) & "Script By Mike58",1
Scrivi "Inizio Ricerca.............. " & GetInfoEstrazione(Ini)
Scrivi "Fine Ricerca.............. " & GetInfoEstrazione(fin)
Scrivi "Totali Estrazioni........... " & est
EndColorSezione
T = Array(T,"Ruota","Numeri","Ritardo","Rit Max","Freq","esito Ru","Elenco Ritardi","Somma Rit","Ritardo Medio","Ripetuti Zero","T10","Sup al ciclo teorico","Inf al ciclo Teorico")
Call InitTabella(T)
For n = 1 To 90
Nu(1) = n
'RU(1) = r
Call StatisticaFormazioneTurbo(Nu,RU,1,rit,max,Incr,fre,Ini,fin)
Call VerificaEsito(Nu,RU,fin-rit,1,,,,,es1)
'---------- elenco ritardi --------------------
ReDim rp(fre)
riga = ""
InizioR = Ini
fineR = fin
somrit = 0
For z = 1 To CInt(fre)
rp(z) = SerieRitardo(InizioR,fineR,Nu,RU,1)
riga = riga & rp(z) & " "
fineR = fineR -(rp(z) + 1)
somrit = somrit + rp(z)
Medrit = Round((somrit/z),2)
If rp(z) = 0 Then zz = zz + 1
If rp(z) > (18/k) Then zzz = zzz + 1
If rp(z) =< (18/k) Then zx = zx + 1
'Med10 = Round (((rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9) + rp(10))/10),2)
Next
' fine calcolo----------------------------------
V = Array(V,StringaRuote(RU),StringaNumeri(Nu),rit,max,fre,es1,riga,somrit,Medrit,zz,Med10,zzz,zx)
AddRigaTabella(V)
riga = 0
zz = 0
zzz = 0
zx = 0
Next
Call SetTableWidth("100%")
CreaTabellaOrdinabile
End Sub


Grazie Mike58 per la tua bravura e disponibilità.
Per il momento mi diverto a lavorare con questo in attesa di qualche altra idea.
Saluti
Oracolotto
 

Mike58

Advanced Member >PLATINUM PLUS<
Rossonero, a quale listato ti riferisci quello dei ritardi o quello dei cicli, si potrebbe fare ma comincieremo a pasticciarlo.


NeroAzzurro

se ti riferisci a quelo dei ritardi metti dopo addrigatabella, queste righe

Codice:
AddRigaTabella(V)
  For xx = 2 To 4
   If rit = max Then Call SetColoreCella((xx),3,1)
     Next
 
Ultima modifica:

claudio8

Premium Member
Mike58;n2097343 ha scritto:
Per Claudio non so se intenti la visualizzazione delle ruote, ma mettiamo anche quello così come la vedo io.

ciao

Ciao Mike, intendevo solo inserire l'esito per ogni numero, relativamente alla ruota in cui si fa la ricerca.

Codice:
Sub Main
    Dim Nu(1),Ru(1),T,V,retcolpi,clp
    est = InputBox("QUANTE ESTRAZIONI CONTROLLO ",,200)
    r = InputBox("Quale RUOTA",,1)
    Ini = EstrazioneFin - est
    fin = EstrazioneFin
    SetColorSezione(6)
    Scrivi "Statistica Numeri Con Elenco Ritardi e RitardoMedio",1,,,1,3,,1
    Scrivi Space(100) & "Script By Mike58",1
    Scrivi "Inizio Ricerca.............. " & GetInfoEstrazione(Ini)
    Scrivi "Fine   Ricerca.............. " & GetInfoEstrazione(fin) & " - " & SiglaRuota(r) & " - " & StringaEstratti(fin,r)
    Scrivi "Totali Estrazioni........... " & est
    EndColorSezione
    T = Array(T,"Ruota","Num.","Rit Att","Rit Max","Freq","ClpEsito","Elenco Ritardi","Somma Rit","Rit Medio")
    Call InitTabella(T)
    For n = 1 To 90
        Nu(1) = n
        Ru(1) = r
        Call StatisticaFormazioneTurbo(Nu,Ru,1,rit,max,Incr,fre,Ini,fin)
        If VerificaEsitoTurbo (Nu,Ru,fin + 1,1,EstrazioniArchivio - fin,,,retcolpi) Then
            clp = retcolpi &"°"
        Else
            clp = " ???° "
        End If
        '---------- elenco ritardi --------------------
        ReDim rp(fre)
        riga = ""
        InizioR = Ini
        fineR = fin
        somrit = 0
        co = 0
        For z = 1 To CInt(fre)
            rp(z) = SerieRitardo(InizioR,fineR,Nu,Ru,1)
            co = co + 1
            riga = riga & rp(z) & " "
            fineR = fineR -(rp(z) + 1)
            somrit = somrit + rp(z)
            Medrit = Round((somrit/z),2)
        Next
        ' fine calcolo----------------------------------
        V = Array(V,SiglaRuota(r),StringaNumeri(Nu),rit,max,fre,clp,riga,somrit,Medrit)
        'Call AddRigaTabella(V,,,1,,"Calibri")
        AddRigaTabella(V)
        For xx = 2 To 4
           If rit = max Then Call SetColoreCella((xx),3,1)
        Next
        riga = 0
    Next
    Call SetTableWidth("100%")
    CreaTabellaOrdinabile
End Sub

Ps: controllare sempre che i dati siano esatti.
 
Ultima modifica:

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
Alto