Включая флажки и переключатели, визуальные базовые

Question

Я пишу программу для расчета интернет-платежей. Три пакета, A, B и C, выбираются из стоимости 9,95 долларов США (10 часов, 2 доллара за час), 14,95 долларов США (15 часов, 1 доллар за 1 час) и 19,95 долларов США (без ограничений).

Вот код, который я написал для ввода из скрытых текстовых полей (всего один случай). Я хотел бы упростить, используя флажки и переключатели, но я никогда не использовал их раньше. Любые подсказки или подсказки?

Case "A" 
       If hours < 10 And nonprofit.ToUpper = "Y" Then 
        lstOutput.Items.Add("Total Cost is " & FormatCurrency(9.95 * 0.8)) 
        'package A with nonprofit status, under limit 
       ElseIf hours < 10 And nonprofit.ToUpper = "N" Then 
        lstOutput.Items.Add("Total Cost is " & FormatCurrency(9.95)) 
        'package A without nonprofit status, under limit 
       ElseIf hours > 10 And nonprofit.ToUpper = "Y" Then 
        lstOutput.Items.Add("Total Cost is " & FormatCurrency((9.95 + _ 
         (hours - 10) * 2) * 0.8)) 
        'package A with nonprofit status, over limit 
       ElseIf hours > 10 And nonprofit.ToUpper = "N" Then 
        lstOutput.Items.Add("Total Cost is " & FormatCurrency(9.95 + _ 
         (hours - 10) * 2)) 
        'package A without nonprofit status, over limit 
       End If 

Answer 1

Если я не я, не понимая ваш вопрос - это должно быть так просто, как изменения кода включить флажок, например, для некоммерческой, то при обработке:

Dim nonprofit As Boolean = NonProfit_CB.Checked 

Затем проверяется, если некоммерческая верно (вместо проверки для Y/N):

If nonprofit = True Then 

Radiobuttons в основном такие же, как CheckBoxes. Также, если вы хотите группировать переключатели вместе, так что можно выбрать только одну из группы, поместить их в поле группы ...