Script numero Rimasto. Se Possibile.

[jure]

In 21 estrazioni retroattive bisogna trovare 2 Ambi uguali.
se esce dopo uno dei 2 numeri dell'Ambo.
Giocare quello Rimasto.
Es.
28/09/2019 CA 68 07
03/10/2019 CA 68 07
12/10/2019 CA 68
Giocare il numero rimasto dell'Ambo
il n. 07 che esce il 05/11/2019
insieme anche al 68
Es.
24/09/2019 FI 75 86
28/09/2019 FI 86 75
31/10/2019 FI 86
Giocare il Numero rimasto dell'Ambo
il 75 che esce il 02/11/2019
Es.
05/10/2019 MI 90 05
22/10/2019 MI 05 90
26/10/2019 MI 05
Giocare il numero rimasto dell'Ambo
il 90 che esce il 05/11/2019

 

[joe]

Ciao.

Si che è possibile ... ma i numeri sono difficilmente imbrigliabili.

Ecco un esempio recente:

09.11.2019 GE 34.51
09.11.2019 GE 34.53

dove si dimostra un peccato giocare il 34 per estratto ...

perché nel frattempo sarebbe diventato

un buon esempio della semina autunnale, che si fa del grano.

Grano che, germogliato, non può più essere riseminato.

Comunque sia a Genova dovrebbe esserci

il 34 da doppia indicazione.

Dunque è possibile ... ma non funziona,

Perchè solo nei meandri della mente lottologica

si possono concepire idee che poi sfuggono alla realtà

ed alla complessità dei fatti.

Metodi ... che non si percepiscono "nascosti e sottoposti" a semplici verità.

Cioè che l'ambo può far parte di un terno.

Ma che se inteso come ambo ... eliminati i 2 numeri

di esso non rimane nulla

Lo script per ambo dunque non risolve il grosso peso

dell'avere un ambo con 3 numeri.

Forse anche di 4 o 5.

In sintesi, io, per ora, una soluzione non ce l'ho.

Forse andrebbe ri-descritto per cinquina-sincrona.

Scrivo forse, perché non so e perché non ci ho pensato.

 

[jure]

Ciao Joe devi trovare retroattivamente 2 ambi uguali
in 2 estrazioni distinte.
non 34 51 - 34 53
es. 34 51 - 34 51
esce es. dopo il 51 per le
prossime giochi l'Ambata rimasta
cioe' il 34.
Poi non so cosa intendi.

 

[joe]

LO SO.

Ciao Joe devi trovare retroattivamente 2 ambi uguali
in 2 estrazioni distinte.
non 34 51 - 34 53
es. 34 51 - 34 51
esce es. dopo il 51 per le
prossime giochi l'Ambata rimasta
cioe' il 34.
Poi non so cosa intendi.

Lo so che non ci si può capire,

 

[Master]

Buonasera
Prova questa soluzione

Anticipazione (Spoiler)

Sub Main()
'https://forum.lottoced.com/threads/script-numero-rimasto-se-possibile.2191199/
Dim ruote(10),n(1)
Dim posta(1)
posta(1) = 1
ktr = CInt(InputBox("Quante estrazioni vuoi controllare? ","Estrazioni",25))
k = CInt(InputBox("Quante estrazioni retroattive vuoi controllare? ","RETROATTIVE",21))
kk = CInt(InputBox("Quante estrazioni successive vuoi controllare? ","SUCCESSIVE",16))
clp = CInt(InputBox("Quanti colpi do gioco? ","COLPI",10))
ReDim T(13)
T(1) = "Estr prec"
T(2) = "Ruota"
T(3) = "Estratti"
T(4) = "Ambo"
T(5) = "Data est"
T(6) = "Estratti"
T(7) = "Ambo"
T(8) = "Estr succ"
T(9) = "Estratti"
T(10) = "Trovato"
T(11) = "Gioco"
T(12) = "Esito"
T(13) = "Clp"
Call InitTabella(T,2,,3,5)
ini = EstrazioneFin - ktr
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab ini,fin,Es
For r1 = 1 To 12
If r1 = 11 Then r1 = 12
For p1 = 1 To 4
For p2 = p1 + 1 To 5
For p5 = 1 To 4
For p6 = p5 + 1 To 5
For p3 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
co = 0
For j = 1 To k
c = Estratto(es - j,r1,p5)
c1 = Estratto(es - j,r1,p6)
If c = a And c1 = b Or c = b And c1 = a Then co = co + 1
If co = 1 Then ex = es - j : Exit For
Next
If co = 1 Then
co1 = 0
For jj = 1 To kk
e = Estratto(es + jj,r1,p3)
If e = c Or e = c1 Then co1 = co1 + 1
If co1 = 1 Then exx = es + jj : Exit For
Next
If e = c Then tr = e Else tr = c1
If e = c Then x1 = c1 Else x1 = c
If co1 = 1 Then
ruote(1) = r1
cs = cs + 1
If exx > EstrazioneFin Then Exit For
n(1) = x1
Call VerificaEsitoTurbo(n,ruote,exx + 1,1,clp,,esito,clpp,estratti,id)
ReDim V(14)
V(1) = DataEstrazione(ex)
V(2) = SiglaRuota(R1)
V(3) = StringaEstratti(ex,r1)
V(4) = Format2(c) & "-" & Format2(c1)
V(5) = DataEstrazione(es)
V(6) = StringaEstratti(es,r1)
V(7) = Format2(a) & "-" & Format2(b)
V(8) =(exx) & " [" & DataEstrazione(exx) & "]"
V(9) = StringaEstratti(exx,r1)
V(10) = Format2(tr)
V(11) = x1
If esito <> "" Then V(12) = estratti & " [" & DataEstrazione(id) & "]"
If esito = "" And clpp = 10 Then V(12) = " NEGATIVO "
If esito = "" And clpp < 10 Then V(12) = " in gioco "
V(13) = clpp
Call AddRigaTabella(V,,,2)
If esito = "Estratto" Then Call SetColoreCella(11,,2)
If esito = "Estratto" Then Call SetColoreCella(12,,2)
Call SetColoreCella(1,RGB(223,223,223))
Call SetColoreCella(2,RGB(223,223,223))
Call SetColoreCella(3,RGB(223,223,223))
Call SetColoreCella(4,RGB(223,223,223))
Call SetColoreCella(8,RGB(223,244,255))
Call SetColoreCella(9,RGB(223,244,255))
Call SetColoreCella(10,RGB(223,244,255))
End If
End If
Next
Next
Next
Next
Next
Next
Next
Call CreaTabella(8)
End Sub

 

[joe]

Ciao Master.

Grazie.

 

[jure]

GRAZIE Master
Non Speravo l'ho visto adesso.
Lo Provo.