VB.Net：选中复选框时显示总数

Question

我正在为游戏制作经验乘数，所以当我输入一个金额时，我会勾选某个乘数，它会乘以我的经验以显示我将获得多少经验。

如果我选中复选框，我希望能够知道如何包含语句，以便包含该语句，否则它不会影响任何内容。

目标： 如果选中系统复选框，我希望我键入的金额（即 exp）乘以 2。其中system = checkbox1 和总 exp 乘以 1.5 倍，如果 'hs = checkbox4' 被选中。如果两者都被选中，总 exp 将乘以 2x1.5= 3。否则，它只是 2x 或 1.5x。但我不知道该怎么做。

例如（我不知道怎么写，但它是我想要的东西）

    system = exp * 2
    hs = exp * (50 / 100)


    If CheckBox1.CheckState = CheckState.Checked Then
        totalexp INCLUDES multiplier system
    ElseIf CheckBox1.CheckState = CheckState.Unchecked Then
        totalexp is not affected by multiplier system
    End If
    If CheckBox4.CheckState = CheckState.Checked Then
        totalexp INCLUDES multiplier hs
    ElseIf CheckBox4.CheckState = CheckState.Unchecked Then
        totalexp INCLUDES multiplier hs
    End If

    totalexp = hs * system

请帮忙！

Answer 1

如果您有TextBox1 作为您的exp 输入，两个复选框分别是CheckBox1 和CheckBox4，分别用于system 和hs，以及一个处理输入的按钮，那么您就可以拥有此代码下面。

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim exp As Double
    If IsNumeric(TextBox1.Text) Then
        exp = CDbl(TextBox1.Text)
    Else
        MsgBox("Please input a number.")
    End If
    If CheckBox1.Checked = True Then
        exp = exp * 2
    End If
    If CheckBox4.Checked = True Then
        exp = exp * 1.5
    End If
    If exp <> 0 Then
        MsgBox(exp)
    End If
End Sub
End Class

如果两个复选框都被选中，那么您的输入 (exp) 将乘以 2 AND 1.5。

如果两个复选框均未选中，则显示消息将为零。如果您希望一旦没有选中复选框就不会显示任何消息，那么您可以在最后一个 End If 代码之后添加它

把MsgBox(exp)改成

If exp<> 0 Then
    MsgBox(exp)
End If