Novità

Uno script per favore

pfca

pfca

Advanced Member >GOLD<
Ciao Stafania,
dai uno squardo a questo script se ti può aiutare:

'Script richiesto da chicco165. Elaborato da pfca
Sub Main()
Dim num(10)
Dim n1(6)
Dim n2(5)
Dim ruote(2)
Dim posta(1)
posta(1) = 1
r = InputBox("Scegli la prima ruota di gioco? ",,2)
fin = EstrazioneFin
ini = InputBox("Quante Estrazioni precedenti vuoi controllare? ",,300)
colpi = InputBox("Per quanti colpi vuoi giocare? ",,12)
For es = fin - ini To fin
ess = es - 3
dd = 0
a = Estratto(es,r,1)
b = Estratto(es,r,2)
c = Estratto(es,r,3)
d = Estratto(es,r,4)
e = Estratto(es,r,5)
num(1) = Fuori90(a+b)
num(2) = Fuori90(b+c)
num(3) = Fuori90(c+d)
num(4) = Fuori90(d+e)
num(5) = Fuori90(num(1)+num(2))
num(6) = Fuori90(num(2)+num(3))
num(7) = Fuori90(num(3)+num(4))
n1(1) = Fuori90(num(5)+num(6))
n1(2) = Fuori90(num(6)+num(7))

Scrivi "-------------------------------------------------------------------"
ColoreTesto 1
Scrivi DataEstrazione(es) & " Ruote: " & Left(NomeRuota(r),2) &" - " & Left(NomeRuota(r+1),2),0,0,6
ColoreTesto 2
Scrivi String(10," ") & " Ambate: " & FormatSpace(n1(1),2) & " - " & FormatSpace(n1(2),2),1,1,4
ColoreTesto 0
'Scrivi "-------------------------------------------------------------------"
For mm = ess To es - 1
For ppp = 1 To 5
n2(1) = Estratto(mm,r,ppp)
n2(2) = Estratto(mm,r,ppp)
n2(1) = Estratto(mm,(r + 1),ppp)
n2(2) = Estratto(mm,(r + 1),ppp)
If n2(1) = n1(1) Or n2(1) = n1(1) Then dd = 1
If n2(2) = n1(2) Or n2(2) = n1(2) Then dd = 1
Next
Next
If dd = 0 Then
ruote(1) = r
ruote(2) = r + 1

ImpostaGiocata 1,n1,ruote,posta,colpi,1

Gioca es
End If
If dd = 1 Then Scrivi " Presente nelle 3 precedenti" End If

Next
Scrivi ""
Scrivi " • pfca • per Chicco165 ",1,1,2
Scrivi ""
ScriviResoconto
End Sub


C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco
 
S

stefania1972

Senior Member
Grazie pfca ottimo script sono due ambate su due ruote e in pochi copi con una buona percentuale di uscita , secondo te li posso usare come accoppiamenti per ambate o le devo giocare solo come ambate , grazie ciao .
 
pfca

pfca

Advanced Member >GOLD<
Ciao il gioco è principalmente per ambata, ma se può aiutarti ad abbinare i risultati ad altri numeri penso possa andare bene.
Se vuoi ti posso postare la variazione per elaborare solo una ruota e giocare pure l'ambo.
Altrimenti ti posto una mia idea che dall'inizio dell'anno ha avuto buoni esiti,
solo che quest'ultimo mese mi ha dato buca, comunque su 11 mesi a vinto 10 volte.


C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco
 
S

stefania1972

Senior Member
Grazie kjo , grazie pfca

Ciao il gioco è principalmente per ambata, ma se può aiutarti ad abbinare i risultati ad altri numeri penso possa andare bene.
Se vuoi ti posso postare la variazione per elaborare solo una ruota e giocare pure l'ambo.
Altrimenti ti posto una mia idea che dall'inizio dell'anno ha avuto buoni esiti,
solo che quest'ultimo mese mi ha dato buca, comunque su 11 mesi a vinto 10 volte.


C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

--------------------------------------------------------------------------------
Modificato da - pfca on 04/11/2011 23:13:19

Spero mi puoi mandare la variazione per giocare solo una ruota e giocare pure l'ambo , e anche la tua idea , non ti preoccupare per la buca dell'ultimo mese , e tutto normale , non siamo mica maghi , grazie , ciao .
 
pfca

pfca

Advanced Member >GOLD<
Ciao Stefania,
questo è il primo listato modificato per Ruota singola e per Ambo.
Provalo anche su altre ruote per vedere come si comporta e se ti piace
usalo con raziocinio essendo il lotto un gioco.

'Script richiesto da chicco165. Elaborato da pfca
'Modificato per Stefania1972 in ruota singola e Ambo
Sub Main()
Dim num(10)
Dim n1(6)
Dim n2(5)
Dim ruote(2)
Dim posta(2)
Dim poste(3)
posta(1) = 1
posta(2) = 1
poste(2) = 1
poste(3) = 1

r = InputBox("Scegli la prima ruota di gioco? ",,2)
fin = EstrazioneFin
ini = InputBox("Quante Estrazioni precedenti vuoi controllare? ",,300)
colpi = InputBox("Per quanti colpi vuoi giocare? ",,12)
For es = fin - ini To fin
ess = es - 3
dd = 0
a = Estratto(es,r,1)
b = Estratto(es,r,2)
c = Estratto(es,r,3)
d = Estratto(es,r,4)
e = Estratto(es,r,5)
num(1) = Fuori90(a + b)
num(2) = Fuori90(b + c)
num(3) = Fuori90(c + d)
num(4) = Fuori90(d + e)
num(5) = Fuori90(num(1) + num(2))
num(6) = Fuori90(num(2) + num(3))
num(7) = Fuori90(num(3) + num(4))
n1(1) = Fuori90(num(5) + num(6))
n1(2) = Fuori90(num(6) + num(7))

Scrivi "-------------------------------------------------------------------"
ColoreTesto 1
Scrivi DataEstrazione(es) & " Ruote: " & Left(NomeRuota(r),2) & " - " & Left(NomeRuota(r + 1),2),0,0,6
ColoreTesto 2
Scrivi String(10," ") & " Ambate: " & FormatSpace(n1(1),2) & " - " & FormatSpace(n1(2),2),1,1,4
ColoreTesto 0
'Scrivi "-------------------------------------------------------------------"
For mm = ess To es - 1
For ppp = 1 To 5
n2(1) = Estratto(mm,r,ppp)
n2(2) = Estratto(mm,r,ppp)
If n2(1) = n1(1) Or n2(1) = n1(1) Then dd = 1
If n2(2) = n1(2) Or n2(2) = n1(2) Then dd = 1
Next
Next
If dd = 0 Then
ruote(1) = r
ImpostaGiocata 1,n1,ruote,posta,colpi,1
ImpostaGiocata 2,num,ruote,poste,colpi,2
Gioca es',-1
End If
If dd = 1 Then Scrivi " Presente nelle 3 precedenti" End If
'End If
Next
Scrivi ""
Scrivi " • pfca • per Stefania1972 ",1,1,2
Scrivi ""
ScriviResoconto
End Sub

pfca

C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco
 
pfca

pfca

Advanced Member >GOLD<
Ciao Stefania,
questo è il secondo script:

'Ruote BA-CA Ultima del mese
Sub Main
Dim numeri(10)
Dim ruote(10)
Dim posta(3)
posta(1) = 0
posta(2) = 1
posta(3) = 1

r = 1
ruote(2) = 2
ruote(1) = 1
k = 13

For n = 8300 To EstrazioneFin
If IndiceMensile(n + 1) = 1 Then

numeri(1) = Estratto(n,r,1)
numeri(2) = Estratto(n,r,2)
numeri(3) = Vert(Estratto(n,r,3))
numeri(4) = Estratto(n,r,4)
numeri(5) = Estratto(n,r,5)

ImpostaGiocata 1,numeri,ruote,posta,k,2
Gioca n,- 1
End If
Next
ScriviResoconto
End Sub

pfca

C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco
 
S

stefania1972

Senior Member
Grazie pfca , a breve forse oggi pomeriggio ti postero' un mio ultimo studio sulla ripetizione dell'ultimo numero , e spero che tra te e claudio , riusciremo a trovare qualcosa di buono per noi e per tutti .
Grazie ciao .
 
S

stefania1972

Senior Member
Ciao ragazzi questo e il mio ultimo studio si tratta della ripetizione dell'ultimo numero uscito tratto dai grani studiosi del passato sull'armonia quadratica dei numeri e modificato da me , vi spiego il tutto ho usato questo script fatto dall'utente genlotto che non riesco piu' a sentire per spiegargli a cosa serviva lo script che mi aveva fatto perche ' solo ora ho ultimato il lavoro , lo script e' questo :


'x stefania1972 Distanza xx verticale&orizzontale
'[<http://forum.lottoced.com/topic.asp?TOPIC_ID=136820>]
Sub Main()
ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",20))
ds1 = CInt(InputBox("Quale distanza Orizzontale ?","ORIZZONTALE",15))
ds2 = CInt(InputBox("Quale distanza Verticale ?","VERTICALE",30))
casi = 0
fin = EstrazioneFin
ini = fin - ee
For es = ini To fin
Messaggio "elab. n° " & es & " del " & DataEstrazione(es) & " [ by Genlotto ]"
For r1 = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1) : b = Estratto(es,r1,p2) : Do1 = Distanza(a,b)
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12
For p3 = 1 To 4
For p4 = p3 + 1 To 5
c = Estratto(es,r2,p3) : d = Estratto(es,r2,p4) : Do2 = Distanza(c,d)
Dv1 = Distanza(a,c) :Dv2 = Distanza(b,d)
If do1 = do2 And do1 = ds1 Then
If dv1 = dv2 And dv1 = ds2 Then
casi = casi + 1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] [ " & Format2(a) & "." & Format2(b) & " in " & p1 & "/" & p2 & " ^ pos. ] O. > " & ds1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
" ] [ " & Format2(c) & "." & Format2(d) & " in " & p3 & "/" & p4 & " ^ pos. ] V. > " & ds2
Scrivi String(64,"-") & " caso n° " &(casi)
End If
End If
Next
Next
Next
Next
Next
Next
Next
End Sub




Il mio studio mette in gioco l'ultimo numero estratto per ambata sulle due ruote , e dai mie studi i quadrati piu' armonici sono :
distanza orizzontale 36 distanza verticale 30
distanza orizzontale 9 distanza verticale 27
distanza orizzontale 30 distanza verticale 45

Questi con una percentuale di oltre il 90% su 200 estrazioni


distanza orizzontale 9 distanza verticale 9

distanza orizzontale 9 distanza verticale 30

distanza orizzontale 18 distanza verticale 9
distanza orizzontale 18 distanza verticale 27

distanza orizzontale 27 distanza verticale 30

distanza orizzontale 15 distanza verticale 45

distanza orizzontale 45 distanza verticale 9

distanza orizzontale 45 distanza verticale 27

Questi con una percentuale del 90% su 200 estrazioni.

Chiedo a pfca e claudio8 se sarebbe possibile modificare lo script per mettermi da solo l'ultimo numero come ambata senza che lo devo controllare dalle estrazioni , e in piu' se lo studio per voi e buono si potrebbe provare a cecare di arrivare all'ambo ?
Spero in una vostra collaborazione e che possiate aiutarmi , per ora vi posso dire solo che quando il numero sulle due ruote ritarda da piu' di 25 -30 estrazioni o si allunga o non esce piu' , grazie , ciao .
 
C

claudio8

Premium Member
Questo che ti posto è lo schema di ricerca
Codice: 
'a - do1 - b
'dv1      dv2
'c - do2 - d

mi dici quale e il numero da mettere in gioco a, b, c, o d

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"
 
S

stefania1972

Senior Member
Ciao claudio8 se tu prendi lo script che ho postato fatto da genlotto nelle richieste ti chiede quante estrazioni vuoi esaminare ? ci metti quello che vuio 100- 200 , poi Quale distanza orizzontale ? qui devi sequire il mio studio ci metti ad esempio 36 , poi quale distanza verticale ? ci metti 30 , nell' output

===========================================================================
giovedì, lug 21 2011 [ MI - 58.75.88.22.76 ] [ 58.22 in 1/4 ^ pos. ] O. > 36
giovedì, lug 21 2011 [ RM - 77.87.88.27.52 ] [ 88.52 in 3/5 ^ pos. ] V. > 30
---------------------------------------------------------------- caso n° 1


ci sono due ruote milano con ( 58-22 ) e romacon ( 88-52 ) l'ultimo numero estratto e' il 52 , che si rimette in gioco come ambata sulle due ruote .
Spero di essere stata piu' chiara e di una vostra collaborazione , grazie , ciao .
 
C

claudio8

Premium Member
Controllare sempre gli output degli script.
Codice: 
Sub Main()
	ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",200))
	ds1 = CInt(InputBox("Quale distanza Orizzontale ?","ORIZZONTALE",36))
	ds2 = CInt(InputBox("Quale distanza Verticale ?","VERTICALE",30))
	clp = 9 ' colpi
	casi = 0
	Dim n(4)
	Dim ruote(2)
	Dim posta(1)
	fin = EstrazioneFin
	ini = fin - ee
	For es = ini To fin
		Messaggio "elab. n° " & es & " del " & DataEstrazione(es) & " [ by Genlotto ]"
		For r1 = 1 To 10
			For p1 = 1 To 4
				For p2 = p1 + 1 To 5
					a = Estratto(es,r1,p1)
					b = Estratto(es,r1,p2)
					Do1 = Distanza(a,b)
					For r2 = r1 + 1 To 12
						If r2 = 11 Then r2 = 12
						For p3 = 1 To 4
							For p4 = p3 + 1 To 5
								c = Estratto(es,r2,p3)
								d = Estratto(es,r2,p4)
								Do2 = Distanza(c,d)
								Dv1 = Distanza(a,c)
								Dv2 = Distanza(b,d)
								If do1 = do2 And do1 = ds1 Then
									If dv1 = dv2 And dv1 = ds2 Then
										'a - do1 - b
										'dv1      dv2
										'c - do2 - d
										casi = casi + 1
										Scrivi String(75,"="),1
										Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
										" ] [ " & Format2(a) & "." & Format2(b) & " in " & p1 & "/" & p2 & " ^ pos. ] O. > " & ds1
										Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
										" ] [ " & Format2(c) & "." & Format2(d) & " in " & p3 & "/" & p4 & " ^ pos. ] V. > " & ds2
										Scrivi String(64,"-") & " caso n° " &(casi)
										n(1) = a ' se da escludere inserire l'apice  '   avanti alla istruzione
										n(2) = b
										n(3) = c
										n(4) = d
										ruote(1) = r1
										ruote(2) = r2
										posta(1) = 1
										ImpostaGiocata 1,n,ruote,posta,clp
										Gioca es,True,,2 '(mostra solo i casi positivi di ambata)
									End If
								End If
							Next
						Next
					Next
				Next
			Next
		Next
	Next
	ScriviResoconto False,False
End Sub

TI HO INSERITO TUTTI I 4 NUMERI IN GIOCATA IN MODO CHE TU POSSA CONTROLLARE SE QUALCHE ALTRO SIA UGUALMENTE VALIDO O SE SI ACCOPPIANO X ESITI SUPERIORI.

ciao


Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"
 
S

stefania1972

Senior Member
Ciao claudio8 , gentilissimo come sempre lo script va benissimo , pensa che io i controlli li ho fatti tutti condue programmi aperti uno con l'estrazione e uno con lo script , qualche volta si accoppiano per ambo pero' il gioco e di sola ambata e esce sempre prima , quindi l'ambo non lo prenderemmo quasi mai ,e di controlli ne ho fatti tantissimi e da parecchio che ci sto lavorando sopra , e le distanze che ti ho scritto sono le migliori con le percentuali , ora confido in voi visto che abbiamo sempre un quadrato di 4 numeri e una sola ambata a trovare l'accoppiamento per ambo io ancora non ci sono riuscita , grazie , ciao .
 
C

claudio8

Premium Member
quote:Originally posted by stefania1972

Ciao claudio8 , gentilissimo come sempre lo script va benissimo , pensa che io i controlli li ho fatti tutti condue programmi aperti uno con l'estrazione e uno con lo script , qualche volta si accoppiano per ambo pero' il gioco e di sola ambata e esce sempre prima , quindi l'ambo non lo prenderemmo quasi mai ,e di controlli ne ho fatti tantissimi e da parecchio che ci sto lavorando sopra , e le distanze che ti ho scritto sono le migliori con le percentuali , ora confido in voi visto che abbiamo sempre un quadrato di 4 numeri e una sola ambata a trovare l'accoppiamento per ambo io ancora non ci sono riuscita , grazie , ciao .
Clicca per espandere...

Ti riposto lo script con l'aggiunta di altri 2 cicli for per la gestione di tutte le possibili combinazioni di distanze orizzontali e verticali.
entrambi i nuovi " for ds1 = 1 to 2 for ds2 = 1 to 2 possono essere portati al valore massimo di 90 e ti elaborano le 8.100 possibili combinazioni di distanze verticali ed orizzontali.
Sappi che se sul tuo pc lo scripi normale ci impiege 30 secondi, questo se richiesto x le 8100 combinazioni ci impiega oltre 4000 minuti, .... oltre 11 ore.
Non voglio essere il solito ...... ma sicuramente tra le 8100 nuove combinazioni, potresti trovarne qualcuna + redditizia della tue attuali.
IMPOSTARE IL TIME-OUT DI SPAZIOSCRIPT AD INFINITO
NB: ho inserito l'interruzione script x poterlo fermare in qualsiasi momento. SE lo fermi , salvo riparte poi da zero.
Ti consiglio di fare le prove a blocchi gestendo i 2 cicli for iniziali tipo "for ds1 = 1 to 1 e "for ds2 = 1 to 90 (45 minuti)
NB: i rendiconti non sono veritieri perchè non possono essere parziali, sono solo cumulativi di tutte le giocate impostate nello script.

Codice: 
Sub Main()
	ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",200))
	'ds1 = CInt(InputBox("Quale distanza Orizzontale ?","ORIZZONTALE",36))
	'ds2 = CInt(InputBox("Quale distanza Verticale ?","VERTICALE",30))
	clp = 9 ' colpi
	casi = 0
	Dim n(4)
	Dim ruote(2)
	Dim posta(1)
	fin = EstrazioneFin
	ini = fin - ee
	For ds1 = 1 To 2 '90 max valore
		For ds2 = 1 To 2 '90 max  valore
			For es = ini To fin
				Messaggio "elab. n° " & es & " del " & DataEstrazione(es) & " [ by Genlotto ]"
				For r1 = 1 To 10
					For p1 = 1 To 4
						For p2 = p1 + 1 To 5
							a = Estratto(es,r1,p1)
							b = Estratto(es,r1,p2)
							Do1 = Distanza(a,b)
							For r2 = r1 + 1 To 12
								If r2 = 11 Then r2 = 12
								For p3 = 1 To 4
									For p4 = p3 + 1 To 5
										c = Estratto(es,r2,p3)
										d = Estratto(es,r2,p4)
										Do2 = Distanza(c,d)
										Dv1 = Distanza(a,c)
										Dv2 = Distanza(b,d)
										If do1 = do2 And do1 = ds1 Then
											If dv1 = dv2 And dv1 = ds2 Then
												'a - do1 - b
												'dv1      dv2
												'c - do2 - d
												casi = casi + 1
												Scrivi String(75,"="),1
												Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
												" ] [ " & Format2(a) & "." & Format2(b) & " in " & p1 & "/" & p2 & " ^ pos. ] O. > " & ds1
												Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
												" ] [ " & Format2(c) & "." & Format2(d) & " in " & p3 & "/" & p4 & " ^ pos. ] V. > " & ds2
												Scrivi String(64,"-") & " caso n° " &(casi)
												n(1) = a ' se da escludere inserire l'apice  '   avanti alla istruzione
												n(2) = b
												n(3) = c
												n(4) = d
												ruote(1) = r1
												ruote(2) = r2
												posta(1) = 1
												ImpostaGiocata 1,n,ruote,posta,clp
												Gioca es,True,,2 '(mostra solo i casi positivi di ambata)
											End If
										End If
									Next
								Next
							Next
						Next
					Next
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 maggio 2024
    Bari
    71
    67
    47
    25
    88
    Cagliari
    24
    54
    06
    42
    02
    Firenze
    12
    33
    75
    30
    68
    Genova
    51
    70
    74
    37
    73
    Milano
    50
    81
    15
    25
    71
    Napoli
    58
    54
    43
    63
    52
    Palermo
    50
    80
    31
    04
    67
    Roma
    26
    57
    85
    89
    05
    Torino
    18
    07
    82
    14
    78
    Venezia
    54
    49
    86
    34
    28
    Nazionale
    51
    07
    24
    90
    75
    Estrazione Simbolotto
    Milano
    43
    23
    31
    10
    01
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto