Domanda su script Spaziometria

[vinci]

Una domanda per tutti gli esperti di script su Spaziometria:
esiste la possibilità per i metodi calcolati all'ultima estrazione
del mese potere fare il calcolo subito per permettere di giocare
fino dalla estrazione successiva che è la prima del mese?
Ho notato facendo girare i vari metodi calcolati all'ultima
del mese fino che non viene aggiornato l'archivio con la prima
del mese successivo non fa i calcoli.
Non so se è solo un problema mio e se si può risolvere.
Anticipatamente ringrazio e saluto




Vinci

 

[LuigiB]

ciao , non ho capito molto bene la domanda ma credo che dipenda da due cose :
prima di tutto da come è fatto lo script
secondo dall'archivio e dal suo attuale stato di aggiornamento

 

[vinci]

Ciao Luigi cerco di spiegarmi meglio.
In presenza di un metodo calcolato all'ultima estrazione del mese
tipo questo:

Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim poste(5)
poste(2) = 1.5
poste(3) = 0.45
poste(4) = 0.05
k = 13
y = 2
For n = 8227 To EstrazioneFin
If IndiceMensile(n + 1) = 1 Then
ng = 0
ruote(1) = 8
numeri1(1) = Fuori90(Estratto(n,6,3) + Estratto(n,9,5) + 31)
numeri1(2) = Fuori90(Estratto(n,3,4) + Estratto(n,4,2) + 87)
numeri1(3) = Fuori90(Estratto(n,1,5) + Estratto(n,8,1) + 88)
numeri1(4) = Fuori90(Estratto(n,7,3) + Estratto(n,8,5) + 39)
numeri1(5) = 25
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
Gioca n
End If
Next
ScriviResoconto
End Sub

se adesso lo faccio girare in spaziometria
dovrebbe darmi la nuova previsione perchè
l'ultima estrazione del mese è già avvenuta
invece ancora non mi calcola la nuova previsione.




Vinci

 

[LuigiB]

perche appunto dipende dallo script come ti dicevo.
Infatti per capire quale sia l'ultima estrazione
è stato utilizzato il codice

If IndiceMensile(n + 1)  = 1 Then

che sembra funzionare ma in realtà è sbagliato
perche ponendo il caso di
n=UltimaEstrazionePresenteInArchivio
si avrebbe che n+1 punterebbe ad una estrazione
che non esiste e percio di sicuro il suo indice non puo essere
uguale ad 1.
C'è da precisare poi che IndiceMensile non è che serva propriamente a sapere quale sia l'ultima del mese bensi serve per sapere
l'indice di una tale estrazione passata come parametro
il suo utilizzo è lecito pero bisogna tenere ben presente
come lavora per poterla usare senza confuione


la soluzione veloce è modificare leggermente la linea di codice
con

If IndiceMensile(n + 1) [b]<=[/b] 1 Then

in quanto la funzione IndiceMensile torna 0 se viene passata
una estrazione che non esiste però attenzione</u> !!!
Questo sistema non è preciso perche considera sempre</u> ultima del mese l'ultima estrazione presente in archivio , poco male perche in output dove è presente la data con un minimo di attenzione si capisce
se si è in presenza dell'ultima del mese.
In alternativa si deve creare una function che analizzi lei la data
per sapere se è davvero l'ultima del mese.

 

[Roby]

Ciao, Io uso anche questa funzione:

If IndiceMensile (es+1) = 1 Or (es) = EstrazioneFin then

Blackmore

 

[vinci]

Ho sostituito
If IndiceMensile(n + 1) = 1 Then

con
If IndiceMensile(n + 1) <= 1 Then

e per adesso funziona, ha elaborato la nuova previsione.
Quanto ho capito ad ogni estrazione ne ricalcolerà una nuova
quindi dalla prossima estrazione dovrò nuovamente riportare

If IndiceMensile(n + 1) = 1 Then

come è possibile creare una funzione che analizzi lei la data?







Vinci

 

[LuigiB]

no devi lasciarlo sempre cosi , cosi con questa
modifica funziona sempre su tutte le estrazioni sara sempre
preciso e individuera sempre correttamente l'ultima.
Solo sull'ultima estrazione in analisi se caso vuole che sia coincidente
con l'ultima estrazione presente in archivio allora in quel caso
questo metodo ti ritoorna comunque come se fosse l'ultima.
Per creare una funzione bisogna testare la data e vedere quanti giorni mancano alla fine del mese e se in questi giorni puo capitare un'estrazione.
Non ti complicare la vita e lascia tutto con questa modifica che hai fatto.

 

[vinci]

Grazie Luigi sei sempre cortese con tutti,
sei un vero signore!



Vinci

 

[LuigiB]

ecco una funzione con relativo esempio di utilizzo per stabilire
con esattezza se un estrazione sia l'ultima del mese, ciao
N.B. Funziona con le 3 estrazioni a settimana , per farla funzionare anche nel periodo precedente bisogna ulteriormente modificarla

Option Explicit
Sub Main
	
	Dim k 
	For k = EstrazioneFin-100  To EstrazioneFin
		
		If IsUltimaDelMese  (k) Then
			 
			Call Scrivi ( "L'estrazione " & GetInfoEstrazione (k) & " è l'ultima del mese" , True ,,vbRed)
		Else
			 
			Call Scrivi ("L'estrazione " & GetInfoEstrazione (k) & " non è l'ultima del mese")
		
		End If 
	Next
		

	
End Sub

Function IsUltimaDelMese (idEstr)

	Dim sData , sDataNew
	Dim idGiornoSettimana 
	Dim gMancanti 
	Dim nMeseCorr
	
	sData = Replace(DataEstrazione(idEstr) , "." , "/")
	nMeseCorr = Month(sData) 
	idGiornoSettimana = WeekDay (sData)
	
	Select Case idGiornoSettimana
	
	Case vbTuesday ' martedi
		gMancanti =2
	Case vbThursday ' giovedi
		gMancanti = 2
	Case vbSaturday ' sabato
		gMancanti = 3
	End Select
	
	sDataNew = DateAdd( "d" , gMancanti ,sData)
	
	If Month (sDataNew) <> nMeseCorr Then 
		IsUltimaDelMese = True 
	Else
		IsUltimaDelMese = False 
	End If 
	
End Function

 

[vinci]

Ho dovuto togliere la modifica

If IndiceMensile(n + 1) <= 1 Then

ripristinando

If IndiceMensile(n + 1) = 1 Then

perchè oltre a quella giusta dell'ultima del mese,
tutte le volte mi ricalcola il pronostico anche
sull'ultima estrazione presente in archivio.

Quindi per evitare di fare il calcolo manualmente
per potere giocare il primo colpo utile,
dovrò fare tale modifica per poi riportarla all'originale
dopo la prima estrazione del mese successivo.....




Vinci

 

[LuigiB]

Ciao hai visto che ti ho postato la funzione per sapere con certezza quale sia l'ultima del mese saenza errori ? L'hai provata ?

 

[vinci]

No Luigi non riesco a "collegarla" con i miei script...

potresti farmi un esempio applicandola al metodo preso
per esempio che riporto di seguito:

Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim poste(5)
poste(2) = 1.5
poste(3) = 0.45
poste(4) = 0.05
k = 13
y = 2
For n = 8227 To EstrazioneFin
If IndiceMensile(n + 1) = 1 Then
ng = 0
ruote(1) = 8
numeri1(1) = Fuori90(Estratto(n,6,3) + Estratto(n,9,5) + 31)
numeri1(2) = Fuori90(Estratto(n,3,4) + Estratto(n,4,2) + 87)
numeri1(3) = Fuori90(Estratto(n,1,5) + Estratto(n,8,1) + 88)
numeri1(4) = Fuori90(Estratto(n,7,3) + Estratto(n,8,5) + 39)
numeri1(5) = 25
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
Gioca n
End If
Next
ScriviResoconto
End Sub


Grazie 1000



Vinci

 

[LuigiB]

invece di scrivere la linea

If IndiceMensile(n + 1) = 1 Then

devi scrivere

If IsUltimaDelMese then


naturalmente devi incollare la funzione nel tuo script

 

[Roby]

Grazie ai grandi dello script, sono riuscito a finire lo script che mi interessava per giocare a fine mese.

Inserisco il link, penso che puo servire cambiando la parte del calcolo della previsione.

http://forum.lottoced.com/topic.asp?TOPIC_ID=139209

ciao



Frank