Per cortesia

[Sakti]

Per cortesia, vorrei sapere come posso, in uno script, ottenere la differenza o distanza tra due cifre,
es: 85 e 10 dovrebbe, nel mio script, essere 15, ma mi risulta sempre 75..
io ho scritto : x = Distanza(a,b)
Attendo cortesemente una dritta...Grazie

 

[salvo50]

Ciao Toon

A me da 15

Option Explicit
Sub Main
Dim x,a,b
a = 85
b = 10
x = Distanza(a,b)
Scrivi x   
End Sub

 

[Sakti]

Grazie mille Salvo, gentile e preciso come sempre, effettivamente ho controllato ed è esatto, ma il risultato non corrisponde, ricontrollo lo script, qualche cosa, evidentemente , mi sfugge..
Trovato l'errore, avevo invertito una variabile, grazie mille per la dritta, spero sia utile anche ad altri....

 

[Sakti]

Così a me non funziona, mi risulta 6 invece di 84....
Option Explicit
Sub Main
Dim x,a,b
a = 87
b = 81
x = Distanza(a,b)
Scrivi x
End Sub

 

[joe]

Le distanze ciclometriche si misurano in senso orario dal numero più piccolo al più grande,

tra i numeri posti sul cerchio ciclometrico.

Sono sempre minori di 46, perchè il diametro 45, è la massima distanza

tra i due numeri posti ordinatamente sul cerchio ciclometrico.

Ovvero in una coppia di diametrali.

Dunque 6 è il risultato giusto.

Sia come differenza che come distanza.

Distanza e differenza sono tuttavia 2 concetti distinti e diversi.

Per questa ragione hanno nomi diversi che rimandano a calcoli diversi.

 

[Sakti]

Quindi, come posso risolvere il problema?

 

[GioRyuKen72]

Così a me non funziona, mi risulta 6 invece di 84....
Option Explicit
Sub Main
Dim x,a,b
a = 87
b = 81
x = Distanza(a,b)
Scrivi x
End Sub

ciao @toon, può esserti utile questa riga?
If a > b Then x = ComplAdX(a) + b

in questo caso si va sempre in senso orario come mi par di aver capito ti servisse.
Saluti, Gio.

edit: fuori90 è inutile, mi sono dimenticato di cancellarlo

 

[Sakti]

Grazie mille GioRyuKen72, provato, funziona perfettamente.
In questo forum è veramente un piacere esserci, quasi Tutti
se ti serve una mano, sono disponibili e gentili.. Grazie nuovamente.

 

[GioRyuKen72]

Grazie mille GioRyuKen72, provato, funziona perfettamente.
In questo forum è veramente un piacere esserci, quasi Tutti
se ti serve una mano, sono disponibili e gentili.. Grazie nuovamente.

..mi fa piacere esserti stato di aiuto

Gio.

 

[Codicebinario]

ciao @toon, può esserti utile questa riga?
If a > b Then x = ComplAdX(a) + b

in questo caso si va sempre in senso orario come mi par di aver capito ti servisse.
Saluti, Gio.

edit: fuori90 è inutile, mi sono dimenticato di cancellarlo

GioRyuKen72.....ma che bello rileggerti !!!!!! Coservo ancora tuoi script di "illotempore".....grande !!!! grazie per iltempo che ancora dedichi a noi "miseri mortali"....un abbraccio.....

 

[Marco-elle]

Ciao Toon,
prova cosi....
Sub Main
Dim x,a,b
a = 45
b = 90
x = Abs(a-b)
Scrivi x
End Sub

 

[Marco-elle]

Ciao Toon,
prova cosi....
Sub Main
Dim x,a,b
a = 45
b = 90
x = Abs(a-b)
Scrivi x
End Sub

Per ricavare la distanza ciclometrica,uso questa funzione....
Option Explicit
Sub Main
Dim x,a,b
a = 10
b = 85
x = Abs(a - b)
If x > 45 Then x = 90 - x
Scrivi x
End Sub

 

[Marco-elle]

Che poi.....leggo ora è la stessa cosa che ti ha suggerito Gioryuken72

 

[GioRyuKen72]

GioRyuKen72.....ma che bello rileggerti !!!!!! Coservo ancora tuoi script di "illotempore".....grande !!!! grazie per iltempo che ancora dedichi a noi "miseri mortali"....un abbraccio.....

ciao @Codicebinario, sono lusingato dalle tue belle parole per me .. e ti ringrazio, ma probabilmente mi confondi con un altro utente..

comunque sia, abbraccio ricambiato..ed un caro saluto a @Marco-elle

Gio.

 

[Sakti]

Marco era una vita che non ti leggevo, un salutone...

 

[Marco-elle]

Marco era una vita che non ti leggevo, un salutone...

Ciao Toon,
io bazzico su altre sezioni,qui siete troppo complicati
e vi fate pippe mentali che io non condivido e partite
già prevenuti non essendo giocatori

 

[Sakti]

Io veramente gioco, non per arricchirmi, anche se.. , ma per divertimento e sfida con me stesso,
non gioco mai molto, ma gioco con criterio.
Oltretutto ora ci sono in giro ottime tecniche che fanno vincere ogni settimana, quindi
ci si diverte di più, peccato che io oh una memoria da formica, altrimenti con gli script
si potrebbero fare cose fantastiche.
Ciao Marco, e sappi che Tu sei uno che mi ha messo la voglia di sperimentare e divertirmi
con questo strano gioco..

 

[Marco-elle]

Io veramente gioco, non per arricchirmi, anche se.. , ma per divertimento e sfida con me stesso,
non gioco mai molto, ma gioco con criterio.
Oltretutto ora ci sono in giro ottime tecniche che fanno vincere ogni settimana, quindi
ci si diverte di più, peccato che io oh una memoria da formica, altrimenti con gli script
si potrebbero fare cose fantastiche.
Ciao Marco, e sappi che Tu sei uno che mi ha messo la voglia di sperimentare e divertirmi
con questo strano gioco..

Sono anni che seguo e nonostante l’alto tecnicismo non vedo la soluzione finale del vaso di Pandora. Per vincere qualche volta, basta avere un occhio ben allenato e basarsi sulla statistica breve e con un qualsiasi giochino si riesce a ingannare la Lottomatta. Queste cose non sono eterne e bisogna cogliere l’attimo per poi passare a altro, insomma ci vuole ingegno e tempo da passare davanti al quadro estrazionale

 

[Marco-elle]

Più volte vengo cazziato per non saper mettere i fiorellini nei listati e di non evolvermi ma….alla fine a me interessa ricavare la statistica esatta di ciò che mi impongo e non di leggerla tra tabelle gialle, rosse e verdi, tanto non è che… la Lottomatta ti paga di più la vincita

 

[i legend]

Gli script , sono una passione.
Se vedi infatti , molti vanno oltre il semplice algoritmo base . ci si ingegna per avere sempre tempi minori e soluzioni performanti ed "eleganti".
Ma come hai detto tu , non si vince di più
Ciao