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
    martedì 22 luglio 2025
    Bari
    29
    03
    79
    27
    86
    Cagliari
    22
    54
    55
    50
    29
    Firenze
    52
    38
    30
    29
    83
    Genova
    08
    62
    20
    69
    26
    Milano
    17
    45
    55
    67
    73
    Napoli
    64
    39
    35
    62
    02
    Palermo
    84
    33
    60
    43
    28
    Roma
    33
    79
    27
    41
    81
    Torino
    35
    58
    38
    70
    56
    Venezia
    64
    11
    07
    57
    27
    Nazionale
    53
    15
    38
    52
    66
    Estrazione Simbolotto
    Nazionale
    18
    24
    03
    21
    15
Indietro
Alto