Aiutino per script?

[mpisticchia]

Ciao a tutti,
c'è qualche anima pia che mi può controllare perchè questo script (che ho fatto con copia e incolla e modifiche da un'altro per il lotto) gira molto molto lentamente e non legge neanche le eatrazioni corrette?

Option Explicit
Sub Main()
Dim Ini,fin,es,r1,p1,p2,n1,n2,r2,p3,p4,n3,n4,casi,amb(6),amb2(6),posta(3),ruota(1),ruote(1),poste(3)
ruota(1) = NZ_
ImpostaArchivio10ELotto(2)
posta(2) = 2
posta(3) = 1
poste(2) = 3
poste(3) = 1
Scrivi " Ambi ripetuti al 10 e lotto di MPisticchia ",1
casi = 0
Ini = EstrazioneFin - 5
fin = EstrazioneFin
For es = Ini To fin
Messaggio es
AvanzamentoElab Ini,fin,es
For p1 = 1 To 19
For p2 = p1 + 1 To 20
n1 = EstrattoDL(es,p1)
n2 = EstrattoDL(es,p2)
For p3 = 1 To 19
For p4 = p3 + 1 To 20
n3 = EstrattoDL(es-1,p3)
n4 = EstrattoDL(es-1,p4)
If n1 = n3 And n2 = n4 Or n1 = n4 And n2 = n3 Then
casi = casi + 1
Scrivi String(105,"-") & "Caso n° " & Format2(casi),1
ScriviEstrazioneDL(es-1) & " ",1
ScriviEstrazioneDL(es) & " ",1
Scrivi " Sortito Ambo " & Format2(n1) & " " & Format2(n2),1
Scrivi
						amb(1) = Fuori90(n2 - n1)
						amb(2) = Vert(amb(1))
						amb(3) = Diametrale(amb(1))
						amb(4) = Fuori90(n1 + n2)
						amb(5) = Fuori90(amb(1) + amb(4))
						'amb(6) = Fuori90(amb(2) + 3)
						ImpostaGiocataDL 1,amb,1,5,5
					GiocaDL es
					End If
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
ScriviResocontoDL
End Sub

Saranno delle baggianate ma è da stamattina che smanetto e mi sono proprio... scoraggiato!

Grazie a quanti vorranno darmi una mano e Buon 2015 a tutti

 

[Moro_80]

Ciao mpisticchia,

prova adesso...

Option Explicit
Sub Main()
ImpostaArchivio10ELotto(2)
Dim Ini,fin,es,r1,p1,p2,n1,n2,r2,p3,p4,n3,n4,casi,amb(6),amb2(6),posta(3),ruota(1),ruote(1),poste(3)
ruota(1) = NZ_
posta(2) = 2
posta(3) = 1
poste(2) = 3
poste(3) = 1
Scrivi " Ambi ripetuti al 10 e lotto di MPisticchia ",1
casi = 0
Ini = EstrazioneFinDL - 5
fin = EstrazioneFinDL
For es = Ini To fin
Messaggio es
AvanzamentoElab Ini,fin,es
For p1 = 1 To 19
For p2 = p1 + 1 To 20
	n1 = EstrattoDL(es,p1)
	n2 = EstrattoDL(es,p2)
For p3 = 1 To 19
For p4 = p3 + 1 To 20
	n3 = EstrattoDL(es-1,p3)
	n4 = EstrattoDL(es-1,p4)
If n1 = n3 And n2 = n4 Or n1 = n4 And n2 = n3 Then
casi = casi + 1
Scrivi String(105,"-") & "Caso n° " & Format2(casi),1
ScriviEstrazioneDL(es-1) & " ",1
ScriviEstrazioneDL(es) & " ",1
Scrivi " Sortito Ambo " & Format2(n1) & " " & Format2(n2),1
Scrivi
						amb(1) = Fuori90(n2 - n1)
						amb(2) = Vert(amb(1))
						amb(3) = Diametrale(amb(1))
						amb(4) = Fuori90(n1 + n2)
						amb(5) = Fuori90(amb(1) + amb(4))
						'amb(6) = Fuori90(amb(2) + 3)
						ImpostaGiocataDL 1,amb,1,5,5
					GiocaDL es
					End If
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
ScriviResocontoDL
End Sub

Ciao

 

[mpisticchia]

Ciao Moro_80, grazie per l'aiuto e per la disponibilità, smanetto smanetto ma non ho il tempo, purtroppo di mettermi a studiare come vorrei.
I rudimenti di basic che appresi da bambino sono ormai proprio sotterrati ma quando posso ci provo, più per passione che altro, anche perchè il gioco poi rende sempre quanto stabilito dal banco (niente!).

l'ho provato e va meglio, hai sostato solo l'ImpostaArchivio o non riescvo a vedere le altre differenze?

Ora l'ho ripulito anche dalle altre cose che venivano dallo script per il Lotto e inizio a lavorarci per il 10eL...

Prendendo spunto dal altro post dove partecipi, ho inserito anche il Call AggiornaArchivioDL, grande comodità!

In merito agli script x 10eL ti chiedo se è possibile avere l'estrazione completa a fianco/sotto all'esito della giocata (come per il Lotto con Gioca es,True,,1) perchè vedo che nel GiocaDL non è previsto...

Ti ringrazio anche di nuovo (già fatto nell'apposito thread) per l'aggiornamento degli archivi x 10eL5M che hai messo a posto.

Approfitto per mettere un seme, chi sa mai che germogli:
Ma l'introduzione del Numero Oro proprio nel 10eL, pensi che un giorno sarà gestibile da Spaziometria? é una cosa a cui avevi pensato?
Nella sezione che controlla il Superenalotto è già gestito e, visto la magia che hai fatto, non credo sia un problema aggiungere all'importazione il 21° numero... poi magari controllarlo dall'utility verifica vincite è tutta un'altra storia immagino...

Grazie ancora di tutto e buona giornata

 

[Moro_80]

Ciao mpisticchia,
la cosa che ho notato e che non andava proprio bene e che Tu facevi il ciclo su:

Ini = EstrazioneFin - 5
fin = EstrazioneFin

Questo è per il lotto e non per il 10 e lotto...ho sostituito con:

Ini = EstrazioneFinDL - 5
fin = EstrazioneFinDL

Per quel che riguarda il discorso del numero oro dovresti chiedere all'autore di Spaziometria cioè LuigiB se è gestibile o meno...io mi son limitato a creare (con non poche difficoltà e bacchettate) il plugin che aggiorna le estrazioni.


Un Saluto

 

[mpisticchia]

Ciao, grazie, non riuscivo a vederlo... e pensare che ce l'ho già anche su altri script, che sbornia

In merito agli script x 10eL sai mica se è possibile avere l'estrazione completa a fianco/sotto all'esito della giocata (come per il Lotto con Gioca es,True,,1) perchè vedo che nel GiocaDL non è previsto...

Per il numero Oro, provo a chiedere al mitico LuigiB, in effetti ho seguito tutto lo sviluppo che hai fatto e ho visto le difficoltà e bacchettate ma godo anche del bel risultato!

Un buon proseguimento di giornata