2

私は VB.NET を使用しています。VB.NET は初めてで、テキスト ボックスとボタンを使用して、足し算、引き算、掛け算、割り算などの計算で簡単なフォームを作成しようとしました。私のプロジェクトでは、3 つの数式を使用して 3 つの値を計算する必要があります。最終的な値を得るには、3 つの値を乗算する必要があります。

使用される式は次のとおりです。

可用性 = (稼働時間 - ダウンタイム)/稼働時間 x 100

性能効率＝（理論サイクルタイム×処理量）／稼働時間×100

良品率＝（処理量－不良量）／処理量×100

総合設備効率 = 可用性 x パフォーマンス効率 x 品質率

3 つの式の値を取得することができましたが、最終的な値 (総合設備効率 = 稼働率 x パフォーマンス効率 x 品質率) を取得しようとすると、取得する値は 0 のままで、計算した他のすべての値は次のようになります。 0にも。以下にコードを投稿します。どんな助けでも大歓迎です。あなたの時間と忍耐をありがとう:)

Public Class OEE

Private Sub OEE_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub TextBox9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim number1 As Integer
    Dim number2 As Integer
    Dim answer1 As Decimal
    Dim sum1 As Integer
    Dim sum2 As Integer

    number1 = TextBox5.Text
    number2 = TextBox6.Text
    sum1 = number1 - number2
    sum2 = number1 * 100
    answer1 = sum1 / sum2
    TextBox4.Text = answer1
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim number3 As Integer
    Dim number4 As Integer
    Dim number5 As Integer
    Dim answer2 As Decimal
    Dim sum3 As Integer
    Dim sum4 As Integer

    number3 = TextBox2.Text
    number4 = TextBox11.Text
    number5 = TextBox5.Text
    sum3 = number3 * number5
    sum4 = number4 * 100
    answer2 = sum3 / sum4
    TextBox1.Text = answer2
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Dim number6 As Integer
    Dim number7 As Integer
    Dim answer3 As Decimal
    Dim sum5 As Integer
    Dim sum6 As Integer

    number6 = TextBox11.Text
    number7 = TextBox8.Text
    sum5 = number6 - number7
    sum6 = number6 * 100
    answer3 = sum5 / sum6
    TextBox7.Text = answer3

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    Dim answer1 As Decimal
    Dim answer2 As Decimal
    Dim answer3 As Decimal
    Dim total As Decimal

    TextBox4.Text = answer1
    TextBox1.Text = answer2
    TextBox7.Text = answer3
    total = answer1 * answer2 * answer3

    TextBox10.Text = total

End Sub

Private Sub TextBox10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox10.TextChanged

End Sub
End Class
4

1 に答える 1

4

で開始する：

最後のコードルーチンでは、テキストボックスを小数に等しくしていますが、小数をテキストボックスに等しくする必要がありますか?

answer1 = TextBox4.Text 
answer2 = TextBox1.Text
answer3 = TextBox7.Text

total = answer1 * answer2 * answer3
于 2013-07-29T07:15:12.440 に答える