Dalszy ciąg "Komponent1" (2)

Poniżej znajduje się procedura obliczenia energii z całego dnia.
Private Sub btnOblicz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOblicz.Click
      If txtWaga.Text = "" Then 
          MessageBox.Show("Wpisz wagę produktu w gramach.", Uwaga")
           Exit Sub
    End If
    sit = lstMeal.Items.Add(txtNazwao.Text)      ' Wpisanie nazwy wybranego produktu do
                                                                              ' tabeli posiłku o nazwie lstMeal
   Dim Oen, Sen As Integer                                 ' Deklaracja wartości Oen - energia produktu
                                                                              ' o określonej wadze, Sen - suma energii
   Oen = (txtEno.Text * txtWaga.Text) / 100      ' Obliczenie energii
   Oen = Format(Oen, "###")                              ' sformatowanie obliczonej energii
   sit.Subitems.Add(Oen)                                     ' Wpisanie obliczonej energii do tabeli
   Sen = txtSen.Text                                             ' Przejęcie wartości sumy energii
                                                                              ' Początkowa wartość Text w okienku
                                                                              ' powinna być wpisana 0
   Sen = Sen + Oen                                              '  Suma
   Sen = Format(Sen, "###") 
   txtSen.Text = Sen
 End Sub                                                               ' koniec procedury