Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
- Stato
Alien.
Advanced Premium Member
quote:Originally posted by claudio8
quote:Originally posted by Alien.
Claidio8,se mi dai la chiave errata,non credo che possa aprire la porta,meno male che ho un'amico fidato DBR che mi fa da passpartour
Grazie BDR
scusami tanto sono un po rinco, come dice ELE [B)][B)][B)]
claudio
Tranquillo capita a tutti[:D]
L
LuigiB
Guest
per Rubino e Claudio , ho capito dove è l'errore per quel famigerato 10-19 ... pero sto facendo altre modifiche quindi ancora niente aggiornamento.
Una delle modifiche che sto facendo me l'ha fatta venire in mente Rubino
il quale dice che stava sviluppando uno script e gli mancava la parte di verifica esito.
Bene ho inserito due funzioni VerificaEsito e VerificaEsitoSE che servono appunto per verificare l'esito di una giocata .
In pratica nella prossima versione sara possibile usare questa sintassi
per verificare l'esito di un pronostico
Una delle modifiche che sto facendo me l'ha fatta venire in mente Rubino
il quale dice che stava sviluppando uno script e gli mancava la parte di verifica esito.
Bene ho inserito due funzioni VerificaEsito e VerificaEsitoSE che servono appunto per verificare l'esito di una giocata .
In pratica nella prossima versione sara possibile usare questa sintassi
per verificare l'esito di un pronostico
Codice:
Sub Main
ReDim aNum(4) ' array contenente il pronostico
ReDim aRt(2) ' array contenente le ruote
Dim idEstrInizio ' estrazione da dove comincia la verifica dell'esito
Dim RetEsito ' torna il nome della sorte (estratto , ambo ...ecc)
Dim RetColpi ' torna i colpi impiegti fino al raggiungimento dell'esito
Dim RetEstratti ' torna i numeri estratti
Dim RetIdEstr ' torna lidentificativo numerico dell'estrazione in cui si è avuto l'esito
'imposto il pronostico da verificare
aNum(1) = 4
aNum(2) = 8
aNum(3) = 12
aNum(4) = 16
' imposto le ruote su cui giocare
aRt(1) = BA_
aRt(2) = RO_
' imposto l'estrazione da dove parte la verifica
idEstrInizio = 5000
'gioco per AMBO senza un numero di colpi limite
If VerificaEsito(aNum,aRt,idEstrInizio,2,,,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
Call Scrivi(GetInfoEstrazione(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & " " & RetEstratti)
Else
Call Scrivi("Esito negativo")
End If
End Subx Luigi,
fai con comodo non ci corre dietro nessuno anzi, la calma e l'attesa è la virtù che ci caratterizza per adesso siamo andati alla cassa, con il 36 di Napoli, peccato che la calamita di Ele abbia funzionato in parte.. peccato.
ciao
claudio
Per Alien ...
Non fare troppa pubblicità con questo testo "scusami tanto sono un po rinco," ne va della mia reputazione
claudio
fai con comodo non ci corre dietro nessuno anzi, la calma e l'attesa è la virtù che ci caratterizza per adesso siamo andati alla cassa, con il 36 di Napoli, peccato che la calamita di Ele abbia funzionato in parte.. peccato.
ciao
claudio
Per Alien ...
Non fare troppa pubblicità con questo testo "scusami tanto sono un po rinco," ne va della mia reputazione
claudio
L
LuigiB
Guest
ATTENZIONE VERSIONE 1.1.61
http://www.hotshare.net/file/334437-2678369406.html
In questa versione oltre ad aver corretto il bug nell'utility che esporta i dati per gannalyst , ho aggiunto altre funzioni al linguaggio spazio script.
La prima VerificaEsito l'ho gia spiegata , la seconda funzione che ho inserito consente di creare delle tabelle nella finestra output senza dover gestire a mano il tutto , inoltre queste tabelle possoo essere ordinate velocizzando cosi ancora di piu la scrittura degli script che producono analisi da mostrare in forma tabellare.
Ecco un esempio di uso di tabella.
si tratta di un esempio che ottiene la lista dei ritardi all'estrazioen corrente.
Spero che tutte queste funzioni che aggiungo possano essereapprezzate e usate dai pochi scripter che circolano da queste parti ...
Ricordate che tutti gli esempi si trovano nella directory test degli script
Un saluto
http://www.hotshare.net/file/334437-2678369406.html
In questa versione oltre ad aver corretto il bug nell'utility che esporta i dati per gannalyst , ho aggiunto altre funzioni al linguaggio spazio script.
La prima VerificaEsito l'ho gia spiegata , la seconda funzione che ho inserito consente di creare delle tabelle nella finestra output senza dover gestire a mano il tutto , inoltre queste tabelle possoo essere ordinate velocizzando cosi ancora di piu la scrittura degli script che producono analisi da mostrare in forma tabellare.
Ecco un esempio di uso di tabella.
si tratta di un esempio che ottiene la lista dei ritardi all'estrazioen corrente.
Spero che tutte queste funzioni che aggiungo possano essereapprezzate e usate dai pochi scripter che circolano da queste parti ...
Ricordate che tutti gli esempi si trovano nella directory test degli script
Codice:
Sub Main
ReDim aTitoli(3) ' titoli tabella
Dim k ' controllo cicli
Dim rt ' ruota
Dim idEstr 'estrazione inizio analisi
' imposto l'estrazione sull'ultima disponibile
idEstr = EstrazioniArchivio
' faccio scorrere un testo che indica da quale estrazione parte l'analisi
Call TestoInBandaPassante("Ritardo dei numeri all'estrazione " & GetInfoEstrazione(idEstr))
' preimposto i titoli delle colonne
aTitoli(1) = "Numero"
aTitoli(2) = "Ruota"
aTitoli(3) = "Ritardo"
' inizializzo la tabella
Call InitTabella(aTitoli,1,,,5)
' faccio un ciclo dove calcolo il ritardo sulle 10 ruote di tutti i 90 numeri
' mano mano aggiungo una nuova riga alla tabella
For rt = 1 To 10 ' ciclo ruote
For k = 1 To 90 ' ciclo numeri
' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
ReDim aValori(3) ' abbiamo 3 titoli quindi anche qui dimensioniamo con 3 colonne
aValori(1) = Format2(k) ' numero
aValori(2) = NomeRuota(rt) ' nome ruota
aValori(3) = RitardoEstratto(k,idEstr,rt) ' valore del ritardo di quel numero su quella ruota
' con questo blocco if coloro le righe che agguiungo in funzione del loro ritardo
If aValori(3) > 0 And aValori(3) <= 30 Then
Call AddRigaTabella(aValori,Verde_)
ElseIf aValori(3) > 30 And aValori(3) <= 50 Then
Call AddRigaTabella(aValori,Giallo_)
ElseIf aValori(3) > 50 And aValori(3) <= 80 Then
Call AddRigaTabella(aValori,Magenta_)
ElseIf aValori(3) > 80 Then
Call AddRigaTabella(aValori,Rosso_)
End If
Next
Next
' ora che h oterminato l'analisi e ho finito di accodare le righe
' creo la tabella e la ordino per la colonna 3 che rappresenta il ritardo
Call CreaTabella(3)
End SubUn saluto
x Angie ELE e Mat
I FATI SMENTISCONO LE PAROLE
X ANGIE 1911 postato il 13/11/1010
1) Credo che tutto quanto viene esposto in questo post siano strumenti di ricerca finalizzati alla "battaglia contro la Lottomatica" e quindi il fine ultimo di tutto è secondo me la scelta dei NUMERI.
A questo proposito ben vengano, anche in separato post, gli studi ed i dati per arrivare all'obbiettivo finale che comunque parte sempre dall'AMBATA o Capogiogo per sorti maggiori.
2) Personalmente, come già sritto in altri interventi, uso un foglio elettronico per visionare, nel senso di vedere fisicamente, le relazioni che vi sono tra le cause (formazioni specifiche)e gli eventi che ne seguono.
In questo specifico del 36 di BA-NA si è presentata in data 06/11/10 la formazione :
BA 3°estratto = 3 e NA 1° estratto = 33 (elementi della stessa terzina simmetrica 3-33-63).
Il metodo è semplicemente questo:
dopo questo specifico evento, presenza di formazione (stesse ruote e stesse posizioni), l'ambata che si ricava è il doppio del valore più grande dei tre elementi della terzina rilevata. in questo caso 63 x 2 = 36 (con fuori90)
Per la storia-statistica
Casi esaminati 11 a partire dal 02/08/08
esiti in sequenza - colpo: 2° 3° 1° 1° 1° 2° 3° 7° 2° 3° 2°, nel caso dell'esito al 7° colpo, si è verificata l'uscita del +30 dell'ambata al 2° colpo, che corrisponde nel ns. caso al 66 già estratto a NA per cui in considerazione del fatto che il 53 di ba e 29 di Na non sono specificatamente a coplo, e se il coeficente "K" ci auita, l'esito può essere fattibile.
IN DEFINITIVA SI E' RIPETUTO L'EVENTO
Saluti
claudio
I FATI SMENTISCONO LE PAROLE X ANGIE 1911 postato il 13/11/1010
1) Credo che tutto quanto viene esposto in questo post siano strumenti di ricerca finalizzati alla "battaglia contro la Lottomatica" e quindi il fine ultimo di tutto è secondo me la scelta dei NUMERI.
A questo proposito ben vengano, anche in separato post, gli studi ed i dati per arrivare all'obbiettivo finale che comunque parte sempre dall'AMBATA o Capogiogo per sorti maggiori.
2) Personalmente, come già sritto in altri interventi, uso un foglio elettronico per visionare, nel senso di vedere fisicamente, le relazioni che vi sono tra le cause (formazioni specifiche)e gli eventi che ne seguono.
In questo specifico del 36 di BA-NA si è presentata in data 06/11/10 la formazione :
BA 3°estratto = 3 e NA 1° estratto = 33 (elementi della stessa terzina simmetrica 3-33-63).
Il metodo è semplicemente questo:
dopo questo specifico evento, presenza di formazione (stesse ruote e stesse posizioni), l'ambata che si ricava è il doppio del valore più grande dei tre elementi della terzina rilevata. in questo caso 63 x 2 = 36 (con fuori90)
Per la storia-statistica
Casi esaminati 11 a partire dal 02/08/08
esiti in sequenza - colpo: 2° 3° 1° 1° 1° 2° 3° 7° 2° 3° 2°, nel caso dell'esito al 7° colpo, si è verificata l'uscita del +30 dell'ambata al 2° colpo, che corrisponde nel ns. caso al 66 già estratto a NA per cui in considerazione del fatto che il 53 di ba e 29 di Na non sono specificatamente a coplo, e se il coeficente "K" ci auita, l'esito può essere fattibile.
IN DEFINITIVA SI E' RIPETUTO L'EVENTO
Saluti
claudio
elephantbig
Advanced Member >PLATINUM<
Ciao Claudio
Complimenti a te per il 36 Na.
Complimenti a me per la calamita.
Devo solo aumentarne la forza di attrazione.
Adesso chi mettiamo come compagnia al 29 di Rubino ?
Complimenti a te per il 36 Na.
Complimenti a me per la calamita.
Devo solo aumentarne la forza di attrazione.
Adesso chi mettiamo come compagnia al 29 di Rubino ?
fillotto
Advanced Member >PLATINUM<
Ciao Luigi purtroppo ancora non ho portato il computer a vedere di sistemare il sistema operativo e datosi che in questo campo sono completamente ignorante non volevo trascurare niente da eventualmente spiegare al riparatore :
Adesso, per alcuni file di script che prima giravano ma che nel resoconto portavano degli "0" in corrispondenza delle vincite per cui riuscivo comunque a capire,mi presenta solo il resoconto tutto pieno di 0 tipo questo:
Sub main()
' in effetti l'ho tratto dal sommativo automatico del programma
Dim rt(1) 'la ruota è una (1)
Dim nr(2) ' i nr in gioco sono 2
Dim pta(1) ' la puntata che faccio è l'estratto
pta(1) = 1 'la puntata sull'Estratto(1) è di 1 euro
rt(1) = 1 ' la ruota che è una (1) è 1 ovvero BA
k = 5 ' i Kolpi in gioco sono 5
For n = 7786 To EstrazioneFin
If IndiceMensile
= 1 Then
ng = 0
nr(1) = Fuori90(Estratto(n,1,4) + 21)
nr(2) = Fuori90(Estratto(n,1,4) + 49)
ImpostaGiocata 1,nr,rt,pta,k,1 ' imposto la giocata e la stoppo all'uscita dell'estratto = 1
Gioca n
End If
Next
ScriviResoconto
End Sub
L’OUTPUT è il seguente :
+---------------------------------------+
| RESOCONTO |
+---------------------------------------+
| Casi esaminati : 0 |
| Casi vincenti : 0 |
| Percentuale pos. : 0 % |
| Giocate in corso : 0 |
| Giocate terminate : 0 |
| Bollette giocate : 0 |
| Bollette vincenti : 0 |
| Attesa media : 0 |
| Spesa : 0,00 € |
| Vincita : 0,00 € |
| Guadagno : 0,00 € |
| Perc. Rendimento : 0 % |
Mentre per il file “filotto 3” quello che mi hai fatto tu L’OUTPUT è il seguente (l’ho un po’ tagliato):
Prima estrazione della serie consecutiva [04716] [128] 26.10.2010
Estrazione generatrice del pronostico 04721 [133 - 06/11/2010]
G 0014
Numeri in gioco : 07.43.09.66.20.54 su BA CA FI per Ambo
N. [07.43.09.66.20.54 ] [BA] [.. .. .. .. ..] C. 1 04722 [134 - 09/11/2010]
N. [07.43.09.66.20.54 ] [CA] [.. .. .. .. ..] C. 1 04722 [134 - 09/11/2010]
N. [07.43.09.66.20.54 ] [FI] [.. .. .. .. ..] C. 1 04722 [134 - 09/11/2010]
N. [07.43.09.66.20.54 ] [BA] [.. .. .. .. ..] C. 2 04723 [135 - 11/11/2010]
N. [07.43.09.66.20.54 ] [CA] [.. .. .. .. 07] C. 2 Estratto 04723 [135 - 11/11/2010]
V N. [07.43.09.66.20.54 ] [FI] [.. .. .. 20 43] C. 2 Ambo 04723 [135 - 11/11/2010]
Interrotta per esito verificato
Prima estrazione della serie consecutiva [04717] [129] 28.10.2010
Estrazione generatrice del pronostico 04722 [134 - 09/11/2010]
G 0015
Numeri in gioco : 07.26.06.36.64.74 su BA CA FI per Ambo
N. [07.26.06.36.64.74 ] [BA] [.. .. .. .. ..] C. 1 04723 [135 - 11/11/2010]
N. [07.26.06.36.64.74 ] [CA] [.. .. .. .. 07] C. 1 Estratto 04723 [135 - 11/11/2010]
N. [07.26.06.36.64.74 ] [FI] [.. .. .. .. ..] C. 1 04723 [135 - 11/11/2010]
N. [07.26.06.36.64.74 ] [BA] [.. .. .. .. ..] C. 2 04724 [136 - 13/11/2010]
N. [07.26.06.36.64.74 ] [CA] [.. .. .. .. ..] C. 2 04724 [136 - 13/11/2010]
N. [07.26.06.36.64.74 ] [FI] [.. .. .. .. ..] C. 2 04724 [136 - 13/11/2010]
N. [07.26.06.36.64.74 ] [BA] [.. .. .. .. ..] C. 3 04725 [137 - 16/11/2010]
N. [07.26.06.36.64.74 ] [CA] [.. 36 .. .. ..] C. 3 Estratto 04725 [137 - 16/11/2010]
N. [07.26.06.36.64.74 ] [FI] [.. .. .. .. ..] C. 3 04725 [137 - 16/11/2010]
N. [07.26.06.36.64.74 ] [BA] [.. .. .. .. ..] C. 4 04726 [138 - 18/
Adesso, per alcuni file di script che prima giravano ma che nel resoconto portavano degli "0" in corrispondenza delle vincite per cui riuscivo comunque a capire,mi presenta solo il resoconto tutto pieno di 0 tipo questo:
Sub main()
' in effetti l'ho tratto dal sommativo automatico del programma
Dim rt(1) 'la ruota è una (1)
Dim nr(2) ' i nr in gioco sono 2
Dim pta(1) ' la puntata che faccio è l'estratto
pta(1) = 1 'la puntata sull'Estratto(1) è di 1 euro
rt(1) = 1 ' la ruota che è una (1) è 1 ovvero BA
k = 5 ' i Kolpi in gioco sono 5
For n = 7786 To EstrazioneFin
If IndiceMensile
= 1 Thenng = 0
nr(1) = Fuori90(Estratto(n,1,4) + 21)
nr(2) = Fuori90(Estratto(n,1,4) + 49)
ImpostaGiocata 1,nr,rt,pta,k,1 ' imposto la giocata e la stoppo all'uscita dell'estratto = 1
Gioca n
End If
Next
ScriviResoconto
End Sub
L’OUTPUT è il seguente :
+---------------------------------------+
| RESOCONTO |
+---------------------------------------+
| Casi esaminati : 0 |
| Casi vincenti : 0 |
| Percentuale pos. : 0 % |
| Giocate in corso : 0 |
| Giocate terminate : 0 |
| Bollette giocate : 0 |
| Bollette vincenti : 0 |
| Attesa media : 0 |
| Spesa : 0,00 € |
| Vincita : 0,00 € |
| Guadagno : 0,00 € |
| Perc. Rendimento : 0 % |
Mentre per il file “filotto 3” quello che mi hai fatto tu L’OUTPUT è il seguente (l’ho un po’ tagliato):
Prima estrazione della serie consecutiva [04716] [128] 26.10.2010
Estrazione generatrice del pronostico 04721 [133 - 06/11/2010]
G 0014
Numeri in gioco : 07.43.09.66.20.54 su BA CA FI per Ambo
N. [07.43.09.66.20.54 ] [BA] [.. .. .. .. ..] C. 1 04722 [134 - 09/11/2010]
N. [07.43.09.66.20.54 ] [CA] [.. .. .. .. ..] C. 1 04722 [134 - 09/11/2010]
N. [07.43.09.66.20.54 ] [FI] [.. .. .. .. ..] C. 1 04722 [134 - 09/11/2010]
N. [07.43.09.66.20.54 ] [BA] [.. .. .. .. ..] C. 2 04723 [135 - 11/11/2010]
N. [07.43.09.66.20.54 ] [CA] [.. .. .. .. 07] C. 2 Estratto 04723 [135 - 11/11/2010]
V N. [07.43.09.66.20.54 ] [FI] [.. .. .. 20 43] C. 2 Ambo 04723 [135 - 11/11/2010]
Interrotta per esito verificato
Prima estrazione della serie consecutiva [04717] [129] 28.10.2010
Estrazione generatrice del pronostico 04722 [134 - 09/11/2010]
G 0015
Numeri in gioco : 07.26.06.36.64.74 su BA CA FI per Ambo
N. [07.26.06.36.64.74 ] [BA] [.. .. .. .. ..] C. 1 04723 [135 - 11/11/2010]
N. [07.26.06.36.64.74 ] [CA] [.. .. .. .. 07] C. 1 Estratto 04723 [135 - 11/11/2010]
N. [07.26.06.36.64.74 ] [FI] [.. .. .. .. ..] C. 1 04723 [135 - 11/11/2010]
N. [07.26.06.36.64.74 ] [BA] [.. .. .. .. ..] C. 2 04724 [136 - 13/11/2010]
N. [07.26.06.36.64.74 ] [CA] [.. .. .. .. ..] C. 2 04724 [136 - 13/11/2010]
N. [07.26.06.36.64.74 ] [FI] [.. .. .. .. ..] C. 2 04724 [136 - 13/11/2010]
N. [07.26.06.36.64.74 ] [BA] [.. .. .. .. ..] C. 3 04725 [137 - 16/11/2010]
N. [07.26.06.36.64.74 ] [CA] [.. 36 .. .. ..] C. 3 Estratto 04725 [137 - 16/11/2010]
N. [07.26.06.36.64.74 ] [FI] [.. .. .. .. ..] C. 3 04725 [137 - 16/11/2010]
N. [07.26.06.36.64.74 ] [BA] [.. .. .. .. ..] C. 4 04726 [138 - 18/
L
LuigiB
Guest
Ciao Fil , non c'è bisogno di nessun indizio , gl idevi solo dire formatta tutto e reinstalla il sistema operativo.
Per Esse , non ho capito .. dove lo devo emttere il copia ?
Per Esse , non ho capito .. dove lo devo emttere il copia ?
elephantbig
Advanced Member >PLATINUM<
Ciao Luigi 
ti segnalo questo errore che da un paio di aggiornamenti si presenta quando chiudo il programma.
Basta dare l'ok e il programma si chiude e si apre la finestra di esplorer che vuole inviare il messaggio di errore a microsoft.
E' poco importante perchè il programma alla fine si chiude lo stesso.
Solo per informazione.
buona giornata
ti segnalo questo errore che da un paio di aggiornamenti si presenta quando chiudo il programma.
Basta dare l'ok e il programma si chiude e si apre la finestra di esplorer che vuole inviare il messaggio di errore a microsoft.
E' poco importante perchè il programma alla fine si chiude lo stesso.
Solo per informazione.
buona giornata
L
LuigiB
Guest
Ciao Elephant , non ho idea da cosa possa dipendere... a me non lo da ... c'è qualcuno che ha lo stesso problema di Elephant ?
L
LuigiB
Guest
Ciao Fil , formattare tutto e reinstallare il sistema operativo in parole povere vuol dire fare piazza pulita di tutto , percio se hai dei file (oltre a quelli di spaziometria ) che non vuoi perdere devi salvarteli prima della formattazione , sulla chiavetta , su un altro hard disk , su un cd/dvd ...
elephantbig
Advanced Member >PLATINUM<
X CLAUDIO E RUBINO
Ah Claudio bando alle ciance e dimmi cosa mettiamo a posto della X
Ruby,tranquillo, ho potenziato il magnete con un centinaio di Gauss in più e sto 29 ce lo attiriamo.
Buona giornata a tutti e due
Ah Claudio bando alle ciance e dimmi cosa mettiamo a posto della X
Ruby,tranquillo
, ho potenziato il magnete con un centinaio di Gauss in più e sto 29 ce lo attiriamo.
Buona giornata a tutti e due
L
LuigiB
Guest
Ciao Esse , ma parli della griglia delle estrazioni o di quella della spaziometria ?
Ad ogni modo dovrebbe essere cosi , clicco la riga , faccio copia
e la riga mi rimane in memoria per poi poterla incollare cosi com'è.
Ad ogni modo dovrebbe essere cosi , clicco la riga , faccio copia
e la riga mi rimane in memoria per poi poterla incollare cosi com'è.
R
Roby
Guest
ciao LuigiB
posso chiederti
ma "VerificaEsito" si ferma per forza al primo esito positivo ?
vorrei far fare una verifica su 13 concorsi successivi, una serie numerica, per avere tutte le ambate/ambi/terni, usciti in questi 13 concorsi di una certa ruota
If VerificaEsito(aNum,aRt,idEstrInizio,2,20,,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
Call Scrivi(GetInfoEstrazione(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & " " & RetEstratti)
Else
Call Scrivi("Esito negativo")
End If
posso chiederti
ma "VerificaEsito" si ferma per forza al primo esito positivo ?
vorrei far fare una verifica su 13 concorsi successivi, una serie numerica, per avere tutte le ambate/ambi/terni, usciti in questi 13 concorsi di una certa ruota
If VerificaEsito(aNum,aRt,idEstrInizio,2,20,,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
Call Scrivi(GetInfoEstrazione(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & " " & RetEstratti)
Else
Call Scrivi("Esito negativo")
End If
- Stato
Ultima estrazione Lotto
-
Estrazione del lotto
martedì 14 gennaio 2025Bari4125127355Cagliari5420483267Firenze7523681038Genova3327817064Milano6801648687Napoli4775451021Palermo5586335370Roma8878610607Torino7608236182Venezia2515492181Nazionale7010327807Estrazione Simbolotto
Bari
0714284531
