在Visual Basic中计算利润

Question

该程序应该读取文本文件中的值并获取所有这些值的总和。然后使用从一系列复选框和文本框中收集的信息来计算最终利润。

由于现在编写代码，如果所有复选框都被选中，利润是正确的，但是如果选中了一个，两个或全部三个，我需要它是正确的。下面是当前的代码 选项严格在

Imports System.IO 

Public Class Form1 

    Dim sum As Double 
    Dim fileRead As Boolean 
    Dim profit As Double 

    Private Sub menOpen_Click(sender As Object, e As EventArgs) Handles menOpen.Click 
     Dim ofd As New OpenFileDialog 
     ofd.Filter = "text files |*.txt|All Files|*.*" 
     ofd.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) 

     If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then 
      Dim selectedFileName As String = System.IO.Path.GetFileName(ofd.FileName) 
      If selectedFileName.ToLower = "profit.txt" Then 
       Dim line As String 
       Using reader As New StreamReader(ofd.OpenFile) 
        While Not reader.EndOfStream 
         line = reader.ReadLine 
         Dim value As Integer 
         If Integer.TryParse(line, value) Then 
          sum = sum + value 
          fileRead = True 
         End If 
         Console.WriteLine(line) 
        End While 
       End Using 
      Else 
       MessageBox.Show("You cannot use that file!") 
      End If 
     End If 
    End Sub 

    Private Sub menExit_Click(sender As Object, e As EventArgs) Handles menExit.Click 
     Me.Close() 
    End Sub 

    Private Sub radSales_CheckedChanged(sender As Object, e As EventArgs) Handles radSales.CheckedChanged 
     If radSales.Checked Then 
      profit = sum 
     End If 
    End Sub 

    Private Sub radSandO_CheckedChanged(sender As Object, e As EventArgs) Handles radSandO.CheckedChanged 
     If radSandO.Checked Then 
      If Trim(txtWages.Text) = "" Then 
       txtWages.Text = CStr(0) 
      End If 
      profit = (sum - CDbl(txtWages.Text) - CDbl(txtRent.Text) - CDbl(txtUtilities.Text)) 
     End If 

    End Sub 


    Private Sub menComputeProfit_Click(sender As Object, e As EventArgs) Handles menComputeProfit.Click 
     If fileRead = False Then 
      MessageBox.Show("The file profit.txt has not been read in yet, the profit will be set to zero.") 
      sum = 0 
     End If 

     If chkWages.Checked Then 
      profit = CDbl(("$" & Val(sum) - (Val(txtWages.Text) + Val(txtRent.Text) + Val(txtUtilities.Text)))) 
     End If 
     If chkRent.Checked Then 
      profit = CDbl(("$" & Val(sum) - (Val(txtRent.Text) + Val(txtWages.Text) + Val(txtUtilities.Text)))) 
     End If 
     If chkUtilities.Checked Then 
      profit = CDbl(("$" & Val(sum) - (Val(txtUtilities.Text) + Val(txtWages.Text) + Val(txtRent.Text)))) 
     End If 

     txtAnswer.Text = profit.ToString 

    End Sub 
End Class 

任何帮助将不胜感激。

Answer 1

其中一个文本输入很可能是空的（如错误状态）。即使它不是空的，它仍然可能是一个无效的Double值。

为了安全检查，如果字符串可以转换为double，你可以使用Double.TryParse，像这样：

If Double.TryParse(value, number) Then 
    Console.WriteLine("'{0}' --> {1}", value, number) 
Else 
    Console.WriteLine("Unable to parse '{0}'.", value)  
End If  

Answer 2

之前字符串转换为加倍，检查字符串不是空的。这是错误说的。之后，您应该检查框中的字符串实际上是数字。

Answer 3

您正在使用TextChanged事件的txtAnswer

Private Sub txtAnswer_TextChanged(sender As Object, e As EventArgs) Handles txtAnswer.TextChanged 
    txtAnswer.Text = CStr(profit) 
End Sub 

所以上面的代码会在每次改变的时候对自己火了！只需在txt中弹出利润回答每次计算

If chkWages.Checked Then 
     profit = CDbl(("$" & Val(sum) - Val(txtWages.Text))) 
     txtAnswer.text = profit 
    End If 
    If chkRent.Checked Then 
     profit = CDbl(("$" & Val(sum) - Val(txtRent.Text))) 
     txtAnswer.text = profit 
    End If 
    If chkUtilities.Checked Then 
     profit = CDbl(("$" & Val(sum) - Val(txtUtilities.Text))) 
     txtAnswer.text = profit 
    End If 

有点不整齐，但应该这样做......只要利润改变，您就需要这样做。并摆脱TextChanged事件。

修订答案CLARITY

好吧，我绝不添加货币符号，所以我不知道什么CDbl(("$" & Val(Sum) - Val(txtWages.Text)))会做，因为它可能把它作为一个字符串的字符“$”，而不是货币。 摆脱“$”的，只是添加值...如果你想那么粘在$前一次计算完成说txtAnswer = $ & profit.toString