INSTR_03.DOC

Akademia Techniczno-Rolnicza w Bydgoszczy

Wydział Mechaniczny

Katedra Sterowania i Konstrukcji

Systemy mikrokomputerowe

WSTĘP DO PROGRAMOWANIA

W JĘZYKU VISUAL BASIC

Instrukcja nr 3

Opis działania programu Opcje

Program Opcje pokazuje, jak może wyglądać program dający użytkownikowi możliwość wyboru.

Wizualna implementacja programu Opcje

1.   Otwórz nowy projekt (z menu File wybierz New Project).

2.   Zachowaj formę projektu pod nazwą Opcje.frm. Zachowaj plik projektu pod nazwą Opcje.mak.

3.   Na podstawie tabeli zbuduj formę frmOpcje.

Rys.1 Program Opcje

Wprowadzanie kodu programu Opcje

1.   Wewnątrz obszaru deklaracji formy frmOpcje wpisz następujący kod:

              ‘Wszystkie zmienne muszą być zadeklarowane.

              Option Explicit

2.   Do procedury cmdKoniec_Click() formy frmOpcje wpisz kod:

                            Sub cmdKoniec_Click()

                                          End

                            End Sub

Uruchomienie programu Opcje

1.   Uruchom program Opcje.

2.   Kliknij przycisk opcji Poziom 1 (wewnątrz przycisku pojawi się kropka).

3.   Kliknij przycisk opcji Poziom 2 (program anuluje wybór przycisku Poziom 1 i wybierze przycisk Poziom 2).

4.   Kliknij przycisk opcji Poziom 3. W odpowiedzi program anuluje wybór opcji Poziom 1 i wybierze opcję Poziom 3.

5.   Kliknij kratkę Dźwięk. W odpowiedzi program umieści wewnątrz kratki znak x.

6.   Kliknij na inne kratki.

7.   Zakończ działanie programu, klikając przycisk Koniec.

8.   Do procedury chkKolor_Click() formy frmOpcje wprowadź następujący kod:

              Sub chkKolor_Click()

                            UpdateLabel

              End Sub

9.   Do procedury chkMysz_Click() formy frmOpcje wprowadź następujący kod:

              Sub chkMysz_Click()

                            UpdateLabel

              End Sub

10.             Do procedury chkDzwiek_Click() formy frmOpcje wprowadź następujący kod:

              Sub chkDzwiek_Click()

                            UpdateLabel

              End Sub

11.             Do procedury optPoziom1_Click() formy frmOpcje wprowadź następujący kod:

              Sub optPoziom1_Click()

                            UpdateLabel

              End Sub

12.             Do procedury optPoziom2_Click() formy frmOpcje wprowadź następujący kod:

              Sub optPoziom2_Click()

                            UdateLabel

              End Sub

13.             Do procedury optPoziom3_Click() formy ...