Difficoltà con decimali Pi Greco

pfca

Nuovo Utente
5 Ago 2012
6
0
0
Buongiorno a tutto il Forum,
sono all'inizio e cerco da autodidatta, seguendo alcune guide internet di apprendere il VB 2010.
Sono partito dalla classica calcolatrice, visto un esempio con le quattro operazioni di base, ho cercato
di aggiungere altri button per inserire altre opzioni, tra cui le quattro operazioni di base e PI.
La mia difficoltà se pur facendo diverse prove non sono riuscito a superare è questa:
quando i calcoli coinvolgono Math.PI, la TextBox non mi visualizza i decimali, ma arrotondano all'unità.
Altri calcoli con decimali, vengono gestiti correttamente. Inserisco parte del codice interessato e sarei
grato a chi mi da indicazioni sull'errore che commetto.
Codice:
Dim Risultato1 As Double
Dim Risultato As Double

Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        'Valore Pi Greco
        TextBox1.Text = Math.PI
        Risultato1 = Val(TextBox1.Text)
End Sub



Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        segno = "*"
        Risultato = Val(Risultato1) + Val(TextBox1.Text)
        TextBox1.Text = Val(Risultato)
End Sub

Grazie
Francesco
 

Vins

Moderatore
Membro dello Staff
MOD
28 Lug 2009
238
19
0
Ciao Francesco e benvenuto,

il tuo problema deriva dall'utilizzo della funzione Val. Tale funzione infatti, se applicata ad una stringa, legge la stringa fino al primo carattere che non riconosce essere un numero.

Quindi nel tuo caso legge il valore 3,14159265358979 fino alla virgola (cioè solo fino a tre).

Se al posto della virgola metti il punto allora la funzione ti leggerà anche i decimali.

Puoi dare un'occhiata a questo link

http://msdn.microsoft.com/en-us/library/k7beh1x9(v=vs.71).aspx
 

pfca

Nuovo Utente
5 Ago 2012
6
0
0
Ciao Vins e grazie per la risposta, io avevo già provato con CDbl ma il risultato non andava.
Domanda tu dici:
Se al posto della virgola metti il punto allora la funzione ti leggerà anche i decimali.
Dovrei dichiarare una variabile con valore 3.14159265358979 ed utilizzare quella?
Oppure rivedere tutto il codice?
Grazie
Francesco
 

Vins

Moderatore
Membro dello Staff
MOD
28 Lug 2009
238
19
0
Ti dicevo il fatto del punto come esempio di simbolo riconosciuto dalla funzione Val.

Nel tuo caso basta modificare il codice nel modo seguente, utilizzando proprio CDbl

Codice:
Dim Risultato1 As Double
Dim Risultato As Double

Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        'Valore Pi Greco
        TextBox1.Text = Math.PI
        Risultato1 = CDbl(TextBox1.Text)
End Sub



Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        segno = "*"
        Risultato = Risultato1 + CDbl(TextBox1.Text)
        TextBox1.Text = Risultato
End Sub

Ciao
 
Discussioni simili
Autore Titolo Forum Risposte Data
L difficoltà con Xampp. printing php mancante...help Web Server 6
T MYSQL: valore più frequente ma con difficoltà in più... PHP 1
S [PHP] Difficoltà con costrutto if/else PHP 6
Z [PHP] Difficoltà con la IF su orari disponibili e occupati PHP 5
D Difficoltà per l'invio contemporaneo di file (pdf) e foto (jpg) con Aruba Hosting 7
F Difficoltà a caricare file grandi con Dreamweaver HTML e CSS 2
Z Difficoltà codice data PHP 0
yanhong telecamere avidsen e panasonic, difficoltà di collegamento IP Cam e Videosorveglianza 0
M [PHP] Difficoltà inserimento valori nella tabella scontrini PHP 16
E difficoltà a modificare la pagina html HTML e CSS 2
D difficoltà a visualizzare tutte le foto della galleria PHP 10
C Difficoltà installazione CLASSE PHPMAILER PHP 1
M Difficoltà nel #div content HTML e CSS 1
A difficoltà apache windows PHP 0
F Cerco Hosting con VECCHIE versioni di php Hosting 0
C Come ricreare questo calcolatore di prezzi a step con woocommerce? WordPress 0
C Segnalo barra laterale di navigazione ASSENTE con Chrome Comunicazioni dallo Staff 5
G Guadagna dalla Vendita di Articoli Sponsorizzati con GuestPostMax.com! Guadagnare col Sito 0
P Hosting multidominio con Plesk Hosting 0
L Soluzione con INNER JOIN Database 0
S passare un valore da un form a un file .php con metodo post PHP 4
A Redirect 301 genera url statico con variabili Web Server 0
T problemi con dati menu a tendina HTML e CSS 2
T Query con date MS Access 1
F Url dinamiche da cambiare con categoria, subcategoria e title PHP 2
L Aiuto con DataGridView Visual Basic 1
O problema con dvr dahua xvr5116 IP Cam e Videosorveglianza 0
G Problema con Xampp Web Server 1
M Aggiunta prodotti nel carrello con lo stesso in e varianti diverse PHP 0
andrea barletta Problema con miniature comandi Photoshop 0
I problema con alice Posta Elettronica 0
B Non riesco a trovare i cognomi con i caratteri speciali in Access (Microsoft 365) MS Access 0
N Problema con position absolute e overflow HTML e CSS 4
M Estrarre soltanto i prodotti con stessa descrizione PHP 10
felino [Wordpress] Gallery con foto selezionabili dall'utente WordPress 0
G Invio di più valori con la stessa checkbox PHP 4
csi Inviare file jpg in locale alla stampante con php PHP 0
otto9due Proteggere una cartella e file con password tramite .htaccess e .htpasswd Web Server 0
I Form con selettore HTML e CSS 0
G phpmailer e php 8.1 con estensione mysqli PHP 6
L Problema con inner join PHP 11
K [php] Problema con inner join PHP 4
N Vendo sito web di casino online con 1000 giochi Compravendita siti e domini 0
G form invio multiplo con checkbox PHP 12
L Query e selezione DB con $_POST PHP 2
K [PHP] Problema con variabili concatenate. PHP 1
R Dubbi su siti sviluppati con Wordpress e con codice WordPress 6
B Router e telecamere con pannello solare IP Cam e Videosorveglianza 0
Z Cerco ecommerce gratuito meglio se realizzato con Woocommerce di Wordpress. E-Commerce 0
S [CERCO] scambio di articoli con link Offerte e Richieste di scambio links 0

Discussioni simili