Novità

Per chi puo'

Ciao Rabberto,

Buon-Giorno a tutti.

Come hai notato ed evidenziato giustamente, l'interfaccia-grafica-utente (GUI), che hai proposto,

è una tra le più belle, eleganti e ... "originalmente complete".

E' tra le migliori, realizzate a corredo di questo o di quel programma perchè,

contiene una sintesi dei fondamentali a cui a cui il "ritardista",

attinge, per poter radicare e motivare i propri riferimenti.

Quello che mi stupisce, un pò, è come la tua giusta curiosità

non si trasformi nello stimolo per "farti" quello di cui hai "bisogno".

Specie ora, che sai, cosa ti "serve" e ne hai riportato un esempio.

Così, a dimostrare che quanto da te richiesto,

è facile da ottenere ... anche, e non solo con Spaziometria ...

questo è quanto calcola un piccolo script, ancora incompleto,

che ho redatto, questa mattina, in una decina di minuti.
Codice:
Estratto: 22
Ru Rit Sto Fre
BA 5 98 499 
CA 5 164 251 
FI 14 97 479 
GE 8 85 299 
MI 9 143 459 
NA 5 109 456 
PA 6 118 441 
RM 17 117 472 
TO 12 96 430 
VE 13 101 492 
NZ 9 177 61
:)

Ogni estrazione è unica ed irripetibile. (Joe91)
 
Ciao Joe91 grazie per la dritta , io non sono capace di fa re script , ma tu potresti per favore postare quello che hai ancora incompleto , a ma interessa che mi chieda la data di inizio , la data di fine , la sorte : mi faccia inserire il numero o i numeri per estratto , ambo o terno , e mi calcoli ritardo , storico e frequenza , ti ringrazio , ciao .
 
Ciao Rabberto,

Buon Giorno a Tutti.

Lo script che presenterò elabora la stragrande maggioranza ...

delle tue richieste ... e di quanto hai postato nell' imagine-campione.

Per la scelta del "periodo" utilizzo la lettura dei limitatori

delle dimensioni dell'archivio ... cosicchè dosando,

Inizio, Fine, Numero di Estrazioni considerate,

potrai eseguire TUTTE le ricerche possibili ed immaginabili.

In pratica volendo analizzare 800 estrazioni tra il 2002 ed il 2003 ...

... trascinando i limiti inferiori e maggiori, usando le freccie ...

si IMPOSTA il PERIODO ATTIVO e poi si esegue lo script,

che, in rendiconto finale, riporterà di aver appreso questi valori.

intervallo.jpg]


Poi ho limitato l'analisi ad Estratto / Ambo / Terno ...

ritenendo che per quaterna e cinquina ... i valori di Ritardo / Storico

fossero poco significativi, rispetto all'enorme tempo per doverli calcolare ...

specie se e quando si inserisce un notevole numero-di-numeri.

In ultimo, ma NON MENO IMPORTANTE, Spaziometria considera il ritardo storico ...

uguale al massimo ritardo conosciuto senza considerare se esso ...

si è "fermato" con la caduta della formazione considerata o è

"attuale" / "in corso" ... quindi per evidenziare questa "anomalia"

... sto considerando, una ulteriore colonna nella quale è indicato ...

il superamento del valore storico precedente.

Al riguardo considero di rivedere quanto si era concordato con Luigi.

all indirizzo http://forum.lottoced.com/topic.asp?TOPIC_ID=133161

:) ... a presto.


Ogni estrazione è unica ed irripetibile. (Joe91)
 
Codice:
'Ritardo Corrente / Storico e Frequenza V.3.0. 
'Scritto da Joe91 su richiesta di Rabberto
'http://forum.lottoced.com/topic.asp?whichpage=0.96&TOPIC_ID=139389#1096695 


Sub Main()
Dim Ini, Fin, Nu(3), Ru(1)

Ini = EstrazioneIni : Fin = EstrazioneFin
F = InputBox("... separati da un punto.","Inserisci -N- Numeri ...","12.34.45.54.43.21")
Sc = Split("0." & F,".") : UB = UBound(Sc)

Scrivi "Numeri : " & StringaNumeri(Sc),1 : Scrivi

For P1 = 1 To Ub
Nu(1) = CInt(Sc(P1))
Scrivi String(27,"="),1
Messaggio("Estratto :" & StringaNumeri(Nu))
Scrivi "Estratto: " & Nu(1),1
Scrivi
Scrivi "RU   Rit   Sto   Fre   OlS",1,1
For R = 1 To 12
Ru(1) = R : Scrivi SiglaRuota(R) & " ",1,0
SR = SerieRitardo(Ini,Fin,Nu,Ru,1)
Scrivi FormatSpace(SR,5,1) & " ",0,0
SS = SerieStorico(Ini,Fin,Nu,Ru,1)
Scrivi FormatSpace(SS,5,1) & " ",0,0
SF = SerieFreq(Ini,Fin,Nu,Ru,1)
Scrivi FormatSpace(SF,5,1) & " ",0,0
OlS = EstrattoIncrStorico (R,CInt(Sc(P1)),Ini,Fin)
Scrivi FormatSpace(OLS,5,1) & " "
Next
Scrivi
Next

If Ub >= 2 Then
For P1 = 1 To Ub - 1
For P2 = P1 + 1 To Ub
Nu(1) = CInt(Sc(P1)) : Nu(2) = CInt(Sc(P2))
Scrivi String(27,"="),1
Scrivi "Ambo: " & StringaNumeri(Nu),1
Messaggio("Ambo :" & StringaNumeri(Nu))
Scrivi
Scrivi "RU   Rit   Sto   Fre   OlS",1,1
For R = 1 To 12
Ru(1) = R : Scrivi SiglaRuota(R) & " ",1,0
SR = SerieRitardo(Ini,Fin,Nu,Ru,2)
Scrivi FormatSpace(SR,5,1) & " ",0,0
SS = SerieStorico(Ini,Fin,Nu,Ru,2)
Scrivi FormatSpace(SS,5,1) & " ",0,0
SF = SerieFreq(Ini,Fin,Nu,Ru,2)
Scrivi FormatSpace(SF,5,1) & " ",0,0
OlS = AmboIncrStorico  (R,CInt(Sc(P1)),CInt(Sc(P2)),Ini,Fin)
Scrivi FormatSpace(OLS,5,1) & " "
Next
Scrivi
Next
Next
End If

If Ub >= 3 Then
For P1 = 1 To Ub - 2
For P2 = p1 + 1 To Ub - 1
For P3 = p2 + 1 To Ub
Nu(1) = CInt(Sc(P1)) : Nu(2) = CInt(Sc(P2)): Nu(3) = CInt(Sc(P3))
Scrivi String(27,"="),1
Scrivi "Terno: " & StringaNumeri(Nu),1
Messaggio("Terno :" & StringaNumeri(Nu))
Scrivi
Scrivi "RU   Rit   Sto   Fre",1,1
For R = 1 To 12
Ru(1) = R : Scrivi SiglaRuota(R) & " ",1,0
SR = SerieRitardo(Ini,Fin,Nu,Ru,3)
Scrivi FormatSpace(SR,5,1) & " ",0,0
SS = SerieStorico(Ini,Fin,Nu,Ru,3)
Scrivi FormatSpace(SS,5,1) & " ",0,0
SF = SerieFreq(Ini,Fin,Nu,Ru,3)
Scrivi FormatSpace(SF,5,1) & " " 
Next
Scrivi
Next
Next
Next
End If
Scrivi String(20,"="),1,0
ColoreTesto 1 : Scrivi " By Joe ",1 : ColoreTesto 0
Scrivi "Dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1
Scrivi String(28,"="),1

End Sub

:)

Ogni estrazione è unica ed irripetibile. (Joe91)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 17 ottobre 2025
    Bari
    43
    65
    36
    52
    54
    Cagliari
    63
    89
    22
    85
    45
    Firenze
    59
    17
    66
    88
    78
    Genova
    75
    67
    42
    78
    77
    Milano
    12
    21
    87
    66
    31
    Napoli
    38
    75
    61
    68
    76
    Palermo
    42
    90
    20
    33
    71
    Roma
    57
    13
    80
    84
    79
    Torino
    59
    54
    84
    48
    26
    Venezia
    77
    05
    14
    28
    20
    Nazionale
    05
    04
    10
    43
    68
    Estrazione Simbolotto
    42
    38
    16
    25
    34
Indietro
Alto