Million DAY
- Creatore Discussione jure
- Data di inizio
*blacklotto*
Super Member >PLATINUM<
Ciao,
non ho listati che mi sembrano buoni, ho listati che ho inserito in un archivio eseguiti da bravi utenti e svariati listati che ho convertito dal gioco del lotto per millionday.
Come ho detto la mia opinione per questo gioco, questi script li adopero soltanto per mia curiosità personale, e non per fare previsioni di gioco perché sarebbe troppo dispendioso.
Inserisco uno dei listati richiesti a Djnomade tempo fa, ma modificato da me che potrebbe interessare per la ricerca, con la premessa che sicuramente ci saranno errori, ma bene o male mi consegna quello che chiedo.
Non si dovrebbe far fatica a capire il suo svolgimento che altro non è che richiedere numeri in posizione inserendo un range di numeri dando un inizio e una fine
Le possibilità di richiedere cinquine a proprio piacimento sono infinite, dove basta inserire ciò che si vuole.
Lasciandolo così com'è cercherà cinquine con :
1° posizione = numeri da 1 a 55
2° posizione = numeri da 1 a 55
3° posizione = numero fisso 20
4° posizione = numero da 1 a 55
5° posizione = numero da 1 a 55
con questo resoconto :
SCELTA NUMERI PER POSIZIONE
1° Estratto Range da 1 a 55
2° Estratto Range da 1 a 55
3° Estratto Range da 20 a 20
4° Estratto Range da 1 a 55
5° Estratto Range da 1 a 55
26.04.2018 01 - 14 - 20 - 16 - 34
------------------------------------
03.08.2018 19 - 54 - 20 - 18 - 44
------------------------------------
12.12.2018 25 - 41 - 20 - 15 - 43
------------------------------------
08.05.2019 06 - 22 - 20 - 35 - 18
------------------------------------
15.05.2019 40 - 09 - 20 - 14 - 08
------------------------------------
28.07.2019 26 - 27 - 20 - 10 - 32
------------------------------------
26.09.2019 41 - 54 - 20 - 16 - 27
------------------------------------
14.10.2019 04 - 47 - 20 - 30 - 27
------------------------------------
22.01.2020 38 - 03 - 20 - 11 - 53
------------------------------------
03.03.2020 25 - 45 - 20 - 43 - 02
------------------------------------
11.03.2020 55 - 01 - 20 - 49 - 40
------------------------------------
25.03.2020 33 - 51 - 20 - 08 - 53
------------------------------------
Sub Main()
Dim sfile
Dim Nu(5)
Dim est1(2),est2(2),est3(2),est4(2),est5(2)
sfile = GetDirectoryAppData & "...... inserire propria directory ......."
Call ApriBaseDatiFT(sfile,5,",",55)
es1 = InputBox(" 1° estr METTI UN PUNTO TRA I DUE NUMERI","range per il 1° estratto","1.55")
es1 = "0." & es1
q1 = Split(es1,".")
est1(1) = CInt(q1(1)) : est1(2) = CInt(q1(2))
es2 = InputBox(" 2° estr METTI UN PUNTO TRA I DUE NUMERI","range per il 2° estratto","1.55")
es2 = "0." & es2
q2 = Split(es2,".")
est2(1) = CInt(q2(1)) : est2(2) = CInt(q2(2))
es3 = InputBox(" 3° estr METTI UN PUNTO TRA I DUE NUMERI","range per il 3° estratto","20.20")
es3 = "0." & es3
q3 = Split(es3,".")
est3(1) = CInt(q3(1)) : est3(2) = CInt(q3(2))
es4 = InputBox(" 4° estr METTI UN PUNTO TRA I DUE NUMERI","range per il 4° estratto","1.55")
es4 = "0." & es4
q4 = Split(es4,".")
est4(1) = CInt(q4(1)) : est4(2) = CInt(q4(2))
es5 = InputBox(" 5° estr METTI UN PUNTO TRA I DUE NUMERI","range per il 5° estratto","1.55")
es5 = "0." & es5
q5 = Split(es5,".")
est5(1) = CInt(q5(1)) : est5(2) = CInt(q5(2))
ColoreTesto 2
Scrivi"SCELTA NUMERI PER POSIZIONE",1,,3,1,5
ColoreTesto 0
Scrivi
Scrivi"1° Estratto Range da " & est1(1) & " a " & est1(2),1,,4,0,4,True,True
Scrivi"2° Estratto Range da " & est2(1) & " a " & est2(2),1,,4,0,4,True,True
Scrivi"3° Estratto Range da " & est3(1) & " a " & est3(2),1,,4,0,4,True,True
Scrivi"4° Estratto Range da " & est4(1) & " a " & est4(2),1,,4,0,4,True,True
Scrivi"5° Estratto Range da " & est5(1) & " a " & est5(2),1,,4,0,4,True,True
Scrivi
ini = 1
fin = EstrazioniArchivioFT
For es = Ini To fin
AvanzamentoElab ini,fin,es
For p = 1 To 5
Nu(p) = EstrattoFT(es,p)
Next
If Nu(1) => est1(1) And Nu(1) <= est1(2) Then
If Nu(2) => est2(1) And Nu(2) <= est2(2) Then
If Nu(3) => est3(1) And Nu(3) <= est3(2) Then
If Nu(4) => est4(1) And Nu(4) <= est4(2) Then
If Nu(5) => est5(1) And Nu(5) <= est5(2) Then
Scrivi DataEstrazioneFT(es),1,0
Scrivi" " & StringaNumeri(Nu," - ",True),1
Scrivi"------------------------------------",1
End If
End If
End If
End If
End If
Next
End Sub
Fammi sapere se questo genere di listati possono interessare ne inserirò altri.
ciao
*blacklotto*
Super Member >PLATINUM<
Chiamato " Modulo a 90 " è una ricerca fatta per i 90 numeri del gioco del lotto,
consiste nel sommare ad ogni estratto lo stesso numero per poi vederne gli effetti.
Tale considerazione del Modulo90 è stato trasferito a Modulo55 per il gioco del Millionday e partendo dalla 1° estrazione ho fatto esame delle sue 782 estrazioni per vederne gli esiti, e inserendo 782 colpi per ogni colonna estratta ho avuto questo resoconto :
LE CINQUINE ESTRATTE TRA IL + 1 E IL + 55
SOMMA ai cinque estratti : 1
16.03.2018 __ 27.42.25.28.17 __ + 1 __ 28.43.26.29.18 .. 26 29 43 18 28 __ Colpo __ 357
SOMMA ai cinque estratti : 10
18.12.2018 __ 24.54.07.14.26 __ + 10 __ 34.09.17.24.36 .. 17 09 34 24 36 __ Colpo __ 256
SOMMA ai cinque estratti : 19
27.02.2019 __ 24.10.44.32.45 __ + 19 __ 43.29.08.51.09 .. 09 08 51 29 43 __ Colpo __ 35
SOMMA ai cinque estratti : 20
13.06.2018 __ 20.32.10.14.39 __ + 20 __ 40.52.30.34.04 .. 30 04 52 40 34 __ Colpo __ 33
SOMMA ai cinque estratti : 23
09.06.2018 __ 55.19.08.53.20 __ + 23 __ 23.42.31.21.43 .. 42 21 31 43 23 __ Colpo __ 316
SOMMA ai cinque estratti : 29
25.04.2018 __ 14.34.07.03.37 __ + 29 __ 43.08.36.32.11 .. 32 43 36 11 08 __ Colpo __ 607
SOMMA ai cinque estratti : 33
20.08.2018 __ 10.02.55.50.37 __ + 33 __ 43.35.33.28.15 .. 35 33 28 43 15 __ Colpo __ 28
SOMMA ai cinque estratti : 38
18.03.2019 __ 27.09.16.33.22 __ + 38 __ 10.47.54.16.05 .. 05 47 10 54 16 __ Colpo __ 371
SOMMA ai cinque estratti : 40
11.02.2019 __ 39.21.28.26.33 __ + 40 __ 24.06.13.11.18 .. 18 06 11 24 13 __ Colpo __ 285
( preciso : portato a modifica un listato eseguito dal bravissimo Mike58 )
consiste nel sommare ad ogni estratto lo stesso numero per poi vederne gli effetti.
Tale considerazione del Modulo90 è stato trasferito a Modulo55 per il gioco del Millionday e partendo dalla 1° estrazione ho fatto esame delle sue 782 estrazioni per vederne gli esiti, e inserendo 782 colpi per ogni colonna estratta ho avuto questo resoconto :
LE CINQUINE ESTRATTE TRA IL + 1 E IL + 55
SOMMA ai cinque estratti : 1
16.03.2018 __ 27.42.25.28.17 __ + 1 __ 28.43.26.29.18 .. 26 29 43 18 28 __ Colpo __ 357
SOMMA ai cinque estratti : 10
18.12.2018 __ 24.54.07.14.26 __ + 10 __ 34.09.17.24.36 .. 17 09 34 24 36 __ Colpo __ 256
SOMMA ai cinque estratti : 19
27.02.2019 __ 24.10.44.32.45 __ + 19 __ 43.29.08.51.09 .. 09 08 51 29 43 __ Colpo __ 35
SOMMA ai cinque estratti : 20
13.06.2018 __ 20.32.10.14.39 __ + 20 __ 40.52.30.34.04 .. 30 04 52 40 34 __ Colpo __ 33
SOMMA ai cinque estratti : 23
09.06.2018 __ 55.19.08.53.20 __ + 23 __ 23.42.31.21.43 .. 42 21 31 43 23 __ Colpo __ 316
SOMMA ai cinque estratti : 29
25.04.2018 __ 14.34.07.03.37 __ + 29 __ 43.08.36.32.11 .. 32 43 36 11 08 __ Colpo __ 607
SOMMA ai cinque estratti : 33
20.08.2018 __ 10.02.55.50.37 __ + 33 __ 43.35.33.28.15 .. 35 33 28 43 15 __ Colpo __ 28
SOMMA ai cinque estratti : 38
18.03.2019 __ 27.09.16.33.22 __ + 38 __ 10.47.54.16.05 .. 05 47 10 54 16 __ Colpo __ 371
SOMMA ai cinque estratti : 40
11.02.2019 __ 39.21.28.26.33 __ + 40 __ 24.06.13.11.18 .. 18 06 11 24 13 __ Colpo __ 285
( preciso : portato a modifica un listato eseguito dal bravissimo Mike58 )
*blacklotto*
Super Member >PLATINUM<
Ho mostrato il resoconto di queste cinquine estratte facendo vedere che basterebbe un semplice calcolo per ottenere la previsione, poi ci vuol costanza ... pazienza.
Come vedi i colpi d'attesa variano da 33 giocate consecutive, quindi una spesa di 33 euro, alla più lunga con attesa di 607 estrazioni, quindi con 607 euro di spesa, senza aver contato nei due casi gli ambi e i terni estratti.
Ma no facciamoci prendere troppo dall'euforia.
Per poter fare questo gioco basta scegliere una cinquina, fare somma per ogni estratto con un numero fisso, se occorre fare il Fuori55 e aspettare che venga quel giorno ....
Che sia anche questa un illusione ?
Come vedi i colpi d'attesa variano da 33 giocate consecutive, quindi una spesa di 33 euro, alla più lunga con attesa di 607 estrazioni, quindi con 607 euro di spesa, senza aver contato nei due casi gli ambi e i terni estratti.
Ma no facciamoci prendere troppo dall'euforia.
Per poter fare questo gioco basta scegliere una cinquina, fare somma per ogni estratto con un numero fisso, se occorre fare il Fuori55 e aspettare che venga quel giorno ....
Che sia anche questa un illusione ?
*blacklotto*
Super Member >PLATINUM<
Per fare ciò che la Fortuna vuole !
Questo listatino inserendo un numero ti mostrerà tutti i suoi ritardi, sempre in mia modifica da altro listato lotto.
Mostra le volte che è stato estratto e a quante estrazioni di ritardo aveva accumulato, vedi esempio n° 19 dalle estrazioni 2020
( 03.01.2020 ) n° 19 uscito dopo 29 estrazioni : 14.19.01.21.48
( 12.01.2020 ) n° 19 uscito dopo 9 estrazioni : 33.55.35.13.19
( 21.01.2020 ) n° 19 uscito dopo 9 estrazioni : 19.09.35.03.04
( 25.01.2020 ) n° 19 uscito dopo 4 estrazioni : 14.10.29.55.19
( 02.02.2020 ) n° 19 uscito dopo 8 estrazioni : 24.19.15.44.28
( 10.02.2020 ) n° 19 uscito dopo 8 estrazioni : 15.22.36.19.52
( 20.02.2020 ) n° 19 uscito dopo 10 estrazioni : 19.34.53.25.24
( 12.03.2020 ) n° 19 uscito dopo 21 estrazioni : 14.19.31.24.52
( 20.03.2020 ) n° 19 uscito dopo 8 estrazioni : 05.14.19.52.04
Option Explicit
Sub Main
Dim ini,fin,es,Conta_Colpi
Dim sfile
Dim Nu(1)
sfile = GetDirectoryAppData & " *************************** "
Call ApriBaseDatiFT(sfile,5,",",55)
ini = 1
fin = EstrazioniArchivioFT
Conta_Colpi = 0
For es = ini To fin
AvanzamentoElab ini,fin,es
Nu(1) = 19
Conta_Colpi = Conta_Colpi + 1
If PosizioneFT(es,Nu(1)) > 0 Then
Scrivi "( " & DataEstrazioneFT(es) & " ) n° " & Nu(1) & _
" uscito dopo " & Conta_Colpi & " estrazioni : " & StringaEstrattiFT(es),1
Conta_Colpi = 0
End If
Next
End Sub
Questo listatino inserendo un numero ti mostrerà tutti i suoi ritardi, sempre in mia modifica da altro listato lotto.
Mostra le volte che è stato estratto e a quante estrazioni di ritardo aveva accumulato, vedi esempio n° 19 dalle estrazioni 2020
( 03.01.2020 ) n° 19 uscito dopo 29 estrazioni : 14.19.01.21.48
( 12.01.2020 ) n° 19 uscito dopo 9 estrazioni : 33.55.35.13.19
( 21.01.2020 ) n° 19 uscito dopo 9 estrazioni : 19.09.35.03.04
( 25.01.2020 ) n° 19 uscito dopo 4 estrazioni : 14.10.29.55.19
( 02.02.2020 ) n° 19 uscito dopo 8 estrazioni : 24.19.15.44.28
( 10.02.2020 ) n° 19 uscito dopo 8 estrazioni : 15.22.36.19.52
( 20.02.2020 ) n° 19 uscito dopo 10 estrazioni : 19.34.53.25.24
( 12.03.2020 ) n° 19 uscito dopo 21 estrazioni : 14.19.31.24.52
( 20.03.2020 ) n° 19 uscito dopo 8 estrazioni : 05.14.19.52.04
Option Explicit
Sub Main
Dim ini,fin,es,Conta_Colpi
Dim sfile
Dim Nu(1)
sfile = GetDirectoryAppData & " *************************** "
Call ApriBaseDatiFT(sfile,5,",",55)
ini = 1
fin = EstrazioniArchivioFT
Conta_Colpi = 0
For es = ini To fin
AvanzamentoElab ini,fin,es
Nu(1) = 19
Conta_Colpi = Conta_Colpi + 1
If PosizioneFT(es,Nu(1)) > 0 Then
Scrivi "( " & DataEstrazioneFT(es) & " ) n° " & Nu(1) & _
" uscito dopo " & Conta_Colpi & " estrazioni : " & StringaEstrattiFT(es),1
Conta_Colpi = 0
End If
Next
End Sub
Ciao blacklotto . Grazie del listato.
Per adesso Grande Fortuna al Gioco
non ne ho avuta. Mi passo il tempo a fare conti infiniti e
spero sempre, puntando poco. Se perdo subito dopo
attendo la prossima estrazione.
Quando l'estrazione veniva fatta dal Bambino vincevo
poco ma spesso.
Ti Saluto
Giorgio "jure"
Per adesso Grande Fortuna al Gioco
non ne ho avuta. Mi passo il tempo a fare conti infiniti e
spero sempre, puntando poco. Se perdo subito dopo
attendo la prossima estrazione.
Quando l'estrazione veniva fatta dal Bambino vincevo
poco ma spesso.
Ti Saluto
Giorgio "jure"
*blacklotto*
Super Member >PLATINUM<
Questo listato, sempre portato in modifica da me, dal lotto al millionday, segnala numeri isotopi, in questo caso ad estrazione consecutiva.
Come vedrai io ho impostato per farti esempio del numero 1, e a seguire ad estrazione consecutiva il suo numero isotopo, cioè estratto nella stessa posizione.
Come campione dimostrativo inserisco il numero uno come 1° estrazione, e a seguire solo i suoi numeri isotopi, da 1 a 10 per vedere se ci sono tutti o manca
uno o più numeri, come vedrai, il numero 7 isotopo al numero 1 manca ad estrazione consecutiva.
In questo caso, quando vedrò sortire il numero 1, non mancherò d'inserire nella cinquina in previsione il numero 7, unico atteso isotopo dal numero 1.
esempio col numero 1
14.11.2018 31.01.17.36.43 .. 2° Estratto .. n° 1
15.11.2018 40.01.55.05.26 .. 2° Estratto .. n° 1
================================
08.12.2019 08.17.47.01.11 .. 4° estratto .. n° 1
09.12.2019 25.09.08.01.38 .. 4° Estratto .. n° 1
================================
30.08.2018 22.29.01.38.46 .. 3° Estratto .. n° 1
31.08.2018 23.14.02.54.45 .. 3° Estratto .. n° 2
================================
23.05.2019 47.18.01.14.32 .. 3° Estratto .. n° 1
24.05.2019 54.13.02.40.34 .. 3° Estratto .. n° 2
================================
29.12.2019 01.27.32.06.03 .. 1° Estratto .. n° 1
30.12.2019 02.01.43.16.03 .. 1° Estratto .. n° 2
================================
16.03.2020 53.15.03.01.36 .. 4° estratto .. n° 1
17.03.2020 46.16.47.02.50 .. 4° Estratto .. n° 2
================================
17.08.2019 44.05.01.30.45 .. 3° Estratto .. n° 1
18.08.2019 25.12.03.20.45 .. 3° Estratto .. n° 3
================================
30.07.2018 31.09.01.39.53 .. 3° Estratto .. n° 1
31.07.2018 03.07.04.24.17 .. 3° Estratto .. n° 4
================================
04.08.2019 36.27.45.01.37 .. 4° estratto .. n° 1
05.08.2019 09.23.13.04.50 .. 4° Estratto .. n° 4
================================
11.08.2019 48.17.01.05.53 .. 3° Estratto .. n° 1
12.08.2019 21.48.05.36.14 .. 3° Estratto .. n° 5
================================
26.01.2020 46.01.18.02.36 .. 2° Estratto .. n° 1
27.01.2020 53.06.37.55.28 .. 2° Estratto .. n° 6
================================
19.09.2019 33.28.24.51.01 .. 5° estratto .. n° 1
20.09.2019 50.39.53.31.08 .. 5° Estratto .. n° 8
================================
05.02.2020 51.01.10.39.45 .. 2° Estratto .. n° 1
06.02.2020 16.08.50.41.26 .. 2° Estratto .. n° 8
================================
01.04.2019 48.53.34.22.01 .. 5° estratto .. n° 1
02.04.2019 19.46.32.24.09 .. 5° Estratto .. n° 9
================================
14.08.2019 54.06.14.52.01 .. 5° estratto .. n° 1
15.08.2019 42.39.55.21.09 .. 5° Estratto .. n° 9
================================
19.02.2018 06.44.29.25.01 .. 5° estratto .. n° 1
20.02.2018 35.54.42.37.10 .. 5° Estratto .. n° 10
================================
10.03.2018 35.42.09.32.01 .. 5° estratto .. n° 1
11.03.2018 46.25.19.29.10 .. 5° Estratto .. n° 10
================================
19.11.2018 45.01.41.24.47 .. 2° Estratto .. n° 1
20.11.2018 20.10.51.08.06 .. 2° Estratto .. n° 10
================================
vediamo altro esempio col numero 10
31.03.2019 48.32.51.53.10 .. 5° estratto .. n° 10
01.04.2019 48.53.34.22.01 .. 5° Estratto .. n° 1
================================
25.01.2020 14.10.29.55.19 .. 2° Estratto .. n° 10
26.01.2020 46.01.18.02.36 .. 2° Estratto .. n° 1
================================
05.03.2020 04.10.14.28.51 .. 2° Estratto .. n° 10
06.03.2020 08.01.18.16.03 .. 2° Estratto .. n° 1
================================
26.03.2018 38.16.11.21.10 .. 5° estratto .. n° 10
27.03.2018 16.09.40.10.03 .. 5° Estratto .. n° 3
================================
07.11.2018 49.35.30.10.22 .. 4° estratto .. n° 10
08.11.2018 02.37.41.03.53 .. 4° Estratto .. n° 3
================================
21.03.2019 52.43.22.10.16 .. 4° estratto .. n° 10
22.03.2019 40.10.37.03.32 .. 4° Estratto .. n° 3
================================
28.04.2019 36.10.06.17.29 .. 2° Estratto .. n° 10
29.04.2019 05.03.36.27.50 .. 2° Estratto .. n° 3
================================
28.12.2019 40.37.55.25.10 .. 5° estratto .. n° 10
29.12.2019 01.27.32.06.03 .. 5° Estratto .. n° 3
================================
13.10.2019 10.03.42.19.27 .. 1° Estratto .. n° 10
14.10.2019 04.47.20.30.27 .. 1° Estratto .. n° 4
================================
20.01.2020 25.40.21.42.10 .. 5° estratto .. n° 10
21.01.2020 19.09.35.03.04 .. 5° Estratto .. n° 4
================================
22.10.2018 26.44.29.10.47 .. 4° estratto .. n° 10
23.10.2018 35.48.25.05.23 .. 4° Estratto .. n° 5
================================
07.09.2019 31.28.43.10.51 .. 4° estratto .. n° 10
08.09.2019 18.38.47.05.24 .. 4° Estratto .. n° 5
================================
22.03.2019 40.10.37.03.32 .. 2° Estratto .. n° 10
23.03.2019 27.06.41.33.37 .. 2° Estratto .. n° 6
================================
24.06.2019 10.49.21.30.38 .. 1° Estratto .. n° 10
25.06.2019 06.53.23.01.03 .. 1° Estratto .. n° 6
================================
24.11.2019 27.10.22.21.09 .. 2° Estratto .. n° 10
25.11.2019 18.06.52.46.27 .. 2° Estratto .. n° 6
================================
17.12.2018 24.32.10.08.04 .. 3° Estratto .. n° 10
18.12.2018 24.54.07.14.26 .. 3° Estratto .. n° 7
================================
12.03.2019 40.44.03.19.10 .. 5° estratto .. n° 10
13.03.2019 48.52.12.06.08 .. 5° Estratto .. n° 8
================================
20.11.2018 20.10.51.08.06 .. 2° Estratto .. n° 10
21.11.2018 01.09.29.15.21 .. 2° Estratto .. n° 9
================================
21.12.2018 09.53.10.20.15 .. 3° Estratto .. n° 10
22.12.2018 20.26.10.41.12 .. 3° Estratto .. n° 10
================================
28.06.2019 10.38.04.35.55 .. 1° Estratto .. n° 10
29.06.2019 10.54.37.32.27 .. 1° Estratto .. n° 10
================================
29.06.2019 10.54.37.32.27 .. 1° Estratto .. n° 10
30.06.2019 10.13.50.40.42 .. 1° Estratto .. n° 10
================================
in questo caso del numero 10, come isotopo ad estrazione consecutiva tra il numero 1 e 10 manca il 2.
Sub Main()
For y = 1 To 1
For w = 1 To 55
Dim sfile
sfile = GetDirectoryAppData & " ********************** "
Call ApriBaseDatiFT(sfile,5,",",55)
ini = 1
fin = EstrazioniArchivioFT
For es = ini To fin
AvanzamentoElab ini,fin,es
es1 = es + 1
If(EstrattoFT(es,1) = y)Then
If(EstrattoFT(es1,1) = w)Then
Scrivi DataEstrazioneFT(es) & " " & StringaEstrattiFT(es) & " .. 1° Estratto .. n°",1,0
Scrivi" " & EstrattoFT(es,1),1
ColoreTesto 2
Scrivi DataEstrazioneFT(es1) & " " & StringaEstrattiFT(es1) & " .. 1° Estratto .. n°",1,0
Scrivi" " & EstrattoFT(es1,1),1
ColoreTesto 0
Scrivi"================================"
End If
End If
If(EstrattoFT(es,2) = y)Then
If(EstrattoFT(es1,2) = w)Then
Scrivi DataEstrazioneFT(es) & " " & StringaEstrattiFT(es) & " .. 2° Estratto .. n°",1,0
Scrivi" " & EstrattoFT(es,2),1
ColoreTesto 2
Scrivi DataEstrazioneFT(es1) & " " & StringaEstrattiFT(es1) & " .. 2° Estratto .. n°",1,0
Scrivi" " & EstrattoFT(es1,2),1
ColoreTesto 0
Scrivi"================================"
End If
End If
If(EstrattoFT(es,3) = y)Then
If(EstrattoFT(es1,3) = w)Then
Scrivi DataEstrazioneFT(es) & " " & StringaEstrattiFT(es) & " .. 3° Estratto .. n°",1,0
Scrivi " " & EstrattoFT(es,3),1
ColoreTesto 2
Scrivi DataEstrazioneFT(es1) & " " & StringaEstrattiFT(es1) & " .. 3° Estratto .. n°",1,0
Scrivi" " & EstrattoFT(es1,3),1
ColoreTesto 0
Scrivi"================================"
End If
End If
If(EstrattoFT(es,4) = y)Then
If(EstrattoFT(es1,4) = w)Then
Scrivi DataEstrazioneFT(es) & " " & StringaEstrattiFT(es) & " .. 4° estratto .. n°",1,0
Scrivi " " & EstrattoFT(es,4),1
ColoreTesto 2
Scrivi DataEstrazioneFT(es1) & " " & StringaEstrattiFT(es1) & " .. 4° Estratto .. n°",1,0
Scrivi" " & EstrattoFT(es1,4),1
ColoreTesto 0
Scrivi"================================"
End If
End If
If(EstrattoFT(es,5) = y)Then
If(EstrattoFT(es1,5) = w)Then
Scrivi DataEstrazioneFT(es) & " " & StringaEstrattiFT(es) & " .. 5° estratto .. n°",1,0
Scrivi" " & EstrattoFT(es,5),1
ColoreTesto 2
Scrivi DataEstrazioneFT(es1) & " " & StringaEstrattiFT(es1) & " .. 5° Estratto .. n°",1,0
Scrivi" " & EstrattoFT(es1,5),1
ColoreTesto 0
Scrivi"================================"
End If
End If
Next
Next
Next
End Sub
ciao
Come vedrai io ho impostato per farti esempio del numero 1, e a seguire ad estrazione consecutiva il suo numero isotopo, cioè estratto nella stessa posizione.
Come campione dimostrativo inserisco il numero uno come 1° estrazione, e a seguire solo i suoi numeri isotopi, da 1 a 10 per vedere se ci sono tutti o manca
uno o più numeri, come vedrai, il numero 7 isotopo al numero 1 manca ad estrazione consecutiva.
In questo caso, quando vedrò sortire il numero 1, non mancherò d'inserire nella cinquina in previsione il numero 7, unico atteso isotopo dal numero 1.
esempio col numero 1
14.11.2018 31.01.17.36.43 .. 2° Estratto .. n° 1
15.11.2018 40.01.55.05.26 .. 2° Estratto .. n° 1
================================
08.12.2019 08.17.47.01.11 .. 4° estratto .. n° 1
09.12.2019 25.09.08.01.38 .. 4° Estratto .. n° 1
================================
30.08.2018 22.29.01.38.46 .. 3° Estratto .. n° 1
31.08.2018 23.14.02.54.45 .. 3° Estratto .. n° 2
================================
23.05.2019 47.18.01.14.32 .. 3° Estratto .. n° 1
24.05.2019 54.13.02.40.34 .. 3° Estratto .. n° 2
================================
29.12.2019 01.27.32.06.03 .. 1° Estratto .. n° 1
30.12.2019 02.01.43.16.03 .. 1° Estratto .. n° 2
================================
16.03.2020 53.15.03.01.36 .. 4° estratto .. n° 1
17.03.2020 46.16.47.02.50 .. 4° Estratto .. n° 2
================================
17.08.2019 44.05.01.30.45 .. 3° Estratto .. n° 1
18.08.2019 25.12.03.20.45 .. 3° Estratto .. n° 3
================================
30.07.2018 31.09.01.39.53 .. 3° Estratto .. n° 1
31.07.2018 03.07.04.24.17 .. 3° Estratto .. n° 4
================================
04.08.2019 36.27.45.01.37 .. 4° estratto .. n° 1
05.08.2019 09.23.13.04.50 .. 4° Estratto .. n° 4
================================
11.08.2019 48.17.01.05.53 .. 3° Estratto .. n° 1
12.08.2019 21.48.05.36.14 .. 3° Estratto .. n° 5
================================
26.01.2020 46.01.18.02.36 .. 2° Estratto .. n° 1
27.01.2020 53.06.37.55.28 .. 2° Estratto .. n° 6
================================
19.09.2019 33.28.24.51.01 .. 5° estratto .. n° 1
20.09.2019 50.39.53.31.08 .. 5° Estratto .. n° 8
================================
05.02.2020 51.01.10.39.45 .. 2° Estratto .. n° 1
06.02.2020 16.08.50.41.26 .. 2° Estratto .. n° 8
================================
01.04.2019 48.53.34.22.01 .. 5° estratto .. n° 1
02.04.2019 19.46.32.24.09 .. 5° Estratto .. n° 9
================================
14.08.2019 54.06.14.52.01 .. 5° estratto .. n° 1
15.08.2019 42.39.55.21.09 .. 5° Estratto .. n° 9
================================
19.02.2018 06.44.29.25.01 .. 5° estratto .. n° 1
20.02.2018 35.54.42.37.10 .. 5° Estratto .. n° 10
================================
10.03.2018 35.42.09.32.01 .. 5° estratto .. n° 1
11.03.2018 46.25.19.29.10 .. 5° Estratto .. n° 10
================================
19.11.2018 45.01.41.24.47 .. 2° Estratto .. n° 1
20.11.2018 20.10.51.08.06 .. 2° Estratto .. n° 10
================================
vediamo altro esempio col numero 10
31.03.2019 48.32.51.53.10 .. 5° estratto .. n° 10
01.04.2019 48.53.34.22.01 .. 5° Estratto .. n° 1
================================
25.01.2020 14.10.29.55.19 .. 2° Estratto .. n° 10
26.01.2020 46.01.18.02.36 .. 2° Estratto .. n° 1
================================
05.03.2020 04.10.14.28.51 .. 2° Estratto .. n° 10
06.03.2020 08.01.18.16.03 .. 2° Estratto .. n° 1
================================
26.03.2018 38.16.11.21.10 .. 5° estratto .. n° 10
27.03.2018 16.09.40.10.03 .. 5° Estratto .. n° 3
================================
07.11.2018 49.35.30.10.22 .. 4° estratto .. n° 10
08.11.2018 02.37.41.03.53 .. 4° Estratto .. n° 3
================================
21.03.2019 52.43.22.10.16 .. 4° estratto .. n° 10
22.03.2019 40.10.37.03.32 .. 4° Estratto .. n° 3
================================
28.04.2019 36.10.06.17.29 .. 2° Estratto .. n° 10
29.04.2019 05.03.36.27.50 .. 2° Estratto .. n° 3
================================
28.12.2019 40.37.55.25.10 .. 5° estratto .. n° 10
29.12.2019 01.27.32.06.03 .. 5° Estratto .. n° 3
================================
13.10.2019 10.03.42.19.27 .. 1° Estratto .. n° 10
14.10.2019 04.47.20.30.27 .. 1° Estratto .. n° 4
================================
20.01.2020 25.40.21.42.10 .. 5° estratto .. n° 10
21.01.2020 19.09.35.03.04 .. 5° Estratto .. n° 4
================================
22.10.2018 26.44.29.10.47 .. 4° estratto .. n° 10
23.10.2018 35.48.25.05.23 .. 4° Estratto .. n° 5
================================
07.09.2019 31.28.43.10.51 .. 4° estratto .. n° 10
08.09.2019 18.38.47.05.24 .. 4° Estratto .. n° 5
================================
22.03.2019 40.10.37.03.32 .. 2° Estratto .. n° 10
23.03.2019 27.06.41.33.37 .. 2° Estratto .. n° 6
================================
24.06.2019 10.49.21.30.38 .. 1° Estratto .. n° 10
25.06.2019 06.53.23.01.03 .. 1° Estratto .. n° 6
================================
24.11.2019 27.10.22.21.09 .. 2° Estratto .. n° 10
25.11.2019 18.06.52.46.27 .. 2° Estratto .. n° 6
================================
17.12.2018 24.32.10.08.04 .. 3° Estratto .. n° 10
18.12.2018 24.54.07.14.26 .. 3° Estratto .. n° 7
================================
12.03.2019 40.44.03.19.10 .. 5° estratto .. n° 10
13.03.2019 48.52.12.06.08 .. 5° Estratto .. n° 8
================================
20.11.2018 20.10.51.08.06 .. 2° Estratto .. n° 10
21.11.2018 01.09.29.15.21 .. 2° Estratto .. n° 9
================================
21.12.2018 09.53.10.20.15 .. 3° Estratto .. n° 10
22.12.2018 20.26.10.41.12 .. 3° Estratto .. n° 10
================================
28.06.2019 10.38.04.35.55 .. 1° Estratto .. n° 10
29.06.2019 10.54.37.32.27 .. 1° Estratto .. n° 10
================================
29.06.2019 10.54.37.32.27 .. 1° Estratto .. n° 10
30.06.2019 10.13.50.40.42 .. 1° Estratto .. n° 10
================================
in questo caso del numero 10, come isotopo ad estrazione consecutiva tra il numero 1 e 10 manca il 2.
Sub Main()
For y = 1 To 1
For w = 1 To 55
Dim sfile
sfile = GetDirectoryAppData & " ********************** "
Call ApriBaseDatiFT(sfile,5,",",55)
ini = 1
fin = EstrazioniArchivioFT
For es = ini To fin
AvanzamentoElab ini,fin,es
es1 = es + 1
If(EstrattoFT(es,1) = y)Then
If(EstrattoFT(es1,1) = w)Then
Scrivi DataEstrazioneFT(es) & " " & StringaEstrattiFT(es) & " .. 1° Estratto .. n°",1,0
Scrivi" " & EstrattoFT(es,1),1
ColoreTesto 2
Scrivi DataEstrazioneFT(es1) & " " & StringaEstrattiFT(es1) & " .. 1° Estratto .. n°",1,0
Scrivi" " & EstrattoFT(es1,1),1
ColoreTesto 0
Scrivi"================================"
End If
End If
If(EstrattoFT(es,2) = y)Then
If(EstrattoFT(es1,2) = w)Then
Scrivi DataEstrazioneFT(es) & " " & StringaEstrattiFT(es) & " .. 2° Estratto .. n°",1,0
Scrivi" " & EstrattoFT(es,2),1
ColoreTesto 2
Scrivi DataEstrazioneFT(es1) & " " & StringaEstrattiFT(es1) & " .. 2° Estratto .. n°",1,0
Scrivi" " & EstrattoFT(es1,2),1
ColoreTesto 0
Scrivi"================================"
End If
End If
If(EstrattoFT(es,3) = y)Then
If(EstrattoFT(es1,3) = w)Then
Scrivi DataEstrazioneFT(es) & " " & StringaEstrattiFT(es) & " .. 3° Estratto .. n°",1,0
Scrivi " " & EstrattoFT(es,3),1
ColoreTesto 2
Scrivi DataEstrazioneFT(es1) & " " & StringaEstrattiFT(es1) & " .. 3° Estratto .. n°",1,0
Scrivi" " & EstrattoFT(es1,3),1
ColoreTesto 0
Scrivi"================================"
End If
End If
If(EstrattoFT(es,4) = y)Then
If(EstrattoFT(es1,4) = w)Then
Scrivi DataEstrazioneFT(es) & " " & StringaEstrattiFT(es) & " .. 4° estratto .. n°",1,0
Scrivi " " & EstrattoFT(es,4),1
ColoreTesto 2
Scrivi DataEstrazioneFT(es1) & " " & StringaEstrattiFT(es1) & " .. 4° Estratto .. n°",1,0
Scrivi" " & EstrattoFT(es1,4),1
ColoreTesto 0
Scrivi"================================"
End If
End If
If(EstrattoFT(es,5) = y)Then
If(EstrattoFT(es1,5) = w)Then
Scrivi DataEstrazioneFT(es) & " " & StringaEstrattiFT(es) & " .. 5° estratto .. n°",1,0
Scrivi" " & EstrattoFT(es,5),1
ColoreTesto 2
Scrivi DataEstrazioneFT(es1) & " " & StringaEstrattiFT(es1) & " .. 5° Estratto .. n°",1,0
Scrivi" " & EstrattoFT(es1,5),1
ColoreTesto 0
Scrivi"================================"
End If
End If
Next
Next
Next
End Sub
ciao
*blacklotto*
Super Member >PLATINUM<
ciao,
il mio archivio, scaricato dal sito di Silop è in questo modo
( ultimo mese in archivio )
754,01/03/2020,27,21,32,20,50
755,02/03/2020,12,46,16,36,20
756,03/03/2020,25,45,20,43,2
757,04/03/2020,9,17,29,45,14
758,05/03/2020,4,10,14,28,51
759,06/03/2020,8,1,18,16,3
760,07/03/2020,31,25,29,22,30
761,08/03/2020,24,17,21,45,48
762,09/03/2020,17,32,38,51,54
763,10/03/2020,25,43,37,10,53
764,11/03/2020,55,1,20,49,40
765,12/03/2020,14,19,31,24,52
766,13/03/2020,51,24,15,11,13
767,14/03/2020,31,55,41,38,37
768,15/03/2020,52,2,8,32,47
769,16/03/2020,53,15,3,1,36
770,17/03/2020,46,16,47,2,50
771,18/03/2020,32,11,4,3,42
772,19/03/2020,47,14,39,43,50
773,20/03/2020,5,14,19,52,4
774,21/03/2020,55,20,54,35,29
775,22/03/2020,23,18,16,21,27
776,23/03/2020,5,47,10,54,16
777,24/03/2020,38,20,45,28,39
778,25/03/2020,33,51,20,8,53
779,26/03/2020,55,32,50,17,23
780,27/03/2020,34,14,26,36,37
781,28/03/2020,54,40,51,32,36
782,29/03/2020,16,5,6,51,33
783,30/03/2020,24,7,4,16,8
numero estrazione virgola data virgola numeri estratti separati dalla virgola
Tieni conto che una volta scaricato lo aggiorno io manualmente da un sito che se ti serve e potrò inserirlo non esiterò nel mandartelo.
Se a te il listato sopracitato non funziona inserendo la tua directory si vede che hai commesso qualche errore di battitura nell'inserimento delle estrazioni, ma se così fosse ti si blocca per non ripartire dandoti nuovo messaggio d'errore, ma ti consegnerà una videata bianca.
Il mio consiglio è, vai da Silop e scarica l'archivio, se hai problemi o lo cerchi o te lo inserisco io qui.
In caso di bisogno, per quanto possa darti aiuto, scrivimi tranquillamente.
ciao
il mio archivio, scaricato dal sito di Silop è in questo modo
( ultimo mese in archivio )
754,01/03/2020,27,21,32,20,50
755,02/03/2020,12,46,16,36,20
756,03/03/2020,25,45,20,43,2
757,04/03/2020,9,17,29,45,14
758,05/03/2020,4,10,14,28,51
759,06/03/2020,8,1,18,16,3
760,07/03/2020,31,25,29,22,30
761,08/03/2020,24,17,21,45,48
762,09/03/2020,17,32,38,51,54
763,10/03/2020,25,43,37,10,53
764,11/03/2020,55,1,20,49,40
765,12/03/2020,14,19,31,24,52
766,13/03/2020,51,24,15,11,13
767,14/03/2020,31,55,41,38,37
768,15/03/2020,52,2,8,32,47
769,16/03/2020,53,15,3,1,36
770,17/03/2020,46,16,47,2,50
771,18/03/2020,32,11,4,3,42
772,19/03/2020,47,14,39,43,50
773,20/03/2020,5,14,19,52,4
774,21/03/2020,55,20,54,35,29
775,22/03/2020,23,18,16,21,27
776,23/03/2020,5,47,10,54,16
777,24/03/2020,38,20,45,28,39
778,25/03/2020,33,51,20,8,53
779,26/03/2020,55,32,50,17,23
780,27/03/2020,34,14,26,36,37
781,28/03/2020,54,40,51,32,36
782,29/03/2020,16,5,6,51,33
783,30/03/2020,24,7,4,16,8
numero estrazione virgola data virgola numeri estratti separati dalla virgola
Tieni conto che una volta scaricato lo aggiorno io manualmente da un sito che se ti serve e potrò inserirlo non esiterò nel mandartelo.
Se a te il listato sopracitato non funziona inserendo la tua directory si vede che hai commesso qualche errore di battitura nell'inserimento delle estrazioni, ma se così fosse ti si blocca per non ripartire dandoti nuovo messaggio d'errore, ma ti consegnerà una videata bianca.
Il mio consiglio è, vai da Silop e scarica l'archivio, se hai problemi o lo cerchi o te lo inserisco io qui.
In caso di bisogno, per quanto possa darti aiuto, scrivimi tranquillamente.
ciao
*blacklotto*
Super Member >PLATINUM<
Questo mio semplice listato è stato eseguito per mostrarmi una situazione numerica che ha a che vedere con due numeri in posizione scelta, abbinando decine e unità tra loro che diano gli stessi numeri base.
Facciamo ipotesi dell'ultimo caso appartenente all'estrazione n° 769 tra il 1° estratto e il 5° estratto
16.03.2020 - 53.15.03.01.36 =====> 53-36 In Posizione ---> 01° -05°
Dal 1° estratto 53 prendiamo la DECINA 5 e l'uniamo alla DECINA 3 del 5° estratto 36 = 5 e 3 abbiamo 53
Dal 1° estratto 53 prendiamo l' UNITA' 3 e l'uniamo all' UNITA' 6 del 5° estratto 36 = 3 e 6 abbiamo 36
Questa situazione la si potrà cercare con qualsiasi coppia numerica scelta
Questo è il resoconto per l'anno 2020 :
03.01.2020 - 14.19.01.21.48 =====> 14-48 In Posizione ---> 01° -05°
14.01.2020 - 31.20.04.25.18 =====> 31-18 In Posizione ---> 01° -05°
31.01.2020 - 05.21.08.53.54 =====> 05-54 In Posizione ---> 01° -05°
09.02.2020 - 13.31.10.07.38 =====> 13-38 In Posizione ---> 01° -05°
10.02.2020 - 15.22.36.19.52 =====> 15-52 In Posizione ---> 01° -05°
13.02.2020 - 12.20.08.14.25 =====> 12-25 In Posizione ---> 01° -05°
24.02.2020 - 51.49.35.24.12 =====> 51-12 In Posizione ---> 01° -05°
27.02.2020 - 43.06.41.46.34 =====> 43-34 In Posizione ---> 01° -05°
02.03.2020 - 12.46.16.36.20 =====> 12-20 In Posizione ---> 01° -05°
08.03.2020 - 24.17.21.45.48 =====> 24-48 In Posizione ---> 01° -05°
10.03.2020 - 25.43.37.10.53 =====> 25-53 In Posizione ---> 01° -05°
13.03.2020 - 51.24.15.11.13 =====> 51-13 In Posizione ---> 01° -05°
16.03.2020 - 53.15.03.01.36 =====> 53-36 In Posizione ---> 01° -05°
lasciando il listato com'è, se toglierai i due apici alle stringhe vedrai tutte le estrazioni richieste suddivise
Sub Main()
Dim sfile,numeri(5)
sfile = GetDirectoryAppData & " ******************** "
Call ApriBaseDatiFT(sfile,5,",",55)
ini = 678
fin = EstrazioniArchivioFT
For es = ini To fin
AvanzamentoElab ini,fin,es
'Scrivi"--------------------------------------------------------------------",1
p = 1
p1 = 5
a = EstrattoFT(es,p)
b = EstrattoFT(es,p1)
c = Fuori90(Decina(a) & Decina(b))
d = Fuori90(Cadenza(a) & Cadenza(b))
If c = a And d = b Then
ColoreTesto 2
Scrivi DataEstrazioneFT(es) & " - " & StringaEstrattiFT(es) & " =====> " & Format2(a) & "-" & Format2(b) & " In Posizione ---> " & Format2(p) & "° -" & Format2(p1) & "° ",1
ColoreTesto 0
Else
'Scrivi DataEstrazioneFT(es) & " - " & StringaEstrattiFT(es),1
End If
Next
End Sub
ciao
Facciamo ipotesi dell'ultimo caso appartenente all'estrazione n° 769 tra il 1° estratto e il 5° estratto
16.03.2020 - 53.15.03.01.36 =====> 53-36 In Posizione ---> 01° -05°
Dal 1° estratto 53 prendiamo la DECINA 5 e l'uniamo alla DECINA 3 del 5° estratto 36 = 5 e 3 abbiamo 53
Dal 1° estratto 53 prendiamo l' UNITA' 3 e l'uniamo all' UNITA' 6 del 5° estratto 36 = 3 e 6 abbiamo 36
Questa situazione la si potrà cercare con qualsiasi coppia numerica scelta
Questo è il resoconto per l'anno 2020 :
03.01.2020 - 14.19.01.21.48 =====> 14-48 In Posizione ---> 01° -05°
14.01.2020 - 31.20.04.25.18 =====> 31-18 In Posizione ---> 01° -05°
31.01.2020 - 05.21.08.53.54 =====> 05-54 In Posizione ---> 01° -05°
09.02.2020 - 13.31.10.07.38 =====> 13-38 In Posizione ---> 01° -05°
10.02.2020 - 15.22.36.19.52 =====> 15-52 In Posizione ---> 01° -05°
13.02.2020 - 12.20.08.14.25 =====> 12-25 In Posizione ---> 01° -05°
24.02.2020 - 51.49.35.24.12 =====> 51-12 In Posizione ---> 01° -05°
27.02.2020 - 43.06.41.46.34 =====> 43-34 In Posizione ---> 01° -05°
02.03.2020 - 12.46.16.36.20 =====> 12-20 In Posizione ---> 01° -05°
08.03.2020 - 24.17.21.45.48 =====> 24-48 In Posizione ---> 01° -05°
10.03.2020 - 25.43.37.10.53 =====> 25-53 In Posizione ---> 01° -05°
13.03.2020 - 51.24.15.11.13 =====> 51-13 In Posizione ---> 01° -05°
16.03.2020 - 53.15.03.01.36 =====> 53-36 In Posizione ---> 01° -05°
lasciando il listato com'è, se toglierai i due apici alle stringhe vedrai tutte le estrazioni richieste suddivise
08.03.2020 - 24.17.21.45.48 =====> 24-48 In Posizione ---> 01° -05°
--------------------------------------------------------------------
09.03.2020 - 17.32.38.51.54
--------------------------------------------------------------------
10.03.2020 - 25.43.37.10.53 =====> 25-53 In Posizione ---> 01° -05°
--------------------------------------------------------------------
11.03.2020 - 55.01.20.49.40
--------------------------------------------------------------------
12.03.2020 - 14.19.31.24.52
--------------------------------------------------------------------
13.03.2020 - 51.24.15.11.13 =====> 51-13 In Posizione ---> 01° -05°
--------------------------------------------------------------------
14.03.2020 - 31.55.41.38.37
--------------------------------------------------------------------
15.03.2020 - 52.02.08.32.47
--------------------------------------------------------------------
16.03.2020 - 53.15.03.01.36 =====> 53-36 In Posizione ---> 01° -05°
--------------------------------------------------------------------
17.03.2020 - 46.16.47.02.50
--------------------------------------------------------------------
18.03.2020 - 32.11.04.03.42
--------------------------------------------------------------------
19.03.2020 - 47.14.39.43.50
--------------------------------------------------------------------
20.03.2020 - 05.14.19.52.04
--------------------------------------------------------------------
21.03.2020 - 55.20.54.35.29
--------------------------------------------------------------------
22.03.2020 - 23.18.16.21.27
--------------------------------------------------------------------
23.03.2020 - 05.47.10.54.16
--------------------------------------------------------------------
24.03.2020 - 38.20.45.28.39
--------------------------------------------------------------------
25.03.2020 - 33.51.20.08.53
--------------------------------------------------------------------
26.03.2020 - 55.32.50.17.23
--------------------------------------------------------------------
27.03.2020 - 34.14.26.36.37
--------------------------------------------------------------------
28.03.2020 - 54.40.51.32.36
--------------------------------------------------------------------
29.03.2020 - 16.05.06.51.33
--------------------------------------------------------------------
30.03.2020 - 24.07.04.16.08
--------------------------------------------------------------------
09.03.2020 - 17.32.38.51.54
--------------------------------------------------------------------
10.03.2020 - 25.43.37.10.53 =====> 25-53 In Posizione ---> 01° -05°
--------------------------------------------------------------------
11.03.2020 - 55.01.20.49.40
--------------------------------------------------------------------
12.03.2020 - 14.19.31.24.52
--------------------------------------------------------------------
13.03.2020 - 51.24.15.11.13 =====> 51-13 In Posizione ---> 01° -05°
--------------------------------------------------------------------
14.03.2020 - 31.55.41.38.37
--------------------------------------------------------------------
15.03.2020 - 52.02.08.32.47
--------------------------------------------------------------------
16.03.2020 - 53.15.03.01.36 =====> 53-36 In Posizione ---> 01° -05°
--------------------------------------------------------------------
17.03.2020 - 46.16.47.02.50
--------------------------------------------------------------------
18.03.2020 - 32.11.04.03.42
--------------------------------------------------------------------
19.03.2020 - 47.14.39.43.50
--------------------------------------------------------------------
20.03.2020 - 05.14.19.52.04
--------------------------------------------------------------------
21.03.2020 - 55.20.54.35.29
--------------------------------------------------------------------
22.03.2020 - 23.18.16.21.27
--------------------------------------------------------------------
23.03.2020 - 05.47.10.54.16
--------------------------------------------------------------------
24.03.2020 - 38.20.45.28.39
--------------------------------------------------------------------
25.03.2020 - 33.51.20.08.53
--------------------------------------------------------------------
26.03.2020 - 55.32.50.17.23
--------------------------------------------------------------------
27.03.2020 - 34.14.26.36.37
--------------------------------------------------------------------
28.03.2020 - 54.40.51.32.36
--------------------------------------------------------------------
29.03.2020 - 16.05.06.51.33
--------------------------------------------------------------------
30.03.2020 - 24.07.04.16.08
Sub Main()
Dim sfile,numeri(5)
sfile = GetDirectoryAppData & " ******************** "
Call ApriBaseDatiFT(sfile,5,",",55)
ini = 678
fin = EstrazioniArchivioFT
For es = ini To fin
AvanzamentoElab ini,fin,es
'Scrivi"--------------------------------------------------------------------",1
p = 1
p1 = 5
a = EstrattoFT(es,p)
b = EstrattoFT(es,p1)
c = Fuori90(Decina(a) & Decina(b))
d = Fuori90(Cadenza(a) & Cadenza(b))
If c = a And d = b Then
ColoreTesto 2
Scrivi DataEstrazioneFT(es) & " - " & StringaEstrattiFT(es) & " =====> " & Format2(a) & "-" & Format2(b) & " In Posizione ---> " & Format2(p) & "° -" & Format2(p1) & "° ",1
ColoreTesto 0
Else
'Scrivi DataEstrazioneFT(es) & " - " & StringaEstrattiFT(es),1
End If
Next
End Sub
ciao
Sub Main()
Dim sfile,numeri(5)
sfile = ScegliFile(,,".txt")
Call ApriBaseDatiFT(sfile,5,",",55)
ini = 678
fin = EstrazioniArchivioFT
For es = ini To fin
AvanzamentoElab ini,fin,es
'Scrivi"--------------------------------------------------------------------",1
p = 1
p1 = 5
a = EstrattoFT(es,p)
b = EstrattoFT(es,p1)
c = Fuori90(Decina(a) & Decina(b))
d = Fuori90(Cadenza(a) & Cadenza(b))
If c = a And d = b Then
ColoreTesto 2
Scrivi DataEstrazioneFT(es) & " - " & StringaEstrattiFT(es) & " =====> " & Format2(a) & "-" & Format2(b) & " In Posizione ---> " & Format2(p) & "° -" & Format2(p1) & "° ",1
ColoreTesto 0
Else
'Scrivi DataEstrazioneFT(es) & " - " & StringaEstrattiFT(es),1
End If
Next
End Sub
Ciao Blacklotto Questo e' lo script.
Il mio Archivio corrisponde al sitema di quello di Silop
Ti Saluto
Giorgio"jure"
Dim sfile,numeri(5)
sfile = ScegliFile(,,".txt")
Call ApriBaseDatiFT(sfile,5,",",55)
ini = 678
fin = EstrazioniArchivioFT
For es = ini To fin
AvanzamentoElab ini,fin,es
'Scrivi"--------------------------------------------------------------------",1
p = 1
p1 = 5
a = EstrattoFT(es,p)
b = EstrattoFT(es,p1)
c = Fuori90(Decina(a) & Decina(b))
d = Fuori90(Cadenza(a) & Cadenza(b))
If c = a And d = b Then
ColoreTesto 2
Scrivi DataEstrazioneFT(es) & " - " & StringaEstrattiFT(es) & " =====> " & Format2(a) & "-" & Format2(b) & " In Posizione ---> " & Format2(p) & "° -" & Format2(p1) & "° ",1
ColoreTesto 0
Else
'Scrivi DataEstrazioneFT(es) & " - " & StringaEstrattiFT(es),1
End If
Next
End Sub
Ciao Blacklotto Questo e' lo script.
Il mio Archivio corrisponde al sitema di quello di Silop
Ti Saluto
Giorgio"jure"
*blacklotto*
Super Member >PLATINUM<
Aprendo l'allegato che hai inserito, vedo che la prima estrazione è 1,29/2/2020,18,20,31,38,45 e le altre ?
L'archivio completo è di 783 estrazioni.
L'archivio completo è di 783 estrazioni.
03.01.2020 - 14.19.01.21.48 =====> 14-48 In Posizione ---> 01° -05°
14.01.2020 - 31.20.04.25.18 =====> 31-18 In Posizione ---> 01° -05°
31.01.2020 - 05.21.08.53.54 =====> 05-54 In Posizione ---> 01° -05°
09.02.2020 - 13.31.10.07.38 =====> 13-38 In Posizione ---> 01° -05°
10.02.2020 - 15.22.36.19.52 =====> 15-52 In Posizione ---> 01° -05°
13.02.2020 - 12.20.08.14.25 =====> 12-25 In Posizione ---> 01° -05°
24.02.2020 - 51.49.35.24.12 =====> 51-12 In Posizione ---> 01° -05°
27.02.2020 - 43.06.41.46.34 =====> 43-34 In Posizione ---> 01° -05°
02.03.2020 - 12.46.16.36.20 =====> 12-20 In Posizione ---> 01° -05°
08.03.2020 - 24.17.21.45.48 =====> 24-48 In Posizione ---> 01° -05°
10.03.2020 - 25.43.37.10.53 =====> 25-53 In Posizione ---> 01° -05°
13.03.2020 - 51.24.15.11.13 =====> 51-13 In Posizione ---> 01° -05°
16.03.2020 - 53.15.03.01.36 =====> 53-36 In Posizione ---> 01° -05°
29.03.2020 - 05.06.16.33.51 =====> 05-51 In Posizione ---> 01° -05°
Adesso ho messo l'archivio di 783 estrazione adesso funziona
Ciao
14.01.2020 - 31.20.04.25.18 =====> 31-18 In Posizione ---> 01° -05°
31.01.2020 - 05.21.08.53.54 =====> 05-54 In Posizione ---> 01° -05°
09.02.2020 - 13.31.10.07.38 =====> 13-38 In Posizione ---> 01° -05°
10.02.2020 - 15.22.36.19.52 =====> 15-52 In Posizione ---> 01° -05°
13.02.2020 - 12.20.08.14.25 =====> 12-25 In Posizione ---> 01° -05°
24.02.2020 - 51.49.35.24.12 =====> 51-12 In Posizione ---> 01° -05°
27.02.2020 - 43.06.41.46.34 =====> 43-34 In Posizione ---> 01° -05°
02.03.2020 - 12.46.16.36.20 =====> 12-20 In Posizione ---> 01° -05°
08.03.2020 - 24.17.21.45.48 =====> 24-48 In Posizione ---> 01° -05°
10.03.2020 - 25.43.37.10.53 =====> 25-53 In Posizione ---> 01° -05°
13.03.2020 - 51.24.15.11.13 =====> 51-13 In Posizione ---> 01° -05°
16.03.2020 - 53.15.03.01.36 =====> 53-36 In Posizione ---> 01° -05°
29.03.2020 - 05.06.16.33.51 =====> 05-51 In Posizione ---> 01° -05°
Adesso ho messo l'archivio di 783 estrazione adesso funziona
Ciao
*blacklotto*
Super Member >PLATINUM<
Una volta capito il procedimento per creare un archivio txt se ne potrà aprire infiniti, una cosa interessante davvero.
In fatti, per esempio, per millionday c'è quello in ordine dei numeri di sortita e quello con i numeri messi in ordine cronologico, ma ... le vie degli archivi sono infinite !
ciao
In fatti, per esempio, per millionday c'è quello in ordine dei numeri di sortita e quello con i numeri messi in ordine cronologico, ma ... le vie degli archivi sono infinite !
ciao
Mi sapreste dire dove sbaglio
Non trova il file >>>>sfile = GetDirectoryAppData & "c:\MillionDay2.txt"
Qui funziona ma devo inserirlo ogni volta>>>> sfile = ScegliFile(,,".txt")
Grazie
*blacklotto*
Super Member >PLATINUM<
prova ad inserire il listato, se è possibile, poi ti potrò indicare meglio.
Questo è l'inizio di un mio listato
Sub Main
Dim sFile,Nu(5)
sFile = GetDirectoryAppData & "ArchiviTxTBlacklotto\MillionDay.txt"
Call ApriBaseDatiFT(sFile,5,",",55)
Ini = 1
fin = EstrazioniArchivioFT
dove la stringa in rosso non viene mai toccata per ogni inizio listato per Millionday
a condizione che rispetti sempre la dicitura del mio archivio, stringa in blu
... fammi sapere !
Questo è l'inizio di un mio listato
Sub Main
Dim sFile,Nu(5)
sFile = GetDirectoryAppData & "ArchiviTxTBlacklotto\MillionDay.txt"
Call ApriBaseDatiFT(sFile,5,",",55)
Ini = 1
fin = EstrazioniArchivioFT
dove la stringa in rosso non viene mai toccata per ogni inizio listato per Millionday
a condizione che rispetti sempre la dicitura del mio archivio, stringa in blu
... fammi sapere !
Ultima estrazione Lotto
-
Estrazione del lotto
martedì 23 aprile 2024Bari4722342050Cagliari3314860262Firenze6122441926Genova2112578255Milano6605117030Napoli0523255273Palermo2344497165Roma8237593471Torino2642661558Venezia5706685484Nazionale2179490301Estrazione Simbolotto
Genova
2402190327
