Novità

Script numero Rimasto. Se Possibile.

jure

Advanced Member >PLATINUM PLUS<
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 PLUS<
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 PLUS<
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 PLUS<
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 >PLATINUM<
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
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16

Ultimi Messaggi

Alto