Novità

Aiutino per script?

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?

Codice:
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
 
Ciao mpisticchia,

prova adesso...

Codice:
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
 
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
 
Ultima modifica:
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
 
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 29 maggio 2025
    Bari
    45
    10
    60
    68
    59
    Cagliari
    04
    31
    24
    61
    63
    Firenze
    71
    59
    65
    53
    46
    Genova
    21
    26
    50
    63
    86
    Milano
    46
    52
    45
    21
    15
    Napoli
    88
    90
    17
    46
    12
    Palermo
    31
    40
    71
    32
    12
    Roma
    86
    81
    41
    12
    19
    Torino
    75
    32
    64
    46
    04
    Venezia
    26
    65
    38
    56
    60
    Nazionale
    16
    55
    64
    57
    12
    Estrazione Simbolotto
    Milano
    45
    26
    36
    08
    22

Ultimi Messaggi

Indietro
Alto