27/03/18 6:23
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!
Ultima modifica effettuata da Carlo 27/03/18 8:04
in programmazione tutto è permesso