Novità

Per scripters esperti

ti consiglio anche di inserire all'interno del loop la funzione per stoppare lo script caso mai ti scocciassi di aspettare l'analisi di 90 milioni di colonne :-)
 
alt .. aggiorna la versione di spaziometria che di ambi ne deve fare 4005 ... non avevo letto ...
 
LuigiB ha scritto:
ecco .. allora prima che pure i miei neuroni diventino 3 come mai non lo hai fatto subito che io lo script da usare te lo avevo dato ieri ?
E' esattamente come hai detto.Ciao
Clicca per espandere...

Se è vero che e' esattamente come ho scritto... :eek::)

Codice: 
Sub Main


Dim k
Dim Classe
Dim aCol
ReDim aNum(90)
Dim i
Dim RetRit,aRuote,nSorte,Fine
aRuote(1) = BA_
nSorte = 2


For k = 1 To 90
aNum(k) = k
Next


Classe = 5


If InitSviluppoIntegrale(aNum,Classe) > 0 Then




Do While GetCombSviluppo(aCol) = True
i = i + 1
RetRit = RitardoCombinazioneTurbo(aRuote,aNum,nSorte,Fine)
Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol))
Loop


End If


End Sub

vuole dire che la Fortuna... non è solo necessaria per chi gioca... ma anche per chi cerca di ricostruire del codice intrigantissimo :D Se ci sono arrivato ora... bene ma ti posso assicurare che non è perchè mi è chiaro tutto! :p

Eseguendo il codice che ti ho postato ora non mi da errore ma mi si pianta tutto dovendo ricorrere addirittura ai 3 mitici... ALT CTRL e CANC :cool:

Per quanto riguarda la funzione di STOP che credo sia utilissima dove la trovo... dove e come la piazzo?

Piu' che la funzione di stop si potrebbe dare in pasto pochi milioni... :p di righe alla volta in modo che il programma abbia l'illusione di fare sempre lo stesso lavoro "leggero..." ma per + volte?

Sicuramente non mi sono spiegato al massimo delle mie facoltà mentali.. ma spero che un pizzico della mia question arrivi... :o

Ovviamente ma che te lo ridico a fà... GRAZIE GRAZIE GRAZIE per la pazienza e l'insegnamento che mi stai a dà :)
 
Ultima modifica:
oviiamente devi cambiare le variabili , l'array che contiene la colonna corrente è aCol , aNum era l'array dei numeri da sviluppare in cinquine .
Se dentro al loop scrivi
if ScriptInterrotto then exit do

vedrai che non ti si impallera niente.

ciao
 
LuigiB ha scritto:
oviiamente devi cambiare le variabili , l'array che contiene la colonna corrente è aCol , aNum era l'array dei numeri da sviluppare in cinquine .
Se dentro al loop scrivi
if ScriptInterrotto then exit do

vedrai che non ti si impallera niente.

ciao
Clicca per espandere...

Codice: 
Sub Main


Dim k
Dim Classe
Dim aCol
ReDim aNum(90)
Dim i
Dim RetRit,aRuote,nSorte,Fine
aRuote(1) = BA_
nSorte = 2


For k = 1 To 90
aNum(k) = k
Next


Classe = 5


If InitSviluppoIntegrale(aNum,Classe) > 0 Then




Do While GetCombSviluppo(aCol) = True
i = i + 1
RetRit = RitardoCombinazioneTurbo(aRuote,aCol,nSorte,Fine)
Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol))
If ScriptInterrotto Then Exit Do
Loop


End If


End Sub

Anche dopo le modifiche apportate in seguito alle tue preziose indicazioni,
incurante delle mie speranze lo script beffardo... continua ad impallarsi che è un piacere
e se ne sbatte allegramente anche se premo il bottone di allarme... STOP :rolleyes:
Si arrende solo agli indomabili... CTRL ALT e CANC :cool:
 
Ultima modifica:
mea culpa per evitre l'impallamento dovevi gestire o la progressbar o mettere un messaggio

Codice: 
Option Explicit
Sub Main
	Dim k
	Dim Classe
	Dim aCol
	ReDim aNum(90)
	Dim i
	Dim RetRit,aRuote,nSorte,Fine
	Dim ColTot
	ReDim aRuote (1)
	aRuote(1) = BA_
	nSorte = 2
	For k = 1 To 90
		aNum(k) = k
	Next
	Classe = 5
	ColTot = InitSviluppoIntegrale(aNum,Classe)
	If ColTot > 0 Then
		Do While GetCombSviluppo(aCol) = True
			i = i + 1
			RetRit = RitardoCombinazioneTurbo(aRuote,aCol,nSorte,Fine)
			If RetRit > 500 Then 
				Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol))
			End If 
			Call Messaggio ("Colonna " & i )
			If ScriptInterrotto Then Exit Do
		Loop
	End If
End Sub
 
That's all right! Funzia alla meraviglia! Fantastico! 43 milioni ecc... , quante sono le cinquine che genera, di GRAZIE! :) La barra verde adesso non compare mai... ma è solo un aspetto estetico del tutto irrilevante :) Come range considerato senza mettere il parametro inizio è quello di inizio archivio o quello impostato dall'apposita baretta del programma vero? Se volessi considerare due o piu' ruote separate? Poi basta con l'argomento..., promesso... :o Ciao e grazie ancora insuperabile DYNAMO della programmazione! ;)
 
Ultima modifica:
ciao la barra verde non compare perche la dovevi gestire tu con l'apposita funzione che puoi copiare da altri script :-)
Io ho gestito solo il messaggio per evitare l'impallamento.
Per analizzare piu rute assieme devi inserire le ruote che vuoi nell'array delle ruote
per analizzare la stessa xombinazione su piu ruote diverse singolarmente devi fare una cosa semmplicissima , la piu banale ... prova ad indovinare cosa ...vediamo se rispondi al quiz considera che la risposta semplicissima ed è la piu banale.
 
LuigiB ha scritto:
ciao la barra verde non compare perche la dovevi gestire tu con l'apposita funzione che puoi copiare da altri script :-)
Io ho gestito solo il messaggio per evitare l'impallamento.
Per analizzare piu rute assieme devi inserire le ruote che vuoi nell'array delle ruote
per analizzare la stessa xombinazione su piu ruote diverse singolarmente devi fare una cosa semmplicissima , la piu banale ... prova ad indovinare cosa ...vediamo se rispondi al quiz considera che la risposta semplicissima ed è la piu banale.
Clicca per espandere...

Dunque per le ruote unite no problem ho capito come fare.
Per le ruote separate, ma mi sembra nn funzioni, a naso direi qualcosa di questo tipo:

Codice: 
Dim k
Dim Classe 
Dim aCol
ReDim aNum(90)
Dim i
Dim aRuote,nSorte,Fine
Dim RetRit1,RetRit2,RetRit3
Dim ColTot
ReDim aRuote(3)
aRuote(1) = BA_
aRuote(2) = CA_
aRuote(3) = FI_
nSorte = 3
For k = 1 To 90
aNum(k) = k
Next
Classe = 5
ColTot = InitSviluppoIntegrale(aNum,Classe)
If ColTot > 0 Then
Do While GetCombSviluppo(aCol) = True
i = i + 1
RetRit1 = RitardoCombinazioneTurbo(aRuote(1),aCol,nSorte,Fine)
RetRit2 = RitardoCombinazioneTurbo(aRuote(2),aCol,nSorte,Fine)
RetRit3 = RitardoCombinazioneTurbo(aRuote(3),aCol,nSorte,Fine)

If RetRit1 > 1830 Then
Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & "RA: " & RetRit1)
End If

If RetRit2 > 1830 Then
Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & "RA: " & RetRit2)
End If

If RetRit3 > 1830 Then
Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & "RA: " & RetRit3)
End If

Call Messaggio("Colonna " & i)
If ScriptInterrotto Then Exit Do
Loop
End If
End Sub

Ma mi sembra non funga... :rolleyes:

Per quanto riguarda l'altro mio quesito sull'impostazione del range di ricerca? :)
Ovvero non impostando il parametro inizio lo script da dove parte?
E per far si che che lo script ricerchi nel range stabilito con l'apposita barra in basso
del programma quale codice si dovrebbe aggiungere se possibile?

:)

Ps: In sole 3 ore fa tutto! ;) Eccezionale!
Fossi in te lo chiamerei IRON-script! :D
 
Ultima modifica:
ciao Tom non è che ho guardato bene mi sono solo soffermato sull'errore macroscopico di aRuote ... l'array aRuote quando lo usiamo per analizzare piu ruote insieme ovviamente deve avere un numero di elementi pari al numero delle ruote volute , quando invece vogliamo fare una ruota sola allora l'array deve avere una sola dimensione la quale conterrò la ruota in ogetto , come hai fatto tu semplicemente hai analizzato 3 volte la combinazione su 3 ruote contemporaneamente.
 
EstrazioneIni ed EstrazioneFin sono le due funzioni che leggono il range principale del programma cioe la barra rosa.
Se nelle funzini si omettono i parametri del rang la funzione lavora sull'intero archivio
 
LuigiB ha scritto:
ciao Tom non è che ho guardato bene mi sono solo soffermato sull'errore macroscopico di aRuote ... l'array aRuote quando lo usiamo per analizzare piu ruote insieme ovviamente deve avere un numero di elementi pari al numero delle ruote volute , quando invece vogliamo fare una ruota sola allora l'array deve avere una sola dimensione la quale conterrò la ruota in ogetto , come hai fatto tu semplicemente hai analizzato 3 volte la combinazione su 3 ruote contemporaneamente.
Clicca per espandere...

Ah :(:)
Così... ???

Codice: 
Dim k
Dim Classe 
Dim aCol
ReDim aNum(90)
Dim i
Dim aRuote,nSorte,Fine
Dim aRuote1,aRuote2,aRuote3
Dim RetRit1,RetRit2,RetRit3
Dim ColTot


ReDim aRuote1(1)
ReDim aRuote2(2)
ReDim aRuote3(3)


aRuote(1) = BA_
aRuote(2) = CA_
aRuote(3) = FI_


nSorte = 3
For k = 1 To 90
aNum(k) = k
Next
Classe = 5
ColTot = InitSviluppoIntegrale(aNum,Classe)
If ColTot > 0 Then
Do While GetCombSviluppo(aCol) = True


i = i + 1


RetRit1 = RitardoCombinazioneTurbo(aRuote(1),aCol,nSorte,Fine)
RetRit2 = RitardoCombinazioneTurbo(aRuote(2),aCol,nSorte,Fine)
RetRit3 = RitardoCombinazioneTurbo(aRuote(3),aCol,nSorte,Fine)


If RetRit1 > 1830 Then
Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & "RA: " & RetRit1)
End If


If RetRit2 > 1830 Then
Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & "RA: " & RetRit2)
End If


If RetRit3 > 1830 Then
Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & "RA: " & RetRit3)
End If


Call Messaggio("Colonna " & i)
If ScriptInterrotto Then Exit Do
Loop
End If
End Sub
 
no devi valorizzare l'array all'eelmento 1
poi chiamare la fuinzione
poi rivalorizzi larray ruote sempre all'elemento 1
poi richiaare la funzione
poi rivalorizzi larray ruote sempre all'elemento 1
poi richiaare la funzione

e cosi via
 
LuigiB ha scritto:
no devi valorizzare l'array all'eelmento 1
poi chiamare la fuinzione
poi rivalorizzi larray ruote sempre all'elemento 1
poi richiaare la funzione
poi rivalorizzi larray ruote sempre all'elemento 1
poi richiaare la funzione

e cosi via
Clicca per espandere...


Codice: 
Dim k
Dim Classe 
Dim aCol
ReDim aNum(90)
Dim i
Dim aRuote,nSorte,Fine
Dim aRuote1
Dim ColTot




ReDim aRuote1(1)
aRuote(1) = BA_




nSorte = 3
For k = 1 To 90
aNum(k) = k
Next
Classe = 5
ColTot = InitSviluppoIntegrale(aNum,Classe)
If ColTot > 0 Then
Do While GetCombSviluppo(aCol) = True




i = i + 1


Call Scrivi("--------------BARI---------------")




RetRit1 = RitardoCombinazioneTurbo(aRuote(1),aCol,nSorte,Fine)
If RetRit1 > 1830 Then
Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & "RA: " & RetRit1)
End If


Call Scrivi("--------------CAGLIARI---------------")


ReDim aRuote1(1)
aRuote(1) = CA_


RetRit1 = RitardoCombinazioneTurbo(aRuote(1),aCol,nSorte,Fine)
If RetRit1 > 1830 Then
Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & "RA: " & RetRit1)
End If






Call Scrivi("--------------FIRENZE---------------")


ReDim aRuote1(1)
aRuote(1) = FI_


RetRit1 = RitardoCombinazioneTurbo(aRuote(1),aCol,nSorte,Fine)
If RetRit1 > 1830 Then
Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & "RA: " & RetRit1)
End If






Call Messaggio("Colonna " & i)
If ScriptInterrotto Then Exit Do
Loop
End If
End Sub

:rolleyes:
 
Ultima modifica:
ecco pero ora come fai a sapere su quale ruota ? Devi aggiungere qualcosa quando scrivi l'output
 
alt .. .quando passi il vettore aRuote alla funzione Ritardo non dsevi mettere le parentesi ...

aRuote(1) no ... devi mettere aRuote
 
LuigiB ha scritto:
alt .. .quando passi il vettore aRuote alla funzione Ritardo non dsevi mettere le parentesi ...

aRuote(1) no ... devi mettere aRuote
Clicca per espandere...

Rimediato per aRuote ma per la progress bar di sicuro ho fatto un pasticcio... :o
Per quanto riguarda l'identificare le varie ruote avrei pensato a stampare a video una semplice linea di demarcazione con il nome di ogni ruota analizzata...

Codice: 
Dim k
Dim Classe 
Dim aCol
ReDim aNum(90)
Dim i
Dim aRuote,nSorte,Fine
Dim aRuote1,aRuote2,aRuote3
Dim ColTot




ReDim aRuote1(1)
aRuote(1) = BA_




nSorte = 3
For k = 1 To 90
aNum(k) = k
Next
Classe = 5
ColTot = InitSviluppoIntegrale(aNum,Classe)
If ColTot > 0 Then
Do While GetCombSviluppo(aCol) = True




i = i + 1


Call Scrivi("--------------BARI---------------")




RetRit1 = RitardoCombinazioneTurbo(aRuote,aCol,nSorte,Fine)
If RetRit1 > 1830 Then
Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & "RA: " & RetRit1)
End If


Call Scrivi("--------------CAGLIARI---------------")


ReDim aRuote1(1)
aRuote(1) = CA_


RetRit1 = RitardoCombinazioneTurbo(aRuote,aCol,nSorte,Fine)
If RetRit1 > 1830 Then
Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & "RA: " & RetRit1)
End If






Call Scrivi("--------------FIRENZE---------------")


ReDim aRuote1(1)
aRuote(1) = CA_


RetRit1 = RitardoCombinazioneTurbo(aRuote,aCol,nSorte,Fine)
If RetRit1 > 1830 Then
Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & "RA: " & RetRit1)
End If


Call AvanzamentoElab(0,UBound(aCol),k)  //QUESTO E' IL TENTATIVO PER LA PROGRESS BAR


Call Messaggio("Colonna " & i)
If ScriptInterrotto Then Exit Do
Loop
End If
End Sub
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 gennaio 2025
    Bari
    24
    76
    02
    72
    12
    Cagliari
    21
    08
    77
    04
    17
    Firenze
    74
    84
    07
    12
    72
    Genova
    13
    07
    33
    47
    18
    Milano
    01
    34
    09
    55
    48
    Napoli
    46
    23
    25
    03
    06
    Palermo
    44
    07
    01
    46
    84
    Roma
    88
    78
    64
    74
    04
    Torino
    07
    87
    67
    38
    53
    Venezia
    31
    25
    04
    18
    02
    Nazionale
    49
    82
    59
    65
    67
    Estrazione Simbolotto
    Bari
    03
    13
    31
    23
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto