Non riesco a interpretare questa riga

[joe]

Ciao Salvo.

Controllerò su altre macchine.

 

[i legend]

ciao a tutti
penso dipenda dal punto "3.1"

domanda : cosa si vuole ottenere con lo script iniziale?

ciao a tutti

 

[salvo50]

ciao a tutti
penso dipenda dal punto "3.1"

domanda : cosa si vuole ottenere con lo script iniziale?

ciao a tutti

Ciao I Legend!

Da qualsiasi cosa dipenda è strano che che da un computer a un'altro il risultato sia diverso ed è giusto che sia 7.

Per la domanda cosa si vuole ottenere, era solo un modo simpatico da parte di Joe nel farmi comprendere meglio la differenza tra numero e stringa.

 

[i legend]

Ciao aa tutti.
Ciao Salvo mi riferivo allo script iniziale. Non agli esempi di Joe. Volevo capire come interpretare i dati in output. Ciao e buona serata a tutti .

 

[salvo50]

Ciao a Tutti!

Ho fatto la prova su un altro computer, con sistema operativo windows10 ed il risultato di - int + int - è venuto 7, mi sta venendo un dubbio, ma è possibile che il mio computer nei calcoli mi sbaglia anche altri risultati, come sistema operativo ho windows7, ma non credo che possa dipendere da questo.

 

[genios]

X i legend :

domanda : cosa si vuole ottenere con lo script iniziale?

Lo script calcola la somma dei 10 ritardi consecutivi a step 10 ritardi .

Quello a cui vorrei arrivare e calcolare i 10 ritardi consecutivi a step 1 .

Classificare i ritardi cosi ottenuti a fasce di ritardo .

Trovare i 10 o 15 ritardi consecutivi max

In ultimo cercare di dare una una spiegazione di probabilità matematica al verificarsi della somma di 10 ritardi consecutivi.

Ciao Eugenio

 

[joe]

Buon giorno a tutte/i.

x Salvo:

Ho controllato lo stesso script su quasta macchiana con L8

e funziona allo stesso modo, cioè con gli stessi risultati che ho mostrato al messaggio # 21.

Cosi pure su 2 altri PC ... sia con Spaziometria che con L8 v.31 e v.34.

Anche su una virtual-box-oracle ed una vecchia versione di Spaziometria,

i risultati sono tutti uguali.

Int (3.1) = 3

Puoi provare ad utilizzare una funzione simile

sostituendo Int con Fix.

 

[genios]

A me da gli stessi risultati di Joe.

A = 3.1
B = 4
A + B = 3.14

Int (A) = 3
Int (B) = 4
Int (A) + Int (B) = 7

Eval (A) = 3.1
Eval (B) = 4
Eval (A) + Eval (B) = 7.1

CInt(A + B) = 3
Eval(A + B) = 3.14

 

[salvo50]

Niente da fare, il risultato di - fix + fix - è 35, ho cambiato la parte dove fa l'addizione

Scrivi "Int (A) + Int (B) = " & Fix(A) + Fix(B)




[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/s12.postimg.org\/qw9wvzz3h\/DAJOE.png"}[/IMG2]

 

[LuigiB]

ciao Salvo , dato che non ho seguito tutto mi metti lo script che hai usato per ottenere l'output si cui hai messo l'immagine ?

 

[salvo50]

L'ho notato solo adesso, guardando l'ultimo post di Genios, anche Int (a) è sbagliato, a me restituisce 31 ed a Genios 3

 

[genios]

Salvo50 non mi sembra che i miei dati siano diversi da quelli di Joe .

Ma non potresti postare lo script ?

Ciao Eugenio

 

[i legend]

Ciao a tutti
salvo Int restituisce un numero intero , arrotonda i valori
Ciao Luigi anche io ho lo stesso risultato di salvo a meno che non sostituisca il punto con la virgola ma in quel caso non funziona eval
ciao eugenio grazie per la spiegazione
Ciao a tutti

 

[salvo50]

Scusa Eugenio, ma io con quel commento volevo dire che i tuoi risultati erano giusti ed i miei sbagliati, mi sembrava logico.

Ciao LuigiB e scusami non avevo notato il tuo post, gli script sono quelli che mi ha dato Joe, li posto tutti e due

Option Explicit
Sub Main
Dim A,B,C
A = "3.1"
B = "4 "
C = "C"  
Scrivi A + B + C
Scrivi CInt(A + B)  
Scrivi Eval(A + B)
Scrivi Eval(C)
'Scrivi Int (C) 'produce errore
Scrivi Eval(A) + Eval(B)
Scrivi Int(A) + Int(B)  
End Sub

 Option Explicit
Sub Main
    Dim A,B
    A = "3.1"
    B = "4 "
    Scrivi "A = " & A
    Scrivi "B = " & B
    Scrivi "A + B  = " & A + B
    Scrivi
    Scrivi "Int (A) =  " & Int(A)
    Scrivi "Int (B) =  " & Int(B)
    Scrivi "Int (A) + Int (B) = " & Int(A) + Int(B)
    Scrivi
    Scrivi "Eval (A) =  " & Eval(A)
    Scrivi "Eval (B) =  " & Eval(B)
    Scrivi "Eval (A) + Eval (B) = " & Eval(A) + Eval(B)
    Scrivi
    Scrivi "CInt(A + B) = " & CInt(A + B)
    Scrivi "Eval(A + B) = " & Eval(A + B)
End Sub

 

[LuigiB]

ciao Salvo , fermo restando che in caso di dubbi bisogna sempre andare nell'help di vbscript (help ufficiale microsoft) accessibile da spaziometria nelal finestra degli script dal menu help alla voce "Documetazione ufficiale vbscript" per vedere la spiegazione delle funzioni , il tuo problema che tra l'altro capita anche a me ,
ma non si stratta di un problema , dipende dalle impostazioni internazionali del sistema operativo , è quello il motivo per cui il 3,1 (scritto 3.1) te lo scambia per 31 , in pratica per lui il punto è un separatore non la virgola altrimenti come scritto nell'help sia int che fix tolgono la parte frazionaria di un numero e ti avrebbe restituito 3.
Sono particolari a cui si deve fare attenzione nel senso che potrebbe darsi che uno prova lo script sul suo pc e funziona mentre poi un altro utente non ha gli stessi risultati su un altra macchina

altra cosa importante è che il "+" in caso di stringhe ha la stessa funzione d i"&" ovvero concatena le stringhe quindi l'istruzione

Scrivi "A + B  = " & A + B

che ti da 3.14 , sta concatenando due stringhe , in quanto nel momento di valorizzare a e b sono state usate le virgolette


ciao ,,


Ciao Legend ... anche tu avrai le mie stesse impostazioni probabilmente ...

[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/s15.postimg.org\/dy8mrr01n\/Immagine.png"}[/IMG2]
caricare immaginicertificity.com

 

[genios]

Li ho fatti girare questi i risultati :

[B]Option[/B] [B]Explicit[/B]
[B]Sub[/B] [B]Main[/B]
[B]Dim[/B] [B]A[/B],[B]B[/B],[B]C[/B]
[B]A[/B] [B]=[/B] "3.1"
[B]B[/B] [B]=[/B] "4 "
[B]C[/B] [B]=[/B] "C"
[B]Scrivi[/B] [B]A[/B] [B]+[/B] [B]B[/B] [B]+[/B] [B]C[/B]
[B]Scrivi[/B] [B]CInt[/B]([B]A[/B] [B]+[/B] [B]B[/B])
[B]Scrivi[/B] Eval([B]A[/B] [B]+[/B] [B]B[/B])
[B]Scrivi[/B] Eval([B]C[/B])
      'Scrivi Int (C) 'produce errore
[B]Scrivi[/B] Eval([B]A[/B]) [B]+[/B] Eval([B]B[/B])
[B]Scrivi[/B] [B]Int[/B]([B]A[/B]) [B]+[/B] [B]Int[/B]([B]B[/B])
[B]End[/B] [B]Sub[/B]  
       
 [SIZE=16px][B]3.14 C[/B][/SIZE]  
 [SIZE=16px][B]3[/B][/SIZE]  
 [SIZE=16px][B]3,14[/B][/SIZE]  
 [SIZE=16px][B]C[/B][/SIZE]  
 [SIZE=16px][B]7,1[/B][/SIZE]  
 [SIZE=16px][B]7[/B][/SIZE]

[B]Option[/B] [B]Explicit[/B]
[B]Sub[/B] [B]Main[/B]
[B]Dim[/B] [B]A[/B],[B]B[/B]
[B]A[/B] [B]=[/B] "3.1"
[B]B[/B] [B]=[/B] "4 "
[B]Scrivi[/B] "A = " [B]&[/B] [B]A[/B]
[B]Scrivi[/B] "B = " [B]&[/B] [B]B[/B]
[B]Scrivi[/B] "A + B  = " [B]&[/B] [B]A[/B] [B]+[/B] [B]B[/B]
[B]Scrivi[/B]
[B]Scrivi[/B] "Int (A) =  " [B]&[/B] [B]Int[/B]([B]A[/B])
[B]Scrivi[/B] "Int (B) =  " [B]&[/B] [B]Int[/B]([B]B[/B])
[B]Scrivi[/B] "Int (A) + Int (B) = " [B]&[/B] [B]Int[/B]([B]A[/B]) [B]+[/B] [B]Int[/B]([B]B[/B])
[B]Scrivi[/B]
[B]Scrivi[/B] "Eval (A) =  " [B]&[/B] Eval([B]A[/B])
[B]Scrivi[/B] "Eval (B) =  " [B]&[/B] Eval([B]B[/B])
[B]Scrivi[/B] "Eval (A) + Eval (B) = " [B]&[/B] Eval([B]A[/B]) [B]+[/B] Eval([B]B[/B])
[B]Scrivi[/B]
[B]Scrivi[/B] "CInt(A + B) = " [B]&[/B] [B]CInt[/B]([B]A[/B] [B]+[/B] [B]B[/B])
[B]Scrivi[/B] "Eval(A + B) = " [B]&[/B] Eval([B]A[/B] [B]+[/B] [B]B[/B])
[B]End[/B] [B]Sub[/B]

 [SIZE=14px][B]A = 3.1[/B][/SIZE]  
 [SIZE=14px][B]B = 4 [/B][/SIZE]  
 [SIZE=14px][B]A + B  = 3.14 [/B][/SIZE]  
     
 [SIZE=14px][B]Int (A) =  3[/B][/SIZE]  
 [SIZE=14px][B]Int (B) =  4[/B][/SIZE]  
 [SIZE=14px][B]Int (A) + Int (B) = 7[/B][/SIZE]  
     
 [SIZE=14px][B]Eval (A) =  3.1[/B][/SIZE]  
 [SIZE=14px][B]Eval (B) =  4[/B][/SIZE]  
 [SIZE=14px][B]Eval (A) + Eval (B) = 7.1[/B][/SIZE]  
     
 [SIZE=14px][B]CInt(A + B) = 3[/B][/SIZE]  
 [SIZE=14px][B]Eval(A + B) = 3.14[/B][/SIZE]

 

[joe]

Ciao Luigi ...

Grazie per il suggerimento, al solito ... perfetto.

 

[LuigiB]

ciao Joe .. un caro saluto a te ...

 

[i legend]

Grazie luigi
un salutone

 

[salvo50]

Ciao a Tutti!
E grazie a tutti è stato molto istruttivo.