Novità

Aiuto per script SUPERENALOTTO

marpioncella

marpioncella

Super Member >GOLD<
Gentilissimi,
Sto studiando vari metodi con excel per il superenalotto ma il tempo che mi occorre per le verifiche è immenso in quanto non sono in grado di andare oltre ad un certo livello.
Sto iniziando a capire molto bene le potenzialità di spaziometria ma non sono in grado di fare gli script.Se non vi dispiace vi posto 2 metodi che vorrei verificare con Spaziometria e vi chiedo se di questi avete un pò di tempo per fare gli script.
Metodo 1
Quando nella sestina del superenalotto ( escluso jolli e superstar) esce un ambo in cadenza 3 mettere in gioco le sestine sotto elencate:
1-14-55-77-80-89
1-35-42-55-57-62
2-55-70-77-81-90
3-15-67-69-70-75
3-17-48-66-77-90
4-8-26-32-62-88
4-64-67-68-79-90
18-19-32-73-77-88
5-14-48-52-77-90
18-45-67-70-77-90
19-22-49-55-70-88
19-26-55-67-68-83
19-47-69-71-88-90
26-48-55-66-69-90
26-55-59-63-69-77
34-36-55-62-66-88
Lo scopo è quello di individuare che risultato forniscono e dopo quanti colpi dalla messa in gioco delle stesse ed eventualmente vedere se emergono risultati più promettenti mettendo in gioco questi numeri ma in sestine diverse.

2 METODO
Ogni qualvolta nell'estrazione viene estratto un ambo spia facente
parte della lunghetta 20.....fino a 29 mettere in gioco:
1-31-59-72-85-88
4-11-72-74-88-90
9-36-73-82-83-90
1-19-30-32-69-74
4-24-58-66-74-85
9-11-28-36-79-84
4-19-32-58-88-90
10-69-74-79-62-84
Lo scopo è sempre quello di individuare che risultato forniscono e dopo quanti colpi dalla messa in gioco della previsione. Eventualmente se possibile, verificare anche se emergono risultati più promettenti mettendo in gioco questi numeri ma in sestine diverse
Grazie anticipatamente per l'interessamento
Marpi:)




marpioncella
 
Ciao , questo script implementa il primo metodo.
Per modifiche correzioni e per implementare l'altro metodo
spero che ci sia qualcun'altro che ti possa seguire.

Codice: 
Option Explicit
Dim aColonne()

Sub Main
	Dim Inizio,Fine
	Dim k , j 
	Dim nCadenza
	nCadenza = 3
	Inizio = ChiediValore("Inizio ricerca",1)
	Fine = ChiediValore("Fine ricerca",EstrazioniArchivioSE )
	
	ImpostacolonneInGioco 
	
	For k = Inizio To Fine
		If QuantitaNumInCadenza(k,nCadenza) >= 2 Then
			For j =0 To UBound(aColonne)
				ReDim aN(0)
				Call SplitByChar(aColonne(j) ,"-" , aN)
				Call ImpostaGiocataSE(  j+1, aN,  1,100)
			Next
			Call GiocaSE(  k)
		End If
	Next
	Call ScriviResocontoSE
End Sub
Function ChiediValore(s,Valdef)
	ChiediValore = CInt(InputBox(s,,  Valdef))
End Function
Function QuantitaNumInCadenza(idEstr,nCadenza)
	Dim k
	Dim q
	q = 0
	For k = 1 To 6
		If Cadenza(EstrattoSE(idEstr,k)) = nCadenza Then
			q = q + 1
		End If
	Next
	QuantitaNumInCadenza = q
End Function
Sub ImpostacolonneInGioco ()
	
	ReDim aColonne(15)
	
	
	aColonne(0) = "1-14-55-77-80-89"
	aColonne(1) = "1-35-42-55-57-62"
	aColonne(2) = "2-55-70-77-81-90"
	aColonne(3) = "3-15-67-69-70-75"
	aColonne(4) = "3-17-48-66-77-90"
	aColonne(5) = "4-8-26-32-62-88"
	aColonne(6) = "4-64-67-68-79-90"
	aColonne(7) = "18-19-32-73-77-88"
	aColonne(8) = "5-14-48-52-77-90"
	aColonne(9) = "18-45-67-70-77-90"
	aColonne(10) = "19-22-49-55-70-88"
	aColonne(11) = "19-26-55-67-68-83"
	aColonne(12) = "19-47-69-71-88-90"
	aColonne(13) = "26-48-55-66-69-90"
	aColonne(14) = "26-55-59-63-69-77"
	aColonne(15) = "34-36-55-62-66-88"
End Sub
 
Grazie Luigi per l'aiuto, metterò sicuramente al corrente dei risultati. Spero che anche qualcun altro abbia il tempo e pazienza di formulare il 2° o eventualmente fare aggiustamenti.
Grazie ancora
Marpi:)

marpioncella
 
Luigi, ho provato lo script ma non gira, si impalla spaziometria appena dato l'ok per iniziare lo script. Spaziometria è aggiornata all'ultima versione 139. Chiedo ancora aiuto
Grazie:)


marpioncella
 
eheh no no non si impalla nulla devi semplicemente aspettare , sta alvorando.. forse hai scelto un range di ampiezza elevata.
Comunque ho aggiunto la barra di scorrimento in questa modifica.
Cosi non ti sembra che si impalli

Codice: 
Option Explicit
Dim aColonne()

Sub Main
	Dim Inizio,Fine
	Dim k,j
	Dim nCadenza
	nCadenza = 3
	Inizio = ChiediValore("Inizio ricerca",1)
	Fine = ChiediValore("Fine ricerca",EstrazioniArchivioSE)
	
	ImpostacolonneInGioco
	
	For k = Inizio To Fine
		If QuantitaNumInCadenza(k,nCadenza) >= 2 Then
			For j = 0 To UBound(aColonne)
				ReDim aN(0)
				Call SplitByChar(aColonne(j),"-",aN)
				Call ImpostaGiocataSE(j + 1,aN,1,100)
			Next
			Call GiocaSE(k)
		End If
		Call AvanzamentoElab( Inizio,Fine,k)
		If ScriptInterrotto Then Exit For 
	Next
	Call ScriviResocontoSE
End Sub
Function ChiediValore(s,Valdef)
	ChiediValore = CInt(InputBox(s,,Valdef))
End Function
Function QuantitaNumInCadenza(idEstr,nCadenza)
	Dim k
	Dim q
	q = 0
	For k = 1 To 6
		If Cadenza(EstrattoSE(idEstr,k)) = nCadenza Then
			q = q + 1
		End If
	Next
	QuantitaNumInCadenza = q
End Function
Sub ImpostacolonneInGioco()
	
	ReDim aColonne(15)
	
	
	aColonne(0) = "1-14-55-77-80-89"
	aColonne(1) = "1-35-42-55-57-62"
	aColonne(2) = "2-55-70-77-81-90"
	aColonne(3) = "3-15-67-69-70-75"
	aColonne(4) = "3-17-48-66-77-90"
	aColonne(5) = "4-8-26-32-62-88"
	aColonne(6) = "4-64-67-68-79-90"
	aColonne(7) = "18-19-32-73-77-88"
	aColonne(8) = "5-14-48-52-77-90"
	aColonne(9) = "18-45-67-70-77-90"
	aColonne(10) = "19-22-49-55-70-88"
	aColonne(11) = "19-26-55-67-68-83"
	aColonne(12) = "19-47-69-71-88-90"
	aColonne(13) = "26-48-55-66-69-90"
	aColonne(14) = "26-55-59-63-69-77"
	aColonne(15) = "34-36-55-62-66-88"
End Sub
 
Ciao Marpioncella.
Lo script creato da Luigi analizza l'archivio dalla prima estrazione, questo lo rende un pò pesante e su pc non troppo potenti può dare l'impressione di programma "impallato".

Prova ad impostare l'estrazione di inizio analisi con un numero diverso da 1, per esempio 1211 che considera l'archivio a partire dal 02/01/2010, l'elaborazione sicuramente è più veloce.

la riga da modificare all'interno dello script è la seguente:
Inizio = ChiediValore("Inizio ricerca",1)
dove al valore 1 devi sostituire quello che ti ho indicato oppure uno a tuo piacimento.

P.s. attenzione che l'estrazione odierna è la 1492, quindi non inserire un valore maggiore di questo.

Ciao.;)


P.s. x Luigi

Hai visto il mio post inserito qui: http://forum.lottoced.com/topic.asp?TOPIC_ID=140213 è normale quella segnalazione?

Ciao.


bigalbe
 
Grazie a Luigi e a bigalbe per il gradito aiuto. Lo script funziona benissimo e i risultati di questo metodo non mi sembrano ottimali.Vi è un dislivello evidente fra costi e benefici. Se magari bigalbe o Luigi trovasse un pochino di tempo per fare lo script anche dell'altro metodo che mette in gioco meno sestine, sarei molto felice.
Grazie ancora
Marpi:)

marpioncella
 
LuigiB;n185107 ha scritto:
eheh no no non si impalla nulla devi semplicemente aspettare , sta alvorando.. forse hai scelto un range di ampiezza elevata.
Comunque ho aggiunto la barra di scorrimento in questa modifica.
Cosi non ti sembra che si impalli

Codice: 
Option Explicit
Dim aColonne()

Sub Main
Dim Inizio,Fine
Dim k,j
Dim nCadenza
nCadenza = 3
Inizio = ChiediValore("Inizio ricerca",1)
Fine = ChiediValore("Fine ricerca",EstrazioniArchivioSE)

ImpostacolonneInGioco

For k = Inizio To Fine
If QuantitaNumInCadenza(k,nCadenza) >= 2 Then
For j = 0 To UBound(aColonne)
ReDim aN(0)
Call SplitByChar(aColonne(j),"-",aN)
Call ImpostaGiocataSE(j + 1,aN,1,100)
Next
Call GiocaSE(k)
End If
Call AvanzamentoElab( Inizio,Fine,k)
If ScriptInterrotto Then Exit For
Next
Call ScriviResocontoSE
End Sub
Function ChiediValore(s,Valdef)
ChiediValore = CInt(InputBox(s,,Valdef))
End Function
Function QuantitaNumInCadenza(idEstr,nCadenza)
Dim k
Dim q
q = 0
For k = 1 To 6
If Cadenza(EstrattoSE(idEstr,k)) = nCadenza Then
q = q + 1
End If
Next
QuantitaNumInCadenza = q
End Function
Sub ImpostacolonneInGioco()

ReDim aColonne(15)


aColonne(0) = "1-14-55-77-80-89"
aColonne(1) = "1-35-42-55-57-62"
aColonne(2) = "2-55-70-77-81-90"
aColonne(3) = "3-15-67-69-70-75"
aColonne(4) = "3-17-48-66-77-90"
aColonne(5) = "4-8-26-32-62-88"
aColonne(6) = "4-64-67-68-79-90"
aColonne(7) = "18-19-32-73-77-88"
aColonne(8) = "5-14-48-52-77-90"
aColonne(9) = "18-45-67-70-77-90"
aColonne(10) = "19-22-49-55-70-88"
aColonne(11) = "19-26-55-67-68-83"
aColonne(12) = "19-47-69-71-88-90"
aColonne(13) = "26-48-55-66-69-90"
aColonne(14) = "26-55-59-63-69-77"
aColonne(15) = "34-36-55-62-66-88"
End Sub
Clicca per espandere...
If QuantitaNumInCadenza(k,nCadenza) &gt; = 2 Then

Ciao,perchè mi da errore qua ?
 
[TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="width: 755"]SPMT vers. 1.6.25_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9[/TD]
[/TR]
[TR]
[TD]====================== [/TD]
[/TR]
[TR]
[TD]Ciao Alien ,[/TD]
[/TR]
[TR]
[TD]per far funzionare lo script devi cancellare > [/TD]
[/TR]
[TR]
[TD]la linea deve essere cosi :[/TD]
[/TR]
[TR]
[TD]If QuantitaNumInCadenza(k,nCadenza) = 2 Then[/TD]
[/TR]
[TR]
[TD]e poi metti la ricerca con poche estrazioni (esempio da 1 a 500) per avere subito l'output dello script.[/TD]
[/TR]
[TR]
[TD]Buon divertimento[/TD]
[/TR]
[TR]
[TD]
stickman.gif
[/TD]
[/TR]
[TR]
[TD]Buona giornata a tutti.[/TD]
[/TR]
[TR]
[TD]A presto [/TD]
[/TR]
[TR]
[TD] Silop ;) ;) ;)[/TD]
[/TR]
[/TABLE]
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 19 agosto 2025
    Bari
    85
    16
    32
    30
    28
    Cagliari
    53
    60
    46
    12
    87
    Firenze
    58
    62
    66
    38
    33
    Genova
    13
    24
    60
    57
    79
    Milano
    22
    13
    38
    24
    07
    Napoli
    02
    12
    51
    16
    86
    Palermo
    88
    06
    26
    02
    76
    Roma
    73
    70
    81
    51
    36
    Torino
    01
    14
    62
    05
    70
    Venezia
    84
    63
    72
    40
    22
    Nazionale
    57
    24
    30
    68
    09
    Estrazione Simbolotto
    Nazionale
    03
    41
    27
    07
    30
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto