Qualcuno riesce a realizzarlo?

lotto_tom75 · 2 Agosto 2014

Qualcuno/a riesce a realizzare uno script che faccia questo?:

Mostri i numeri rimasti su una ruota (o più ruote unite o tutte) dopo tot estrazioni...

Es.

Lo script chiede con finestra popup "Una o più ruote?"
Lo script chiede "Quale o quali ruote?"
Lo script chiede "Quante ultime estrazioni vuoi esaminare?"

E cliccando su esegui...

Lo script restituisce in output i numeri non ancora usciti... sulla ruota desiderata o su quelle indicate (considerandole unite) o su TUTTE.

Grazie anticipate a chi ci riesce e condivide il codice

Joe91 · 2 Agosto 2014

Scusa ma....

da 1 a 90 scrivi iĺ numero con seriefreq=zero

devi solo fornire i parametri inizio, fine, numero, ruote, sorte.

Sei sicuramente capace.

Joe91 · 3 Agosto 2014

Ciao Tom,

nella realizzazione ho utilizzato l'istuzione creata per scegliere le ruote

eliminando con essa uno degli inputbox.

Codice:

'Parametri per istruzione ScegliRuote By Joe (script per Spaziometria 1.4.74 By LuigiB)
Sub Main
	ReDim aRuote(11) ' array che contiene i numeri delle ruote selezionate
	Dim Nu(1),Ru(1)
	Fin = EstrazioneFin
	q = CInt(InputBox("Quante Estrazioni ?","AMPIEZZA INTERVALLO",18)) - 1
	Ini = Fin - q
	Scrivi "Ricerca LOTTRONI NON ESTRATTI (By Joe)",1 :Scrivi
	Scrivi q + 1 & " Estrazioni dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1 :Scrivi
	If ScegliRuote(aRuote) > 0 Then ' apro la finestra con la lista per selezionare le ruote  e se torna maggiore di 0
		' vuol dire che sono state selezionate N ruote
		' leggo l'array che ora contiene la selezione dell'utente
		For k = 1 To UBound(aRuote)
			If aRuote(k) > 0 Then
				NR = CStr(NomeRuota(aRuote(k))) : LNR = 13 - Len(NR)
				Scrivi(NR),1,0 : Scrivi String(Lnr,".") & " ",1,0
				Ru(1) = aRuote(k)
				For N = 1 To 90 : Nu(1) = N
					If SerieFreq(Ini,Fin,Nu,Ru,1) = 0 Then Scrivi Format2(N) & " ",0,0
				Next
				Scrivi
			End If
		Next
	End If
	Scrivi
	Scrivi FormatSpace(K - 1,2) & "Ruote Unite ",1,0
	For N = 1 To 90 : Nu(1) = N
		If SerieFreq(Ini,Fin,Nu,aRuote,1) = 0 Then Scrivi Format2(N) & " ",1,0
	Next
End Sub

Alien. · 3 Agosto 2014

CIAO,scusate se mi intrometto,ottima idea ma su tutte non funziona ......oppure erro a barrare le ruote ?
grazie.

Su tutte funziona avevo messo troppe estrazioni............................

Alien. · 3 Agosto 2014

è però sarebbe fattibile anche per il 10elotto serale ?
frequenze o ritardi?

Joe91
si può fare?

grazie,

lotto_tom75 · 3 Agosto 2014

Joe91 ha scritto:

Ciao Tom,

nella realizzazione ho utilizzato l'istuzione creata per scegliere le ruote

eliminando con essa uno degli inputbox.

Codice:

'Parametri per istruzione ScegliRuote By Joe (script per Spaziometria 1.4.74 By LuigiB)
Sub Main
	ReDim aRuote(11) ' array che contiene i numeri delle ruote selezionate
	Dim Nu(1),Ru(1)
	Fin = EstrazioneFin
	q = CInt(InputBox("Quante Estrazioni ?","AMPIEZZA INTERVALLO",18)) - 1
	Ini = Fin - q
	Scrivi "Ricerca LOTTRONI NON ESTRATTI (By Joe)",1 :Scrivi
	Scrivi q + 1 & " Estrazioni dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1 :Scrivi
	If ScegliRuote(aRuote) > 0 Then ' apro la finestra con la lista per selezionare le ruote  e se torna maggiore di 0
		' vuol dire che sono state selezionate N ruote
		' leggo l'array che ora contiene la selezione dell'utente
		For k = 1 To UBound(aRuote)
			If aRuote(k) > 0 Then
				NR = CStr(NomeRuota(aRuote(k))) : LNR = 13 - Len(NR)
				Scrivi(NR),1,0 : Scrivi String(Lnr,".") & " ",1,0
				Ru(1) = aRuote(k)
				For N = 1 To 90 : Nu(1) = N
					If SerieFreq(Ini,Fin,Nu,Ru,1) = 0 Then Scrivi Format2(N) & " ",0,0
				Next
				Scrivi
			End If
		Next
	End If
	Scrivi
	Scrivi FormatSpace(K - 1,2) & "Ruote Unite ",1,0
	For N = 1 To 90 : Nu(1) = N
		If SerieFreq(Ini,Fin,Nu,aRuote,1) = 0 Then Scrivi Format2(N) & " ",1,0
	Next
End Sub

GRAZIE INFINITE GRANDISSIMO JOE91!!!
Funziona benissimooooooooo sia su singole ruote separate che TUTTE!

Se volessi considerare ruote unite (es: BA - CA e FI unite) anzichè separate?
E facile questa nuova implementazione? Mi dai almeno una dritta su dove potrei provare a mettere le mani...?

Comunque anche così è fantastico! Grazie ancora!

Joe91 · 3 Agosto 2014

Ciao Tom.

Eseguendo lo script con le 18 estrazioni di default,

selezionando Ba.Ca.Fi. ottieni tre lunghette di circa 30 numeri.

30 non estratti per ognuna delle tre ruote.

Se tra questi ci sono numeri non estratti in nessuna delle tre ruote

questi sono riassunti in una quarta lunghetta.

Naturalmente è un residuo di pochi numeri e la quantità di questi dipende

sia dal caso che dai settaggi precedentemente effettuati.

Questa piccola selezione io l'ho intesa nelle ruote unite... dalla selezione ...

eventualmente spiega cosa pensavi di diverso.

Per altri giochi ... non so.

Buona sera a tutte/i.

lotto_tom75 · 3 Agosto 2014

Joe91 ha scritto:
Ciao Tom.

Eseguendo lo script con le 18 estrazioni di default,

selezionando Ba.Ca.Fi. ottieni tre lunghette di circa 30 numeri.

30 non estratti per ognuna delle tre ruote.

Se tra questi ci sono numeri non estratti in nessuna delle tre ruote

questi sono riassunti in una quarta lunghetta.

Naturalmente è un residuo di pochi numeri e la quantità di questi dipende

sia dal caso che dai settaggi precedentemente effettuati.

Questa piccola selezione io l'ho intesa nelle ruote unite... dalla selezione ...

eventualmente spiega cosa pensavi di diverso.

Per altri giochi ... non so.

Buona sera a tutte/i.

Non avevo fatto caso alla 4° riga dei numeri assenti comuni!
Fantastico così

Grazie grandissimo

Alien. · 4 Agosto 2014

Joe91 ha scritto:
Ciao Tom.

Eseguendo lo script con le 18 estrazioni di default,

selezionando Ba.Ca.Fi. ottieni tre lunghette di circa 30 numeri.

30 non estratti per ognuna delle tre ruote.

Se tra questi ci sono numeri non estratti in nessuna delle tre ruote

questi sono riassunti in una quarta lunghetta.

Naturalmente è un residuo di pochi numeri e la quantità di questi dipende

sia dal caso che dai settaggi precedentemente effettuati.

Questa piccola selezione io l'ho intesa nelle ruote unite... dalla selezione ...

eventualmente spiega cosa pensavi di diverso.

Per altri giochi ... non so.

Buona sera a tutte/i.

ciao,joe91

dici::::::::::er altri giochi ... non so.

puoi provare per il 10elotto serale? basta cambiare l'archivio o no ?

Alien. · 4 Agosto 2014

Alien. · 5 Agosto 2014

ciao disaranno lo script è incompleto ?

Alien. · 5 Agosto 2014

Mi perdoni sig.Disaronno ma.....mi pare uguale......buona giornata.

Joe91 · 5 Agosto 2014

10 e Lotto

Aggiornato al 02.08.2014

Rit 0 03 10 13 20 22 24 29 30 37 40 43 46 50 56 59 61 64 83 88 89
Rit 1 01 11 13 14 19 23 36 39 40 41 45 53 57 66 69 72 73 75 85 89
Rit 2 01 03 08 09 19 21 24 27 30 33 34 36 47 53 59 68 75 77 78 83
Rit 3 02 06 11 17 19 21 32 34 36 37 50 52 63 69 70 71 72 81 83 86
Rit 4 01 07 09 10 13 14 17 19 26 40 51 53 59 61 64 75 79 82 85 90
Rit 5 01 06 14 26 27 35 36 37 38 48 49 51 55 60 67 70 71 77 80 89
Rit 6 01 07 09 11 14 18 23 26 37 39 40 45 47 49 50 63 66 73 77 78
Rit 7 01 10 12 14 18 23 24 27 31 35 36 44 45 51 62 69 77 82 83 85
Rit 8 03 04 15 18 20 26 30 31 34 35 44 45 46 53 56 60 71 77 78 79
Rit 9 07 08 14 15 17 27 30 45 46 49 55 64 66 73 74 75 80 83 85 87
Rit 10 04 07 12 15 16 17 24 28 32 37 38 41 46 47 73 75 76 79 82 89
Rit 11 02 07 08 30 33 36 39 41 45 46 47 54 57 59 62 66 67 75 79 86
Rit 12 04 05 09 13 15 16 28 29 31 43 45 46 50 51 61 62 63 70 76 86
Rit 13 08 19 23 24 27 33 34 36 38 45 52 53 58 65 69 79 81 82 84 90
Rit 14 14 29 34 35 37 38 42 46 49 53 61 65 66 67 68 72 75 78 84 86
Rit 15 17 18 20 22 27 31 39 42 45 46 58 61 65 67 68 69 72 75 78 89
Rit 16 01 03 05 07 14 25 26 31 40 51 52 54 56 63 65 73 74 82 85 86

Tabellone Analitico (By Joe)

-----------------------------------------

13 Estrazioni dal 05.07.2014 al 02.08.2014

25 42 58 65 84

------------------------------------------

Boh... a me, sembra funzionare !!!

Alien. · 6 Agosto 2014

acc....a me da

Ricerca LOTTRONI NON ESTRATTI (By Joe)

18 Estrazioni dal 21.07.2013 al 21.07.2013

01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90

questo lo script del sig.disaronno

lo strano è che mi dice:::

18 Estrazioni dal 21.07.2013 al 21.07.2013

e l'archivio è aggiornato.

Alien. · 6 Agosto 2014

mentre il tuo mi da::::::::::

Ricerca LOTTRONI NON ESTRATTI (By Joe)

18 Estrazioni dal 24.06.2014 al 02.08.2014

Bari......... 05 06 07 08 14 17 20 30 32 42 43 51 53 54 58 61 64 67 68 71 72 76 84 85 88 90
Napoli....... 04 05 08 11 12 13 14 15 20 23 24 25 29 30 35 40 41 44 45 46 47 51 52 56 58 59 62 68 70 73 83
Nazionale.... 01 04 10 14 22 23 24 26 30 33 34 41 42 47 50 51 56 60 64 69 71 72 73 75 77 78 79 82 84 88 90

3 Ruote Unite 14 30 51

Joe91 · 6 Agosto 2014

Ciao,

Ho corretto e provato lo script.

Le modifiche sono solo nei titoli e nei dettagli ... pertanto è quello fatto da Disaronno che ringrazio per i suggerimenti.

Lo propongo col suo output.

(Ribadendo che non intendo e non ho interesse ad occuparmi di questi "nuovi" giochi).

Codice:

Sub Main
    Call ImpostaArchivio10ELotto(1)'Serale
    Dim Nu(1)
    Fin = EstrazioniArchivioDL
    q = CInt(InputBox("Quante Estrazioni ?","RITARDO MINIMO",13)) - 1
    Ini = Fin - q
    Scrivi "10eLotto Ritardatari (By Joe)",1 :Scrivi
    Scrivi q + 1 & " Estrazioni dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(Fin),1 :Scrivi
    Scrivi "NUMERI NON ESTRATTI  : ",1,0
    For N = 1 To 90 : Nu(1) = N
        If SerieFreqDL(Ini,Fin,Nu,1) = 0 Then Scrivi Format2(N) & " ",1,0
    Next
End Sub

Output Attuale:

Codice:

10eLotto Ritardatari (By Joe)

13 Estrazioni dal 08.07.2014 al 05.08.2014

NUMERI NON ESTRATTI  : 05 25 58 65 84

korokoro · 6 Agosto 2014

Joe91 ha scritto:

Ciao Tom,

nella realizzazione ho utilizzato l'istuzione creata per scegliere le ruote

eliminando con essa uno degli inputbox.

Codice:

'Parametri per istruzione ScegliRuote By Joe (script per Spaziometria 1.4.74 By LuigiB)
Sub Main
	ReDim aRuote(11) ' array che contiene i numeri delle ruote selezionate
	Dim Nu(1),Ru(1)
	Fin = EstrazioneFin
	q = CInt(InputBox("Quante Estrazioni ?","AMPIEZZA INTERVALLO",18)) - 1
	Ini = Fin - q
	Scrivi "Ricerca LOTTRONI NON ESTRATTI (By Joe)",1 :Scrivi
	Scrivi q + 1 & " Estrazioni dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1 :Scrivi
	If ScegliRuote(aRuote) > 0 Then ' apro la finestra con la lista per selezionare le ruote  e se torna maggiore di 0
		' vuol dire che sono state selezionate N ruote
		' leggo l'array che ora contiene la selezione dell'utente
		For k = 1 To UBound(aRuote)
			If aRuote(k) > 0 Then
				NR = CStr(NomeRuota(aRuote(k))) : LNR = 13 - Len(NR)
				Scrivi(NR),1,0 : Scrivi String(Lnr,".") & " ",1,0
				Ru(1) = aRuote(k)
				For N = 1 To 90 : Nu(1) = N
					If SerieFreq(Ini,Fin,Nu,Ru,1) = 0 Then Scrivi Format2(N) & " ",0,0
				Next
				Scrivi
			End If
		Next
	End If
	Scrivi
	Scrivi FormatSpace(K - 1,2) & "Ruote Unite ",1,0
	For N = 1 To 90 : Nu(1) = N
		If SerieFreq(Ini,Fin,Nu,aRuote,1) = 0 Then Scrivi Format2(N) & " ",1,0
	Next
End Sub

Joe puoi far che giri anche L8+
Grazie Leo

Joe91 · 6 Agosto 2014

Ciao Leo.

Prova così :

Codice:

'Ricerca Lottroni NON Estratti By Joe V.2.0 Compatibile L8+ e Spaziometria
Sub Main
	Dim Nu(1),Ru(1)
	Fin = EstrazioneFin
	q = CInt(InputBox("Quante Estrazioni ?","AMPIEZZA INTERVALLO",18)) - 1
	Ini = Fin - q
	Scrivi "Ricerca LOTTRONI NON ESTRATTI (By Joe)",1 :Scrivi
	Scrivi q + 1 & " Estrazioni dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1 :Scrivi
	SR = InputBox ("Es : 1.5.9.12 = Ba_ Mi_ To_ Nz_","SCEGLI LE RUOTE","1.5.9.12")
	If SR = "11" Then SR = "1.2.3.4.5.6.7.8.9.10" 'abbreviazione TT
	aRuote = Split ("0."&SR,".")
		For k = 1 To UBound(aRuote)
				NR = CStr(NomeRuota(aRuote(k))) : LNR = 13 - Len(NR)
				Scrivi(NR),1,0 : Scrivi String(Lnr,".") & " ",1,0
				Ru(1) = aRuote(k)
				For N = 1 To 90 : Nu(1) = N
					If SerieFreq(Ini,Fin,Nu,Ru,1) = 0 Then Scrivi Format2(N) & " ",0,0
				Next
				Scrivi
		Next
	Scrivi
	Scrivi FormatSpace(K - 1,2) & "Ruote Unite ",1,0
	For N = 1 To 90 : Nu(1) = N
		If SerieFreq(Ini,Fin,Nu,aRuote,1) = 0 Then Scrivi Format2(N) & " ",1,0
	Next
End Sub

korokoro · 6 Agosto 2014

Joe91 ha scritto:

Ciao Leo.

Prova così :

Codice:

'Ricerca Lottroni NON Estratti By Joe V.2.0 Compatibile L8+ e Spaziometria
Sub Main
	Dim Nu(1),Ru(1)
	Fin = EstrazioneFin
	q = CInt(InputBox("Quante Estrazioni ?","AMPIEZZA INTERVALLO",18)) - 1
	Ini = Fin - q
	Scrivi "Ricerca LOTTRONI NON ESTRATTI (By Joe)",1 :Scrivi
	Scrivi q + 1 & " Estrazioni dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1 :Scrivi
	SR = InputBox ("Es : 1.5.9.12 = Ba_ Mi_ To_ Nz_","SCEGLI LE RUOTE","1.5.9.12")
	If SR = "11" Then SR = "1.2.3.4.5.6.7.8.9.10" 'abbreviazione TT
	aRuote = Split ("0."&SR,".")
		For k = 1 To UBound(aRuote)
				NR = CStr(NomeRuota(aRuote(k))) : LNR = 13 - Len(NR)
				Scrivi(NR),1,0 : Scrivi String(Lnr,".") & " ",1,0
				Ru(1) = aRuote(k)
				For N = 1 To 90 : Nu(1) = N
					If SerieFreq(Ini,Fin,Nu,Ru,1) = 0 Then Scrivi Format2(N) & " ",0,0
				Next
				Scrivi
		Next
	Scrivi
	Scrivi FormatSpace(K - 1,2) & "Ruote Unite ",1,0
	For N = 1 To 90 : Nu(1) = N
		If SerieFreq(Ini,Fin,Nu,aRuote,1) = 0 Then Scrivi Format2(N) & " ",1,0
	Next
End Sub

FANTASTICO 1000 GRAZIE

Alien. · 14 Agosto 2014

disaronno ha scritto:
Buongiorno,
salutando ed augurando a tutti buone ferie, allego listato modificato con aggiunta scelta archivio.
Vedo che Joe91, è un pò ostico verso i nuovi giochi.
Comunque , per curiosità, vada a vedere Listati UK 49's , potrebbe dare una mano ,visto la sua esperienza.
Controllare sempre,salvo errori.

Codice:

Sub Main Dim Nu(1),tipoarchivio tipoarchivio = ScegliArchivio Call ImpostaArchivio10ELotto(tipoarchivio) Fin = EstrazioniArchivioDL q = CInt(InputBox("Quante Estrazioni ?","RITARDO MINIMO",13)) - 1 Ini = Fin - q Scrivi "10eLotto Ritardatari (By Joe)",1 :Scrivi Scrivi q + 1 & " Estrazioni dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(Fin),1 :Scrivi Scrivi "NUMERI NON ESTRATTI : ",1,0 For N = 1 To 90 : Nu(1) = N If SerieFreqDL(Ini,Fin,Nu,1) = 0 Then Scrivi Format2(N) & " ",1,0 Next End Sub Function ScegliArchivio() ReDim aVoci(1) aVoci(0) = "10 e lotto" aVoci(1) = "10 e lotto 5 min" ScegliArchivio = ScegliOpzioneMenu(aVoci,0,"Secegli aechivio") + 1 End Function

***************************
ottimo,
MI PERDONI sarebbe possibile inserire anche i più frequenti a scelta? grazie.

Qualcuno riesce a realizzarlo?

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Super member

Advanced Member >PLATINUM PLUS<

Super member

Advanced Premium Member