Novità

Script numero Rimasto. Se Possibile.

jure

Advanced Member >PLATINUM<
Messaggi
1.122
Punti reazione
22
Punti
38
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

Advanced Member >PLATINUM<
Messaggi
1.214
Punti reazione
104
Punti
63
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

Advanced Member >PLATINUM<
Messaggi
1.122
Punti reazione
22
Punti
38
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

Advanced Member >PLATINUM<
Messaggi
1.214
Punti reazione
104
Punti
63
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

Advanced Member >GOLD<
Messaggi
775
Punti reazione
28
Punti
28
Buonasera
Prova questa soluzione
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




 

jure

Advanced Member >PLATINUM<
Messaggi
1.122
Punti reazione
22
Punti
38
GRAZIE Master
Non Speravo l'ho visto adesso.
Lo Provo.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 09 luglio 2020
    Bari
    14
    87
    01
    29
    50
    Cagliari
    09
    81
    57
    28
    36
    Firenze
    26
    46
    59
    33
    17
    Genova
    06
    02
    77
    17
    71
    Milano
    22
    07
    21
    76
    19
    Napoli
    07
    03
    69
    17
    54
    Palermo
    52
    08
    42
    26
    12
    Roma
    68
    09
    47
    69
    26
    Torino
    73
    53
    13
    54
    04
    Venezia
    90
    74
    87
    45
    88
    Nazionale
    79
    12
    62
    72
    56

Ultimi Messaggi

Alto