Per chi puo'

[Baffoblu]

 

[Joe91]

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.

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)

 

[rabberto]

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 .

 

[Joe91]

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.

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)

 

[rabberto]

Ciao Joe91 io ti ringrazio anticipatamente , e aspetto il tuo listato .
Grazie , ciao .

 

[Joe91]

'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)

 

[rabberto]

Grazie Joe91 lo script e perfetto , e proprio quello che volevo , sei stato fantastico , di nuovo grazie , ciao.