Question

好。仍然开始习惯它。

我需要创建一个程序来转换学校的温度等。我有：

摄氏
开尔文
Reamour
和Fahrenheit

基本上当我写入文本框时，就像我输入4摄氏度一样，我的程序必须显示并将4摄氏度转换为所有其他的

我需要非常基本配方的帮助。数学不是最强，但你可以帮帮我吗？

txtkelvin.Text = FormatNumber(Val(txtcelsius.Text)5.0 / 9.0 * -32)

我在这一行收到错误。可能会遗漏一些'）'从某个地方出来但在哪里？

我应该在哪里找到温度的其他公式？凯文和其他人？

Answer 1

你错过了一个乘法运算符：

Val(txtcelsius.Text)5.0

应该是：

Val(txtcelsius.Text) * 5.0

话虽如此，你的公式并不完全正确。你最想要的是：

txtkelvin.Text = FormatNumber(Val(txtcelsius.Text) + 273.15) ' celsius to kelvin

或者：

txtkelvin.Text = FormatNumber(((Val(txtFahrenheit .Text) - 32) * 5.0 / 9.0) + 273.15) ' fahrenheit to kelvin

Answer 2

您可以使用TypedUnits库 - ＆gt; http://www.codeproject.com/Articles/611731/Working-with-Units-and-Amounts

该库包含管理/转换单位所需的全部内容（以摄氏度为单位）。

一个例子：

     Dim Conversion As TypedUnits.Amount = _
         TypedUnits.UnitManager.ConvertTo(New TypedUnits.Amount( _
                                          2, _
                                          StandardUnits.TimeUnits.Minute), _
                                          StandardUnits.TimeUnits.Second)

     MsgBox(Conversion.Value & " Seconds")  Result: 120 Seconds


     Dim unit As TypedUnits.Amount = _
         New TypedUnits.Amount(1, StandardUnits.LengthUnits.KiloMeter)

     MsgBox(unit.Unit.Factor)  Result: 1000

逗号，'）'或预期的有效表达式延续

2 个答案: