Chi mi aiuta per uno Script?

[Roby]

Il metodo è il seguente:

Quando esce l'ambo spia 48-49 su Bari si giocano 3 ambi secchi sulla medesima ruota

1°ambo: 1°di Bari + 11____1°di Bari + 37

2°ambo: 1°di Bari + 11___1°di Bari + 47

3°ambo: 1°di Bari + 37___1°di Bari + 47

Per 6 colpi, estrazioni da controllare: ultime 2150

Grazie a chiunque risponda


Blackmore

 

[Thauk]

ciao, Blackmore, controlla se va bene.

Sub main()
Dim rt(1),pta(2),nr(2)

estr=CInt(InputBox("Quante estrazioni controllo?","Estrazioni",2150))
ruo=CInt(InputBox("Ruota di ricerca?","Ruota",1))
n1=CInt(InputBox("1° numero dell'ambo?","N1",48))
n2=CInt(InputBox("2° numero dell'ambo?","N2",49))
clp=CInt(InputBox("Quanti colpi di gioco?","Colpi",6))
ini=EstrazioneFin-estr
fin=EstrazioneFin

For es=ini To fin
Messaggio(es)

For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,ruo,p1)
b=Estratto(es,ruo,p2)
If (a=n1 And b=n2) Or (a=n2 And b=n1) Then

rt(1)=ruo
pta(2)=1
ng=0

nr(1)=Fuori90(Estratto(es,1,1)+11)
nr(2)=Fuori90(Estratto(es,1,1)+37)
ng=ng+1
ImpostaGiocata ng,nr,rt,pta,clp

nr(1)=Fuori90(Estratto(es,1,1)+11)
nr(2)=Fuori90(Estratto(es,1,1)+47)
ng=ng+1
ImpostaGiocata ng,nr,rt,pta,clp

nr(1)=Fuori90(Estratto(es,1,1)+37)
nr(2)=Fuori90(Estratto(es,1,1)+47)
ng=ng+1
ImpostaGiocata ng,nr,rt,pta,clp

casi=casi+1
Scrivi String(70,"=")&" Caso n° "&casi,1
Scrivi DataEstrazione(es)&"	"& NomeRuota(ruo)&" [ "& StringaEstratti(es,1)&" ] "& Format2(a)&"."& Format2(b),1
Scrivi

Gioca es
End If
Next
Next
Next
ScriviResoconto
End Sub

ciauz


Fortuna non omnibus aeque.

 

[Roby]

Thauk è perfetto, grazie mille,
A buon rendere

Blackmore

 

[Thauk]

quote:Originally posted by Blackmore

Thauk è perfetto, grazie mille,
A buon rendere

Blackmore

Di nulla, figurati.
I risultati lasciano ben sperare...

Fortuna non omnibus aeque.

 

[Zagor]

Grazie Blak , bel metodo.[8D]

Un saluto e buona giornata.

Mauro
YES WE CAN

 

[claudio8]

Mi permetto di fare delle modifiche, non me ne voglia il bravo Thauk</u>
Bel metodo. (sommativo ! ! !)
Anche se i casi in analisi sono solo 5 dal 1994, considerato l'ottima resa si può tentare la vincita giocando con moderazione .

 Sub Main()
	Dim rt(1),pta(2),nr(3)
	Dim er,clp 
	er = CInt(InputBox("Da quante estrazioni ci sono e spie?","Estrazioni a ritroso",1))
	estr = CInt(InputBox("Quante estrazioni controllo?","Estrazioni di ricerca",2150)) ' 8370 per verifica dall'anno 1871
	ruo = CInt(InputBox("Ruota di ricerca?","Ruota",1))
	n1 = CInt(InputBox("1° numero dell'ambo?","N1",48))
	n2 = CInt(InputBox("2° numero dell'ambo?","N2",49))
	clp = CInt(InputBox("Quanti colpi di gioco?","Colpi",6))
	ini = EstrazioneFin - er - estr 
	fin = EstrazioneFin - er
	For es = ini To fin
		Messaggio(es)
		For p1 = 1 To 4
			For p2 = p1 + 1 To 5
				a = Estratto(es,ruo,p1)
				b = Estratto(es,ruo,p2)
				If(a = n1 And b = n2) Or(a = n2 And b = n1) Then
					rt(1) = ruo
					pta(2) = 1 ' posta triplicabile x i 3 ambi della terzina 
					ng = 0
					nr(1) = Fuori90(Estratto(es,1,1) + 11)
					nr(2) = Fuori90(Estratto(es,1,1) + 37)
					nr(3) = Fuori90(Estratto(es,1,1) + 47)

					ng = ng + 1
					ImpostaGiocata ng,nr,rt,pta,clp,2 '2 indica la sorte miimax l'interruzione giocata
					nr(1) = Fuori90(Estratto(es,1,1) + 11)
					nr(2) = Fuori90(Estratto(es,1,1) + 47)
'					ng = ng + 1
'					ImpostaGiocata ng,nr,rt,pta,clp
'					nr(1) = Fuori90(Estratto(es,1,1) + 37)
'					nr(2) = Fuori90(Estratto(es,1,1) + 47)
'					ng = ng + 1
'					ImpostaGiocata ng,nr,rt,pta,clp
					casi = casi + 1
					Scrivi String(70,"=") & " Caso n° " & casi,1
					Scrivi DataEstrazione(es) & "	" & NomeRuota(ruo) & " [ " & StringaEstratti(es,1) & " ] " & Format2(a) & "." & Format2(b),1
					Scrivi
					Gioca es
				End If
			Next
		Next
	Next
	Scrivi " PREVISIONE -----> " &  DataEstrazione(fin + er) & "	" & NomeRuota(ruo) & " [ " & StringaEstratti(fin+er,1) & " ] terzina  ad ambo x " &_
	clp &" colpi " & Format2(Fuori90(Estratto(es,1,1) + 11)) & "." & Format2(Fuori90(Estratto(es,1,1) + 37)) & "." & Format2(Fuori90(Estratto(es,1,1) + 47)) ,1,,3,2

	ScriviResoconto
End Sub

ciao,

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"

 

[Roby]

Ciao Claudio grazie anche a te, ma lo script mi segnala errore in questa riga

Scrivi " PREVISIONE -----> " & DataEstrazione(fin + er) & " " & NomeRuota(ruo) & " [ " & StringaEstratti(fin+er,1) & " ] terzina ad ambo x " &_

Se ho capito bene è una terzina giusto?
Se è così lo script io ce l'avevo già, ma sai com'è, il fascino dell'ambo secco.........
Ps: riguardo alle info sui metodi sommativi nella sezione Metodi, Ti ho risposto in quel Topic....
Ciao Zagor, è un piacere, speriamo che sia la volta buona

Blackmore

 

[claudio8]

quote:Originally posted by Blackmore

Ciao Claudio grazie anche a te, ma lo script mi segnala errore in questa riga

Scrivi " PREVISIONE -----> " & DataEstrazione(fin + er) & " " & NomeRuota(ruo) & " [ " & StringaEstratti(fin+er,1) & " ] terzina ad ambo x " &_

Se ho capito bene è una terzina giusto?
Se è così lo script io ce l'avevo già, ma sai com'è, il fascino dell'ambo secco.........
Ps: riguardo alle info sui metodi sommativi nella sezione Metodi, Ti ho risposto in quel Topic....
Ciao Zagor, è un piacere, speriamo che sia la volta buona

Blackmore

Ciao
Lo script gira bene, forse non lo hai copiato bene.
Per quanto riguarda l'ambo secco , la sostanza non cambia, la tua è una previsione di 3 numei e non di due.
Ciao, speriamo nell'esito positivo.

 

[elephantbig]

interessante.
mi chiedevo perche aumentando il range di controllo si hanno esiti totalmente diversi???
su altre ruote i numeri da sommare sono diversi ?

 

[claudio8]

quote:Originally posted by elephantbig

interessante.
mi chiedevo perche aumentando il range di controllo si hanno esiti totalmente diversi???
su altre ruote i numeri da sommare sono diversi ?

Buona sera sig ElephantBig,
da quanto si e..vince il metodo funziona da solo 5 casi.
Sicuramente gli stessi fissi non funzionano su altre ruote.

Le faccio notare che stasera è caduto il 29 con 56 e 58 .... quasi 2 ambi in terzina ... caro Lei