Novità

Uno script per favore

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

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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 15 luglio 2025
    Bari
    60
    18
    12
    57
    28
    Cagliari
    20
    26
    81
    55
    18
    Firenze
    28
    59
    46
    83
    81
    Genova
    32
    57
    09
    41
    17
    Milano
    58
    31
    49
    38
    63
    Napoli
    36
    58
    57
    45
    59
    Palermo
    03
    05
    48
    86
    62
    Roma
    47
    18
    01
    23
    79
    Torino
    56
    34
    49
    89
    90
    Venezia
    46
    44
    52
    82
    78
    Nazionale
    16
    36
    15
    13
    60
    Estrazione Simbolotto
    Nazionale
    27
    09
    44
    18
    11

Ultimi Messaggi

Indietro
Alto