Novità

Chi mi aiuta per uno Script?

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
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
 
ciao, Blackmore, controlla se va bene.
Codice:
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.
 
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 .
Codice:
 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 !!!"
 
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
 
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.
:D:DPer quanto riguarda l'ambo secco , la sostanza non cambia, la tua è una previsione di 3 numei e non di due. :D:D
Ciao, speriamo nell'esito positivo.
 
interessante.
mi chiedevo perche aumentando il range di controllo si hanno esiti totalmente diversi???
su altre ruote i numeri da sommare sono diversi ?
 
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
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17

Ultimi Messaggi

Indietro
Alto