Novità

Listato 10elotto

solare

solare

Advanced Member >PLATINUM<
Questo listato è stato fatto da Luigi Funziona per 10elotto serale.
Chiedo cortesemente la modifica affinché funzioni anche con 10elotto ogni5 minuti.
Grazie ​ Option Explicit
Sub Main

Dim Inizio,Fine,idEstr
Dim k,EntroColpi,e,ee,c
Dim nBase,nUscito
Dim nUscite
ReDim aPresenze(90,90)
Dim RetRit,RetRitMax,RetFreq


Call ImpostaArchivio10ELotto(2)

EntroColpi = CInt(InputBox("Entro quanti colpi ?","Colpi",1))
Inizio = EstrazioniArchivioDL - 18
Fine = EstrazioniArchivioDL

For k = Inizio To Fine
For e = 1 To 20
nBase = EstrattoDL(k,e)
For c = 1 To EntroColpi
idEstr = k + c
For ee = 1 To 20
nUscito = EstrattoDL(idEstr,ee)
aPresenze(nBase,nUscito) = aPresenze(nBase,nUscito) + 1
Next
Next
Next
Call AvanzamentoElab(Inizio,Fine,k)
If ScriptInterrotto Then Exit For
Next

ReDim aTitoli(6)

aTitoli(1) = "Numero Spia"
aTitoli(2) = "Numero Piu Freq"
aTitoli(3) = "Uscite"
aTitoli(4) = "Ritardo"
aTitoli(5) = "RitardoMax"
aTitoli(6) = "Frequenza"

Call InitTabella(aTitoli)

For nBase = 1 To 90
ReDim aValori(6)

aValori(1) = nBase
aValori(2) = GetNumeroPiuFreq(nBase,aPresenze,nUscite)
aValori(3) = nUscite

ReDim aN(1)
aN(1) = aValori(2)
Call StatisticaFormazioneDL(aN,1,RetRit,RetRitMax,0,RetFreq,Inizio,Fine)

aValori(4) = RetRit
aValori(5) = RetRitMax
aValori(6) = RetFreq

Call AddRigaTabella(aValori)
Next

Call CreaTabella



End Sub
Function GetNumeroPiuFreq(nBase,aPresenze,nUscite)

Dim k
ReDim aOrd(90,2)

For k = 1 To 90
aOrd(k,1) = k
aOrd(k,2) = aPresenze(nBase,k)
Next
Call OrdinaMatrice(aOrd,- 1,2)

GetNumeroPiuFreq = aOrd(1,1)
nUscite = aOrd(1,2)

End Function
 
Ultima modifica:
ciao solare senti ma funziona questo script mi dice errore di parentesi ............ReDimaPresenze(90,90)


DimInizio,Fine,idEstr
Dimk,EntroColpi,e,ee,c
DimnBase,nUscito
DimnUscite
ReDimaPresenze(90,90)
DimRetRit,RetRitMax,RetFreq
 
Ultima modifica:
Prova così Alien Option Explicit
Sub Main

Dim Inizio,Fine,idEstr
Dim k,EntroColpi,e,ee,c
Dim nBase,nUscito
Dim nUscite
ReDim aPresenze(90,90)
Dim RetRit,RetRitMax,RetFreq

Call ImpostaArchivio10ELotto(2)

EntroColpi = CInt(InputBox("Entro quanti colpi ?","Colpi",1))
Inizio = EstrazioniArchivioDL - 18
Fine = EstrazioniArchivioDL

For k = Inizio To Fine
For e = 1 To 20
nBase = EstrattoDL(k,e)
For c = 1 To EntroColpi
idEstr = k + c
For ee = 1 To 20
nUscito = EstrattoDL(idEstr,ee)
aPresenze(nBase,nUscito) = aPresenze(nBase,nUscito) + 1
Next
Next
Next
Call AvanzamentoElab(Inizio,Fine,k)
If ScriptInterrotto Then Exit For
Next

ReDim aTitoli(6)

aTitoli(1) = "Numero Spia"
aTitoli(2) = "Numero Piu Freq"
aTitoli(3) = "Uscite"
aTitoli(4) = "Ritardo"
aTitoli(5) = "RitardoMax"
aTitoli(6) = "Frequenza"

Call InitTabella(aTitoli)

For nBase = 1 To 90
ReDim aValori(6)

aValori(1) = nBase
aValori(2) = GetNumeroPiuFreq(nBase,aPresenze,nUscite)
aValori(3) = nUscite

ReDim aN(1)
aN(1) = aValori(2)
Call StatisticaFormazioneDL(aN,1,RetRit,RetRitMax,0,RetFreq,Inizio,Fine)

aValori(4) = RetRit
aValori(5) = RetRitMax
aValori(6) = RetFreq
Call AddRigaTabella(aValori)
Next
Call CreaTabella
End Sub
Function GetNumeroPiuFreq(nBase,aPresenze,nUscite)

Dim k
ReDim aOrd(90,2)

For k = 1 To 90
aOrd(k,1) = k
aOrd(k,2) = aPresenze(nBase,k)
Next
Call OrdinaMatrice(aOrd,- 1,2)

GetNumeroPiuFreq = aOrd(1,1)
nUscite = aOrd(1,2)

End Function
 
A me funziona, mi sembra di aver capito che basta sostituire in questa riga il numero 1 sta per serale 2 per 10elotto 5 minuti.
CallImpostaArchivio10ELotto(2)
 
acc....no mi da lo stesso errore non vuole la parentsi su



.ReDimaPresenze(90,90) <<<<<<<< errore


DimInizio,Fine,idEstr
Dimk,EntroColpi,e,ee,c
DimnBase,nUscito
DimnUscite
ReDimaPresenze(90,90)
DimRetRit,RetRitMax,RetFreq





4q0669.gif









wiley-coyote-help.jpg
 
Ultima modifica:
Ciao Alien,
prova così, vedi se va...

Codice: 
Option Explicit
Sub Main
Dim Inizio,Fine,idEstr
Dim k,EntroColpi,e,ee,c
Dim nBase,nUscito
Dim nUscite
ReDim aPresenze(90,90)
Dim RetRit,RetRitMax,RetFreq
Call ImpostaArchivio10ELotto(2)
EntroColpi = CInt(InputBox("Entro quanti colpi ?","Colpi",1))
Inizio = EstrazioniArchivioDL- 18
Fine = EstrazioniArchivioDL
For k = Inizio To Fine
For e = 1 To 20
nBase = EstrattoDL(k,e)
For c = 1 To EntroColpi
idEstr = k + c
For ee = 1 To 20
nUscito = EstrattoDL(idEstr,ee)
aPresenze(nBase,nUscito) = aPresenze(nBase,nUscito) + 1
Next
Next
Next
Call AvanzamentoElab(Inizio,Fine,k)
If ScriptInterrotto Then Exit For
Next
ReDim aTitoli(6)
aTitoli(1) = "Numero Spia"
aTitoli(2) = "Numero Piu Freq"
aTitoli(3) = "Uscite"
aTitoli(4) = "Ritardo"
aTitoli(5) = "RitardoMax"
aTitoli(6) = "Frequenza"
Call InitTabella(aTitoli)
For nBase = 1 To 90
ReDim aValori(6)
aValori(1) = nBase
aValori(2) = GetNumeroPiuFreq(nBase,aPresenze,nUscite)
aValori(3) = nUscite
ReDim aN(1)
aN(1) = aValori(2)
Call StatisticaFormazioneDL(aN,1,RetRit,RetRitMax,0,RetFreq,Inizio,Fine)
aValori(4) = RetRit
aValori(5) = RetRitMax
aValori(6) = RetFreq
Call AddRigaTabella(aValori)
Next
Call CreaTabella
End Sub
Function GetNumeroPiuFreq(nBase,aPresenze,nUscite)
Dim k
ReDim aOrd(90,2)
For k = 1 To 90
aOrd(k,1) = k
aOrd(k,2) = aPresenze(nBase,k)
Next
Call OrdinaMatrice(aOrd,- 1,2)
GetNumeroPiuFreq = aOrd(1,1)
nUscite = aOrd(1,2)
End Function

Ciao
 
Salve a tutti, avrei bisogno di un aiutino: siccome sarei interessato a fare una ricerca per il 10&lotto 5minuti....le fascie che vano da 97-145...qualcuno potrebbe darmi un aiuto? grazie in anticipo Antonio65!!!
 
Salve a tutti, avrei bisogno di un aiutino: siccome sarei interessato a fare una ricerca per il 10&lotto 5minuti....le fascie che vano da 97-145...qualcuno potrebbe darmi un aiuto? grazie in anticipo Antonio65....METTO ANCHE LO SCRIPT Scrivi String(47,32) & "ANTONIO",1
ColoreTesto 0
Sub Main

Dim Nn(5)
Dim poste(3),postee(3)
Dim posta(2)
posta(2) = 1 ' < - - - posta per estratto
QT = 5
QN = InputBox("QUANTE ESTRAZIONI",,1)


xa = CInt(InputBox("Scegli l'archivio. 1=10eLotto; 2=10eLotto 5 minuti",,2))
ImpostaArchivio10ELotto(xa)

ini = EstrazioneIniDL
fin = EstrazioneFinDL
For n = ini To fin
tot = 0
Messaggio DataEstrazione(n,1) & " ANTONIO " ' < - - - - Numero estrazioni

'esempio
'Estrazione n.82766 estratti 03.05.06.17.20.23.29.30.31.32.33.39.40.42.47.54.59.80.87.88
'Estrazione n.82767--del mercoledì, nov 4 2015-- [82767] [151] 04.11.2015
' 3 + 5 + 33 + 39 + 88 = 168
SOMMA_ESTRATTI =(EstrattoDL(n - 1,1) + EstrattoDL(n - 1,2) + EstrattoDL(n - 1,11) + EstrattoDL(n - 1,12) + EstrattoDL(n - 1,20))'168 12/1
A = SOMMA_ESTRATTI/5 '33,60
A2 = FormatNumber(A,0)'33,60=34
B = 100 - A2 '66.40
'a3=FormatNumber(a33,0)
MAXCIFRA = 440
c = B*5 '66.40x5=332
d = Abs(SOMMA_ESTRATTI - c) '
e = Abs(MAXCIFRA - C) '
f = X*3
y = Abs(MAXCIFRA - SOMMA_ESTRATTI) '
k = MAXCIFRA/5' 88
'_________________________________________________
SE = Abs(SOMMA_ESTRATTI*4) '
S_E =(SE - C)'
UU =(Abs(S_E/5))
'_________________________________________________

FISSO1 =(Abs(a - 8))'
FISSO2 =(Abs(a - 9))'
FISSO3 =(Abs(a - 14))'
FISSO4 =(Abs(a - 18)) '
FISSO5 =(Abs(a - 45)) '
'_________________________________________________
FIX1 = SE - 535
FIX3 = SE - 395
FIX4 = SE - 305
FIX5 = 524

r = c*3
j = SOMMA_ESTRATTI*3
s = l*3
t = m*3
u = o - p
z = o - j
prev_min = C - A2
prev_max = C - B
l_min = prev_min*5
l_max = prev_max*5
'nu1 = Fuori90(Abs(UU)) '(UU+K))=656 (UU-K))=664
nu2 = Fuori90(Abs(SOMMA_ESTRATTI - FIX1)) '
'nu3 = Fuori90(Abs(FISSO3 -(EstrattoDL(n - 1,1))))'
'nu4 = Fuori90(Abs(A -(EstrattoDL(n - 1,17)))) '
'nu5 = Fuori90(Abs(A -(EstrattoDL(n - 1,20))))' 4=15 5=13 6=15 14=14 17=16
Scrivi "----------------------------------------------------------- "
Scrivi " Estrazione n." & n & "--del " & DataEstrazioneDL(n,1) & "-- " & GetInfoEstrazioneDL(n),1
'Scrivi " Estratti in gioco-",1
Scrivi "Somma Estratti " & Format2(SOMMA_ESTRATTI),1
Scrivi "A " & Format2(A),1
Scrivi "B " & Format2(B),1
Scrivi "C " & Format2(C),1
Scrivi "SE " & Format2(SE),1
Scrivi "S_E " & Format2(S_E),1
Scrivi "UU " & Format2(UU),1
Scrivi "FISSO1 " & Format2(FISSO1),1
Scrivi "FISSO2 " & Format2(FISSO2),1
Scrivi "FISSO3 " & Format2(FISSO3),1
Scrivi "FISSO4 " & Format2(FISSO4),1
Scrivi "FISSO5 " & Format2(FISSO5),1
Scrivi "FIX3 " & Format2(FIX3),1
Scrivi "FIX4 " & Format2(FIX4),1
Scrivi nu1 & "--" & nu2 & "--" & nu3 & "--" & nu4 & "--" & nu5,1
Nn(1) = nu1:Nn(2) = nu2:Nn(3) = nu3:Nn(4) = nu4:Nn(5) = nu5:

For P = 1 To 20
ColoreTesto 1
For xx = 1 To 5
If EstrattoDL(n,P) = Nn(xx) Then
ColoreTesto 2
tot = tot + 1
End If
Next

Scrivi Format2(EstrattoDL(n,P)),1,0
ColoreTesto 0
Scrivi ".",0,0
Next
ColoreTesto 7
If ToT = Int(QT) Then
Scrivi " - Punteggio max -> " & tot,1,0
'ColoreTesto 3
Scrivi " - Attenzione vincita piena 200€ ",1,- 1,3
Else
If Tot = Int(QT - 1) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita 15€ ",1
Else
If Tot = Int(QT - 2) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita 4€ ",1
Else
If Tot = Int(QT - 3) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita 1€ ",1
Else
ColoreTesto 7
If Tot <> Int(QT) Then Scrivi " - Punteggio max -> " & tot,1
End If
End If
End If
ColoreTesto 0

Scrivi String(120,"-")
Scrivi
'Scrivi "-------------------------------------------- Dettaglio ultime estrazioni scelte --------------------------------------------"
Call ImpostaGiocataDL(01,Nn,1,QN,nSorte)
Call GiocaDL(n,True)
End If
Next

Call ScriviResocontoDL
ColoreTesto 2 :Scrivi String(37,32) & " Somme estratti x ANTONIO",1
Scrivi String(47,32) & "List. ANTONIO",1
ColoreTesto 0
End Sub
 
Alien.;n1938024 ha scritto:
acc...ciao Moro infinite grazie tutto ok(ma è rimasto per il 10elotto serale?perchè a me serve il serale)

puoi farmi una cortesia,ho tre script che non si aggiornano anche se l'archivio è aggiornato,credo che ci sia solo da fare una piccola variazione li trovi qui


http://forum.lottoced.com/forum/lott...-per-disaronno





grazie1000tridi.jpg
Clicca per espandere...


Alien,
non è per il serale...non lo era neanche prima, basta vedere questa riga:

Codice: 
[B][FONT=inherit][SIZE=10px][COLOR=#0000c0][FONT=inherit][COLOR=#0000c0]Call [/COLOR][/FONT][/COLOR][/SIZE][/FONT][/B][B][FONT=inherit][SIZE=10px][COLOR=#800080][FONT=inherit][COLOR=#800080]ImpostaArchivio10ELotto[/COLOR][/FONT][/COLOR][/SIZE][/FONT][/B][SIZE=10px](2)[/SIZE]

Ciao
 
Ciao Moro_80 piacere, sono nuovo a questo forum....potresti dare un occhiata al mio script e se è possibile aggiungere le fascie orarie cosi io potrò fare le mie ricerche in automatico....grazie in anticipo....Antonio65
 
Alien.;n1938452 ha scritto:
acc.....ciao Moro....come si può trasformare per il serale ?(basta cambiare il (2) in (1) ? per quanto riguarda i tre script nel link puoi fare qualche cosa ?(non si aggiornano)

http://forum.lottoced.com/forum/lott...-per-disaronno
Clicca per espandere...

Ciao Alien,
prova lo script così...ora chiede che archivio usare.

Codice: 
Option Explicit
Sub Main
Dim Inizio,Fine,idEstr,arc
Dim k,EntroColpi,e,ee,c
Dim nBase,nUscito
Dim nUscite
ReDim aPresenze(90,90)
Dim RetRit,RetRitMax,RetFreq
arc = CInt(InputBox("Scegli l'archivio. 1=10eLotto; 2=10eLotto 5 minuti",,1))
Call ImpostaArchivio10ELotto(arc)
EntroColpi = CInt(InputBox("Entro quanti colpi ?","Colpi",1))
Inizio = EstrazioniArchivioDL- 18
Fine = EstrazioniArchivioDL
For k = Inizio To Fine
For e = 1 To 20
nBase = EstrattoDL(k,e)
For c = 1 To EntroColpi
idEstr = k + c
For ee = 1 To 20
nUscito = EstrattoDL(idEstr,ee)
aPresenze(nBase,nUscito) = aPresenze(nBase,nUscito) + 1
Next
Next
Next
Call AvanzamentoElab(Inizio,Fine,k)
If ScriptInterrotto Then Exit For
Next
ReDim aTitoli(6)
aTitoli(1) = "Numero Spia"
aTitoli(2) = "Numero Piu Freq"
aTitoli(3) = "Uscite"
aTitoli(4) = "Ritardo"
aTitoli(5) = "RitardoMax"
aTitoli(6) = "Frequenza"
Call InitTabella(aTitoli)
For nBase = 1 To 90
ReDim aValori(6)
aValori(1) = nBase
aValori(2) = GetNumeroPiuFreq(nBase,aPresenze,nUscite)
aValori(3) = nUscite
ReDim aN(1)
aN(1) = aValori(2)
Call StatisticaFormazioneDL(aN,1,RetRit,RetRitMax,0,RetFreq,Inizio,Fine)
aValori(4) = RetRit
aValori(5) = RetRitMax
aValori(6) = RetFreq
Call AddRigaTabella(aValori)
Next
Call CreaTabella
End Sub
Function GetNumeroPiuFreq(nBase,aPresenze,nUscite)
Dim k
ReDim aOrd(90,2)
For k = 1 To 90
aOrd(k,1) = k
aOrd(k,2) = aPresenze(nBase,k)
Next
Call OrdinaMatrice(aOrd,- 1,2)
GetNumeroPiuFreq = aOrd(1,1)
nUscite = aOrd(1,2)
End Function

Per gli altri script spiega meglio il problema...tutti e 3 gli script non vanno?

Ciao
 
Salve a tutti, avrei bisogno di un aiutino: siccome sarei interessato a fare una ricerca per il 10&lotto 5minuti....le fascie che vano da 97-145...qualcuno potrebbe darmi un aiuto? grazie in anticipo Antonio65....METTO ANCHE LO SCRIPT

Scrivi String(47,32) & "ANTONIO",1
ColoreTesto 0
Sub Main

Dim Nn(5)
Dim poste(3),postee(3)
Dim posta(2)
posta(2) = 1 ' < - - - posta per estratto
QT = 5
QN = InputBox("QUANTE ESTRAZIONI",,1)


xa = CInt(InputBox("Scegli l'archivio. 1=10eLotto; 2=10eLotto 5 minuti",,2))
ImpostaArchivio10ELotto(xa)

ini = EstrazioneIniDL
fin = EstrazioneFinDL
For n = ini To fin
tot = 0
Messaggio DataEstrazione(n,1) & " ANTONIO " ' < - - - - Numero estrazioni

'esempio
'Estrazione n.82766 estratti 03.05.06.17.20.23.29.30.31.32.33.39.40.42.47.54.59 .80.87.88
'Estrazione n.82767--del mercoledì, nov 4 2015-- [82767] [151] 04.11.2015
' 3 + 5 + 33 + 39 + 88 = 168
SOMMA_ESTRATTI =(EstrattoDL(n - 1,1) + EstrattoDL(n - 1,2) + EstrattoDL(n - 1,11) + EstrattoDL(n - 1,12) + EstrattoDL(n - 1,20))'168 12/1
A = SOMMA_ESTRATTI/5 '33,60
A2 = FormatNumber(A,0)'33,60=34
B = 100 - A2 '66.40
'a3=FormatNumber(a33,0)
MAXCIFRA = 440
c = B*5 '66.40x5=332
d = Abs(SOMMA_ESTRATTI - c) '
e = Abs(MAXCIFRA - C) '
f = X*3
y = Abs(MAXCIFRA - SOMMA_ESTRATTI) '
k = MAXCIFRA/5' 88
'_________________________________________________
SE = Abs(SOMMA_ESTRATTI*4) '
S_E =(SE - C)'
UU =(Abs(S_E/5))
'_________________________________________________

FISSO1 =(Abs(a - 8))'
FISSO2 =(Abs(a - 9))'
FISSO3 =(Abs(a - 14))'
FISSO4 =(Abs(a - 18)) '
FISSO5 =(Abs(a - 45)) '
'_________________________________________________
FIX1 = SE - 535
FIX3 = SE - 395
FIX4 = SE - 305
FIX5 = 524

r = c*3
j = SOMMA_ESTRATTI*3
s = l*3
t = m*3
u = o - p
z = o - j
prev_min = C - A2
prev_max = C - B
l_min = prev_min*5
l_max = prev_max*5
'nu1 = Fuori90(Abs(UU)) '(UU+K))=656 (UU-K))=664
nu2 = Fuori90(Abs(SOMMA_ESTRATTI - FIX1)) '
'nu3 = Fuori90(Abs(FISSO3 -(EstrattoDL(n - 1,1))))'
'nu4 = Fuori90(Abs(A -(EstrattoDL(n - 1,17)))) '
'nu5 = Fuori90(Abs(A -(EstrattoDL(n - 1,20))))' 4=15 5=13 6=15 14=14 17=16
Scrivi "----------------------------------------------------------- "
Scrivi " Estrazione n." & n & "--del " & DataEstrazioneDL(n,1) & "-- " & GetInfoEstrazioneDL(n),1
'Scrivi " Estratti in gioco-",1
Scrivi "Somma Estratti " & Format2(SOMMA_ESTRATTI),1
Scrivi "A " & Format2(A),1
Scrivi "B " & Format2(B),1
Scrivi "C " & Format2(C),1
Scrivi "SE " & Format2(SE),1
Scrivi "S_E " & Format2(S_E),1
Scrivi "UU " & Format2(UU),1
Scrivi "FISSO1 " & Format2(FISSO1),1
Scrivi "FISSO2 " & Format2(FISSO2),1
Scrivi "FISSO3 " & Format2(FISSO3),1
Scrivi "FISSO4 " & Format2(FISSO4),1
Scrivi "FISSO5 " & Format2(FISSO5),1
Scrivi "FIX3 " & Format2(FIX3),1
Scrivi "FIX4 " & Format2(FIX4),1
Scrivi nu1 & "--" & nu2 & "--" & nu3 & "--" & nu4 & "--" & nu5,1
Nn(1) = nu1:Nn(2) = nu2:Nn(3) = nu3:Nn(4) = nu4:Nn(5) = nu5:

For P = 1 To 20
ColoreTesto 1
For xx = 1 To 5
If EstrattoDL(n,P) = Nn(xx) Then
ColoreTesto 2
tot = tot + 1
End If
Next

Scrivi Format2(EstrattoDL(n,P)),1,0
ColoreTesto 0
Scrivi ".",0,0
Next
ColoreTesto 7
If ToT = Int(QT) Then
Scrivi " - Punteggio max -> " & tot,1,0
'ColoreTesto 3
Scrivi " - Attenzione vincita piena 200€ ",1,- 1,3
Else
If Tot = Int(QT - 1) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita 15€ ",1
Else
If Tot = Int(QT - 2) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita 4€ ",1
Else
If Tot = Int(QT - 3) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita 1€ ",1
Else
ColoreTesto 7
If Tot <> Int(QT) Then Scrivi " - Punteggio max -> " & tot,1
End If
End If
End If
ColoreTesto 0

Scrivi String(120,"-")
Scrivi
'Scrivi "-------------------------------------------- Dettaglio ultime estrazioni scelte --------------------------------------------"
Call ImpostaGiocataDL(01,Nn,1,QN,nSorte)
Call GiocaDL(n,True)
End If
Next

Call ScriviResocontoDL
ColoreTesto 2 :Scrivi String(37,32) & " Somme estratti x ANTONIO",1
Scrivi String(47,32) & "List. ANTONIO",1
ColoreTesto 0
End Sub
 
antonio65;n1938709 ha scritto:
Salve a tutti, avrei bisogno di un aiutino: siccome sarei interessato a fare una ricerca per il 10&lotto 5minuti....le fascie che vano da 97-145...qualcuno potrebbe darmi un aiuto? grazie in anticipo Antonio65....METTO ANCHE LO SCRIPT

Scrivi String(47,32) & "ANTONIO",1
ColoreTesto 0
Sub Main

Dim Nn(5)
Dim poste(3),postee(3)
Dim posta(2)
posta(2) = 1 ' < - - - posta per estratto
QT = 5
QN = InputBox("QUANTE ESTRAZIONI",,1)


xa = CInt(InputBox("Scegli l'archivio. 1=10eLotto; 2=10eLotto 5 minuti",,2))
ImpostaArchivio10ELotto(xa)

ini = EstrazioneIniDL
fin = EstrazioneFinDL
For n = ini To fin
tot = 0
Messaggio DataEstrazione(n,1) & " ANTONIO " ' < - - - - Numero estrazioni

'esempio
'Estrazione n.82766 estratti 03.05.06.17.20.23.29.30.31.32.33.39.40.42.47.54.59 .80.87.88
'Estrazione n.82767--del mercoledì, nov 4 2015-- [82767] [151] 04.11.2015
' 3 + 5 + 33 + 39 + 88 = 168
SOMMA_ESTRATTI =(EstrattoDL(n - 1,1) + EstrattoDL(n - 1,2) + EstrattoDL(n - 1,11) + EstrattoDL(n - 1,12) + EstrattoDL(n - 1,20))'168 12/1
A = SOMMA_ESTRATTI/5 '33,60
A2 = FormatNumber(A,0)'33,60=34
B = 100 - A2 '66.40
'a3=FormatNumber(a33,0)
MAXCIFRA = 440
c = B*5 '66.40x5=332
d = Abs(SOMMA_ESTRATTI - c) '
e = Abs(MAXCIFRA - C) '
f = X*3
y = Abs(MAXCIFRA - SOMMA_ESTRATTI) '
k = MAXCIFRA/5' 88
'_________________________________________________
SE = Abs(SOMMA_ESTRATTI*4) '
S_E =(SE - C)'
UU =(Abs(S_E/5))
'_________________________________________________

FISSO1 =(Abs(a - 8))'
FISSO2 =(Abs(a - 9))'
FISSO3 =(Abs(a - 14))'
FISSO4 =(Abs(a - 18)) '
FISSO5 =(Abs(a - 45)) '
'_________________________________________________
FIX1 = SE - 535
FIX3 = SE - 395
FIX4 = SE - 305
FIX5 = 524

r = c*3
j = SOMMA_ESTRATTI*3
s = l*3
t = m*3
u = o - p
z = o - j
prev_min = C - A2
prev_max = C - B
l_min = prev_min*5
l_max = prev_max*5
'nu1 = Fuori90(Abs(UU)) '(UU+K))=656 (UU-K))=664
nu2 = Fuori90(Abs(SOMMA_ESTRATTI - FIX1)) '
'nu3 = Fuori90(Abs(FISSO3 -(EstrattoDL(n - 1,1))))'
'nu4 = Fuori90(Abs(A -(EstrattoDL(n - 1,17)))) '
'nu5 = Fuori90(Abs(A -(EstrattoDL(n - 1,20))))' 4=15 5=13 6=15 14=14 17=16
Scrivi "----------------------------------------------------------- "
Scrivi " Estrazione n." & n & "--del " & DataEstrazioneDL(n,1) & "-- " & GetInfoEstrazioneDL(n),1
'Scrivi " Estratti in gioco-",1
Scrivi "Somma Estratti " & Format2(SOMMA_ESTRATTI),1
Scrivi "A " & Format2(A),1
Scrivi "B " & Format2(B),1
Scrivi "C " & Format2(C),1
Scrivi "SE " & Format2(SE),1
Scrivi "S_E " & Format2(S_E),1
Scrivi "UU " & Format2(UU),1
Scrivi "FISSO1 " & Format2(FISSO1),1
Scrivi "FISSO2 " & Format2(FISSO2),1
Scrivi "FISSO3 " & Format2(FISSO3),1
Scrivi "FISSO4 " & Format2(FISSO4),1
Scrivi "FISSO5 " & Format2(FISSO5),1
Scrivi "FIX3 " & Format2(FIX3),1
Scrivi "FIX4 " & Format2(FIX4),1
Scrivi nu1 & "--" & nu2 & "--" & nu3 & "--" & nu4 & "--" & nu5,1
Nn(1) = nu1:Nn(2) = nu2:Nn(3) = nu3:Nn(4) = nu4:Nn(5) = nu5:

For P = 1 To 20
ColoreTesto 1
For xx = 1 To 5
If EstrattoDL(n,P) = Nn(xx) Then
ColoreTesto 2
tot = tot + 1
End If
Next

Scrivi Format2(EstrattoDL(n,P)),1,0
ColoreTesto 0
Scrivi ".",0,0
Next
ColoreTesto 7
If ToT = Int(QT) Then
Scrivi " - Punteggio max -> " & tot,1,0
'ColoreTesto 3
Scrivi " - Attenzione vincita piena 200&#128; ",1,- 1,3
Else
If Tot = Int(QT - 1) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita 15&#128; ",1
Else
If Tot = Int(QT - 2) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita 4&#128; ",1
Else
If Tot = Int(QT - 3) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita 1&#128; ",1
Else
ColoreTesto 7
If Tot <> Int(QT) Then Scrivi " - Punteggio max -> " & tot,1
End If
End If
End If
ColoreTesto 0

Scrivi String(120,"-")
Scrivi
'Scrivi "-------------------------------------------- Dettaglio ultime estrazioni scelte --------------------------------------------"
Call ImpostaGiocataDL(01,Nn,1,QN,nSorte)
Call GiocaDL(n,True)
End If
Next

Call ScriviResocontoDL
ColoreTesto 2 :Scrivi String(37,32) & " Somme estratti x ANTONIO",1
Scrivi String(47,32) & "List. ANTONIO",1
ColoreTesto 0
End Sub
Clicca per espandere...


Ciao Antonio,
sarebbe opportuno "indentare" il tuo script quantomeno per capire quello che vuoi fare del dettaglio...poi, casomai, si vede se qualcuno può aiutarti...

Ciao
 
Moro_80;n1938681 ha scritto:
Ciao Alien,
prova lo script così...ora chiede che archivio usare.

Codice: 
Option Explicit
Sub Main
Dim Inizio,Fine,idEstr,arc
Dim k,EntroColpi,e,ee,c
Dim nBase,nUscito
Dim nUscite
ReDim aPresenze(90,90)
Dim RetRit,RetRitMax,RetFreq
arc = CInt(InputBox("Scegli l'archivio. 1=10eLotto; 2=10eLotto 5 minuti",,1))
Call ImpostaArchivio10ELotto(arc)
EntroColpi = CInt(InputBox("Entro quanti colpi ?","Colpi",1))
Inizio = EstrazioniArchivioDL- 18
Fine = EstrazioniArchivioDL
For k = Inizio To Fine
For e = 1 To 20
nBase = EstrattoDL(k,e)
For c = 1 To EntroColpi
idEstr = k + c
For ee = 1 To 20
nUscito = EstrattoDL(idEstr,ee)
aPresenze(nBase,nUscito) = aPresenze(nBase,nUscito) + 1
Next
Next
Next
Call AvanzamentoElab(Inizio,Fine,k)
If ScriptInterrotto Then Exit For
Next
ReDim aTitoli(6)
aTitoli(1) = "Numero Spia"
aTitoli(2) = "Numero Piu Freq"
aTitoli(3) = "Uscite"
aTitoli(4) = "Ritardo"
aTitoli(5) = "RitardoMax"
aTitoli(6) = "Frequenza"
Call InitTabella(aTitoli)
For nBase = 1 To 90
ReDim aValori(6)
aValori(1) = nBase
aValori(2) = GetNumeroPiuFreq(nBase,aPresenze,nUscite)
aValori(3) = nUscite
ReDim aN(1)
aN(1) = aValori(2)
Call StatisticaFormazioneDL(aN,1,RetRit,RetRitMax,0,RetFreq,Inizio,Fine)
aValori(4) = RetRit
aValori(5) = RetRitMax
aValori(6) = RetFreq
Call AddRigaTabella(aValori)
Next
Call CreaTabella
End Sub
Function GetNumeroPiuFreq(nBase,aPresenze,nUscite)
Dim k
ReDim aOrd(90,2)
For k = 1 To 90
aOrd(k,1) = k
aOrd(k,2) = aPresenze(nBase,k)
Next
Call OrdinaMatrice(aOrd,- 1,2)
GetNumeroPiuFreq = aOrd(1,1)
nUscite = aOrd(1,2)
End Function

Per gli altri script spiega meglio il problema...tutti e 3 gli script non vanno?

Ciao
Clicca per espandere...

Ciao Moro perfetto adesso funziona......si per i tre script non si aggiornano anche se l'archivio è aggiornato provane uno poi vedi.....credo e spero che sia una cosa semplice da fare....per chi sa la lingua script.....hahahahah grazie infinite.
 
Alien.;n1938729 ha scritto:
Ciao Moro perfetto adesso funziona......si per i tre script non si aggiornano anche se l'archivio è aggiornato provane uno poi vedi.....credo e spero che sia una cosa semplice da fare....per chi sa la lingua script.....hahahahah grazie infinite.
Clicca per espandere...

Ciao Alien,
controlla bene quei tre script...come ti ha scritto anche disaronno nel post originale dove presenti i 3 script:
disaronno;n1938688 ha scritto:
Buonasea,
salutando Alien , il problema degli archivi, nel mio caso non risulta.
Clicca per espandere...
il problema degli archivi non accade..magari, se hai ancora il problema, posta un esempio di ricerca che fai su un specifico script (dei 3) così vediamo cosa non va...


Ciao
 
Ultima modifica:
Grazie per l'attenzione Moro_80....in pratica si tratta di una tecnica matematica che mi somma 5 estratti da me scelti e sono: il 1-2-11-12-20 la somma va divisa poi 5...ad esempio se prendi una qualsiasi somma( anche con 20 numeri) ma io ho scelto 5 numeri e moltiplichi la somma per 4 a questo poi bisogna ricercare i numeri per fare poi la sottrazione....quindi la somma moltiplicata per 4 o la somma meno la percentuale ricevuta dalla divisione e poi moltiplicata x 5 è la stessa cosa....è un intreccio matematico....siccome ho degli ottimi riscontri...mi serviva aggiungere allo script una funzione che mi permette di sapere il miglior esisto per le fascie di estrazioni....manualmente ho fatto un pò la fascia che va da 97 a 145 o meglio 08.05 12.05 tutto li....ancora grazie....bisogna solo aggiungere questa funzione....manualmente è impossibile...
 
antonio65;n1938752 ha scritto:
Grazie per l'attenzione Moro_80....in pratica si tratta di una tecnica matematica che mi somma 5 estratti da me scelti e sono: il 1-2-11-12-20 la somma va divisa poi 5...ad esempio se prendi una qualsiasi somma( anche con 20 numeri) ma io ho scelto 5 numeri e moltiplichi la somma per 4 a questo poi bisogna ricercare i numeri per fare poi la sottrazione....quindi la somma moltiplicata per 4 o la somma meno la percentuale ricevuta dalla divisione e poi moltiplicata x 5 è la stessa cosa....è un intreccio matematico....siccome ho degli ottimi riscontri...mi serviva aggiungere allo script una funzione che mi permette di sapere il miglior esisto per le fascie di estrazioni....manualmente ho fatto un pò la fascia che va da 97 a 145 o meglio 08.05 12.05 tutto li....ancora grazie....bisogna solo aggiungere questa funzione....manualmente è impossibile...
Clicca per espandere...

Ciao Antonio,
più o meno ho capito quello che vuoi ottenere...ma una curiosità: lo script che hai postato è funzionante o no?
Lo dico perchè io l'ho lanciato e a cominciato a lavorare dal 1871...c'è qualcosa che non va sicuramente...è da rivedere un po' nel complesso secondo me.


Ciao
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 23 gennaio 2025
    Bari
    86
    50
    83
    38
    78
    Cagliari
    11
    36
    52
    31
    74
    Firenze
    56
    59
    86
    27
    84
    Genova
    03
    61
    53
    11
    38
    Milano
    13
    14
    79
    87
    47
    Napoli
    21
    90
    48
    55
    37
    Palermo
    56
    46
    59
    02
    53
    Roma
    74
    13
    07
    38
    77
    Torino
    27
    54
    62
    36
    81
    Venezia
    09
    14
    69
    28
    62
    Nazionale
    32
    73
    27
    11
    51
    Estrazione Simbolotto
    Bari
    36
    27
    19
    08
    24
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto