-1

関数を使って一種のポンドからユーロへのコンバーターを作りたいです。システムに実行させたいのは、テキストボックスに数値を入力して変換を押すと、ラベルにユーロ換算された数値が表示されるようにすることです。

これは、入力した数値に1.34509の変換率を掛けるようにシステムに指示することによって行われると思います。

しかし、私はそれを正しくやっているとは思わない。

Protected Sub btnGo_Click(sender As Object, e As EventArgs) Handles btnGo.Click

    End Sub

    Function Convert(txtPound As Decimal) As Decimal
        'declare variable to store answer 
        Dim Converter As Decimal
        'calculate the Answer
        Converter = Convert(txtPound * 1.34509)
        'return the Answer
        Return Converter

    End Function

End Class
4

2 に答える 2

0

計算する前に、入力した金額を取得して小数に変換する必要があります。

Dim pounds As Decimal
pounds = Decimal.Parse(txtPound.Text)
Converter = Convert(pounds * 1.34509)
于 2013-01-13T13:18:19.333 に答える
0

これはあなたの要件に合うでしょう、

イベント：

'---This is the procedure which is going to handle your btnGo's Click Event
Protected Sub btnGo_Click(sender As Object, e As EventArgs) Handles btnGo.Click

'---Here we are calling the function Convert(Decimal) by passing the txtPound's text
   msgbox(Convert(Decimal.Parse(txtPound.Text)))

End Sub

働き：

'---This function will receive the passed value as xValue and execute its code  
Private Function Convert(xValue as Decimal) as Decimal

'---This line will do the conversion and simply send back the result to the caller.  
   return (xValue * 1.34509)

End Function

さらに、さらに明確にする必要がある場合は、これを参照してください。

于 2013-01-13T14:59:12.143 に答える