per Luigi B 10elotto

Roby · 20 Gennaio 2011

ciao Luigi, scusa se ti disturbo, ogni tanto ti disturbo, potresti se possibile aggiungere le combonazioni più rappresentative anche al 10elotto come nel superenalotto? grazie un saluto.

imported_n/a · 20 Gennaio 2011

Per questa richiesta mi associo anch'io, sarebbe anche utile avere l'archivio 10elotto(solo estrazioni del lotto) per poter elaborare delle statistiche con gli script.

Ciao
Mike58

LuigiB · 20 Gennaio 2011

no ragazzi mi dispiace

pico2005 · 21 Gennaio 2011

Codice:

Sub Main() Scrivi "by Pico2005",1 Dim n,nu(50),a(20) w = eval(InputBox("quante estrazioni indietro vuoi vedere?",,10)) For n = EstrazioneFin - w To EstrazioneFin h = EstrazioneFin - n k = 0 s = 0 For x = 1 To 30 r = x Mod 10 If r = 0 Then r = 10 If x = 10 Or x = 20 Or x = 30 Then pos = Int(x/10) Else pos = Int(x/10) + 1 k = k + 1 nu(k) = Estratto(n,r,pos) For z = 1 To k - 1 If nu(z) = nu(k) Then nu(k) = 0 End If Next If nu(k) > 0 Then s = s + 1:a(s) = nu(k) If s = 20 Then x = 30 Next OrdinaMatrice a,1,1 For x = 1 To 20 b = b & Format2(a(x)) & " - " Next Scrivi b & DataEstrazione(n) b = "" Next End Sub

Per quanto possa essere utile allo scopo.

imported_n/a · 21 Gennaio 2011

Luigi, grazie lo stesso,capisco che il 10 e lotto non riesce a piacerti, peccato!!! comunque non c'è problema.

Per PICO2005, grazie dello script mi serviva estrapolare la combinazione 10 e lotto dalle estrazioni lotto sapevo che era possibile, cercherò di capire il procedimento al fine di ricavarci indicazioni utili allo scopo.

A buon rendere, io avevo questo vedi se puoi aiutarmi a modificare le frequenze ed i ritardi.

'Al 10eLotto si vince cosi' 1° combinaz.by Fabio Bubu' da superlotto
Sub Main()
Dim numeri(10),gg(10),rc(20)
'rr = InputBox("quale ruota vuoi prendere In esame ? - - 1 - 10 - - ",,1)
'xx = InputBox(" quale Estratto della Ruota in esame ? - - 1,2 - - ",,1)
ini = 8000
fin = EstrazioneFin
casi = 0

colpi = 13
For n = ini To fin
If IndiceMensile

= 1 Then
numeri(1) = 5
numeri(2) = 14
numeri(3) = 60
numeri(4) = 75
numeri(5) = 83
numeri(6) = 79
numeri(7) = 42
numeri(8) = 47
numeri(9) = 59
numeri(10) = 67
casi = casi + 1

For i = 1 To 10

If numeri(i) = 0 Then numeri(i) = 90
Next
nn = 0
If NumeriRipetuti(numeri) Then
nn = 1
While NumeriRipetuti(numeri)
For i = 1 To 9
For y = i + 1 To 10
If numeri(i) = numeri

Then numeri

= Fuori90(numeri

+ 89)
Next
Next
Wend
End If
OrdinaMatrice numeri,1 ' cosi mette in numeri in ordine crescente
Scrivi : Scrivi String(55," = ")
If nn = 1 Then Scrivi "Erano presenti numeri ripetuti,è stato fatto il - 1",1
ColoreTesto 1
Scrivi n & " " & DataEstrazione

& " Numeri in gioco per il mese: " & StringaNumeri(numeri),1
Scrivi : ColoreTesto 0
ess = n + colpi
If ess > fin Then ess = fin
For x = n + 1 To ess
co = 0
For r = 1 To 10
For p = 1 To 2
co = co + 1
a = Estratto(x,r,p)
rc(co) = a
Next
Next
OrdinaMatrice rc,1 'solo x controllo
'Scrivi x & " " & StringaNumeri(rc)'solo x controllo questo con ripetuti
If NumeriRipetuti(rc) Then
c = 0
While NumeriRipetuti(rc)
c = c + 1
b = b + 1
For i = 1 To 19
For y = i + 1 To 20
If rc(i) = rc

Then rc

= Estratto(x,c,3)
Next
Next
Wend
End If
OrdinaMatrice rc,1 'solo x controllo
Scrivi x & " " & StringaNumeri(rc),2'solo x controllo senza i ripetuti e sostituiti...
'metti apice sopra se non vuoi vedere la ventina...
cont = 0
For i = 1 To 20
For j = 1 To 10
If rc(i) = numeri(j) Then
cont = cont + 1
End If
Next
Next
ColoreTesto 2
If cont = 0 Then Scrivi "Punti Zero al " &(x - n) & "° colpo" : c1 = c1 + 1
ColoreTesto 1
If cont = 1 Then Scrivi"Punti uno al " &(x - n) & "° colpo" : c8 = c8 + 1
If cont = 2 Then Scrivi"Punti due al " &(x - n) & "° colpo" : c9 = c9 + 1
If cont = 3 Then Scrivi"Punti tre al " &(x - n) & "° colpo" : c10 = c10 + 1
If cont = 4 Then Scrivi"Punti quattro al " &(x - n) & "° colpo" : c11 = c11 + 1

ColoreTesto 2

If cont = 5 Then Scrivi "Punti Cinque al " &(x - n) & "° colpo" : c2 = c2 + 1
If cont = 6 Then Scrivi "Punti Sei al " &(x - n) & "° colpo" : c3 = c3 + 1
If cont = 7 Then Scrivi "Punti Sette al " &(x - n) & "° colpo" : c4 = c4 + 1
If cont = 8 Then Scrivi "Punti Otto al " &(x - n) & "° colpo" : c5 = c5 + 1
If cont = 9 Then Scrivi "Punti Nove al " &(x - n) & "° colpo" : c6 = c6 + 1
If cont = 10 Then Scrivi"Punti Dieci al " &(x - n) & "° colpo" : c7 = c7 + 1
ColoreTesto 0
Next
End If
Next
Scrivi : Scrivi " RESOCONTO TOTALE ",1
Scrivi " Periodo dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin)
Scrivi " - - - - - - - - - - - - - - - - - - " : ColoreTesto 0
Scrivi " CASI ANALIZZATI : " & casi
Scrivi " - - - - - - - - - - - - - - - - - - " : Scrivi : ColoreTesto 2
Scrivi FormatSpace(" ZERO",10) & ": " & c1,1
ColoreTesto 1
Scrivi FormatSpace(" UNO",10) & ": " & c8,1
Scrivi FormatSpace(" DUE",10) & ": " & c9,1
Scrivi FormatSpace(" TRE",10) & ": " & c10,1
Scrivi FormatSpace(" QUATTRO",10) & ": " & c11,1

ColoreTesto 2
Scrivi FormatSpace(" CINQUE",10) & ": " & c2,1
Scrivi FormatSpace(" SEI",10) & ": " & c3,1
Scrivi FormatSpace(" SETTE",10) & ": " & c4,1
Scrivi FormatSpace(" OTTO",10) & ": " & c5,1
Scrivi FormatSpace(" NOVE",10) & ": " & c6,1
Scrivi FormatSpace(" DIEC

pico2005 · 21 Gennaio 2011

Ti prego, non pungere.
Vedi il laroro di troppa gente è copiare ed approfittare della disponibilità degli altri, finchè non si giunge alla rottura, nonostante l'immenso piacere che ha Luigi di aiutarci.
Però, quando l'aiuto può prescindere dal nostro intervento ( meglio imparare a coltivare ed a panificare anzichè dargli pane ) anche tu avresti fatto la stessa cosa.

Collaboriamo è la parola d'ordine, ma senza prescindere dal nostro contributo fattivo.

Scusa

L'argomento non è di mio interesse ma per quanto cercherò di ricavarne qualche cosa di utile ...se possibile.

Un Saluto

Mat · 21 Gennaio 2011

Luigi non é solo Spaziometria, tempo fa realizzò anche quest'ottimo programma di 10 e lotto, dove dovrebbe esserci tutto quello che cercate:

http://forum.lottoced.com/download/10ELotto.zip

Anche se non lo uso da mesi per mancanza di tempo, credo che dovrebbe essere scaricabile.
Ciao,

Matteo

imported_n/a · 21 Gennaio 2011

Ciao PICO2005

Assolutamente non c'è nessuna intenzione di pungere nessuno e tantomeno Luigi che è sempre stato sempre gentilissimo con me e con tanti altri, nonchè utilissimo alla crescita di noi tutti utenti del forum.

Se questo può essere stato letto nelle mie righe me ne dispiace e chiedo scusa, ma come sempre i miei pochi interventi sono mirati al chiedere sempre in modo lecito ( senza nessuna pretesa ) e condividere quel poco che ho imparato.

Ciao Mike58

imported_n/a · 21 Gennaio 2011

Aggiungo per Luigi la mia risposta voleva solo essere una presa visione della tua risposta visto che comunque dedichi il tuo tempo a rispondere alle richieste.

Ma credi è solo cortesia alla cortesia.

Ciao Mike58

LuigiB · 21 Gennaio 2011

Ciao Mike , non preoccuparti hai fatto bene non mi sono mica offeso
Pico pero' ha comunque detto una cosa giusta anche se non riferita alle parole scritte da te...
Ciao

pico2005 · 21 Gennaio 2011

Forse questo potrà farvi piacere....non è mio ma di Rosanna, Ramco ed Hetman.

l'ho solo adattato, a dir la verità con solo due virgole, a Spaziometria

Codice:

[b]Sub Main()
'0903_46c RoRa 10eLotto Hetman - versione valida per L8+6.1.34 +resoconto
'Verifica le sortite sul 10eLotto di alcuni numeri scelti
'modificato dall'originale di Rosanna da Ramco, e poi da Rosanna
'percorso diverso creazione ventina
'con aggiunta di simulazione giocate (calcolo premi e spese) da rosanna adattato da Pico2005 a Spaziometria


Dim stati(11,2),vet(20),Vet2(30),nu(),stat(),premi(10)
'-------------------------------------------------------PREPARO LA MATRICI ED IL VETTORE NU
stati(1,1) = 0 :stati(1,2) = 0
For i = 2 To 11
stati(i,1) = i - 1
stati(i,2) = 0
Next
'n="02.47.61.71.07.63.58.38.04.60" '<== scrivi qui i numeri desiderati separati da punto
n = InputBox("scrivi qui i numeri desiderati separati da punto","02.47.61.71.07.63.58.38.04.60")
Euro = 1 '<====== posta giocata del 10eLotto
'--------------
premi(0) = 2
premi(5) = 5
premi(6) = 15
premi(7) = 100
premi(8) = 1000
premi(9) = 30000
premi(10) = 500000
'-----------------

num = Split("0." & n,".")'Assegna a "nu" ogni valore di "n" da "stringatesto" a "Variant"
For x = 1 To 10 : num(x) = CInt(num(x)) : Next 'trasforma le variabili "Variant" in "Integer"
Call OrdinaMatrice(num,1)
'----------------------------------------------------------------------------------------
Scrivi " VERIFICA SORTITE 10&LOTTO DEI NUMERI " & StringaNumeri(num) & Chr(10),1
ini = EstrazioneFin - 200
fin = EstrazioneFin

For es = ini To fin
'---------------------queste righe da qui a.....
co = 0
For r = 1 To 10
For p = 1 To 2
co = co + 1 : vet(co) = Estratto(es,r,p)
Next
Next
co = 0
For p = 3 To 5
For r = 1 To 10
co = co + 1 : Vet2(co) = Estratto(es,r,p)
Next
Next
Call OrdinaMatrice(vet,1)
If NumeriRipetuti(vet) Then
c = 0
While NumeriRipetuti(vet)
c = c + 1 : s = 0
For i = 1 To 19
If s = 1 Then Exit For
For y = i + 1 To 20
If s = 1 Then Exit For
If vet(i) = vet(y) Then vet(y) = Vet2(c): s = 1
Next
Next
Wend
End If
Call OrdinaMatrice(vet,1)
'--------------------------------------a qui, permettono l'utilizzo con L8+....

cont = 0 : riga = ""
For i = 1 To 20
For j = 1 To 10
If vet(i) = num(j) Then cont = cont + 1: riga = riga & vet(i) & " "
Next
Next


For i = 1 To 11
If cont = stati(i,1) Then stati(i,2) = stati(i,2) + 1
Next

spesa = spesa + Euro
ric = premi(cont)*Euro
If cont = 0 Or cont > 4 Then Ric = "(Vinti " & ric & " Euro)" Else ric = ""
incasso = incasso +(premi(cont))

'NOTA SE VUOI IL DETTAGLIO X OGNI ESTRAZIONE TOGLI GLI APICI DAVANTI ALLE PROSSIME 3 RIGHE
'Scrivi
'Scrivi Es & " "& StringaNumeri(vet)
If premi(cont) > 0 Then ColoreTesto 1 : Scrivi Es & " " & cont & " sortiti " & riga : ColoreTesto 2: Scrivi ric,1: ColoreTesto 0
Next
'=========================================================== SCRIVO IL RIEPILOGO FINALE
Scrivi : Scrivi "RIEPILOGO COMPLESSIVO DEGLI ESITI ",1
Scrivi "dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin) & Chr(10),1

For i = 1 To 11
Scrivi FormatSpace(stati(i,1),2,1) & FormatSpace(stati(i,2),5,1)
Next

Scrivi
Scrivi " RESOCONTO ECONOMICO",1
Scrivi " spesa tot " & spesa
Scrivi " incasso " & incasso
Scrivi " saldo " & incasso - spesa
End Sub
[/b]

LuigiB · 21 Gennaio 2011

Ciao Ragazzi , volendo si potrebbe sostituire la funzione InputBox con
ScegliNumeri.
Anche se i due linguaggi lotto script e spazioscript sono piu o meno compatibili , spazioscript ha delle funzionalità in piu per interagire
con l'utente quindi perche non usarle ...

Codice:

Sub Main()
	'0903_46c RoRa 10eLotto Hetman - versione valida per L8+6.1.34 +resoconto
	'Verifica le sortite sul 10eLotto di alcuni numeri scelti
	'modificato dall'originale di Rosanna da Ramco, e poi da Rosanna
	'percorso diverso creazione ventina
	'con aggiunta di simulazione giocate (calcolo premi e spese) da rosanna adattato da Pico2005 a Spaziometria
	Dim stati(11,2),vet(20),Vet2(30),nu(),stat(),premi(10)
	'-------------------------------------------------------PREPARO LA MATRICI ED IL VETTORE NU
	stati(1,1) = 0
	stati(1,2) = 0
	For i = 2 To 11
		stati(i,1) = i - 1
		stati(i,2) = 0
	Next
	'n="02.47.61.71.07.63.58.38.04.60" '<== scrivi qui i numeri desiderati separati da punto
	'n = InputBox("scrivi qui i numeri desiderati separati da punto","02.47.61.71.07.63.58.38.04.60")
	Euro = 1 '<====== posta giocata del 10eLotto
	'--------------
	premi(0) = 2
	premi(5) = 5
	premi(6) = 15
	premi(7) = 100
	premi(8) = 1000
	premi(9) = 30000
	premi(10) = 500000
	'-----------------
	'num = Split("0." & n,".")'Assegna a "nu" ogni valore di "n" da "stringatesto" a "Variant"
	Call ScegliNumeri(num)
	For x = 1 To 10
		num(x) = CInt(num(x))
	Next 'trasforma le variabili "Variant" in "Integer"
	Call OrdinaMatrice(num,1)
	'----------------------------------------------------------------------------------------
	Scrivi " VERIFICA SORTITE 10&LOTTO DEI NUMERI " & StringaNumeri(num) & Chr(10),1
	ini = EstrazioneFin - 200
	fin = EstrazioneFin
	For es = ini To fin
		'---------------------queste righe da qui a.....
		co = 0
		For r = 1 To 10
			For p = 1 To 2
				co = co + 1
				vet(co) = Estratto(es,r,p)
			Next
		Next
		co = 0
		For p = 3 To 5
			For r = 1 To 10
				co = co + 1
				Vet2(co) = Estratto(es,r,p)
			Next
		Next
		Call OrdinaMatrice(vet,1)
		If NumeriRipetuti(vet) Then
			c = 0
			While NumeriRipetuti(vet)
				c = c + 1
				s = 0
				For i = 1 To 19
					If s = 1 Then Exit For
					For y = i + 1 To 20
						If s = 1 Then Exit For
						If vet(i) = vet(y) Then
							vet(y) = Vet2(c)
							s = 1
						End If
					Next
				Next
			Wend
		End If
		Call OrdinaMatrice(vet,1)
		'--------------------------------------a qui, permettono l'utilizzo con L8+....
		cont = 0
		riga = ""
		For i = 1 To 20
			For j = 1 To 10
				If vet(i) = num(j) Then
					cont = cont + 1
					riga = riga & vet(i) & " "
				End If
			Next
		Next
		For i = 1 To 11
			If cont = stati(i,1) Then stati(i,2) = stati(i,2) + 1
		Next
		spesa = spesa + Euro
		ric = premi(cont)*Euro
		If cont = 0 Or cont > 4 Then Ric = "(Vinti " & ric & " Euro)" Else ric = ""
		incasso = incasso +(premi(cont))
		'NOTA SE VUOI IL DETTAGLIO X OGNI ESTRAZIONE TOGLI GLI APICI DAVANTI ALLE PROSSIME 3 RIGHE
		'Scrivi
		'Scrivi Es & " "& StringaNumeri(vet)
		If premi(cont) > 0 Then
			ColoreTesto 1
			Scrivi Es & " " & cont & " sortiti " & riga
			ColoreTesto 2
			Scrivi ric,1
			ColoreTesto 0
		End If
	Next
	'=========================================================== SCRIVO IL RIEPILOGO FINALE
	Scrivi
	Scrivi "RIEPILOGO COMPLESSIVO DEGLI ESITI ",1
	Scrivi "dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin) & Chr(10),1
	For i = 1 To 11
		Scrivi FormatSpace(stati(i,1),2,1) & FormatSpace(stati(i,2),5,1)
	Next
	Scrivi
	Scrivi " RESOCONTO ECONOMICO",1
	Scrivi " spesa tot " & spesa
	Scrivi " incasso " & incasso
	Scrivi " saldo " & incasso - spesa
End Sub

imported_n/a · 21 Gennaio 2011

Ciao Pico, grazie per lo script e senza dubbio di mio gradimento visto che l'argomento e di mio interesse e può servirmi per capire il procedimento ed imparare ulteriormente.

Comunque per sopra nessun problema sono percezioni di come si possono leggere certe righe, ma credimi noi(io) stiamo crescendo grazie alla bravura di pochi che metteno a disposizione la loro competenza e il loro tempo.

GRAZIE

Mike58

Roby · 21 Gennaio 2011

grazie

-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

imported_n/a · 21 Gennaio 2011

Visto dopo ottimo Luigi.

Mike58

Roby · 21 Gennaio 2011

VERIFICA SORTITE 10&LOTTO DEI NUMERI 01.02.03.04.05.06.07.08.09.10.11.12.13.14.15.16.17.18.19.20

RIEPILOGO COMPLESSIVO DEGLI ESITI
spese del sistemino 7 euro
dal 04.09.2007 al 20.01.2011

0 4
1 15
2 50
3 89
4 110
5 125
6 76
7 40
8 17
9 4
10 0

RESOCONTO ECONOMICO
spesa tot 3710
incasso 142773
saldo 139063

[

]

-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

Alien. · 21 Gennaio 2011

COMPLIMENTI RUBINO HAI OCCHIO,OTTIMO SISTEMA DI 20 NUMERI,HAI PER CASO UN RIDOTTO?

dbr · 21 Gennaio 2011

Ciao Alien
prova questo

Sistema 20 numeri in 10 sestine (by WeEf) (3*6)

Numeri in gioco : 20
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
Sviluppo delle 10 combinazioni
#1 01 02 04 06 10 19
#2 01 02 10 12 16 19
#3 01 04 06 10 12 16
#4 02 04 06 12 16 19
#5 03 05 07 13 15 20
#6 03 05 08 09 11 17
#7 03 05 13 14 15 18
#8 07 08 11 14 18 20
#9 07 09 14 17 18 20
#10 08 09 11 13 15 17

gar. di almeno un tre con 6 estratti indovinati al 100%

-dbr-

imported_n/a · 21 Gennaio 2011

Ciao Rubino, ho elaborato lo script di Luigi con il range da te utilizzato e con i numeri da 1 a 20 ma non ottengo lo stesso resoconto.

Puoi per favore delucidarci del come hai ottenuto i tuoi esiti.

I MIEI SONO QUESTI.

RIEPILOGO COMPLESSIVO DEGLI ESITI
dal 22.03.2007 al 20.01.2011

0 44
1 133
2 202
3 133
4 67
5 19
6 2
7 1
8 0
9 0
10 0

RESOCONTO ECONOMICO
spesa tot 601
incasso 313
saldo -288

Mike58

Alien. · 21 Gennaio 2011

Grazie DBR,sono due giorni senza pc avevo l'alimentatore guasto,adesso sto istallando msg dice che devo aggiornare,domani sono a Roma ci sentiamo domenica. come di sembrano i numeri di rubino?

per Luigi B 10elotto

Roby

Guest

Advanced Premium Member

LuigiB

Guest

Super Member >GOLD<

Advanced Premium Member

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

LuigiB

Guest

Super Member >GOLD<

LuigiB

Guest

Advanced Premium Member

Roby

Guest

Advanced Premium Member

Roby

Guest

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member