Novità

Script numero Rimasto. Se Possibile.

jure

Advanced Member >GOLD<
Messaggi
853
Punti reazione
2
Punti
18
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.016
Punti reazione
33
Punti
48
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 >GOLD<
Messaggi
853
Punti reazione
2
Punti
18
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.016
Punti reazione
33
Punti
48
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
Messaggi
550
Punti reazione
4
Punti
18
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




 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 07 dicembre 2019
    Bari
    19
    09
    20
    16
    01
    Cagliari
    76
    60
    80
    06
    47
    Firenze
    43
    88
    78
    73
    83
    Genova
    46
    20
    79
    54
    04
    Milano
    30
    31
    46
    24
    19
    Napoli
    42
    86
    20
    06
    07
    Palermo
    66
    04
    81
    53
    09
    Roma
    55
    81
    32
    25
    13
    Torino
    69
    21
    52
    32
    72
    Venezia
    44
    22
    37
    80
    32
    Nazionale
    19
    88
    32
    60
    90
Alto