Novità

Spaziometria nuova versione

  • Creatore Discussione Creatore Discussione LuigiB
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
io gli spaghetti aglio e olio li so fare e bene anche, e li mangerei anche ora.

ma a dire il vero, mi mancano e non so farli quelli all'amatriciana, mannaggia, mangiati vicino a ponte milvio a roma,non li scordero' mai.-----------
le cause da te citate per me sono arabe eheheheh
il fulcro pari ho letto ora nell'help che non riesco a copiare e incollare, funziona cosi se ho capito bene
sulla colonna del superenalotto si contano i numeri pari
se troviamo i pari alla cesella 1 -2-4 fa sette e si divide per tre, le tre caselle appunto e il risultato e' 2
non so spiegare meglio
 
eheheh con questa tua ultima spiegazione siamo apposto abbiamo trovato un filtro che taglia tutto il tagliabile ...perche non ci ho capito niente .. ciao
 
x luigi b

ciao e scusami
volevo sapere se puoi fare una cosa, cioe' modificare il pannello dei numeri
a quello attuale fare un pannello in questo modo
da 1 a 15
16-30
ecc grazie millemille
 
Modificato comportamento funzione scrivi negli scirpt
Immagine.jpg


inserita nuova funzione negli script che consente di impostare a runtime la modalita
di comportamento della funzione Scrivi sovrapponenendosi alle impostazioni di configurazione
gia presenti senza pero cancellarle.
In questo modo chiamando la funzione all'inizio dello script si è sicuri che qualunque siano
le impostazioni sul pc dove girerà esso dara sempre l'output che ci si aspetta.
La funzione in questione documentata nell'help è SetComportamentoACapo

Inserita nuova funzione negli script per generare una combinazione casuale di numeri
tale funzione è utile se si vogliono sviluppare colonne da un elevato numero di numeri nel pronostico
invece di svilupparle tutte si sviluppano in modo casuale sarà poi la logica dello script a decidere quando
fermare lo sviluppo la funzione è GetColonnaCasuale


inserite ben 1759 matrici per i sistemi ridotti da 4 a 90 numeri nel pronostico
sviluppabili in classe da 3 a 10 (matrici prese dal sito La Jolla Covering Repository Tables)


inserimento di nuove tipologie di condizioni per i sistemi condizionati : ParalleliNumerici , SimmetrieNumeriche , Fulcro

Modifiche generiche anche in altre parti del programma
 
Ultima modifica di un moderatore:
xluigib
ciao
un immenso grazie per quello che fai , sempre in debito eheheh
ho provato un po' le migliorie , piu' o meno ci siamo
solo le colonne di grandi dimensioni, alla fine va in overflow diciamo, il programma si ferma e sparisce
anche se lo lancio non va
devo o riavviare
o usare alt ctrl can e terminare l'applicazione
 
io la prova del sistema di 3 miliardi di colonne l'ho fatta e non va in nessun overflow .. a che sistema ti riferisci ?
 
ciao luigi
ne sto rifacendo un altro, sempre al superenalotto e classe 6, vedo alla fine che fa....
ne avevo fatto uno , salvato le colonne per statistica formazioni registrate e anche li mi da out of memory
ma non e' un problema, le ridurro' ancora
 
si ma se devo risolvere il problema dell'overflow dovresti dirmi bene cosa hai fatto ...
 
x luigib
ho fatto un sistema, 36 numeri
in classe 10
ho messo cadenze 0123 mi pare, l'ha sviluppato, ma alla fine e' uscito
7-out of memory
 
Ho provato ad implementare la nuova eccezionale funzione :) ma...

Ho provato ad implementare la nuova eccezionale funzione :) ma...

Modificato comportamento funzione scrivi negli scirpt
Immagine.jpg


inserita nuova funzione negli script che consente di impostare a runtime la modalita
di comportamento della funzione Scrivi sovrapponenendosi alle impostazioni di configurazione
gia presenti senza pero cancellarle.
In questo modo chiamando la funzione all'inizio dello script si è sicuri che qualunque siano
le impostazioni sul pc dove girerà esso dara sempre l'output che ci si aspetta.
La funzione in questione documentata nell'help è SetComportamentoACapo

Inserita nuova funzione negli script per generare una combinazione casuale di numeri
tale funzione è utile se si vogliono sviluppare colonne da un elevato numero di numeri nel pronostico
invece di svilupparle tutte si sviluppano in modo casuale sarà poi la logica dello script a decidere quando
fermare lo sviluppo la funzione è GetColonnaCasuale


inserite ben 1759 matrici per i sistemi ridotti da 4 a 90 numeri nel pronostico
sviluppabili in classe da 3 a 10 (matrici prese dal sito La Jolla Covering Repository Tables)


inserimento di nuove tipologie di condizioni per i sistemi condizionati : ParalleliNumerici , SimmetrieNumeriche , Fulcro

Modifiche generiche anche in altre parti del programma

Carissimo , grazie infinite per aver implementato anche questa ennesima chicca GetColonnaCasuale che anche io ti avevo suggerito qui :o

A tal proposito ho provato subito ad implementarla in quello script così

Codice:
Option Explicit
Sub Main
'queste righe dichiarano le variabili che sono richiamate nello script.


Dim k
Dim Classe
Dim aCol
ReDim aNum(90)
Dim i
Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate
Dim ColTot
'ReDim aRuote(1)


ReDim aNum(0)
QuantitaNumeriScelti = ScegliNumeri(aNum)


ReDim aRuoteSel(12)
'RuoteSelezionate = ScegliRuote(aRuoteSel)


'tentativo di identificare la/e ruota/e selezionata/e


    'Dim RuoteSelezionate
    'Dim k
    ReDim aRuoteSel(12)
    RuoteSelezionate = ScegliRuote(aRuoteSel)
    
    Call Scrivi(" ---------------------------------------------------------------- ")
    Call Scrivi(" Le ruote sottostanti nella ricerca vengono considerate SEPARATE! ")
    Call Scrivi(" ---------------------------------------------------------------- ")




    For k = 1 To RuoteSelezionate
        Call Scrivi("Scelta ruota " & NomeRuota(aRuoteSel(k)) & " - " & SiglaRuota(aRuoteSel(k)))
        
    Next


'----------fine dichiarazione variabili-------------------------------


'Assegno alla sorte ricercata il valore 3
nSorte = 3


'Assegno al valore k i possibili numeri da 1 a 90 e ci costruisco un array aNum
'For k = 1 To 90
'aNum(k) = k
'Next




'Assegno alla variabile classe il valore 5 ovvero chiedo di generare le cinquine
Classe = 6


'Con questa espressione chiedo la generazione effettiva di tutte le cinquine


ColTot = GetColonnaCasuale(Classe,aNum)


'Si chiede di sviluppare tutte le combinazioni
If ColTot > 0 Then


Do While GetCombSviluppo(aCol) = True


i = i + 1


ReDim aRuoteTmp(1)


For k = 1 To RuoteSelezionate


'Call Scrivi("Scelta ruota " & NomeRuota(aRuoteSel(k)) & " - " & SiglaRuota(aRuoteSel(k)))


aRuoteTmp(1) = aRuoteSel(k)


RetRit1 = RitardoCombinazioneTurbo(aRuoteTmp,aCol,nSorte,Fine)
'Se questi ritardi sono maggiori di 1830 estrazioni
If RetRit1 > 0 Then
'Call Scrivi("---QUI CI ANDREBBE IL NOME DELLA RUOTA ANALIZZATA---")
'si scrive a video il numero di combinazione generata , la combinazione generata e il suo RA
Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & " RA: " & RetRit1 & " RUOTA: " & NomeRuota(aRuoteSel(k)))
End If


'---Procedura analoga per la ruota di CA e FI
'fine procedura analoga per CA e FI


'Si genera una barra verde... che ci segnala dove siamo e quanto manca per il termine dell'elaborazione...


Call AvanzamentoElab(1,ColTot,i) 'QUESTO E' IL TENTATIVO PER LA PROGRESS BAR


'Si scrive insieme alla barra il numero di colonna in fase di elaborazione...
Call Messaggio("Colonna " & i)
'Se si preme lo "STOP" del bottone apposito durante l'esecuzione dello script questo s'interrompe.
If ScriptInterrotto Then Exit Do
Next
Loop
End If
End Sub


(vedi anche immagine)

helpxnuovafunction.jpg


ma nonostante non dia errori non mi visualizza neppure nulla...

Non riesco a trovare l'intoppo. :(

In sostanza ho soltanto sostituito ColTot = InitSviluppoIntegrale(aNum,Classe)
con ColTot = GetColonnaCasuale(Classe,aNum) avvalendomi solo del consiglio automatico che si ottiene
digitando la funzione... in quanto anche cercando nell'help, essendo nuova di zecca, non ci sono dettagli di
utilizzo in merito.

Please help me Big Master! Thanksss! :o
 
Ultima modifica:
mi sa che un giorno o l'altro il big master sarò costretto a tirartelo in testa :-) .. scherzi a parte ecco lo script che sta pure negli script di test , e poi anche nell'help c'è la nuova funzione documentata.
Ciao
Codice:
Option Explicit
Sub Main
	
	Dim k
	For k = 1 To 1000
		ReDim aRetCol(0)
		Call GetColonnaCasuale(6,aRetCol)
		Call Scrivi(StringaNumeri(aRetCol,,True))
		
	Next
End Sub
 
Ciao Luigi, BuonGiorno a tutti.

Esplicito un mio pensiero scriptico-sillogico.

SE consideriamo ad esempio il set di istruzioni Serie (Frequenza/Ritardo/Storico ecc. ecc.)

Esse tutte necessitano di parametri (Inizio,Fine,Numeri,Ruote,Sorte)

Quindi ad ognuna “Serie” si riferisce un “set” di parametri e …

Ad ogni set di parametri si riferisce all’istruzione “SerieXYZ” che la precede.

Così fosse anche per “Scrivi”…

Scrivi “Pippo” avrebbe come parametri di default “,0,1

cioè Normale=Non Bold e l’eventuale “Scrivi” SUCCESSIVO sarà scritto su una nuova linea.

Nella prima linea successiva. Come è logico ed è sempre stato.

Se volessimo invece che quanto scritto successivamente … rimanesse sulla “sulla stessa linea”

si varierebbe il secondo-parametro e Scrivi “Pippo”,0,1 … diventerebbe Scrivi “Pippo”,0,0

A cui possono seguire “Enne” altri Scrivi “Altro”,0,0 che rimangono nella medesima linea.

Per chiudere/scrivere la linea andando “Acapo” s’userebbe … Scrivi ”” che avendo parametri di default “,0,1” ,

o un più esplicito: Scrivi "qualcosa",0,1

manderebbe effettivamente ”Acapo” il risultato del successivo “Scrivi”.

Questo sillogismo, d’ uso-parametrale, permetterebbe di non dover settare extra-parametri (RunTime)

o di aggiustare lo script, per renderlo compatibile a parametri e/o ambienti eventualmente differenti.

Ad esempio, mi aspetto che uno script semplice come questo:

Codice:
Sub Main
SP = " | "
Scrivi "RUOTA" & SP,0,0
For R = 1 To 10
Scrivi SiglaRuota ( R ) & SP ,0,0
Next
Scrivi " TOTALE"
SCRIVI “Risultati ”
End Sub
Produca Sempre:

RUOTA | BA | CA | FI | GE | MI | NA | PA | RO | TO | VE |TOTALE

Risultati
<<< nella prima linea successiva, senza linee vuote … (perché non previste dallo script)

Tutto ciò indipendentemente dalla “macchina” su cui viene eseguito lo script,

senza la necessità (da cui deriva un obbligo, da molti ingestibile) di altri settaggi.

Specifico, che non ho necessità di vedere accolta questa mia riflessione e condivisione di esperienze,

sapendo che non è indispensabile che lo sia, ed anche… che avendo accessibili i parametri del Run-Time,

è possibile ormai trovare combinazioni di questi settaggi, capaci di rendere compatibili eventuali differenze di

impostazioni e/o logica (negli script(eventualmente modificabili)).

Pertanto, mi scuso con Luigi per l’insistenza, ma è volta a migliorare il Programma

sapendo quanto è difficile, far ottenere e migliorare ancora Spaziometria in questo suo ruolo

ormai indiscutibile di Programma Superiore, ai competitor, anche commerciali.

Grande Luigi (a prescindere!).

Un cordiale saluto.
 
Ultima modifica:
Ciao Joe , proprio nell'intento di rendere compatibile lo script con altri programmi ho introdotto quella nuova funzione di cui ho parlato qualche post fa.

In pratica gli script per spaziometria se vogliono essere compatibili con lottodesk devono lanciare per prima cosa
questa istruzione precisa
Call SetComportamentoACapo ( True,False)

chi usa lo script in lottodesk la deve semplicemente remmare.

usando questa chiamata con quei parmetri mi pare che l'output esca proprio come te l 'aspetti anche
nell'altro programma.
Quello che posso fare è rendere queto tipo di impostazione quella di default cosi all'atto pratico quei parametri non bisogna manco toccarli se non si è interessati e volendo si puo evitare anche di lanciare la chiamata alla suddetta funzione

quindi ricapitolando o nel proprio script si richiama la funzione

Call SetComportamentoACapo ( True,False)


oppure si impostano i parametri in questo modo nelle opzioni per ottenere lo stesso risultato
Immagine.jpg


tali parametri per chi installa da zero diventeranno per default , naturalmente chei ha gia spaziometria deve cambiare
le opzioni se necessario.

Verifica questa soluzione e fammi sapere , nel caso non funzioni metti lo script di test cosi poi vediamo.
 
mi sa che un giorno o l'altro il big master sarò costretto a tirartelo in testa :-) .. scherzi a parte ecco lo script che sta pure negli script di test , e poi anche nell'help c'è la nuova funzione documentata.
Ciao
Codice:
Option Explicit
Sub Main
    
    Dim k
    For k = 1 To 1000
        ReDim aRetCol(0)
        Call GetColonnaCasuale(6,aRetCol)
        Call Scrivi(StringaNumeri(aRetCol,,True))
        
    Next
End Sub


In attesa della "botta in testa dal grande guru" :) posto questa piccola semi-ottimizzazione dell'ultima sua chicca ovvero la generazione randomica di n combinazioni e di n classi! Semi in quanto adesso credo si possa bloccare in ogni momento lo script ma non riesco a far partire le barre verdi della progress bar :(:). Se qualcuno/a interviene per ottimizzarla in tal senso ben venga! Io ho provato con:

Call AvanzamentoElab(0,UBound(aRetCol),k)
o con
'Call AvanzamentoElab(1,aRetCol,k)

ma nulla... :mad::D

Codice:
Option Explicit
Sub Main
Dim k
For k = 1 To 100000
ReDim aRetCol(0)


Call GetColonnaCasuale(6,aRetCol)
Call Scrivi(StringaNumeri(aRetCol,,True))


'Call AvanzamentoElab(1,aRetCol,k) 'QUESTO E' IL TENTATIVO PER LA PROGRESS BAR
Call AvanzamentoElab(0,UBound(aRetCol),k)


'Si scrive insieme alla barra il numero di colonna in fase di elaborazione...
Call Messaggio("Colonna " & k)
'Se si preme lo "STOP" del bottone apposito durante l'esecuzione dello script questo s'interrompe.


If k Mod 1000 = 0 Then
Call Messaggio("Colonna : " & k)
If ScriptInterrotto Then Exit For
'Call AvanzamentoElab(0,UBound(aRetCol),k)


End If


Next
End Sub

Ovviamente quel qualcuno/a può essere anche il Gran Mogol col manganello... (for me) :p:o
 
ciao tom scusa perche non ci riesci ?

spiegami quuesta istruzione e dimmi perche hai usato quei parmetri
Call AvanzamentoElab(0,UBound(aRetCol),k)
 
ciao tom scusa perche non ci riesci ?

spiegami quuesta istruzione e dimmi perche hai usato quei parmetri
Call AvanzamentoElab(0,UBound(aRetCol),k)


Forse ce l'ho fatta Master! :D Sono andato a leggere il funzionamento della funzione è ho sostituito i valori min e max dell'elaborazione e lasciato k come valore di progressione...

Call AvanzamentoElab(1,100000,k)

e adesso sembra funzioni! :p

Provo a buttare là una spiegazione riguardo l'errore che facevo: Gli altri cod provati erano relativi alla progress bar per gli altri tipi di calcoli e quindi qui non venivano considerati...

Grazie per l'aiuto telepatico Grande Maestro Jedy! ;)
 
Ultima modifica:
Pekke? :]

Pekke? :]

perchenonconsideraanum.jpg

:confused::rolleyes::o

Pezzo di codice relativo:

Codice:
Dim valoreInizioelaborazione
Dim valorefineelaborazione


ReDim anum(0)
QuantitaNumeriScelti = ScegliNumeri(anum)


valoreInizioelaborazione = 1
valorefineelaborazione = QuantitaNumeriScelti +1


Dim Classe


ReDim aRetCol(0)




Classe = 3




For k = valoreInizioelaborazione To valorefineelaborazione


Call GetColonnaCasuale(Classe,anum)


'Call Scrivi(StringaNumeri(aRetCol,,True))




sorte = 1

In pratica, come ho scritto anche nell'immagine sopra, anum non viene minimamente considerato e i numeri in elaborazione sono sempre da 1 a 90 anche se in tabella scelgo ad esempio solo 1,2,3,4,5,6,7,8,9,10 :confused:

Grazie e buon week end GRANDISSIMOOO! :o
 
Ultima modifica:
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 25 gennaio 2025
    Bari
    13
    87
    02
    10
    73
    Cagliari
    55
    40
    76
    82
    50
    Firenze
    23
    51
    44
    84
    72
    Genova
    49
    56
    19
    48
    64
    Milano
    40
    27
    80
    13
    47
    Napoli
    67
    37
    02
    75
    81
    Palermo
    25
    28
    11
    31
    40
    Roma
    20
    25
    59
    10
    22
    Torino
    82
    02
    19
    89
    84
    Venezia
    06
    59
    65
    53
    61
    Nazionale
    45
    72
    80
    76
    32
    Estrazione Simbolotto
    Bari
    16
    41
    08
    11
    43

Ultimi Messaggi

Indietro
Alto