PROGRAMMA SPAZIOMETRIA

[Joe91]

Ciao Luigi,

Buon Giorno a tutte/i.

Giusto il tempo di installare e provare la nuova modifica e ... tutto sembra funzionare benissimo.

Come in ipotesi, è possibile avere il tabellone Analitico Completo. TUTTO in miniatura,

in meno del 50% dello spazio del desktop e su esso sviluppare spaziometrie diversamente impossibili.

Ottima anche la lente di ingrandimento.

Grazie.

 

[LuigiB]

perfetto Joe .. ma il triangolo come lo hai disegnato inxollando lo screenshoot su paint ?

 

[Settenario]

No Title

buonasera Luigib, la versione 1.5.44 non carica l'archivio del 10 e lotto legato all'estrazione del lotto.......

 

[LuigiB]

purtroppo dall 'immagine non si capisce perche è troppo piccola , comunque a me funziona vediamo se altri hanno il tuo stesso problema

 

[Joe91]

perfetto Joe .. ma il triangolo come lo hai disegnato inxollando lo screenshoot su paint ?

Si.

Ci sono molti metodi ... anche spesso visivi, che comunque con un tabellone, corposetto,

come quello che hai realizzato permette di individuare facilmente geometrie interessanti.

Ancora ... BRAVO.

GRAZIE.

 

[LuigiB]

Grazie , te lo chiedevo perche nel caso posso iplemtare alcune funzioni di paint direttamente nella griglia

 

[Roby]

Buongiorno,
Salutando tutti.
Volevo solo informare che il link al forum Lottoced, non funziona, penso sia quello vecchio.
Un informazione in VerificaEsito per fare il controllo a Tutte le ruote , devo per forza elencare tutte le ruote o posso inserire direttamente r=TU_.
Forse posso ovviare con un cilclo

for r=1 to 12
Call VerificaEsito
next

Grazie e di nuovo complimenti.

 

[Joe91]

Ciao ...

Da quel che vedo ... devi inserire in Array le ruote interessate alla ricerca (nel caso 10).

In questo script di verifica ... ho inserito ... un controllo con altra istruzione ...

che ritrova la/le ruota/e nelle quali è presente la caduta dell' Ambo.

Per il link non ho capito.

Sub Main
Dim Nu(5),Ru(10),RV(1)
For R = 1 To 10
Ru(R) = R
Next
For N = 1 To 5
Nu(N) = N
Next
Scrivi StringaNumeri(Nu)
For Es = EstrazioneFin - 155 To EstrazioneFin
VerificaEsito Nu,Ru,Es,2,1,,V
Scrivi ES & "  " & V & " ",False,False
For R = 1 To 10
RV(1) = R
If SerieFreq(Es,Es,Nu,RV,2) > 0 Then Scrivi SiglaRuota(R) & " ",False,False
Next
Scrivi
Next
End Sub

 

[LuigiB]

Si nella funzione verifica esito il vettore va alimentato con tutte le ruote , ma piu che altro perche mi sono dimenticato di gestire io il valore TU_ ora lo gestirò e dalla prossima versione si potra passare pure TU_ per indicare solo ed esclusivamente le 10 ruote canoniche.
La link intendi quella nel menu info ? PRobabile .. mai cambiata ...

 

[Mike58]

Per Disaronno, io usavo fare così per il verifica esito su Tutte.
Per Luigi Ottimo gestire la funzione su Tutte.

Sub Main

Dim Nu(2)

Ini = EstrazioneFin-10

fin = EstrazioneFin

For es = Ini To fin

Nu(1) = 9

Nu(2) = 90

ReDim RT(10)

For rr = 1 To 10

RT(rr) = rr

Next

Call VerificaEsitoTurbo(Nu,RT,es+1,1,1,,esito,,estratti,id)

Scrivi GetInfoEstrazione(es) & vbTab,0,0

Scrivi StringaNumeri(Nu,,1) & vbTab,0,0

Scrivi estratti & vbTab,0,0

If esito <> "" Then

Scrivi DataEstrazione (id)

Else Scrivi ""

End If

Next

End Sub

 

[Tot42]

Un buona giornata a tutte/i. Ciao Luigi ho riscontrato un problema con i tabelloni e le statistiche che non operano più con gli archivi paralleli mentre andavano bene sino alla 1.5.38. puoi dare una controllatina, sono tornato alla 38. Altra cosa che avrei voluto chiederti da tanto ma non riesco ad avere i numeri reali se trovo un numero od una formazione matura in un archivio parallelo, come si potrebbe ovviare? scusami e grazie per tutto. Salvatore

 

[Tot42]

Scusa ancora Luigi la parte relativa alla possibilità di avere i numeri reali dimenticavo di dire che riguarda le ricerche fatta a tutte le ruote perchè per le singole ruote avevi già provveduto mentre per la rispondenza a tutte le ruote il risultato da sempre 0 un saluto Salvatore

 

[LuigiB]

il problema sull'archivio parallelo si dovrebbe essere risolto con questa nuova versione

 

[AndyLotto]

No Title

Gentile Luigi buongiorno,
ho provato a re-installare la nuova versione rilasciata ma il famigerato errore:

[MDIForm1.CreaMenu]
429- Il componente ActiveX non può creare l'oggetto Linea errore 50

Permane. Ho XP sul quale, fino a qualche versione fa, Spaziometria girava che è una meraviglia.
Ora il risultato è visibile nelle foto che allego. Una che evidenza l'errore e l'altra come procede il programma.
Infatti il programma non si chiude e sembra funzionare regolarmente...solo che non vedo i menu...

A nessun altro succede tal malaffare?
Sono il solo?
LottoMusic

 

[LuigiB]

ciao lottomusic , se hai xp deve funzionare senza dubbio .. si sarà incasinato qualcosa.
Hai letto la procedura da fare proprio nel tuo caso presente nel primo post ?
Hai scaricato il file controlli menu ? lo hai installato ?

 

[ppaaoolloo]

Ciao Grazie della segnalazione correggerò il problema sulla data dell'ultima uscita

ciao Luigi
sono stato un po assente nell'ultimo periodo per problemi vari,
e ritornando ho visto che hai già fatto molte altre versioni,
sei già alla 1.5.46

mi permetto di segnalarti che
in tabelloni>valori massimi
la colonna "data uscita" e "Data Inizio Ritardo"
sono uguali
mentre io pensavo che "data uscita" facendo delle prove
con estrazioni precedenti mi avrebbe dato la data in cui
la combinazione sarebbe uscita

già che ci sono ne approfitto per chiederti ancora un'altra cosa:
mi capita molto spesso di utilizzare il "Postit", ci scrivo varie
cose che vorrei memorizzare, ma poi ogni volta che chiudo il programma
non mi rimane più nulla in memoria cosicchè la volta dopo che
riutilizzo il programma mannaggia mannaggia non mi ricordo più niente...
la mia richiesta sarebbe se è possibile salvare e memorizzare i vari postit
o meglio ancora poterli "fissare" nelle varie finestre delle varie ricerche o dei vari script

spero di essere stato chiaro e di averti spiegato bene nonostante la mia stanchezza

ti ringrazio molto per la tua sempre generosa disponibilità

fammi sapere

ciao

 

[AndyLotto]

Buongiorno Luigi, ho 3 Pc con XP e ovunque compare questo maledetto errore.
Ho seguito la procedura di Controllimenu ma senza ottenere il risultato voluto.
Il fatto è che io su questi 3 PC ho aggiornato solo Spaziometria e da qualche versione non funziona più, o meglio, non crea più la barra menu.

Faccio appello se a qualcuno ha XP tutto giri e funzioni regolarmente.
Non sono un programmatore ma l'errore sembrerebbe ben circoscritto...
Attendo fiducioso

 

[LuigiB]

Lottomusic purtroppo attendendo non si risolve mai niente. Prendi uno di questi 3 pc e riformattalo

 

[claudio8]

x LottoMusic A me funziona perfettamente con l'XP

 

[AndyLotto]

Sono riuscito finalmente a farlo funzionare su uno dei 3 PC. Risultato ottenuto ri-ri-facendo la procedura ControlliMenu