Довідка про підрахунок калорій VB 2010!

Зареєстрований

Гей, хлопці. мені потрібна допомога тут. це веде мене до бовдурів. спочатку тут є форма нижче, щоб полегшити пояснення. тепер, що я зробив, це, коли я натискаю кнопку "Очистити", це очищає все, крім "Накопичена сума калорій" і "Кількість елементів - ті залишаються, коли користувач знову вводить дані зверху. так як мені зробити кількість елементів зростає на 1 щоразу, натискаючи "Обчислити"? і як зробити так, щоб "Накопичена сума калорій додавала НОМЕР із" Загальної калорійності ", коли теж натискаю" Обчислити "? Спасибі. мій розум все ще намагається обернутися цим. я знаю, що це має щось спільне із твердженням Try.

це те, що я отримав до цих пір:

Калорійність громадського класу
'Оголосіть змінні та константи на рівні модуля
Private TotalCaloriesInteger As Integer
Приватні FatInteger, CarbohydrateInteger, ProteinInteger, SumOfCaloriesInteger, CountOfItemsInteger As Integer

Private Sub CalculateButton_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalculateButton.Click
'Розрахуйте ціну та знижку
Затемнити жирне ціле число як ціле число
Приглушити ціле число вуглеводів як ціле число
Приглушити ціле число протеїну як ціле число
Приглушити TotalCaloriesSumInteger як ціле число
Невиразне SumOfAccCaloriesSumInteger як ціле число

Спробуйте
'Перетворення вхідних значень у числові змінні
FatInteger = Integer.Parse (FatTextBox.Text)
CarbohydrateInteger = Integer.Parse (CarboTextBox.Text)
ProteinInteger = Integer.Parse (ProteinTextBox.Text)

Спробуйте
'Якщо вдало, перетворіть загальну кількість калорій
TotalCaloriesSumInteger = Integer.Parse (TotalCaloriesTextBox.Text)

Catch ex Як виняток

'Обчислити значення
TotalCaloriesSumInteger = Жирне ціле + Ціле число вуглеводів + Протеїнове ціле число
SumOfAccCaloriesSumInteger + = TotalCaloriesSumInteger