27/03/18 9:22
Mikelius
Postato originariamente da Carlo:
Confermo, che ci sono problemi sul programma, conversioni, vorrei comunicare all'autore alcune prove riferite alla conversione delle temperature.
alla riga: Dim Temperatura() As String = {"Temperatura", "Fahrenheit-32", "Celsius-1,8", "Kelvin-273,15"}
se inserisco il valore 0 per i gradi celsius, invece del valore 1,8.
la conversione celsius kelvin è corretta, ma sbagliano le altre
Un problema sta nella routine:
If Nome <> "Temperatura" Then
rs.Text = Convert.ToDouble(tbxQty.Text.Trim.Replace(".", ".") * (c1 / c2)
Else
If cbx2.Text = "Fahrenheit" Then
rs.Text = (Convert.ToDouble(tbxQty.Text.Trim.Replace(".", ".") * (c1)) + c2
Else
Dim app As Double = Convert.ToDouble(tbxQty.Text.Trim.Replace(".", ".")
If Convert.ToDouble(app) < -273.15 Then
MsgBox("IN QUESTO CASO IL VALORE DI TEMPERATURA CELSIUS NON PUO' ESSERE < -273,15!"
Else
rs.Text = c2 + Convert.ToDouble(tbxQty.Text.Trim.Replace(".", ".")
End If
End If
End If
controlla la riga: rs.Text = c2 + Convert.ToDouble(tbxQty.Text.Trim.Replace(".", ".")
nel calcolo non può mancare il parametro c1!
Confermo, che ci sono problemi sul programma, conversioni, vorrei comunicare all'autore alcune prove riferite alla conversione delle temperature.
alla riga: Dim Temperatura() As String = {"Temperatura", "Fahrenheit-32", "Celsius-1,8", "Kelvin-273,15"}
se inserisco il valore 0 per i gradi celsius, invece del valore 1,8.
la conversione celsius kelvin è corretta, ma sbagliano le altre
Un problema sta nella routine:
If Nome <> "Temperatura" Then
rs.Text = Convert.ToDouble(tbxQty.Text.Trim.Replace(".", ".") * (c1 / c2)
Else
If cbx2.Text = "Fahrenheit" Then
rs.Text = (Convert.ToDouble(tbxQty.Text.Trim.Replace(".", ".") * (c1)) + c2
Else
Dim app As Double = Convert.ToDouble(tbxQty.Text.Trim.Replace(".", ".")
If Convert.ToDouble(app) < -273.15 Then
MsgBox("IN QUESTO CASO IL VALORE DI TEMPERATURA CELSIUS NON PUO' ESSERE < -273,15!"
Else
rs.Text = c2 + Convert.ToDouble(tbxQty.Text.Trim.Replace(".", ".")
End If
End If
End If
controlla la riga: rs.Text = c2 + Convert.ToDouble(tbxQty.Text.Trim.Replace(".", ".")
nel calcolo non può mancare il parametro c1!
il metodo Text.Trim.Replace(".", "." se non sbaglio cambia i "." con i "."? ha senso???
aaa