aiuto script

[lla]

ciao a tutti esiste già qui sul forum uno script che faccia somme e distanze di una determinata ruota e per un numero di estrazioni a scelta?

grazie a tutti

 

[lla]

ho girato e rigirato ma non ho trovato..ci sto provando da me ma non sono capace..
per cui chiedo a chi può aiutarmi..

per fare la somma di due somme come si fa?

ovvero per sommare 2 estratti per es. col fuori 90 ho scritto anzi scopiazzato

num(1) = Fuori90(Estratto(es,BA_,1) + Estratto(es,BA_,2))



e mi funziona, ma se poi il risultato di questa somma volessi sommarlo ad un'altra somma di altri due numeri?



ho pensato di mettere una variabile superiore ma non mi funziona..

help!

c'è qualche guida su come si scrive una somma di somma?

grazie

 

[GioRyuKen72]

ciao Ila, supponendo che tu voglia sommare Ba1 e Ba2 con Ba3 3 Ba4
num1(1) = Fuori90(Estratto(es,BA_,1) + Estratto(es,BA_,2))
num2(1) = Fuori90(Estratto(es,BA_,3) + Estratto(es,BA_,4))
somma( o come vuoi tu) = fuori90(num1+num2)

Gio.

 

[lla]

e per fare la distanza ?

distanza (o forse differenza?) = fuori90(num1-num2)

ma non c'è un dizionario delle istruzioni?

grazie mille...
so che per molti di voi sono domande cretine ..ma io non sono proprio capace..

 

[GioRyuKen72]

prova con

Distanza = Differenza(Estratto(es,Ba_,1),Estratto(es,BA_,2))

 

[lla]

io vorrei fare la differenza delle 2 somme ( num1 x la somma del 1 e 2 estratto e num2 per la somma del 3 e 4

scrivendo distanza = differenza (num1-num2) non funziona, l'errore è differenza-->tipo non corrispondente
così l'ho tolta e ho scritto solo distanza = (num1-num2) oppure distanza = (num1,num2) e sembra funzionare ma poi non da il risultato..



i numeri singoli invece li avevo sottratti scrivendo così


num1(1) = Fuori90(Estratto(es,BA_,1) - Estratto(es,BA_,2))

 

[salvo50]

so che per molti di voi sono domande cretine ..ma io non sono proprio capace..

Ciao Ila

Secondo me non esistono domande cretine, è che nel primo post, ti sei espresso in modo aleatorio,

chiedi se esiste già qui sul forum uno script che faccia somme e distanze di una determinata ruota e per un numero di estrazioni a scelta, sicuramente che esiste, però cosa ti deve rispondere uno, si esiste, è logico che vuoi di più, ma devi specificare quello che chiedi, infatti nel secondo post, la richiesta è stata più dettagliata e puntualmente è arrivata la risposta.

 

[joe]

ciao Ila, supponendo che tu voglia sommare Ba1 e Ba2 con Ba3 3 Ba4
num1(1) = Fuori90(Estratto(es,BA_,1) + Estratto(es,BA_,2))
num2(1) = Fuori90(Estratto(es,BA_,3) + Estratto(es,BA_,4))
somma( o come vuoi tu) = fuori90(num1+num2)

Gio.

Teoricamente è giusto.

Praticamente è sbagliato perchè num1 e num2

non contengono le somme intermedie.

Sarebbe meglio fossero num(1) e num(2)

considerando che la prima e num(1).

Matematicamente si possono applicare le proprietà

delle somme (a+b) + (c+d) = a + b + c + d.

​​​​​​​

 

[GioRyuKen72]

Ba1 = Estratto(es,BA_,1)
Ba2 = Estratto(es,BA_,2)
Ba3 = Estratto(es,BA_,3)
Ba4 = Estratto(es,BA_,4)
Somma1 = Fuori90(Ba1 + Ba2)
Somma2 = Fuori90(Ba3 + Ba4)
Num = Differenza(Somma1,Somma2)

esempio ultima del mese di febbraio:
03-34-52-16-10
Ba1 = Estratto(es,BA_,1) 03
Ba2 = Estratto(es,BA_,2) 34
Ba3 = Estratto(es,BA_,3) 52
Ba4 = Estratto(es,BA_,4) 16
Somma1 = Fuori90(Ba1 + Ba2) 37
Somma2 = Fuori90(Ba3 + Ba4) 68
Num = Differenza(Somma1,Somma2) 31

prova così
Gio.

 

[lla]

Ba1 = Estratto(es,BA_,1)
Ba2 = Estratto(es,BA_,2)
Ba3 = Estratto(es,BA_,3)
Ba4 = Estratto(es,BA_,4)
Somma1 = Fuori90(Ba1 + Ba2)
Somma2 = Fuori90(Ba3 + Ba4)
Num = Differenza(Somma1,Somma2)

esempio ultima del mese di febbraio:
03-34-52-16-10
Ba1 = Estratto(es,BA_,1) 03
Ba2 = Estratto(es,BA_,2) 34
Ba3 = Estratto(es,BA_,3) 52
Ba4 = Estratto(es,BA_,4) 16
Somma1 = Fuori90(Ba1 + Ba2) 37
Somma2 = Fuori90(Ba3 + Ba4) 68
Num = Differenza(Somma1,Somma2) 31

prova così
Gio.

Grazie GioRyuKen72 per l'aiuto, funziona tutto tranne la differenza delle somme
provo a lavorarci un pò da me, magari è solo questione di spazi.. grazie ancora

 

[joe]

prova con

Distanza = Differenza(Estratto(es,Ba_,1),Estratto(es,BA_,2))

Potrebbe essere "giusto" ma non risolve la questione nella sostanza.

Prima, come avevo, anticipato venivano usate variabili "sbagliate" per cui si generava l'errore di sintassi:

"Tipo non corrispondente".

Poi vi è un problema di logica:

Distanza è una cosa. Differenza è una altra cosa.

Entrambe essendo parole-chiave cioè riservate ad ... istruzioni ...

non dovrebbero essere usate come nome di una variabile.

Dunque:

Distanza = Differenza(Estratto(es,Ba_,1),Estratto(es,BA_,2))

Di per sé è un doppio errore. (Uno di logica e uno di sintassi)

Che comunque risolve decidendo di eliminare una delle due differenti possibilità)

Cioè, risolve d'arbitrio, optando per la differenza (CFR messaggio #9)

Num = Differenza(Somma1,Somma2)

 

[GioRyuKen72]

Potrebbe essere "giusto" ma non risolve la questione nella sostanza.

Prima, come avevo, anticipato venivano usate variabili "sbagliate" per cui si generava l'errore di sintassi:

"Tipo non corrispondente".

Poi vi è un problema di logica:

Distanza è una cosa. Differenza è una altra cosa.

Entrambe essendo parole-chiave cioè riservate ad ... istruzioni ...

non dovrebbero essere usate come nome di una variabile.

Dunque:

Distanza = Differenza(Estratto(es,Ba_,1),Estratto(es,BA_,2))

Di per sé è un doppio errore.

Che comunque risolve decidendo.

Risolve pur d'arbitrio optando per la differenza (CFR messaggio #9)

Num = Differenza(Somma1,Somma2)

Si, Joe, hai ragione e me ne sono accorto dal colore che Distanza è un istruzione, difatti ho poi sostituito con Num
Ho provato a dare un aiuto ad Ila anche se sono alle prime armi con gli script.
Cerco sempre di capire le cose che mi possono servire dalle persone in gamba come te e come Salvo.. vorrrei nominarvi tutti, ma per evitare dimenticanze di fermo a voi 2

 

[lla]

tralasciando il discorso differenza / distanza ..mi basterebbe che facesse o l'una o l'altra, anche se sono 2 cose differenti! e poi dopo vedo con calma...
io sto solo facendo un pò di prove ...e sto cercando di partire da cose semplici..non avendo mai programmato capirete la difficoltà..
volevo riprodurre somme e distanze come in L8

con ll'aiuto di Gio ho fatto un pò di prove ..
le somme di 2 numeri e l poi le somme delle due somme le fa ..di distanza..ne ha fatta una sola (avevo messo 5/6 righe di distanze/diff. ..tipo (1-2) - (2-3)...e così via...) ma non so perchè ne ha presa una sola di istruzione .. e non riesco nemmeno a replicarla hahhaha tremendo!

grazie Gio non preoccuparti di essere alle prime armi ( io sono una zappa) e poi mi sei stato di grande aiuto !

pensa te quando passo ai diametrali

 

[lla]

noooo zitti mi vieneeee
num(1) = Distanza(Estratto(es,Ba_,1) - Estratto(es,Ba_,2),[12=90])


grazie siete fortissimi!

 

[salvo50]

Cerco sempre di capire le cose che mi possono servire dalle persone in gamba come te e come Salvo.. vorrrei nominarvi tutti, ma per evitare dimenticanze di fermo a voi 2

Mi hai messo allo stesso livello di Joe e ti ringrazio ma a livello di script non valgo neanche la millesima parte della bravura, competenza ed esperienza di Joe.

 

[joe]

Ciao Salvo ...

... qui il "top dei top" è Luigi.

Io si, ho molti anni di esperienza, ma non ho titoli di studio.

Poi c'è il lotto ... che è altra cosa.



Dicevo di Lotto ...

Distanza e Differenza sono concetti diversi.

Simili.

Spesso interscambiabili.

Quasi sempre confusi.

Questo script ... Evidenzia la distribuzione delle concordanze e discordanze tra essi.

Confusioni possibili e/o escludibili che si possono evidenziare tra i 4005 Ambi,

Option Explicit
Sub Main
   Dim A,B
   For A = 1 To 89
      For B = A + 1 To 90
         Scrivi Format2(A)& "-"  & Format2 (B) & " Distanza=Differenza="  &(Distanza(A,B) = Differenza(A,B)) 
      Next
   Next
End Sub

Del quale ... osservandone i risultati,

si rileva facilmente che quando la distanza differenza

superano il valore del diametrale ...

"i termini" acquisiscono valori assoluti differenti.

Diventa pertanto "Falso" sostenere che siano uguali.

Ovvero in generale sono cose diverse.

 

[joe]

Il mio consiglio ...

è di passare subito ad indicizzare le variabili.

Gli estratti (di Bari) sono 5.

Si DIM-mensiona E(5)

Cosicchè non servono 5 variabili e non si sovrascrive per errore,

o si rischia di commettere errori di digitazione, richiamo e l'uso di troppe variabili.

Ba1 = Estratto(es,BA_,1)
Ba2 = Estratto(es,BA_,2)
Ba3 = Estratto(es,BA_,3)
Ba4 = Estratto(es,BA_,4)

diventa:

DIM E(5)

E(1) = Estratto(Es,BA_,1)
E(2) = Estratto(Es,BA_,2)
E(3) = Estratto(Es,BA_,3)
E(4) = Estratto(Es,BA_,4)
E(5) = Estratto(Es,BA_,5)

Eppoi meglio ancora :

For P = 1 To 5

E(P) = Estratto (Es,BA_,P)

Next

Dove evidentemente tutti i 5 Estratti sono ben memorizzati

in modo semplice ed ordinato.

Ma soprattutto sono "indirizzabili" ed utilizzabili, con estrema facilità.

 

[salvo50]

Ciao a Tutti

Agli inizi facevo confusione con distanza e differenza, poi mi sono fatto uno scriptno e ho fatto delle prove e così ho capito la differenza, Più o meno era così

Option Explicit
Dim a,b,c,d,a1,a2,a3,a4
Sub Main
   a1 = 25 : a2 = 83: a3 = 25: a4 = 83
   '---------------------------------------------
   ' Calcola il più grande meno i più piccolo
   ' se il risultato supera il 45, prosegue
   ' con 90 - risultato, esempio a1 = 25, a2 = 83
   '(83 - 25 = 58) (90 - 58 = 32) il risultato
   'finale è 32, quindi il risultato non è mai
   'superiore a 45
   a = Distanza(a1,a2)
   b = Distanza(a2,a1)'anche invertendo a1, con a2
   '---------------------------------------------
   c = Differenza(a3,a4)'anche in questo caso calcola il più grande meno il più piccolo
   d = Differenza(a4,a3)'anche invertendo a3 con a4, risultato finale = 58
   Scrivi Format2(a)
   Scrivi Format2(b)
   Scrivi
   Scrivi Format2(c)
   Scrivi Format2(d)

End Sub

 

[joe]

No.

Lottologicamente la distanza è una grandezza ciclometrica.

Per esempio tra 01 e 89 è 2.

Dunque non è differenza pura (o assoluta) cioè 88.

E ... non è neppure diametrale della differenza. Cioè 88-45 = 43

Per convenzione la distanza si misura in senso orario su di un cerchio.

(Per questo è convenzionalmente sempre un numero positivo)

Dopo aver disposto i 90 numeri in cerchio alla stessa distanza unitaria.

Cioè è la lunghezza dell'arco di circonferenza che unisce i 2 numeri

sulla curva ove essi sono rappresentati.

 

[salvo50]

lo sò

Infatti

(89 -1 = 88) - (90 - 88 = 2) risultato finale 2

distanza ciclometrica 2

con la funzione DISTANZA non c'è bisogno

di fare questi calcoli, il mio era solo un

esempio per far capire il concetto