Novità

UNA RICERCA CHE POTREBBE APRIRE NUOVI ORIZZONTI!!!

R

rob

Advanced Member >PLATINUM<
CIAO RAGA'...MI PIACEREBBE MOLTO SE QUALCHE SCRIPTER VOLENTEROSO REALIZZASSE UNO SCRIPT CHE PERMETTA DI STABILIRE UN CERTO NUMERO DI ESTRAZIONI RETROATTIVE E CHE POI FACCIA UN'ANALISI DI TUTTE LE CINQUINE SORTITE CALCOLANDO IL RITARDO CRONOLOGICO (DI OGNI SINGOLO NUMERO CHE FORMA LA CINQUINA IN ESAME) POI PER FARE UN BEL LAVORO CI VORREBBE UNA TABELLA RIASSUNTIVA CHE INDICHI PER OGNI RITARDO LA RELATIVA FREQUENZA E IL RELATIVO RITARDO--->ES. IL RITARDO 23 E' USCITO 24 VOLTE ED HA UN RITARDO DI 51 ESTRAZIONI</u> E VIA DICENDO!!-MA A COSA SERVIREBBE TUTTO CIO'??-SICURAMENTE E' UNA NUOVA ED INEDITA RICERCA STATISTICA UTILE AD ANALIZZARE E STUDIARE COME SI FORMANO LE CINQUINE DA QUALI RITARDI SPECIFICI SONO FORMATE!!-SE C'E' QUALCUNO CHE VOGLIA REALIZZARLO LO RINGRAZIO IN ANTICIPO!!-GRAZIE ROB
 
A

Atlantis57

Super Member >PLATINUM<
Qualcosa di simile ?
Ruota di Napoli,

Tabellone analitici
estratti,ritardi e ritardi dei ritardi

rit2r.jpg
 
R

rob

Advanced Member >PLATINUM<
CIAO ATLANTIS,NON RIESCO A CAPIRE COME SI LEGGONO LE TUE TRE TABELLE,QUINDI NON SAPREI DIRTI!!-QUESTE TUE TABELLE FANNO PARTE DI UN SOFTWARE??-COMUNQUE PER SPIEGARMI MEGLIO TI FACCIO UN ESEMPIO CON LA CINQUINA USCITA STASERA A BARI (GLI ALTRI VALORI SONO INVENTATI)

BARI-CINQUINA---------11-42-63-23-38
RIT.----------------------04-33-97-05-09
RIT.DEL RIT-------------27-44-16-78-04
FREQ.DEL RIT----------40-39-88-55-31

SALUTI ROB :)
 
A

Atlantis57

Super Member >PLATINUM<
Più o meno è la stessa cosa.
solo che nelle mie tabelle ho un passaggio in più,
i dati sono stati trasformati in tabelle analitiche,
manca solo la frequenza.
una cosa non ho capito la frequenza del ritardo a quale è riferito?
vedi ultima estrazione del 22/11/2011
Ruota di Bari,
estrazione reale,ritardi,ritardi dei ritardi

barird.jpg
 
R

rob

Advanced Member >PLATINUM<
I NUMERI ROSSI E BLU' NON HO CAPITO COSA INDICANO!!-CIO' CHE INTENDO IO E' IMPORTANTE VISUALIZZARE LA CINQUINA E POI IN BASSO ALLA CINQUINA STESSA VISUALIZZARE LE STATISTICHE;COME L'ESEMPIO CHE TI HO FATTO SOPRA!!-PER QUANTO RIGUARDA LA FREQUENZA DEL RITARDO VUOL DIRE AD ES. IL RIT.37 QUANTE VOLTE E' USCITO NEL PERIODO IMPOSTATO??-ROB
 
R

rob

Advanced Member >PLATINUM<
RAGA',NON C'E' PROPRIO NESSUNO CHE VOGLIA FARE QUESTO SCRIPT??-ANDREBBE BENE ANCHE SE IL "REPORT" DAREBBE UNA STATISTICA COME QUESTA (VEDI IN BASSO) PERO' CHE VISUALIZZASSE NON SOLO BARI MA TUTTE E 10 LE RUOTE SIMULTANEAMENTE!!


BARI-CINQUINA---------11-42-63-23-38
RIT.----------------------04-33-97-05-09
RIT.DEL RIT-------------27-44-16-78-04
FREQ.DEL RIT----------40-39-88-55-31

SALUTI ROB :)
 
L

LuigiB

Guest
Ciao Analizza massimo 50 estr per volta senno oltre ad essere lento potrebbe dare errore

Codice: 
-
 
R

rob

Advanced Member >PLATINUM<
GRAZIE LUIGI,SEI UN GRANDE!!-ADESSO LO PROVO E POI TI FACCIO SAPERE!!-GRAZIE ANCORA!!-ROB
 
R

rob

Advanced Member >PLATINUM<
CIAO LUIGI,HO PROVATO LO SCRIPT PERO' VERSO LA FINE DELL'ELABORAZIONE (CIRCA 8-9 MINUTI) LO SCRIPT SI BLOCCA E NON MI DA ALCUN REPORT!!-SBAGLIO QUALCOSA??-IO HO FATTO IL COPIA E INCOLLA DIRETTAMENTE DAL TUO POST E L'HO INSERITO SU "SPAZIOMETRIA" EVENTUALMENTE LO PUOI RIVEDERE??-GRAZIE 1000

ROB
 
L

LuigiB

Guest
come ti avevo spiegato devi analizzare un range molto piccolo di estrazioni massimo una trentina o una cinquantina ...
 
R

rob

Advanced Member >PLATINUM<
OK,PERO' NON SO IN CHE RIGA SI IMPOSTANO QUESTI VALORI;SE ME LO PUOI INDICARE...TI RINGRAZIO COMUNQUE!!-ROB
 
B

Baffoblu

Guest
quote:Originally posted by rob

OK,PERO' NON SO IN CHE RIGA SI IMPOSTANO QUESTI VALORI;SE ME LO PUOI INDICARE...TI RINGRAZIO COMUNQUE!!-ROB
Clicca per espandere...

ciao rob

Vedi quel -200 nella riga centrale ?

-------------------------------------------------------------------

Call Messaggio("Calcolo tabella ritardi")
PrimaEstr = Inizio - 200
If PrimaEstr < 0 Then PrimaEstr = 1
-------------------------------------------------------

Bene cercala e cambia il numero in -50 o quello che preferisci.

;)
 
rudivall

rudivall

Advanced Member >PLATINUM<
Ciao Rob, dò una mano a Luigi, è la riga rossa

Codice: 
Option Explicit
Dim aEstrRit()
Dim aColori()
Sub Main
	Dim Inizio,Fine
	Dim r,k,e
	Dim RitDelRit,FreqDelRit
	Dim PrimaEstr
	Dim nCol
	Dim aR(1)
	Dim aN(1)
	Inizio = EstrazioneIni
	Fine = EstrazioneFin
	ReDim aEstrRit(EstrazioniArchivio,11,5)
	Call InitAlimentaTabella
	ReDim FreqDelRit(11,250)
	Call Messaggio("Calcolo tabella ritardi")
	PrimaEstr = Inizio - 200	
        If PrimaEstr < 0 Then PrimaEstr = 1
	For k = PrimaEstr To Inizio - 1
		For r = 1 To 11
			aR(1) = r
			For e = 1 To 5
				aN(1) = Estratto(k,r,e)
				aEstrRit(k,r,e) = RitardoCombinazione(aR,aN,1,k - 1)
				
				If aEstrRit(k,r,e) > 250 Then aEstrRit(k,r,e) = 250
				FreqDelRit(r,aEstrRit(k,r,e)) = FreqDelRit(r,aEstrRit(k,r,e)) + 1
			Next
		Next
		Call AvanzamentoElab(1,Inizio - 1,k)
		If ScriptInterrotto Then Exit Sub
	Next
	Call Messaggio("Analisi range in corso...")
	For k = Inizio To Fine
		ReDim aRigaNumeri(57)
		ReDim aRigaRitardi(57)
		ReDim aRigaRitardiDei(57)
		ReDim aRigaFrequenzaDei(57)
		aRigaNumeri(1) = DataEstrazione(k)
		aRigaNumeri(2) = k
		aRigaRitardi(1) = "Rit"
		aRigaRitardiDei(1) = "RitDeiRit"
		aRigaFrequenzaDei(1) = "FrqRit"
		nCol = 2
		For r = 1 To 11
			aR(1) = r
			For e = 1 To 5
				nCol = nCol + 1
				aN(1) = Estratto(k,r,e)
				aEstrRit(k,r,e) = RitardoCombinazione(aR,aN,1,k - 1)
				RitDelRit = GetRitardoDelRitardo(aEstrRit(k,r,e),k - 1,r)
				If aEstrRit(k,r,e) > 250 Then aEstrRit(k,r,e) = 250
				FreqDelRit(r,aEstrRit(k,r,e)) = FreqDelRit(r,aEstrRit(k,r,e)) + 1
				aRigaNumeri(nCol) = aN(1)
				aRigaRitardi(nCol) = aEstrRit(k,r,e)
				aRigaRitardiDei(nCol) = RitDelRit
				aRigaFrequenzaDei(nCol) = FreqDelRit(r,aEstrRit(k,r,e))
			Next
		Next
		Call AddRigaTabella(aRigaNumeri,aColori,,,,"Courier New")
		Call AddRigaTabella(aRigaRitardi,aColori,,,,"Courier New")
		Call AddRigaTabella(aRigaRitardiDei,aColori,,,,"Courier New")
		Call AddRigaTabella(aRigaFrequenzaDei,aColori,,,,"Courier New")
		Call AvanzamentoElab(Inizio,Fine,k)
		If ScriptInterrotto Then Exit Sub
	Next
	Call CreaTabella
End Sub
Sub InitAlimentaTabella()
	Dim k,i,r
	ReDim aTitoli(57)
	ReDim aRiga(57)
	ReDim aColori(57)
	aTitoli(1) = "DataEstr "
	aTitoli(2) = "IdEstr "
	aRiga(1) = "DataEstr   "
	aRiga(2) = "IdEstr   "
	aColori(1) = vbMagenta
	aColori(2) = vbMagenta
	i = 2
	Do While i < 57
		r = r + 1
		For k = 1 To 5
			i = i + 1
			If k = 3 Then
				aTitoli(i) = SiglaRuota(r) & " "
			Else
				aTitoli(i) = "---"
			End If
			aRiga(i) = k & "°  "
			If r Mod 2 = 0 Then
				aColori(i) = vbYellow
			Else
				aColori(i) = vbCyan
			End If
		Next
	Loop
	Call InitTabella(aTitoli,aColori,,,,"Courier New")
	Call AddRigaTabella(aRiga,aColori,,,,"Courier New")
End Sub
Function GetRitardoDelRitardo(RitDaEsaminare,IdEstr,ruota)
	Dim k,e,b
	Dim RitDelRit
	RitDelRit = 0
	For k = IdEstr To 1 Step - 1
		For e = 1 To 5
			If aEstrRit(k,ruota,e) = RitDaEsaminare Then
				b = True
				Exit For
			End If
			
		Next
		
		If b Then Exit For
		RitDelRit = RitDelRit + 1
	Next
	GetRitardoDelRitardo = RitDelRit
End Function

rodolfo
 
R

rob

Advanced Member >PLATINUM<
HO FATTO ESATTAMENTE COME MI HAI SUGGERITO PERO' PURTROPPO SI INTERROMPE E MI DA QUESTO ERRORE!!

2jbk0pl.jpg
 
L

LuigiB

Guest
ciao , mi sa allora che c'è qualche altro problema tipo con il copia e incolla dello script.
Io l'ho copiato ora e reincollato nel programma , ho analizzato le ultime 30 estrazioni e gira normalemente.
Verifica che tu abbia copiato tutto lo script ... non solo a partire da Sub Main
 
bigalbe

bigalbe

Super Member >PLATINUM<
A me da sempre questo errore a prescindere dal range impostato (anche 5 estrazioni).

A fine elaborazione appare questa box:

clsTableHtmLd.CreaTabella
13 - Type mismatch

se poi clicco su OK appare la schermata dell'output vuota.

:(

Versione di Spaziometria installata 1.3.9

bigalbe
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 maggio 2024
    Bari
    77
    62
    67
    60
    04
    Cagliari
    89
    01
    35
    54
    38
    Firenze
    84
    58
    25
    64
    57
    Genova
    53
    25
    66
    59
    23
    Milano
    22
    75
    48
    16
    77
    Napoli
    81
    41
    42
    67
    39
    Palermo
    19
    63
    57
    43
    05
    Roma
    04
    35
    50
    33
    23
    Torino
    56
    20
    46
    14
    88
    Venezia
    78
    81
    42
    74
    36
    Nazionale
    42
    83
    59
    86
    34
    Estrazione Simbolotto
    Milano
    41
    29
    01
    27
    30
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto