Listato 10elotto

[antonio65]

ti mando un altro script...sicuramente ho cercato di variare leggendo nel manuale di Spaziaometria e avrò fatto qualche errore...o meglio controlla come hai settato l'archivio...perchè se è settato dal 1871 parte da li...questo script ho fatto manualmente dal 1 novembre al 26 novembre cioè oggi...fascia 97-145 (che lavoraccio a mano) e ci sono tanti terni ...ci sono più della metà dei giorni che per quella fascia c'è un terno...ma giorni che ci sono 3 e 4 terni....ecco perchè ho bisogno della funzione...sarei molto più veloce...e una volta ottenuto il miglior esisto giornaliero...lo posto....

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 - 482
FIX2 = SE - 589
FIX3 = SE - 449
FIX4 = SE - 305
FIX5 = SE - 307

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(SOMMA_ESTRATTI - FIX1)) '(UU+K))=656 (UU-K))=664
'nu2 = Fuori90(Abs(SOMMA_ESTRATTI - FIX2)) '
'nu3 = Fuori90(Abs(SOMMA_ESTRATTI - FIX3))'
'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,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 "FIX1 " & Format2(FIX1),1
Scrivi "FIX2 " & Format2(FIX2),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]

Numeri a caso 2-8-34-41-83=168

168/5=33,6
168-33,6=134,4
134,4x5=672 oppure 168 x 4=672
somma i numeri e ne fai fai mancare sempre uno esempio: 2+8+34+41=85 ....2+8+34+83=127 etc etc poi mettili in colonna e somma sempre a gruppi di 4... ottieni in questo caso : 587-545-538-512-506 poi la somma moltiplicata - ad esempio 587=85 la somma originale meno 85 e fa 83 5° Estratto...da li lavorandoci un pò...troveremo delle belle cose ne sono convinto...ma ho bisogno della funzione che ben sai...
168-2=166 166 166 166 166 506
168-8=160 160 160 160 512 160
168-34=134 134 134 538 134 134
168-41=127 127 545 127 127 127
168-83=85 587 85 85 85 85

 

[antonio65]

Numeri a caso 2-8-34-41-83=168

168/5=33,6
168-33,6=134,4
134,4x5=672 oppure 168 x 4=672
somma i numeri e ne fai fai mancare sempre uno esempio: 2+8+34+41=85 ....2+8+34+83=127 etc etc poi mettili in colonna e somma sempre a gruppi di 4... ottieni in questo caso : 587-545-538-512-506 poi la somma moltiplicata - ad esempio 587=85 la somma originale meno 85 e fa 83 5° Estratto...da li lavorandoci un pò...troveremo delle belle cose ne sono convinto...ma ho bisogno della funzione che ben sai...
168-2=166 166 166 166 166 506
168-8=160 160 160 160 512 160
168-34=134 134 134 538 134 134
168-41=127 127 545 127 127 127
168-83=85 587 85 85 85 85

 

[antonio65]

ho sbagliato l'ho inviata 3 volte è sempre uguale...scusami....

 

[Alien.]

Ciao Alien,
controlla bene quei tre script...come ti ha scritto anche disaronno nel post originale dove presenti i 3 script:
Originariamente inviato da disaronno Visualizza il messaggio
Buonasea,
salutando Alien , il problema degli archivi, nel mio caso non risulta.



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






Ciao Moro in effeti rileggendo la tua frase:posta un esempio di ricerca ho notato che cambia in base a quello che gli digito ma non mi da mai il pronostico da giocare.....se gli dico 0 E 5 funziona se gli dico 20 e 20 si ferma al 10 ott e non da il pronostico.

 

[antonio65]

Buonanotte a voi e grazie di cuore....ho fatto alcune variazione riguardo la tecnica (non lo script, non sono pratico) lo allego....
fascia oraria 97-145 esaminata dal 1 novembre fino al 26 novembre....utile di euro 213 euro...e dalla fascia 97-127 utile di 268 euro
Già è qualcosa se dura....con il vostro aiuto migliorerò la tecnica...grazie e Buonanotte Antonio.

Scrivi String(47,32) & "List. ANTONIO65",1
ColoreTesto 0
Sub Main
Dim Tipoarchivio
Dim Nn(5)
'Dim posta(2)
'posta(2) = 1 ' < - - - posta per estratto
QT = 5
nSorte = ScegliSorte
Tipoarchivio = ScegliArchivio
If Tipoarchivio > 00 Then
Call ImpostaArchivio10ELotto(Tipoarchivio)
If Tipoarchivio = 01 Then
EstrRic = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO ","ESTRAZIONI RETROATTIVE",250))
QN = InputBox("PER QUANTE ESTRAZIONI VUOI GIOCARE","COLPI DI GIOCO",1)
Ini = EstrazioniArchivioDL - EstrRic
Fin = EstrazioniArchivioDL
End If
If Tipoarchivio = 02 Then
If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
Call AggiornaArchivioDL
End If
Orarin = 97
Orarfi = 145
kin = CInt(InputBox(" solo x 10Lotto5M Range Orario da n.:",,Orarin))
kfi = CInt(InputBox(" solo x 10Lotto5M Range Orario a n. ",,Orarfi))
EstrRic = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO ","ESTRAZIONI RETROATTIVE",7200))
QN = InputBox("PER QUANTE ESTRAZIONI VUOI GIOCARE","COLPI DI GIOCO",1)
Fin = EstrazioniArchivioDL
Ini = EstrazioniArchivioDL - EstrRic
End If
For n = ini To fin
tot = 0
Messaggio DataEstrazioneDL(n,True) & " List.ANTONIO65 " ' < - - - - Numero estrazioni
AvanzamentoElab Ini,fin,n
If IndiceAnnualeDL >= kin And IndiceAnnualeDL <= kfi Then

SOMMA_ESTRATTI =(EstrattoDL(n - 1,1) + EstrattoDL(n - 1,2) + EstrattoDL(n - 1,11) + EstrattoDL(n - 1,12) + EstrattoDL(n - 1,20))
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) '
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 - 482
FIX2 = SE - 449
FIX3 = SE - 557
FIX4 = SE - 305
FIX5 = SE - 307

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(SOMMA_ESTRATTI - FIX1))
nu2 = Fuori90(Abs(SOMMA_ESTRATTI - FIX2)) '
nu3 = Fuori90(Abs(SOMMA_ESTRATTI - FIX3))'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,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 "FIX1 " & Format2(FIX1),1
Scrivi "FIX2 " & Format2(FIX2),1

Nn(1) = nu1:Nn(2) = nu2:Nn(3) = nu3:Nn(4) = nu4:Nn(5) = nu5:
Call VerificaEsitoDL(Nn,n + 01,nSorte,QN,Retesito,Retcolpi,RetEstratti,RetIdEstr)
If RetEsito = "" Then RetEsito = "In Corso"
Scrivi StringaNumeri(Nn,,True) & " " & retesito & " " & RetColpi & " " & RetEstratti & " " & RetIdEsr,1
For P = 01 To 20
ColoreTesto 1
For xx = 01 To 05
If EstrattoDL(n + 01,P) = Nn(xx) Then
ColoreTesto 2
tot = tot + 01
End If
Next
Scrivi Format2(EstrattoDL(n + 01,P)),1,0
ColoreTesto 0
Scrivi ".",0,0
Next
ColoreTesto 7
If ToT = Int(QT) Then
Scrivi " - Punteggio max -> " & Format2(tot),1,0
'ColoreTesto 3
Scrivi " - Attenzione vincita piena 200€ ",1,- 1,3
Else
If Tot = Int(QT - 01) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & Format2(tot),1,0
ColoreTesto 2
Scrivi " - Vincita 15€ ",1
Else
If Tot = Int(QT - 02) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & Format2(tot),1,0
ColoreTesto 2
Scrivi " - Vincita 4€ ",1
Else
If Tot = Int(QT - 03) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & Format2(tot),1,0
ColoreTesto 2
Scrivi " - Vincita 1€ ",1
Else
ColoreTesto 7
If Tot <> Int(QT) Then Scrivi " - Punteggio max -> " & Format2(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
End If
Next
Call ScriviResocontoDL
ColoreTesto 2 :Scrivi String(37,32) & " Somme estratti x ANTONIO65",1
Scrivi String(47,32) & "List. ANTONIO65",1
ColoreTesto 0
End If
End Sub
Function ScegliSorte
ReDim aVoci(04)
aVoci(00) = "Estratto"
aVoci(01) = "Ambo"
aVoci(02) = "Terno"
aVoci(03) = "Quaterna"
aVoci(04) = "Cinquina"
ScegliSorte = ScegliOpzioneMenu(aVoci,01,"Secegli Tipo Sorte") + 01
End Function
Function ScegliArchivio()
ReDim aVoci(01)
aVoci(00) = "10 e lotto Serale"
aVoci(01) = "10 e lotto 5minuti"
ScegliArchivio = ScegliOpzioneMenu(aVoci,00,"Secegli archivio") + 01
End Function

 

[antonio65]

Ciao a tutti, mi sono accorto che c'è un errore nello script mi spiego: tutto va bene tranne che al momento che io devo giocare ovviamente dovrei giocare " in corso 0" sbaglio? però analizzando bene sotto giocata in corso 0....la somma dell'ultima estrazione non corrisponde con i numeri pronosticati....me la da dopo che aggiorno....è come se fossi indietro di una estrazione.....spero mi sia spiegato bene....poi la somma degli estratti me la da dopo 2 estrazioni ad esempio se nell'estrazione tot mi da 223 me la da dopo 2 estrazioni quindi la tecnica non sarebbe piùvalida...perchè deve essere sempre colpo dopo colpo....ho smanettato su questa dicitura Scrivi Format2(EstrattoDL(n + 01,P)),1,0 e mettendo due 00 al posto di 01,P la somma me la da estrazione dopo estrazione...il problema elencato cioè quella della giocata rimane...mi da i numeri però con la somma indietro di una estrazione e non dell'ultima...se si può corregere...grazie....