Uno script per favore

[pfca]

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

 

[stefania1972]

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]

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

 

[Roby]

per tutti gli scripter

Ho inserito uno script al link qui sotto, vedete se vi piace e se si può migliorare(per Ambo) per la gioia di tutti.

http://forum.lottoced.com/topic.asp?TOPIC_ID=139209


ciao



Frank

 

[stefania1972]

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]

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]

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

 

[stefania1972]

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 .

 

[stefania1972]

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) v2 = 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 .

 

[stefania1972]

Se non mi sono spiegata bene o non riuscite a capire qualcosa sono a vostra completa disposizione , grazie , ciao .

 

[claudio8]

Questo che ti posto è lo schema di ricerca

'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 !!!"

 

[stefania1972]

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 .

 

[claudio8]

Controllare sempre gli output degli script.

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 !!!"

 

[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 .

 

[claudio8]

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 .

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.

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

 

[stefania1972]

Ciao claudio8 , che dire , sei fantastico , ciao