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
D Carousel bootstrap con video HTML e CSS 0
D Come estendere la tariffa per Wordpress con Visa? Hosting 0
T [VENDO] Guest Post su siti di Proprietà con IP diversi Offerte e Richieste di scambio links 0
A Somma di orari con centesimi PHP 1
T Query su due tabelle con totali Database 4
F Scrivere dei dati in word con php PHP 0
otto9due Più chiavi in array con array_key_exists() PHP 0
M Conteggio con group by PHP 3
M Problema con Try Catch PHP 0
K Aiuto con file audio in html HTML e CSS 1
M Upload immagine con javascript problemi con FormData() Javascript 1
M Visulizzare immagine con php PHP 8
G [PHP] Creare script di prenotazione con controllo disponibilità. PHP 7
G leggere file txt e stampare con php il contenuto a video PHP 7
M Riportare in tabella HTML dati estratti con query SQL MySQL 0
Z PHP.INI - STMP per invio email con PHP Server Dedicati e VPS 0
Sergio Unia Problema con gli eventi del mouse su una data table: Javascript 2
G Invio form con PHP PHP 3
M Barra di navigazione con google HTML e CSS 1
T PROBLEMA CON SESSIONI PHP 3
A Problemi con move_uploaded_file PHP 7
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 4
R Problema query con ricerca id numerico PHP 2

Discussioni simili