VB.netの基本的な数学関数

Question

私は現在、ユーザーが2つの変数を定義し、変数を基本的な数式に入れて結果を提示するボタンを押すことを可能にする基本的な電卓を追加中です私はそれについて完全に間違ってしまった。

これは初めてVBで数学関数を使用していて、誰かが私が間違っている場所を私に見せることができれば分かります。これは、これまでの私のコードです

：

Imports System.Math 
Public Class SOGACALC 
Dim soga As String = Math.Abs(72 - months.Text) * opp.Text 
Private Sub SOGACALC_Load(sender As Object, e As EventArgs) Handles MyBase.Load 

End Sub 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    SOGAValue.Text = soga 
End Sub 

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 
    HOME.Show() 
    Me.Close() 
End Sub 

End Class 

Answer 1

あなたが書かれている

Dim soga As String = Math.Abs(72 - months.Text) * opp.Text 

私はあなたがsogaは、その中で言及性質の関数であると意志になることを期待していると思われますこれらのプロパティが変更されると変更されます。そのようには機能しません。そのパラメータに依存して変化する値を取得する

方法は、あなたが持つかもしれないので、関数を定義することです。

Friend Function Soga(monthValue As Control, oppThing As Control) As String 
    Dim month As Integer = CInt(monthValue.Text) 
    Dim opp As Decimal = CDec(oppThing.Text) 

    Return (Math.Abs(72 - month) * opp).ToString() 

End Function 

と同じようにそれを呼び出す：

コントロールがある

'TODO: Give Button1 a meaningful name. 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    SOGAValue.Text = Soga(months, opp) 
End Sub 

フォーム上に "months"と "opp"という名前を付けます。

Option Strict Onを使用することを強くお勧めします。コード内の問題を指摘し、修正を提案します。

oppのDecimalタイプを使用していることに注目してください。適切なタイプを推測しなければなりませんでした。

改善点は、CInt/CDecの代わりにTryParseメソッドを使用することです。これにより、ユーザーに単純なタイピングエラーが発生したかどうかを知らせることができます。