Komponenty Visual Basic 2005(1)

W moich programach korzystam z formularzy i komponentów. Wykorzystuje po prostu wszelkie okienka. Ponieważ program jest oparty o bazę danych, nazwaną przeze mnie "Pokarm", dlatego do odczytu tej bazy wykorzystuję komponent ListView. Do wybrania ListView sluży okno Toolbox. 
Poniżej przedstawione jest zdjęcie programu "Komponent1", który napisalem dla czytelników tego bloga, w celu praktycznej nauki programowania Visual Basic 2005. Przekonałem się, że najlepiej przyswajałem wiedzę poprzez praktykę.

                                                     Początek pracy nad programem
W pierwszej kolejności należy utworzyć nowy projekt Windows Application i nazwać jego, w moim przypadku nazwałem jego Komponent1. Po wyświetleniu formularza i ewentualnej zmianie wymiaru za pomocą Size, należy umieścić na formularzu okienka:
1.  ListBox - na samej górze , zmienić nazwę na lstProdukt.
2. TextBox - poniżej, nazwana txtNazwa o szerokości (size) 300
3. TextBox  - obok, nazwana txtEnz o szerokości 60
4. ListView - poniżej, zmienić nazwę na lstPokarm, wlaściwość Gridlines na true, FullRowSelect na true, View na detail. Następnie należy utworzyć kolumny,  poprzez pozycję Columns i kliknięcie w Collections.  Wyświetli się wtedy okno "ColumnHeader CollecionEditor". Po lewej stronie kliknąć w Add i w lewym okienku należy wpisać text: Rodzaj pokarmu i Width = 300. Po powtórnym kliknięciu w Add, zostanie utworzona nowa kolumna i nazwij tekst: Energia, TekstAlign na Center i Size na 60. Po kliknięciu zostanie utworzona tabela ListView nazwana tutaj lstPokarm.  Można oczywiście utworzyć dowolną ilość kolumn.
5. TextBox - poniżej, nazwa: txtNazwao
6. TextBox - obok, nazwa: txtEno
7. Button - umieścić obok txtEnz i nazwałem jego btnZapisn i text: Zapis. Następnie kliknąć dwa razy w tego buttona,  w celu utworzenia w programie kodu do obsługi zapisu nowego produktu do bazy.
8. Button - umieścić poniżej. Nazwa- btnKas i tekst: Kasowanie. Kliknąć w niego dwa razy, w celu otwarcia w programie kodu do kasowania zapisanego w bazie produktu.
9. Button. Nazwa: btnEnd i text: Zakończenie programu.
Następnie kliknąć dwa razy w formularz. Zostanie wyświetlony początek programu.
  
Public Class Form1
       Private sit As ListViewItem
       Private k, i As Integer                       ' Deklaracja zmiennych
       Private msg, tyt As String                 ' Deklaracja tekstu
       Private styl As MsgBoxStyle
       Private res As MsgBoxResult
       Private pEn, pEne As Decimal

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FileOpen(1, "Pokarm", OpenMode.Append)               ' Otwarcie 
        FileClose(1)                                                                     ' Zamkniecie pliku
        Odczyt()                                                                           ' Wywołanie odczytu bazy
End Sub

Private Sub Odczyt()
    Dim Naz(1000), Enp(1000)                                                ' Deklaracja
    lstPokarm.Items.Clear()                                                    ' Kasowanie zawartości tabeli
    FileOpen(1, "Pokarm", OpenMode.Input)                     ' Otwarcie bazy do odczytu
      k = 0                                                                                ' Początek liczenia
      Do While Not EOF(1) = True                                        '  Początek pętli
            Input(1, Naz(k))                                                        ' Wpisane z bazy nazwy produktu
            Input(1, Enp(k))                                                        ' Wpisanie wielkości energii
            sit =  lstPokarm.Items.Add(Naz(k))                        ' Wpisanie nazwy do tabeli
            sit.SubItems.Add(Enp(k))
            lstProdukt.Items.Add(Naz(k))                                 ' Wpisanie nazwy do ListBox
          k = k + 1
      Loop                                                                               ' Zamknięcie pętli
     FileClose(1)                                                                     ' Zamknięcie bazy
          lstProdukt.Visible = False                                          ' Wygaszenie 
    End Sub


         

Dlaczego Visual Basic 2005?

Żeby wyjaśnić dlaczego zajmuje się Basic, muszę opisać swoje początki. Otóż w latach 80-tych zainteresowałem się techniką komputerową. I zmontowałem komputer pod nazwą "Cobra". Był to komputer 8 - bitowy, opart na mikroprocesorze Z-80A. Płytę bez układów zakupiłem gotową (Coprespu) i do tego prosty system operacyjny. Części zaopatrywałem się na giełdach w Katowicach i w Krakowie. System operacyjny był wpisany w pamięci Eprom. Do tego był  dołączony Basic na taśmie magnetofonowej. Po zmontowaniu i po uruchomieniu ukazał się ekranie napis i zaczął się problem. To była tylko pusta maszyna. I zacząłem się uczyć języka programowania Basic. I też asemblera Z-80A. Po wciągnięciu w te bajki, zacząłem pisać proste programy w Basic-u. Zacząłem też tworzyć proste gry i mój syn miał wtedy pełno kolegów. Oczywiście syn jest teraz informatykiem. I tak została pasja programowania w tym języku. Potem był Qbasic i w końcu kupiłem w sklepie internetowym Visual Studio 2005.  Ponieważ Basic był już dla mnie znany, dlatego programuje w Visual Basic 2005. Też trochę podłapałem C#. Ponieważ póżniej zachorowałem na cukrzycę typu drugiego, dlatego zacząłem pisać programy dla cukrzyków. Zapomniałem dodać, że też po drodze był Visual Basic 6.0. Przepraszam za pisownie, ale byłem zawsze bardzo słaby w języku polskim (styl okropny), mimo, że zawsze dużo czytałem.

Przeznaczenie

Ponieważ mam już 74 lat swojego życia, dlatego pragnę podzielić się swoimi doświadczeniami w programowaniu komputerowym w Visual Basic 2005. Nie chcę po prostu zabrać do grobu swojej wiedzy i przekazać ją dla początkujących programistów.  Moje programy można pobrać z mojej strony: Cukrzyca Seniora . Tutaj będę opisywał te programy.