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
    venerdì 11 luglio 2025
    Bari
    39
    28
    27
    01
    80
    Cagliari
    54
    79
    69
    43
    61
    Firenze
    62
    60
    86
    80
    05
    Genova
    45
    10
    42
    79
    84
    Milano
    28
    59
    23
    46
    11
    Napoli
    01
    55
    52
    50
    39
    Palermo
    75
    17
    74
    82
    54
    Roma
    38
    13
    79
    25
    44
    Torino
    68
    29
    26
    40
    06
    Venezia
    46
    84
    64
    27
    67
    Nazionale
    72
    77
    46
    61
    23
    Estrazione Simbolotto
    Nazionale
    12
    34
    36
    10
    39
Indietro
Alto