Ragazzi qualcuno mi sà dire come si fà a limitare il numero di decimali di una variabile di tipo Double in visual basic?
Ragazzi qualcuno mi sà dire come si fà a limitare il numero di decimali di una variabile di tipo Double in visual basic?
Per limitarlo a due io li trasformavo così:
System.Convert.ToDecimal(valore).ToString("c")
press play on tape
-----
MP3 Listing
https://sourceforge.net/projects/mp3-listing
File Listing
https://sourceforge.net/projects/file-listing-2-0/
ma dove devo inserirlo?
questo programam scrive l'equazione della retta di regresisone una volta fatti i dovuti calcoli.... però come output l'equazione se i valori di m e di q sono decimali diventà qualcosa di davvero brutto..... come faccio a limitare a 2 i decimali di m e q dopo che li ha calcolati?<script runat="server">
Sub Page_Load (sender As Object, e As EventArgs)
End sub
Sub Submit(sender as object, e as EventArgs)
Dim valori(5,5) As double
Dim I, Sx, Sy, Sxy, Sx2, m, q, n as double
valori(1,1) = x1.text
valori(1,2) = y1.text
valori(2,1) = x2.text
valori(2,2) = y2.text
valori(3,1) = x3.text
valori(3,2) = y3.text
valori(4,1) = x4.text
valori(4,2) = y4.text
valori(5,1) = x5.text
valori(5,2) = y5.text
n = 5
sx = 0
sy = 0
sx2 = 0
sxy = 0
For I = 1 to 5
Valori(I,3) = valori(I,1) * valori(I,1)
Valori(I,4) = valori(I,1) * Valori(I,2)
Sx = sx + valori(I,1)
Sy = sy + valori(I,2)
Sx2 = sx2 + valori(I,3)
Sxy = sxy + valori(I,4)
Next I
m = ((n * Sxy) - (Sx * Sy)) / ((n * Sx2) - (Sx * Sx))
q = ((Sx2 * Sy) - (Sxy * Sx)) / ((n * Sx2) - (Sx * Sx))
If q >= 0 Then
lbl2.Text = "Risultato : Y=" & m & "X+" & q
Else lbl2.Text = "Risultato : Y=" & m & "X" & q
End if
End sub
</script>
<html>
<body background="Images/background.jpg">
<form runat="server">
<font color="#FF0000" size="5" face="Verdana">Calcolo dell'Equazione della retta di
regressione con il metodo dei minimi quadrati:</font></p>
<font color="#FFFFFF" face="Verdana" size="4">
x1: <asp:TextBox id="x1" columns="10" runat="server" />
y1: <asp:TextBox id="y1" columns="10" runat="server" />
x2: <asp:TextBox id="x2" columns="10" runat="server" />
y2: <asp:TextBox id="y2" columns="10" runat="server" />
x3: <asp:TextBox id="x3" columns="10" runat="server" />
y3: <asp:TextBox id="y3" columns="10" runat="server" />
x4: <asp:TextBox id="x4" columns="10" runat="server" />
y4: <asp:TextBox id="y4" columns="10" runat="server" />
x5: <asp:TextBox id="x5" columns="10" runat="server" />
y5: <asp:TextBox id="y5" columns="10" runat="server" />
</font>
<asp:Button OnClick="Submit" Text="Esegui" runat="server"/>
<asp:Label id="lbl2" runat="server" ForeColor="#FFFFFF"/></p>
</form>
</body>
</html>
Qualcuno mi aiuta??!
Al posto di m e q:
System.Convert.ToDecimal(m).ToString("c")
System.Convert.ToDecimal(q).ToString("c")
Funziona ma credo ci sia un altro metodo più giusto. Utilizzai questo perchè il cliente non era chiaro...
press play on tape
-----
MP3 Listing
https://sourceforge.net/projects/mp3-listing
File Listing
https://sourceforge.net/projects/file-listing-2-0/
Originariamente inviato da djciko
Per limitarlo a due io li trasformavo così:
System.Convert.ToDecimal(valore).ToString("c")
esempio:
al posto di
lbl2.Text = "Risultato : Y=" & m & "X+" & q
metti:
lbl2.Text = "Risultato : Y=" & m.Tostring("#,##0.00") & "X+" & q.Tostring("#,##0.00")
Pietro
ecco. ti sei deciso ad intervenire finalmenteOriginariamente inviato da pietro09
esempio:
al posto di
lbl2.Text = "Risultato : Y=" & m & "X+" & q
metti:
lbl2.Text = "Risultato : Y=" & m.Tostring("#,##0.00") & "X+" & q.Tostring("#,##0.00")
press play on tape
-----
MP3 Listing
https://sourceforge.net/projects/mp3-listing
File Listing
https://sourceforge.net/projects/file-listing-2-0/
Originariamente inviato da djciko
ecco. ti sei deciso ad intervenire finalmente
Ho fatto anche io una domanda
Pietro
GRAZIE DI CUORE A TUTTI
Permessi di invio
Rispondi quotando