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
G Menù a tendina di ricerca con query PHP 1
T fatture con voci fattura in php PHP 0
A Tabella con bottoni per aggiornamento record PHP 6
M Come selezionare e deselezionare radiobutton con jquery jQuery 1
MarcoGrazia Calcolo fra due date con esclusione delle feste PHP 7
T ALTRO PROBLEMA CON ARRAY PHP PHP 1
T PROBLEMA CON ARRAY PHP 8
M Inviare un file su un server remoto con JavaScript Javascript 0
L problema con query select PHP 2
M Come validare textarea con jquery jQuery 0
M Problemi con la stampa dei valori in php PHP 1
A Regex per isolare link interni con rel noopener PHP 0
L Problemi con il login PHP 2
F Creare elementi html con javascript Javascript 2
R Problema query con ricerca id numerico PHP 2
R [C#] Quali dipendenze occorrono su progetto "Setup" con Access Database? .NET Framework 0
F Problema con risposta PHP 0
A Sottoquery con group by per mese MySQL 0
R Aggiornare record mysql con Ajax, jQuery e php Ajax 2
A Quale NVR con ingressi bnc ? IP Cam e Videosorveglianza 1
S problema con recupero dati tabella mysql PHP 2
Z Problema con il mio tp-l i nk Reti LAN e Wireless 1
T Film interattivo con linguaggi web Programmazione 7
A pulsante di update campo mysql con javascript Javascript 2
R Tutto su utf-8 ma ancora problemi con i caratteri speciali in mysql MySQL 1
Barierta Testo a comparsa con passaggio del mouse Javascript 13
M Estrarre valore con SELECT COUNT PHP 0
G VBA OpenForm con WhereCondition + LIKE su campi differenti MS Access 5
sara3 Offresi articolista con esperienza Offerte e Richieste di Lavoro e/o Collaborazione 2
L Problema RAM con Tomcat 8 Apache 0
S connesso, internet non disponibile ( con extebder tp-link850) Reti LAN e Wireless 0
L Menù con switch case C/C++ 1
Cosina Upload multiplo con invio allegati per email PHP 0
Cosina Upload multiplo con archiviazione in cartella PHP 16
B ciclare file xml con PHP PHP 1
napuleone problema con sort e asort PHP 4

Discussioni simili