Novità

Script numero Rimasto. Se Possibile.

jure

Advanced Member >GOLD<
Messaggi
854
Punti reazione
3
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.017
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
854
Punti reazione
3
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.017
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
551
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
    martedì 10 dicembre 2019
    Bari
    31
    35
    51
    16
    17
    Cagliari
    74
    45
    88
    04
    02
    Firenze
    58
    79
    71
    32
    70
    Genova
    35
    36
    74
    19
    67
    Milano
    37
    22
    09
    03
    50
    Napoli
    67
    32
    06
    82
    37
    Palermo
    59
    41
    52
    31
    06
    Roma
    17
    79
    01
    58
    19
    Torino
    41
    31
    57
    60
    03
    Venezia
    50
    31
    41
    01
    68
    Nazionale
    05
    12
    65
    02
    13

Ultimi Messaggi

Alto