View Single Post
Old 08-10-2007, 10:34   #3
OrcaAssassina
Senior Member
 
Iscritto dal: Feb 2003
Messaggi: 2817
Ok

Quote:
Originariamente inviato da okay Guarda i messaggi
quello preso dalla text sono stringhe che poi con val tramuta in numeri ma se c'è la virgola è un casino.

La textbox lavora con il punto nell'estrazione della val.

Se un utente inserisce la virgola e fai "val(textbox)" non hai il risultato giusto allora invece di "Val" devi usare "CSng" od anche "CDbl".

io per esempio uso il punto perchè mi piace di +.

io faccio così:

Faccio inserire solo numeri e il punto oppure tramuto la virgola in punto a runtime e poi eseguo una val sulla text.

Un'altra soluzione che adotto e controllare ciò che ha digitato:

a=11,23
bx$="":for i=1 to len(textbox)
if mid(textbox,i,1)="," then
bx$=bx$+"."
else
bx$=mid(textbox,i,1)
endif
next i
a=val(b$) 'a=11.23

ciao

Edit: per il NET fai le dovute modifiche
A me che piace la virgola farò l'opposto

a=11,23
bx$="":for i=1 to len(textbox)
if mid(textbox,i,1)="." then
bx$=bx$+","
else
bx$=mid(textbox,i,1)
endif
next i
a=val(b$) 'a=11.23

Giusto?????
__________________
AMD 3700x --- ASUS X570 CROSSHEAR VIII HERO --- 4x 8GB Corsair Vengeance RGB PRO 3600 MHz --- SSD: Samsung 980Pro 1TBb --- EVGA RTX 2070 SUPER
OrcaAssassina è offline   Rispondi citando il messaggio o parte di esso