Novità

Million DAY

lotto69

Member
Ecco il listato

Sub Main
Dim sFile,Nu(5),sommaChiave(5)
'sFile = GetDirectoryAppData & "c:\MillionDay2.txt"
sFile = ScegliFile("C:\MillionDay2.txt")

Call ApriBaseDatiFT(sFile,5,",",55)
Ini = 2
fin = EstrazioniArchivioFT - 3
T = Array(T,"Sommativo","Totali","Ambi","Terni","Quaterne","Cinquine","Ritardo","ColpoMin","ColpoMax","ColpoMedio")
Call InitTabella(T)
For chiave = 0 To 55
For es = Ini To fin
For p = 1 To 5
Nu(p) = EstrattoFT(es,p)
sommaChiave(p) = FuoriX((Nu(p) + chiave),55)
Next
If VerificaEsitoFT(sommaChiave,es + 1,2,100,esito,clp,es1,id) = True Then
k = k + 1
ReDim Preserve ColpoMedio(k)
ColpoMedio(k) = clp
clpMedio =(clpMedio + clp)
ColpoMed = Round((clpMedio / k),2)
colpoMin = MinimoV(ColpoMedio,1,- 1)
colpoMax = MassimoV(ColpoMedio,1,- 1)
If esito = "Ambo" Then kA = kA + 1
If esito = "Terno" Then kT = kT + 1
If esito = "Quaterna" Then kQ = kQ + 1
If esito = "Cinquina" Then kC = kC + 1
Scrivi GetInfoEstrazioneFT(es) & vbTab,0,0
Scrivi StringaNumeri(Nu,,1) & vbTab,0,0
Scrivi " + " & chiave & vbTab,0,0
Scrivi StringaNumeri(sommaChiave,,1) & vbTab,0,0
Scrivi es1 & vbTab & "Colpo... " & clp & vbTab & GetInfoEstrazioneFT(id) & vbTab & " Estratti [ " & StringaEstrattiFT(id) & " ]"
'End If
ess = fin - Id
End If
Next
V = Array(V,"+ " & chiave,k,kA,kT,kQ,kC,ess,colpoMin,colpoMax,colpoMed)
Call AddRigaTabella(V)
Scrivi "Chiave " & FormatSpace(chiave,2) & " esito............................................................................................... " & k,1,1,,1
Scrivi "Ambi = " & kA
Scrivi "Terni = " & kT
Scrivi "Quaterne = " & kQ
Scrivi "Cinquine = " & kC
Scrivi "Ritarda da ...... " & ess,1
Scrivi "Colpo Minimo : " & colpoMin
Scrivi "Colpo massimo : " & colpoMax
Scrivi "Colpo Medio : " & ColpoMed
k = 0
kA = 0
kT = 0
kQ = 0
kC = 0
clpMedio = 0
Scrivi
Next
Scrivi "Riepilogo finale Ordinabile",1,,,1,3
CreaTabellaOrdinabile
End Sub
 

*blacklotto*

Super Member >PLATINUM<
un listato eseguito da Mike58 due anni fa circa,
dove tu ne hai fatto qualche modifica.
Dopo averlo copiato e modificato la parte iniziale, lo script ha funzionato bene.

Lascio questo listato modificato da me per le mie esigenze di ricerca che potrebbe interessare dove a differenza del listato inserito da te che svolge la ricerca completa, questo si dovrà scegliere il numero somma per i 5 estratti e quanti colpi dovrà fare ricerca e vederne il resoconto per le poste scelte.
Volendo potrai estendere la ricerca modificando la sola somma ai 5 estratti in più somme diverse, dipende dal tuo pensiero di ricerca.
Ma non solo, si sa che da un unico listato ne potrai creare infiniti.

Sub Main()
Dim a(5),n(6)
Dim sfile
Dim posta(5)
posta(2) = 1 : posta(3) = 1 : posta(4) = 1 : posta(5) = 1
sfile = GetDirectoryAppData & " ............................................ "
Call ApriBaseDatiFT(sfile,5,",",55)
k = 1 ' <-----------------------------------> CAMBIO NUMERO X SOMMA DEI 5 ESTRATTI
col = 100 ' <--------------------------------> COLPI DI GIOCO
ColoreTesto 1
Scrivi" SOMMA AI 5 ESTRATTI = " & k & " ",1,,4,,6
ColoreTesto 0
Scrivi
ini = 1
fin = EstrazioniArchivioFT
For es = Ini To fin
AvanzamentoElab ini,fin,es
a(1) = EstrattoFT(es,1) : a(2) = EstrattoFT(es,2) : a(3) = EstrattoFT(es,3)
a(4) = EstrattoFT(es,4) : a(5) = EstrattoFT(es,5)
n(1) = a(1) + k : If n(1) > 55 Then : n(1) = n(1) - 55 : End If
n(2) = a(2) + k : If n(2) > 55 Then : n(2) = n(2) - 55 : End If
n(3) = a(3) + k : If n(3) > 55 Then : n(3) = n(3) - 55 : End If
n(4) = a(4) + k : If n(4) > 55 Then : n(4) = n(4) - 55 : End If
n(5) = a(5) + k : If n(5) > 55 Then : n(5) = n(5) - 55 : End If
Scrivi DataEstrazioneFT(es) & " " & a(1) & " " & a(2) & " " & _
Scrivi & a(3) & " " & a(4) & " " & a(5) & " CINQUINA Base",1
ColoreTesto 2
Scrivi DataEstrazioneFT(es) & " " & n(1) & " " & n(2) & " " & _
Scrivi & n(3) & " " & n(4) & " " & n(5) & " CINQUINA + CODICE n° " & k,1
ColoreTesto 0
Scrivi
ImpostaGiocataFT 1,n,posta,col
GiocaFT es,1
Scrivi "--------------------------------------------------------"
Next
ScriviResocontoFT,0
End Sub

RESOCONTO ( parziale )

07.02.2018 16 7 43 44 51 CINQUINA Base

07.02.2018 26 17 53 54 6 CINQUINA + CODICE n° 10

Estrazione generatrice del pronostico 00001 [ 1 - 07/02/2018]
G 0001 Numeri in gioco : 26.17.53.54.06

V N. [26.17.53.54.06 ] [53 .. .. 26 .. ] C. 1 Ambo 00002 [ 2 - 08/02/2018]
V N. [26.17.53.54.06 ] [.. 26 53 .. .. ] C. 5 Ambo 00006 [ 6 - 12/02/2018]
V N. [26.17.53.54.06 ] [54 53 .. .. .. ] C. 7 Ambo 00008 [ 8 - 14/02/2018]
V N. [26.17.53.54.06 ] [26 .. .. .. 54 ] C. 35 Ambo 00036 [ 36 - 14/03/2018]
V N. [26.17.53.54.06 ] [26 .. 53 54 .. ] C. 45 Terno 00046 [ 46 - 24/03/2018]
V N. [26.17.53.54.06 ] [.. 54 26 .. .. ] C. 46 Ambo 00047 [ 47 - 25/03/2018]
V N. [26.17.53.54.06 ] [54 .. 53 .. .. ] C. 56 Ambo 00057 [ 57 - 04/04/2018]
V N. [26.17.53.54.06 ] [.. 17 .. 53 .. ] C. 59 Ambo 00060 [ 60 - 07/04/2018]
V N. [26.17.53.54.06 ] [26 .. 06 .. .. ] C. 74 Ambo 00075 [ 75 - 22/04/2018]
V N. [26.17.53.54.06 ] [53 .. 06 .. .. ] C. 96 Ambo 00097 [ 97 - 14/05/2018]
V N. [26.17.53.54.06 ] [.. 54 06 .. .. ] C. 97 Ambo 00098 [ 98 - 15/05/2018]
Interrotta per raggiunta durata

---------------------------------------------------------------------------------------------------------------

08.02.2018 53 15 38 26 27 CINQUINA Base

08.02.2018 8 25 48 36 37 CINQUINA + CODICE n° 10

Estrazione generatrice del pronostico 00002 [ 2 - 08/02/2018]
G 0001 Numeri in gioco : 08.25.48.36.37

V N. [08.25.48.36.37 ] [.. 37 48 .. 25 ] C. 18 Terno 00020 [ 20 - 26/02/2018]
V N. [08.25.48.36.37 ] [48 .. .. .. 08 ] C. 49 Ambo 00051 [ 51 - 29/03/2018]
V N. [08.25.48.36.37 ] [08 37 .. .. .. ] C. 62 Ambo 00064 [ 64 - 11/04/2018]
V N. [08.25.48.36.37 ] [25 .. .. .. 36 ] C. 91 Ambo 00093 [ 93 - 10/05/2018]
Interrotta per raggiunta durata

---------------------------------------------------------------------------------------------------------------

09.02.2018 43 45 13 31 2 CINQUINA Base

09.02.2018 53 55 23 41 12 CINQUINA + CODICE n° 10

Estrazione generatrice del pronostico 00003 [ 3 - 09/02/2018]
G 0001 Numeri in gioco : 53.55.23.41.12

V N. [53.55.23.41.12 ] [.. .. 53 .. 41 ] C. 3 Ambo 00006 [ 6 - 12/02/2018]
V N. [53.55.23.41.12 ] [12 .. 23 .. .. ] C. 15 Ambo 00018 [ 18 - 24/02/2018]
V N. [53.55.23.41.12 ] [53 .. .. 23 .. ] C. 51 Ambo 00054 [ 54 - 01/04/2018]
V N. [53.55.23.41.12 ] [.. .. 12 .. 55 ] C. 67 Ambo 00070 [ 70 - 17/04/2018]
V N. [53.55.23.41.12 ] [.. 55 .. .. 12 ] C. 78 Ambo 00081 [ 81 - 28/04/2018]
V N. [53.55.23.41.12 ] [.. 12 .. .. 53 ] C. 81 Ambo 00084 [ 84 - 01/05/2018]
Interrotta per raggiunta durata

---------------------------------------------------------------------------------------------------------------
 
Ultima modifica:

jure

Advanced Member >PLATINUM PLUS<
Ciao blacklotto lo script non mi funziona
mi richiede l'archivio io lo inserisco e il programma
me lo richiede continuamente.


Sub Main()
For y = 1 To 1
For w = 1 To 55
Dim sfile
sfile = ScegliFile("C:\Mike58\Desktop\.txt")
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
 

*blacklotto*

Super Member >PLATINUM<
ciao,

il listato da te sopra inserito l'ho modificato consegnandomi questo resoconto :


16.04.2020 42.50.53.24.22 .. 1° Estratto .. n° 42
17.04.2020 10.48.18.29.20 .. 1° Estratto .. n° 10

==================================================
16.04.2020 42.50.53.24.22 .. 2° Estratto .. n° 50
17.04.2020 10.48.18.29.20 .. 2° Estratto .. n° 48

==================================================
16.04.2020 42.50.53.24.22 .. 3° Estratto .. n° 53
17.04.2020 10.48.18.29.20 .. 3° Estratto .. n° 18

==================================================
16.04.2020 42.50.53.24.22 .. 4° estratto .. n° 24
17.04.2020 10.48.18.29.20 .. 4° Estratto .. n° 29

==================================================
16.04.2020 42.50.53.24.22 .. 5° estratto .. n° 22
17.04.2020 10.48.18.29.20 .. 5° Estratto .. n° 20

==================================================

**************************************************

17.04.2020 10.48.18.29.20 .. 1° Estratto .. n° 10
18.04.2020 26.02.44.49.52 .. 1° Estratto .. n° 26

==================================================
17.04.2020 10.48.18.29.20 .. 2° Estratto .. n° 48
18.04.2020 26.02.44.49.52 .. 2° Estratto .. n° 2

==================================================
17.04.2020 10.48.18.29.20 .. 3° Estratto .. n° 18
18.04.2020 26.02.44.49.52 .. 3° Estratto .. n° 44

==================================================
17.04.2020 10.48.18.29.20 .. 4° estratto .. n° 29
18.04.2020 26.02.44.49.52 .. 4° Estratto .. n° 49

==================================================
17.04.2020 10.48.18.29.20 .. 5° estratto .. n° 20
18.04.2020 26.02.44.49.52 .. 5° Estratto .. n° 52

==================================================

**************************************************

18.04.2020 26.02.44.49.52 .. 1° Estratto .. n° 26
19.04.2020 52.37.25.18.16 .. 1° Estratto .. n° 52

==================================================
18.04.2020 26.02.44.49.52 .. 2° Estratto .. n° 2
19.04.2020 52.37.25.18.16 .. 2° Estratto .. n° 37

==================================================
18.04.2020 26.02.44.49.52 .. 3° Estratto .. n° 44
19.04.2020 52.37.25.18.16 .. 3° Estratto .. n° 25

==================================================
18.04.2020 26.02.44.49.52 .. 4° estratto .. n° 49
19.04.2020 52.37.25.18.16 .. 4° Estratto .. n° 18

==================================================
18.04.2020 26.02.44.49.52 .. 5° estratto .. n° 52
19.04.2020 52.37.25.18.16 .. 5° Estratto .. n° 16

==================================================

**************************************************

Sub Main()
Dim sFile
sFile = GetDirectoryAppData & " ................................... "
Call ApriBaseDatiFT(sFile,5,",",55)
ini = 800
fin = EstrazioniArchivioFT
For es = ini To fin
AvanzamentoElab ini,fin,es
es1 = es + 1
For y = 1 To 54
For w = 1 To 55
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"=================================================="
If(EstrattoFT(es,2) = y)Then
If(EstrattoFT(es1,2) = w)Then
End If
End If
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"=================================================="
If(EstrattoFT(es,3) = y)Then
If(EstrattoFT(es1,3) = w)Then
End If
End If
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"=================================================="
If(EstrattoFT(es,4) = y)Then
If(EstrattoFT(es1,4) = w)Then
End If
End If
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"=================================================="
If(EstrattoFT(es,5) = y)Then
If(EstrattoFT(es1,5) = w)Then
End If
End If
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"=================================================="
Scrivi
ColoreTesto 1
Scrivi"**************************************************",1
ColoreTesto 0
Scrivi
End If
End If
Next
Next
Next
End Sub

prova ad inserire la tua directory
 

*blacklotto*

Super Member >PLATINUM<
dimenticavo ....
ovviamente dove c'è

For y = 1 To 54
For w = 1 To 55

consegna le estrazioni normali e se come hai inserito tu

For y = 1 To 1
For w = 1 To 55

partendo da inizio archivio consegnerà

15.02.2018 01.12.19.32.47 .. 1° Estratto .. n° 1
16.02.2018 48.41.44.40.46 .. 1° Estratto .. n° 48
==================================================
15.02.2018 01.12.19.32.47 .. 2° Estratto .. n° 12
16.02.2018 48.41.44.40.46 .. 2° Estratto .. n° 41
==================================================
15.02.2018 01.12.19.32.47 .. 3° Estratto .. n° 19
16.02.2018 48.41.44.40.46 .. 3° Estratto .. n° 44
==================================================
15.02.2018 01.12.19.32.47 .. 4° estratto .. n° 32
16.02.2018 48.41.44.40.46 .. 4° Estratto .. n° 40
==================================================
15.02.2018 01.12.19.32.47 .. 5° estratto .. n° 47
16.02.2018 48.41.44.40.46 .. 5° Estratto .. n° 46
==================================================

**************************************************

17.04.2018 01.34.12.16.55 .. 1° Estratto .. n° 1
18.04.2018 25.28.47.13.32 .. 1° Estratto .. n° 25
==================================================
17.04.2018 01.34.12.16.55 .. 2° Estratto .. n° 34
18.04.2018 25.28.47.13.32 .. 2° Estratto .. n° 28
==================================================
17.04.2018 01.34.12.16.55 .. 3° Estratto .. n° 12
18.04.2018 25.28.47.13.32 .. 3° Estratto .. n° 47
==================================================
17.04.2018 01.34.12.16.55 .. 4° estratto .. n° 16
18.04.2018 25.28.47.13.32 .. 4° Estratto .. n° 13
==================================================
17.04.2018 01.34.12.16.55 .. 5° estratto .. n° 55
18.04.2018 25.28.47.13.32 .. 5° Estratto .. n° 32
==================================================

**************************************************

26.04.2018 01.14.20.16.34 .. 1° Estratto .. n° 1
27.04.2018 43.10.16.23.35 .. 1° Estratto .. n° 43
==================================================
26.04.2018 01.14.20.16.34 .. 2° Estratto .. n° 14
27.04.2018 43.10.16.23.35 .. 2° Estratto .. n° 10
==================================================
26.04.2018 01.14.20.16.34 .. 3° Estratto .. n° 20
27.04.2018 43.10.16.23.35 .. 3° Estratto .. n° 16
==================================================
26.04.2018 01.14.20.16.34 .. 4° estratto .. n° 16
27.04.2018 43.10.16.23.35 .. 4° Estratto .. n° 23
==================================================
26.04.2018 01.14.20.16.34 .. 5° estratto .. n° 34
27.04.2018 43.10.16.23.35 .. 5° Estratto .. n° 35
==================================================

**************************************************

06.06.2018 01.24.18.05.07 .. 1° Estratto .. n° 1
07.06.2018 37.11.16.41.05 .. 1° Estratto .. n° 37
==================================================
06.06.2018 01.24.18.05.07 .. 2° Estratto .. n° 24
07.06.2018 37.11.16.41.05 .. 2° Estratto .. n° 11
==================================================
06.06.2018 01.24.18.05.07 .. 3° Estratto .. n° 18
07.06.2018 37.11.16.41.05 .. 3° Estratto .. n° 16
==================================================
06.06.2018 01.24.18.05.07 .. 4° estratto .. n° 5
07.06.2018 37.11.16.41.05 .. 4° Estratto .. n° 41
==================================================
06.06.2018 01.24.18.05.07 .. 5° estratto .. n° 7
07.06.2018 37.11.16.41.05 .. 5° Estratto .. n° 5
==================================================

**************************************************

21.11.2018 01.09.29.15.21 .. 1° Estratto .. n° 1
22.11.2018 29.25.10.13.18 .. 1° Estratto .. n° 29
==================================================
21.11.2018 01.09.29.15.21 .. 2° Estratto .. n° 9
22.11.2018 29.25.10.13.18 .. 2° Estratto .. n° 25
==================================================
21.11.2018 01.09.29.15.21 .. 3° Estratto .. n° 29
22.11.2018 29.25.10.13.18 .. 3° Estratto .. n° 10
==================================================
21.11.2018 01.09.29.15.21 .. 4° estratto .. n° 15
22.11.2018 29.25.10.13.18 .. 4° Estratto .. n° 13
==================================================
21.11.2018 01.09.29.15.21 .. 5° estratto .. n° 21
22.11.2018 29.25.10.13.18 .. 5° Estratto .. n° 18
==================================================

**************************************************

20.01.2019 01.18.22.02.31 .. 1° Estratto .. n° 1
21.01.2019 37.28.27.11.43 .. 1° Estratto .. n° 37
==================================================
20.01.2019 01.18.22.02.31 .. 2° Estratto .. n° 18
21.01.2019 37.28.27.11.43 .. 2° Estratto .. n° 28
==================================================
20.01.2019 01.18.22.02.31 .. 3° Estratto .. n° 22
21.01.2019 37.28.27.11.43 .. 3° Estratto .. n° 27
==================================================
20.01.2019 01.18.22.02.31 .. 4° estratto .. n° 2
21.01.2019 37.28.27.11.43 .. 4° Estratto .. n° 11
==================================================
20.01.2019 01.18.22.02.31 .. 5° estratto .. n° 31
21.01.2019 37.28.27.11.43 .. 5° Estratto .. n° 43
==================================================

**************************************************

28.01.2019 01.39.51.43.09 .. 1° Estratto .. n° 1
29.01.2019 12.07.48.50.22 .. 1° Estratto .. n° 12
==================================================
28.01.2019 01.39.51.43.09 .. 2° Estratto .. n° 39
29.01.2019 12.07.48.50.22 .. 2° Estratto .. n° 7
==================================================
28.01.2019 01.39.51.43.09 .. 3° Estratto .. n° 51
29.01.2019 12.07.48.50.22 .. 3° Estratto .. n° 48
==================================================
28.01.2019 01.39.51.43.09 .. 4° estratto .. n° 43
29.01.2019 12.07.48.50.22 .. 4° Estratto .. n° 50
==================================================
28.01.2019 01.39.51.43.09 .. 5° estratto .. n° 9
29.01.2019 12.07.48.50.22 .. 5° Estratto .. n° 22
==================================================

**************************************************

20.02.2019 01.54.03.39.22 .. 1° Estratto .. n° 1
21.02.2019 35.05.42.34.19 .. 1° Estratto .. n° 35
==================================================
20.02.2019 01.54.03.39.22 .. 2° Estratto .. n° 54
21.02.2019 35.05.42.34.19 .. 2° Estratto .. n° 5
==================================================
20.02.2019 01.54.03.39.22 .. 3° Estratto .. n° 3
21.02.2019 35.05.42.34.19 .. 3° Estratto .. n° 42
==================================================
20.02.2019 01.54.03.39.22 .. 4° estratto .. n° 39
21.02.2019 35.05.42.34.19 .. 4° Estratto .. n° 34
==================================================
20.02.2019 01.54.03.39.22 .. 5° estratto .. n° 22
21.02.2019 35.05.42.34.19 .. 5° Estratto .. n° 19
==================================================

**************************************************

10.03.2019 01.30.22.46.14 .. 1° Estratto .. n° 1
11.03.2019 34.01.44.42.36 .. 1° Estratto .. n° 34
==================================================
10.03.2019 01.30.22.46.14 .. 2° Estratto .. n° 30
11.03.2019 34.01.44.42.36 .. 2° Estratto .. n° 1
==================================================
10.03.2019 01.30.22.46.14 .. 3° Estratto .. n° 22
11.03.2019 34.01.44.42.36 .. 3° Estratto .. n° 44
==================================================
10.03.2019 01.30.22.46.14 .. 4° estratto .. n° 46
11.03.2019 34.01.44.42.36 .. 4° Estratto .. n° 42
==================================================
10.03.2019 01.30.22.46.14 .. 5° estratto .. n° 14
11.03.2019 34.01.44.42.36 .. 5° Estratto .. n° 36
==================================================

**************************************************

11.04.2019 01.41.07.19.05 .. 1° Estratto .. n° 1
12.04.2019 37.41.45.09.34 .. 1° Estratto .. n° 37
==================================================
11.04.2019 01.41.07.19.05 .. 2° Estratto .. n° 41
12.04.2019 37.41.45.09.34 .. 2° Estratto .. n° 41
==================================================
11.04.2019 01.41.07.19.05 .. 3° Estratto .. n° 7
12.04.2019 37.41.45.09.34 .. 3° Estratto .. n° 45
==================================================
11.04.2019 01.41.07.19.05 .. 4° estratto .. n° 19
12.04.2019 37.41.45.09.34 .. 4° Estratto .. n° 9
==================================================
11.04.2019 01.41.07.19.05 .. 5° estratto .. n° 5
12.04.2019 37.41.45.09.34 .. 5° Estratto .. n° 34
==================================================

**************************************************

19.08.2019 01.25.11.50.08 .. 1° Estratto .. n° 1
20.08.2019 51.44.12.48.33 .. 1° Estratto .. n° 51
==================================================
19.08.2019 01.25.11.50.08 .. 2° Estratto .. n° 25
20.08.2019 51.44.12.48.33 .. 2° Estratto .. n° 44
==================================================
19.08.2019 01.25.11.50.08 .. 3° Estratto .. n° 11
20.08.2019 51.44.12.48.33 .. 3° Estratto .. n° 12
==================================================
19.08.2019 01.25.11.50.08 .. 4° estratto .. n° 50
20.08.2019 51.44.12.48.33 .. 4° Estratto .. n° 48
==================================================
19.08.2019 01.25.11.50.08 .. 5° estratto .. n° 8
20.08.2019 51.44.12.48.33 .. 5° Estratto .. n° 33
==================================================

**************************************************

24.09.2019 01.12.34.31.19 .. 1° Estratto .. n° 1
25.09.2019 30.52.22.20.49 .. 1° Estratto .. n° 30
==================================================
24.09.2019 01.12.34.31.19 .. 2° Estratto .. n° 12
25.09.2019 30.52.22.20.49 .. 2° Estratto .. n° 52
==================================================
24.09.2019 01.12.34.31.19 .. 3° Estratto .. n° 34
25.09.2019 30.52.22.20.49 .. 3° Estratto .. n° 22
==================================================
24.09.2019 01.12.34.31.19 .. 4° estratto .. n° 31
25.09.2019 30.52.22.20.49 .. 4° Estratto .. n° 20
==================================================
24.09.2019 01.12.34.31.19 .. 5° estratto .. n° 19
25.09.2019 30.52.22.20.49 .. 5° Estratto .. n° 49
==================================================

**************************************************

06.11.2019 01.12.34.11.19 .. 1° Estratto .. n° 1
07.11.2019 44.19.39.26.30 .. 1° Estratto .. n° 44
==================================================
06.11.2019 01.12.34.11.19 .. 2° Estratto .. n° 12
07.11.2019 44.19.39.26.30 .. 2° Estratto .. n° 19
==================================================
06.11.2019 01.12.34.11.19 .. 3° Estratto .. n° 34
07.11.2019 44.19.39.26.30 .. 3° Estratto .. n° 39
==================================================
06.11.2019 01.12.34.11.19 .. 4° estratto .. n° 11
07.11.2019 44.19.39.26.30 .. 4° Estratto .. n° 26
==================================================
06.11.2019 01.12.34.11.19 .. 5° estratto .. n° 19
07.11.2019 44.19.39.26.30 .. 5° Estratto .. n° 30
==================================================

**************************************************

22.11.2019 01.11.35.15.04 .. 1° Estratto .. n° 1
23.11.2019 18.06.11.24.13 .. 1° Estratto .. n° 18
==================================================
22.11.2019 01.11.35.15.04 .. 2° Estratto .. n° 11
23.11.2019 18.06.11.24.13 .. 2° Estratto .. n° 6
==================================================
22.11.2019 01.11.35.15.04 .. 3° Estratto .. n° 35
23.11.2019 18.06.11.24.13 .. 3° Estratto .. n° 11
==================================================
22.11.2019 01.11.35.15.04 .. 4° estratto .. n° 15
23.11.2019 18.06.11.24.13 .. 4° Estratto .. n° 24
==================================================
22.11.2019 01.11.35.15.04 .. 5° estratto .. n° 4
23.11.2019 18.06.11.24.13 .. 5° Estratto .. n° 13
==================================================

**************************************************

06.12.2019 01.35.06.16.17 .. 1° Estratto .. n° 1
07.12.2019 18.40.55.07.54 .. 1° Estratto .. n° 18
==================================================
06.12.2019 01.35.06.16.17 .. 2° Estratto .. n° 35
07.12.2019 18.40.55.07.54 .. 2° Estratto .. n° 40
==================================================
06.12.2019 01.35.06.16.17 .. 3° Estratto .. n° 6
07.12.2019 18.40.55.07.54 .. 3° Estratto .. n° 55
==================================================
06.12.2019 01.35.06.16.17 .. 4° estratto .. n° 16
07.12.2019 18.40.55.07.54 .. 4° Estratto .. n° 7
==================================================
06.12.2019 01.35.06.16.17 .. 5° estratto .. n° 17
07.12.2019 18.40.55.07.54 .. 5° Estratto .. n° 54
==================================================

**************************************************

29.12.2019 01.27.32.06.03 .. 1° Estratto .. n° 1
30.12.2019 02.01.43.16.03 .. 1° Estratto .. n° 2
==================================================
29.12.2019 01.27.32.06.03 .. 2° Estratto .. n° 27
30.12.2019 02.01.43.16.03 .. 2° Estratto .. n° 1
==================================================
29.12.2019 01.27.32.06.03 .. 3° Estratto .. n° 32
30.12.2019 02.01.43.16.03 .. 3° Estratto .. n° 43
==================================================
29.12.2019 01.27.32.06.03 .. 4° estratto .. n° 6
30.12.2019 02.01.43.16.03 .. 4° Estratto .. n° 16
==================================================
29.12.2019 01.27.32.06.03 .. 5° estratto .. n° 3
30.12.2019 02.01.43.16.03 .. 5° Estratto .. n° 3
==================================================

**************************************************

quello che tu hai messo in ricerca, cioè, dove il 1° estratto è il n° 1 della 1° estrazione, con la sua estrazione consecutiva
 

*blacklotto*

Super Member >PLATINUM<
... se invece vuoi vedere solo l'isotopo a tua scelta con l'estrazione consecutiva,
dove io ho messo al 3° estratto numero 1
e l'isotopo nell'estrazione consecutiva da 1 a 55

Sub Main()
Dim sFile
sFile = GetDirectoryAppData & "ArchiviTxTMike58\MillionDay.txt"
Call ApriBaseDatiFT(sFile,5,",",55)
ini = 1
fin = EstrazioniArchivioFT
For es = ini To fin
AvanzamentoElab ini,fin,es
es1 = es + 1
For y = 1 To 1
For w = 1 To 55
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
Next
Next
Next
End Sub

resoconto :

30.03.2018 14.20.01.38.27 .. 3° Estratto .. n° 1
31.03.2018 40.43.54.52.37 .. 3° Estratto .. n° 54
==================================================
04.07.2018 36.19.01.17.37 .. 3° Estratto .. n° 1
05.07.2018 15.05.46.14.06 .. 3° Estratto .. n° 46
==================================================
30.07.2018 31.09.01.39.53 .. 3° Estratto .. n° 1
31.07.2018 03.07.04.24.17 .. 3° Estratto .. n° 4
==================================================
30.08.2018 22.29.01.38.46 .. 3° Estratto .. n° 1
31.08.2018 23.14.02.54.45 .. 3° Estratto .. n° 2
==================================================
07.09.2018 45.15.01.18.19 .. 3° Estratto .. n° 1
08.09.2018 16.17.30.20.05 .. 3° Estratto .. n° 30
==================================================
25.12.2018 30.46.01.26.13 .. 3° Estratto .. n° 1
26.12.2018 19.27.17.15.36 .. 3° Estratto .. n° 17
==================================================
30.01.2019 26.41.01.09.02 .. 3° Estratto .. n° 1
31.01.2019 27.51.18.47.09 .. 3° Estratto .. n° 18
==================================================
26.04.2019 25.35.01.55.42 .. 3° Estratto .. n° 1
27.04.2019 36.29.41.35.55 .. 3° Estratto .. n° 41
==================================================
23.05.2019 47.18.01.14.32 .. 3° Estratto .. n° 1
24.05.2019 54.13.02.40.34 .. 3° Estratto .. n° 2
==================================================
08.06.2019 44.19.01.31.43 .. 3° Estratto .. n° 1
09.06.2019 54.06.48.03.37 .. 3° Estratto .. n° 48
==================================================
11.08.2019 48.17.01.05.53 .. 3° Estratto .. n° 1
12.08.2019 21.48.05.36.14 .. 3° Estratto .. n° 5
==================================================
17.08.2019 44.05.01.30.45 .. 3° Estratto .. n° 1
18.08.2019 25.12.03.20.45 .. 3° Estratto .. n° 3
==================================================
17.09.2019 31.29.01.49.35 .. 3° Estratto .. n° 1
18.09.2019 26.16.47.24.19 .. 3° Estratto .. n° 47
==================================================
24.10.2019 17.50.01.34.52 .. 3° Estratto .. n° 1
25.10.2019 04.55.11.06.34 .. 3° Estratto .. n° 11
==================================================
28.10.2019 22.38.01.15.25 .. 3° Estratto .. n° 1
29.10.2019 41.16.11.44.20 .. 3° Estratto .. n° 11
==================================================
03.01.2020 14.19.01.21.48 .. 3° Estratto .. n° 1
04.01.2020 06.34.39.41.20 .. 3° Estratto .. n° 39
==================================================
 

jure

Advanced Member >PLATINUM PLUS<
Grazie Blacklotto come posso utilizzare il programma
per ricavare qualche previsione.
 

*blacklotto*

Super Member >PLATINUM<
Usare i listati per avere previsioni nel gioco del Millionday sono inutili, a mio avviso.
Se mi chiedi listati per visionare l'andamento dei 55 numeri allora potrei inserire quanti listati vuoi.
Dipende dalla tua idea che hai del gioco Millionday, come vuoi impostarne la giocata, come vorresti ottenere la cinquina da mettere in previsione.
La prima cosa che escludo è il gioco in lunghetta, o il gioco a riduzione, dove ci si troverebbe a spendere un capitale assurdo per niente.
Gioco che nemmeno chi lo propone lo gioca in realtà, a meno che sia un gioco da bar dove puoi prenderne una o più quote, ma anche in questo caso è cosa saltuaria.
E' difficile il Millionday, e soprattutto ci sono prima molte cose da capire, cose che siano chiare, imparagonabile al gioco del Lotto che è tutt'altro.
La fregatura è che ogni giorno, 7 su 7, c'è un'estrazione e spendere anche sole 3€ sono troppi, ma anche un solo euro al giorno è troppo, non credere.
A meno che segui una delle mie opzioni proposte.
Ma portare avanti la discussione, sulle idee, sulle proposte, sui listati è sempre scuola.

ciao
 

Xeroxs

Advanced Member >GOLD<
Ciao, Scusa ho voluto provare i listati che hai postato ma quando allego il mio file nella riga del listato mi dice che il file di testo non esiste Per favore mi aiuti a capire in cosa sbaglio
Ad esempio nel tuo ultimo listato proposto
in questa riga
sFile = GetDirectoryAppData & " ................................... "
Io riporto il mio file
C:\Archivio MillionDay\MillionDay.Txt
per cui diventa

sFile = GetDirectoryAppData & " C:\Archivio MillionDay\MillionDay.Txt "

ora devo lasciare o togliere gli apici ed ho provato entrambi i modi
ho tolto eventuali spazi ultima riga
ho invertito il file archivio in quanto ho notato che a volte lo riportate con la prima data elenco riferito ad ultima estrazione a volte dalla prima, ma ho testato entrambe le soluzioni
il file è quello scaricato che hai indicato così da non sbagliare.

A questo punto non capisco da cosa è generato questo errore

Se puoi aiutarmi a Capire
Ti ringrazio Fin Da ora.
 

*blacklotto*

Super Member >PLATINUM<
Ciao,
per quel che posso fare per dare un aiuto, a modo mio, cercherò di farlo.
Vediamo.

sFile = GetDirectoryAppData & "ArchiviTxTBlacklotto\MillionDay.txt"
Call ApriBaseDatiFT(sFile,5,",",55)

queste le mie stringhe che mi conducono ad ogni mio listato, che prendono comando dal mio archivio salvato in spaziometria con documento di testo txt,
che cliccandola la cartella mi apre una nuova cartella che va a cercare le estrazioni copiate nel blocco note di Windows che si inseriscono automaticamente nell'elaborazione dei listati con questa tipologia di estrazioni :

800,16/04/2020,42,50,53,24,22
801,17/04/2020,10,48,18,29,20
802,18/04/2020,26,2,44,49,52
803,19/04/2020,52,37,25,18,16
804,20/04/2020,11,15,1,31,29

con un solo segno non rispettato non c'è nessuna elaborazione dando errore.

tu hai :

sFile = GetDirectoryAppData & " C:\Archivio MillionDay\MillionDay.Txt "

dove hai salvato le estrazioni ? e qual'è il tuo procedimento ?

inseriscimi un tuo listato intero, se vuoi
 

Xeroxs

Advanced Member >GOLD<
Ciao, Grazie per la risposta e per cercare di farmi capire


Io vorrei usare questo script


Sub Main()
Dim sFile
sFile = GetDirectoryAppData & " ................................... "
Call ApriBaseDatiFT(sFile,5,",",55)
ini = 800
fin = EstrazioniArchivioFT
For es = ini To fin
AvanzamentoElab ini,fin,es
es1 = es + 1
For y = 1 To 54
For w = 1 To 55
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"=================================================="
If(EstrattoFT(es,2) = y)Then
If(EstrattoFT(es1,2) = w)Then
End If
End If
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"=================================================="
If(EstrattoFT(es,3) = y)Then
If(EstrattoFT(es1,3) = w)Then
End If
End If
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"=================================================="
If(EstrattoFT(es,4) = y)Then
If(EstrattoFT(es1,4) = w)Then
End If
End If
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"=================================================="
If(EstrattoFT(es,5) = y)Then
If(EstrattoFT(es1,5) = w)Then
End If
End If
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"=================================================="
Scrivi
ColoreTesto 1
Scrivi"**************************************************",1
ColoreTesto 0
Scrivi
End If
End If
Next
Next
Next
End Sub

Che hai modificato


Quindi io inserisco la mia directory

sFile = GetDirectoryAppData & " ................................... "

che diventa

sFile = GetDirectoryAppData & " C:\Archivio MillionDay\MillionDay.Txt "

ora mi chiedi dove è salvato il mio archivio, e credo che intendi quello del millionDay
che trovo nella directory di spaziometria nella cartella "ArchivioMillionDAY"

che aggiorno di tanto in tanto quando voglio provare questo gioco

così dicendo allora sicuramente sto sbagliando nello scrivere

sFile = GetDirectoryAppData & " C:\Archivio MillionDay\MillionDay.Txt "

su questa riga magari devo scrivere altroe quindi cado nell'errore.

Spero di averti fatto capire un pò di più
 

*blacklotto*

Super Member >PLATINUM<
Sub Main()
Dim nu(55)
Dim poste(5)
poste(1) = 1
poste(2) = 1
poste(3) = 0.05
poste(4) = 0.05
poste(5) = 0.05
Dim sfile
sFile = GetDirectoryAppData & "Archivio MillionDay\MillionDay.Txt "
Call ApriBaseDatiFT(sfile,5,",",55)
ini = 1
fin = EstrazioniArchivioFT
Scrivi"CINQUINA ESAMINATA : [542] 04.08.2019 = 10 - 20 - 30 - 40 - 50 ",1
Scrivi
Scrivi
ColoreTesto 2
Scrivi"....data.......numeri estratti.......numeri trovati.............numeri rimasti..............",1
ColoreTesto 0
Scrivi
For n = ini To fin
AvanzamentoElab ini,fin,n
nu(1) = 10
nu(2) = 20
nu(3) = 30
nu(4) = 40
nu(5) = 50
'
'
'nu(6) = 6
'nu(7) = 7
'nu(8) = 8
'nu(9) = 9
'nu(10) = 10
'nu(11) = 11
'nu(12) = 12
'nu(13) = 13
'nu(14) = 14
'nu(15) = 15
'nu(16) = 16
'nu(17) = 17
'nu(18) = 18
'nu(19) = 19
'nu(20) = 20
'nu(21) = 21
'nu(22) = 22
'nu(23) = 23
'nu(24) = 24
'nu(25) = 25
'nu(26) = 26
'nu(27) = 27
'nu(28) = 28
'nu(29) = 29
'nu(30) = 30
'nu(31) = 31
'nu(32) = 32
'nu(33) = 33
'nu(34) = 34
'nu(35) = 35
'nu(36) = 36
'nu(37) = 37
'nu(38) = 38
'nu(39) = 39
'nu(40) = 40
'nu(41) = 41
'nu(42) = 42
'nu(43) = 43
'nu(44) = 44
'nu(45) = 45
'nu(46) = 46
'nu(47) = 47
'nu(48) = 48
'nu(49) = 49
'nu(50) = 50
'nu(51) = 51
'nu(52) = 52
'nu(53) = 53
'nu(54) = 54
'nu(55) = 55
If ScriptInterrotto Then Exit Sub
If SerieFreqFT(n,n,nu,2) & gt Then' <===== <===== 1 = AMBATA 2 = AMBO 3 = TERNO 4 = QUATERNA 5 = CINQUINA
riga = "" : co = 0
For p = 1 To 5
For i = 1 To 55
If EstrattoFT(n,p) = nu(i) Then
co = co + 1
riga = riga & " " & nu(i)
nu(i) = 0
End If
Next
Next
Scrivi DataEstrazioneFT(n) & " | " & StringaEstrattiFT(n) & " " & "| trovati (" & co & ") = " & riga & " " & ".....( numeri non estratti = " & StringaNumeri(nu) & " )",1
Scrivi"-------------------------------------------------------------------------------------------",1
ImpostaGiocataFT 1,nu,poste,3,1
'GiocaFT n,1
End If
Next
'ScriviResocontoFT
End Sub

Copia e incolla questo listato com'è, fallo partire e metti parziale resoconto per vedere.
A questo listato, sempre portato in modifica, bisogna scegliere da 1 a 55 ( io ho scelto : 10.20.30.40.50 )
il listato cercherà in tutto l'archivio i numeri che trova estratti, e a parte i numeri rimanenti.
Volendo metterà in gioco i numeri rimanenti, ovviamente è un esempio.
 

adispo2000

Super Member >PLATINUM<
un listato eseguito da Mike58 due anni fa circa,
dove tu ne hai fatto qualche modifica.
Dopo averlo copiato e modificato la parte iniziale, lo script ha funzionato bene.

Lascio questo listato modificato da me per le mie esigenze di ricerca che potrebbe interessare dove a differenza del listato inserito da te che svolge la ricerca completa, questo si dovrà scegliere il numero somma per i 5 estratti e quanti colpi dovrà fare ricerca e vederne il resoconto per le poste scelte.
Volendo potrai estendere la ricerca modificando la sola somma ai 5 estratti in più somme diverse, dipende dal tuo pensiero di ricerca.
Ma non solo, si sa che da un unico listato ne potrai creare infiniti.

Sub Main()
Dim a(5),n(6)
Dim sfile
Dim posta(5)
posta(2) = 1 : posta(3) = 1 : posta(4) = 1 : posta(5) = 1
sfile = GetDirectoryAppData & " ............................................ "
Call ApriBaseDatiFT(sfile,5,",",55)
k = 1 ' <-----------------------------------> CAMBIO NUMERO X SOMMA DEI 5 ESTRATTI
col = 100 ' <--------------------------------> COLPI DI GIOCO
ColoreTesto 1
Scrivi" SOMMA AI 5 ESTRATTI = " & k & " ",1,,4,,6
ColoreTesto 0
Scrivi
ini = 1
fin = EstrazioniArchivioFT
For es = Ini To fin
AvanzamentoElab ini,fin,es
a(1) = EstrattoFT(es,1) : a(2) = EstrattoFT(es,2) : a(3) = EstrattoFT(es,3)
a(4) = EstrattoFT(es,4) : a(5) = EstrattoFT(es,5)
n(1) = a(1) + k : If n(1) > 55 Then : n(1) = n(1) - 55 : End If
n(2) = a(2) + k : If n(2) > 55 Then : n(2) = n(2) - 55 : End If
n(3) = a(3) + k : If n(3) > 55 Then : n(3) = n(3) - 55 : End If
n(4) = a(4) + k : If n(4) > 55 Then : n(4) = n(4) - 55 : End If
n(5) = a(5) + k : If n(5) > 55 Then : n(5) = n(5) - 55 : End If
Scrivi DataEstrazioneFT(es) & " " & a(1) & " " & a(2) & " " & _
Scrivi & a(3) & " " & a(4) & " " & a(5) & " CINQUINA Base",1
ColoreTesto 2
Scrivi DataEstrazioneFT(es) & " " & n(1) & " " & n(2) & " " & _
Scrivi & n(3) & " " & n(4) & " " & n(5) & " CINQUINA + CODICE n° " & k,1
ColoreTesto 0
Scrivi
ImpostaGiocataFT 1,n,posta,col
GiocaFT es,1
Scrivi "--------------------------------------------------------"
Next
ScriviResocontoFT,0
End Sub

RESOCONTO ( parziale )

07.02.2018 16 7 43 44 51 CINQUINA Base

07.02.2018 26 17 53 54 6 CINQUINA + CODICE n° 10

Estrazione generatrice del pronostico 00001 [ 1 - 07/02/2018]
G 0001 Numeri in gioco : 26.17.53.54.06

V N. [26.17.53.54.06 ] [53 .. .. 26 .. ] C. 1 Ambo 00002 [ 2 - 08/02/2018]
V N. [26.17.53.54.06 ] [.. 26 53 .. .. ] C. 5 Ambo 00006 [ 6 - 12/02/2018]
V N. [26.17.53.54.06 ] [54 53 .. .. .. ] C. 7 Ambo 00008 [ 8 - 14/02/2018]
V N. [26.17.53.54.06 ] [26 .. .. .. 54 ] C. 35 Ambo 00036 [ 36 - 14/03/2018]
V N. [26.17.53.54.06 ] [26 .. 53 54 .. ] C. 45 Terno 00046 [ 46 - 24/03/2018]
V N. [26.17.53.54.06 ] [.. 54 26 .. .. ] C. 46 Ambo 00047 [ 47 - 25/03/2018]
V N. [26.17.53.54.06 ] [54 .. 53 .. .. ] C. 56 Ambo 00057 [ 57 - 04/04/2018]
V N. [26.17.53.54.06 ] [.. 17 .. 53 .. ] C. 59 Ambo 00060 [ 60 - 07/04/2018]
V N. [26.17.53.54.06 ] [26 .. 06 .. .. ] C. 74 Ambo 00075 [ 75 - 22/04/2018]
V N. [26.17.53.54.06 ] [53 .. 06 .. .. ] C. 96 Ambo 00097 [ 97 - 14/05/2018]
V N. [26.17.53.54.06 ] [.. 54 06 .. .. ] C. 97 Ambo 00098 [ 98 - 15/05/2018]
Interrotta per raggiunta durata

---------------------------------------------------------------------------------------------------------------

08.02.2018 53 15 38 26 27 CINQUINA Base

08.02.2018 8 25 48 36 37 CINQUINA + CODICE n° 10

Estrazione generatrice del pronostico 00002 [ 2 - 08/02/2018]
G 0001 Numeri in gioco : 08.25.48.36.37

V N. [08.25.48.36.37 ] [.. 37 48 .. 25 ] C. 18 Terno 00020 [ 20 - 26/02/2018]
V N. [08.25.48.36.37 ] [48 .. .. .. 08 ] C. 49 Ambo 00051 [ 51 - 29/03/2018]
V N. [08.25.48.36.37 ] [08 37 .. .. .. ] C. 62 Ambo 00064 [ 64 - 11/04/2018]
V N. [08.25.48.36.37 ] [25 .. .. .. 36 ] C. 91 Ambo 00093 [ 93 - 10/05/2018]
Interrotta per raggiunta durata

---------------------------------------------------------------------------------------------------------------

09.02.2018 43 45 13 31 2 CINQUINA Base

09.02.2018 53 55 23 41 12 CINQUINA + CODICE n° 10

Estrazione generatrice del pronostico 00003 [ 3 - 09/02/2018]
G 0001 Numeri in gioco : 53.55.23.41.12

V N. [53.55.23.41.12 ] [.. .. 53 .. 41 ] C. 3 Ambo 00006 [ 6 - 12/02/2018]
V N. [53.55.23.41.12 ] [12 .. 23 .. .. ] C. 15 Ambo 00018 [ 18 - 24/02/2018]
V N. [53.55.23.41.12 ] [53 .. .. 23 .. ] C. 51 Ambo 00054 [ 54 - 01/04/2018]
V N. [53.55.23.41.12 ] [.. .. 12 .. 55 ] C. 67 Ambo 00070 [ 70 - 17/04/2018]
V N. [53.55.23.41.12 ] [.. 55 .. .. 12 ] C. 78 Ambo 00081 [ 81 - 28/04/2018]
V N. [53.55.23.41.12 ] [.. 12 .. .. 53 ] C. 81 Ambo 00084 [ 84 - 01/05/2018]
Interrotta per raggiunta durata

---------------------------------------------------------------------------------------------------------------
scusa ma in questo script quale file archivio devo mettere?
Quello di silop?
 

*blacklotto*

Super Member >PLATINUM<
Ciao,
dipende da te quale archivio mettere.
Io ho prelevato l'archivio dal sito di Silop, fonte sicura e sempre aggiornato.
Anche tu segui il Millionday ? Tu che ne pensi di questa lotteria ?
 

adispo2000

Super Member >PLATINUM<
Interessante,io uso silop, per lo script che ho mensionato e carino..pero' si dovrebbe inserire una riga come questa sFileCombinazioni = ScegliFile(sDirDef,".txt") per la ricerca dell'archivio, senza ogni volta andare a modificare lo script per inserire un X file archvio, in quanto ho potuto far partire lo script una volta sola e poi mi dice sempre file non trovato, poi dopo che si fa' la ricerca nei 99 concorsi realizzare una statistica (dei primi 5 o 10) ogni quanto esce per ambo,terno ecc....
tipo es.: ambo che esce piu' frequente si trova ogni 20 estazioni lo stesso per terno ecc..
scusa per l'orario ma scrivo quando finisco il turno..ciao
Non so' vedi se conosci qualcuno che possa aiutarci..ciao..fammi sapere
 

adispo2000

Super Member >PLATINUM<
Ciao,
dipende da te quale archivio mettere.
Io ho prelevato l'archivio dal sito di Silop, fonte sicura e sempre aggiornato.
Anche tu segui il Millionday ? Tu che ne pensi di questa lotteria ?
Interessante,io uso silop, per lo script che ho mensionato e carino..pero' si dovrebbe inserire una riga come questa sFileCombinazioni = ScegliFile(sDirDef,".txt") per la ricerca dell'archivio, senza ogni volta andare a modificare lo script per inserire un X file archvio, in quanto ho potuto far partire lo script una volta sola e poi mi dice sempre file non trovato, poi dopo che si fa' la ricerca nei 99 concorsi realizzare una statistica (dei primi 5 o 10) ogni quanto esce per ambo,terno ecc....
tipo es.: ambo che esce piu' frequente si trova ogni 20 estazioni lo stesso per terno ecc..
scusa per l'orario ma scrivo quando finisco il turno..ciao
Non so' vedi se conosci qualcuno che possa aiutarci..ciao..fammi sapere
 

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