RICHIESTA DI UN LISTATO SEMPLICE PER VINCITA COSTANTE

[mastrogino]

IL METODO E SEMPLICE , SOLO CH SONO IO IL TESTARDO E NN CI RIESCO A FARLO O TANTOMENO PROVARCI
E ADESSO CHE HO POCO TEMPO FIGURIAMOCI

QUANDO SI HA UN AMBO DELLA STESSA DECINA IN QUALSIASI RUOTA E POSIZIONE
SI PROCEDE IN QUESTO MODO
ESEMPIO REALE
CA ESTRA. DEL 01/06/24.
AMBO IN DESINA 82.84.
L'8 RIMANE E SI CALCOLA LE UNITA IN QUESTO MODO
2+4=6
SI AGGIUNGE ALL'8 E DIVENTA 86
IN GIOCO 86.1° AMBATA 68 SECONDARIA
PER AMBATE E AMBO
ESITO
1° COLPO 86
ESEMPIO REALE 2
PA ESTRA. DEL 01/06/24
AMBO IN DECINA 24.21.
2 FISSO
4+01=5
25.52.
ESITO 5° COLPO
AMBATE 25.52.
AMBO 25.52.
ESEMPIO REALE 3
NA . ESTRA.DEL 01/06
AMBO IN DECINA 83.87.
8 FISSO
03+07= 10F9 01
81.18.
ESITO
1° C AMBATA 18.
ULTIMO ESEMPIO
ESTRA DEL 01/06.24.
GENOVA AMBO IN DECINA 76.78.
7 FISSO
06+08=14 F9 = 5
75.57.
ESITO
1° COLPO 75.
3° COLPO 57.
6° COLPO 75.
7° COLPO 75.
PS HO NOTATO CHE L'AMBO ESCE ANCHE A TT
ESEMPIO TORINO DEL 01/06/24
AMBO IN DECINA 11.15.
1 F
01+05= 06
16.61.
4° COLPO AMBATA 16 A TO
5° COLPO AMBO A TT 16.61.

 

[Sakti]

Molto migliorabile, ma per me è il mio massimo..
Così è come l'hai chiesto Tu..

Anticipazione (Spoiler)

Sub Main()
Dim nu(1),num(3),ruote(12),poste(3),posta(1),ru(12)
posta(1) = 1
poste(1) = 1
poste(2) = 1
Scrivi
Scrivi String(20," ") & "---- Ambi Stessa Decina by Mastrogino ----",1
ColoreTesto 1
k = 0
x = InputBox("Per quante estrazioni vuoi verificare?",,10)
ini = EstrazioneFin - x
fine = EstrazioneFin
For es = ini To fine
Messaggio "Estrazione esaminata: " & CStr(es)
For r1 = 1 To 11
If r1 = 11 Then r1 = 12
For p1 = 1 To 4
a = Estratto(es,r1,p1)
For p2 = p1 + 1 To 5
a1 = Estratto(es,r1,p2)
If Decina(a) = Decina(a1) Then
n = Figura( Cadenza (a) + Cadenza (a1))
n2 = Fuori90( & (Decina(a1)))
n3 = Fuori90(Vert(n2))
ruote(1) = r1
'--
nu(1) = n3
'--
num(1) = n2
num(2) = n3
'--
k = k + 1
ColoreTesto 1
Scrivi "---------------------------------------------------------------------------------------"
Scrivi DataEstrazione(es) & " / " & es & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " [" & Format2(a) & "." & Format2(a1) & "]",1
Scrivi"------------------------------------------------------------------------------Giocata n°" & Format2(t)
ImpostaGiocata 1,nu,ruote,posta,7,2
ImpostaGiocata 2,num,ruote,poste,7,2
Gioca es,1
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

Doppia modifica ambo su TT con aggiunta di due numeri...

Anticipazione (Spoiler)

Sub Main()
Dim nu(1),num(4),ruote(12),ruota(1),poste(3),posta(1)
posta(1) = 1
'poste(1) = 1
poste(2) = 1
Scrivi
Scrivi String(20," ") & "---- Ambi Stessa Decina by Mastrogino ----",1
ColoreTesto 1
k = 0
x = InputBox("Per quante estrazioni vuoi verificare?",,10)
ini = EstrazioneFin - x
fine = EstrazioneFin
For es = ini To fine
Messaggio "Estrazione esaminata: " & CStr(es)
For r1 = 1 To 11
If r1 = 11 Then r1 = 12
For p1 = 1 To 4
a = Estratto(es,r1,p1)
For p2 = p1 + 1 To 5
a1 = Estratto(es,r1,p2)
If Decina(a) = Decina(a1) Then
n = Figura(Cadenza(a) + Cadenza(a1))
n2 = Fuori90( &(Decina(a1)))
n3 = Fuori90(Vert(n2))
ruota(1) = r1
ruote(1) = 11
'--
nu(1) = n3
'--
num(1) = n2
num(2) = n3
num(3) = 90 - n2
num(4) = 90 - n3
'--
k = k + 1
ColoreTesto 1
Scrivi "---------------------------------------------------------------------------------------"
Scrivi DataEstrazione(es) & " / " & es & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " [" & Format2(a) & "." & Format2(a1) & "]",1
Scrivi"------------------------------------------------------------------------------Giocata n°" & Format2(t)
ImpostaGiocata 1,nu,ruota,posta,7',2
ImpostaGiocata 2,num,ruote,poste,10',2
Gioca es,1
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

 

[mastrogino]

Molto migliorabile, ma per me è il mio massimo..
Così è come l'hai chiesto Tu..

Anticipazione (Spoiler)

Sub Main()
Dim nu(1),num(3),ruote(12),poste(3),posta(1),ru(12)
posta(1) = 1
poste(1) = 1
poste(2) = 1
Scrivi
Scrivi String(20," ") & "---- Ambi Stessa Decina by Mastrogino ----",1
ColoreTesto 1
k = 0
x = InputBox("Per quante estrazioni vuoi verificare?",,10)
ini = EstrazioneFin - x
fine = EstrazioneFin
For es = ini To fine
Messaggio "Estrazione esaminata: " & CStr(es)
For r1 = 1 To 11
If r1 = 11 Then r1 = 12
For p1 = 1 To 4
a = Estratto(es,r1,p1)
For p2 = p1 + 1 To 5
a1 = Estratto(es,r1,p2)
If Decina(a) = Decina(a1) Then
n = Figura( Cadenza (a) + Cadenza (a1))
n2 = Fuori90( & (Decina(a1)))
n3 = Fuori90(Vert(n2))
ruote(1) = r1
'--
nu(1) = n3
'--
num(1) = n2
num(2) = n3
'--
k = k + 1
ColoreTesto 1
Scrivi "---------------------------------------------------------------------------------------"
Scrivi DataEstrazione(es) & " / " & es & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " [" & Format2(a) & "." & Format2(a1) & "]",1
Scrivi"------------------------------------------------------------------------------Giocata n°" & Format2(t)
ImpostaGiocata 1,nu,ruote,posta,7,2
ImpostaGiocata 2,num,ruote,poste,7,2
Gioca es,1
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

CIAO GENTILISSIMO , GRAZIE
SI POTREBBE INSERIRE L'AMBO ANCH EA TT ?

 

[Sakti]

Ho aggiunto due numeri, perchè con l'ambata ed il vertibile gli ambi erano pochissimi anche su TT..
Come ho scritto, è sempre molto migliorabile..

 

[Codicebinario]

Buongiorno SaKti,Mastrogino,e buongiorno a "tutti gli abitanti del 3d"

X mastrogino,domanda, ma se nella stessa estrazione troviamo un terno in decina? esempio pratico:

estrazionene di ieri,(ultima) del 21/06 PA 50.56.57 come considerare i tre ambi che si formano? e se ci fossero numerelli che si ripetono?

 

[joe]

Buona sera a tutte/i.

Gli Ambi in decina sono moltissimi.

Lo script, così come è stato presentato,

pone in gioco solo una piccola parte di questi.

Più nello specifico, solo l'ultimo di quelli che calcola.

Per esempio, in risposta a cosa ha richiesto Codicebinario

ci potrebbe essere questo output:

------------------------------------------------------------------------------
21.06.2024 / 10461 BA 19.60.87.89.74 [87.89]
------------------------------------------------------------------------------Giocata n°1
Estrazione generatrice del pronostico 10461 [ 99 - 21/06/2024]
G 0001 Numeri in gioco : 78.87 su BA per Estratto
In corso per altre 3 estrazioni
---------------------------------------------------------------------------------------
21.06.2024 / 10461 CA 74.84.71.49.03 [74.71]
------------------------------------------------------------------------------Giocata n°2
Estrazione generatrice del pronostico 10461 [ 99 - 21/06/2024]
G 0002 Numeri in gioco : 57.75 su CA per Estratto
In corso per altre 3 estrazioni
---------------------------------------------------------------------------------------
21.06.2024 / 10461 FI 73.41.43.31.17 [41.43]
------------------------------------------------------------------------------Giocata n°3
Estrazione generatrice del pronostico 10461 [ 99 - 21/06/2024]
G 0003 Numeri in gioco : 44.49 su FI per Estratto
In corso per altre 3 estrazioni
---------------------------------------------------------------------------------------
21.06.2024 / 10461 MI 58.75.51.29.11 [58.51]
------------------------------------------------------------------------------Giocata n°4
Estrazione generatrice del pronostico 10461 [ 99 - 21/06/2024]
G 0004 Numeri in gioco : 05.50 su MI per Estratto
In corso per altre 3 estrazioni
---------------------------------------------------------------------------------------
21.06.2024 / 10461 NA 51.14.59.46.69 [51.59]
------------------------------------------------------------------------------Giocata n°5
Estrazione generatrice del pronostico 10461 [ 99 - 21/06/2024]
G 0005 Numeri in gioco : 15.51 su NA per Estratto
In corso per altre 3 estrazioni
---------------------------------------------------------------------------------------
21.06.2024 / 10461 PA 38.50.56.57.85 [50.56]
------------------------------------------------------------------------------Giocata n°6
Estrazione generatrice del pronostico 10461 [ 99 - 21/06/2024]
G 0006 Numeri in gioco : 65.56 su PA per Estratto
In corso per altre 3 estrazioni
---------------------------------------------------------------------------------------
21.06.2024 / 10461 PA 38.50.56.57.85 [50.57]
------------------------------------------------------------------------------Giocata n°7
Estrazione generatrice del pronostico 10461 [ 99 - 21/06/2024]
G 0007 Numeri in gioco : 75.57 su PA per Estratto
In corso per altre 3 estrazioni
---------------------------------------------------------------------------------------
21.06.2024 / 10461 PA 38.50.56.57.85 [56.57]
------------------------------------------------------------------------------Giocata n°8
Estrazione generatrice del pronostico 10461 [ 99 - 21/06/2024]
G 0008 Numeri in gioco : 45.54 su PA per Estratto
In corso per altre 3 estrazioni
---------------------------------------------------------------------------------------
21.06.2024 / 10461 RO 90.66.67.11.09 [66.67]
------------------------------------------------------------------------------Giocata n°9
Estrazione generatrice del pronostico 10461 [ 99 - 21/06/2024]
G 0009 Numeri in gioco : 46.64 su RO per Estratto
In corso per altre 3 estrazioni
---------------------------------------------------------------------------------------
21.06.2024 / 10461 VE 01.71.05.48.54 [01.05]
------------------------------------------------------------------------------Giocata n°10
Estrazione generatrice del pronostico 10461 [ 99 - 21/06/2024]
G 0010 Numeri in gioco : 60.06 su VE per Estratto
In corso per altre 3 estrazioni
---------------------------------------------------------------------------------------
21.06.2024 / 10461 NZ 39.81.58.23.36 [39.36]
------------------------------------------------------------------------------Giocata n°11
Estrazione generatrice del pronostico 10461 [ 99 - 21/06/2024]
G 0011 Numeri in gioco : 63.36 su NZ per Estratto

Sono 11 giocate ... in un concorso ... da raddoppiarsi con il gioco dell'estratto.