Akademia Techniczno-Rolnicza w Bydgoszczy

Wydział Mechaniczny

Katedra Sterowania i Konstrukcji

Systemy mikrokomputerowe

WSTĘP DO PROGRAMOWANIA

W JĘZYKU VISUAL BASIC

Instrukcja nr 4

Opis działania programu Mnożenie

Program Mnożenie pokazuje, jak korzystać z procedur i funkcji

Implementacja wizualna programu Mnożenie.

1. Otwórz nowy projekt, zachowaj jego formę w pliku Mnozenie.frm, a projekt pod nazwą Mnozenie.mak.

1. Na podstawie tabeli zbuduj formę tak jak na rysunku 1.

Obiekt	Własność	Ustawienie
Form	Name Caption Height Left Top Width	frmMnozenie Mnożenie 4440 1572 1416 7464
Command Button	Name Caption Height Left Top Width	cmdMnozenie &Mnożenie 1815 1800 1800 2295
Command Button	Name Caption Height Left Top Width	cmdKoniec &Koniec 495 5760 3360 1215
Text Box	Name Height Left Top Width Text	txtWynik 855 360 480 6495 (skasować zawartość)
Label	Name Caption Height Left Top Width	lblWynik Wynik: 255 360 240 735




Rys.1 Program Mnożenie

Wprowadzanie kodu programu Mnożenie

1. Wpisz następujący kod do części ogólnych deklaracji frmMnozenie:

`Wszystkie zmienne muszą być zadeklarowane

Option Explicit

1. Do procedury cmdMnozenie_Click() formy frmMnozenie wpisz następujący kod:

Sub cmdMnozenie_Click()

Pomnoz 2,3

End Sub

Instrukcja

Procedura cmdMnozenie_Click() jest wykonywana zawsze, gdy użytkownik kliknie przycisk cmdMnozenie. Instrukcja wewnątrz procedury wywołuje procedurę Pomnoz dla argumentów 2 i 3

1. Do procedury cmdKoniec_Click() formy frmMnozenie wpisz następujący kod:

Sub cmdKoniec_Click()

End

End Sub

1. Dodaj do formy nową procedurę Pomnoz. Wykonaj to wybierając z menu Tools > AddProcedure, najpierw jednak musisz wywołac okno code aby ta opcja menu była dostepna. W odpowiedzi Visual Basic wyświetli pustą procedurę Pomnoz.

1. Zmień nagłówek procedury tak, aby miał następującą postać:

Sub Pomnoz (X As Integer, Y As Integer)

End Sub

1. Do procedury Pomnoz wpisz następujący kod:

Sub Pomnoz (X As Integer, Y As Integer)

txtWynik.Text = X * Y

End Sub




Informacja

Procedura Pomnoz() ma dwa argumenty: Sub Pomnoz (X As Integer, Y As Integer) txtWynik.Text = X * Y End Sub Pierwszy argument nazywa się X i jest zadeklarowany jako liczba całkowita (As Integer), drugi argument nazywa się Y i również jest typu całkowitego (As Integer). W procedurze Pomnoz cecha Text pola tekstu txtWynik przypisywany jest wynik mnożenia X * Y. Procedura z poprzedniego ćwiczenia UpdateLabel() nie miała argumentów, a jej nagłówek posiadał następującą postać: Sub UpdateLabel() End Sub Aby wykonać procedurę UpdateLabel() wykorzystywaliśmy następującą instrukcje: UpdateLabel Procedura Pomnoz ma dwa argumenty i w związku z tym nagłówek procedury jest następujący: Sub Pomnoz(X As Integer, Y As Integer) End Sub Aby wykonać procedurę Pomnoz(), używa się instrukcji: Pomnoz 2,3 W Visual Basicu można również wywoływać procedury przy wykorzystaniu instrukcji Call. Call Pomnoz (2,3)

Uruchomienie programu Mnożenie

1. Uruchom program Mnożenie

1. Kliknij przycisk Mnożenie. W odpowiedzi program wyświetli w polu tekstu liczbę 6.

1. Kliknij Koniec, aby zakończyć działanie programu.

Używanie funkcji w programie Mnożenie

Informacja

Różnica pomiędzy procedurą i funkcją polega na tym, że procedura nie zwraca żadnej wartości, a funkcja zwraca.

1. Wyświetl okno Code. (Aby wyświetlić okno Code musisz podświetlić formę frmMnozenie w oknie Project i kliknąć przycisk View Code).

1. Kliknij strzałkę na liście Object (Lista Object znajduje się na lewo w górnej części okna Code).

1. Wybierz element General z listy Object.

1. Kliknij strzałkę na liście Proc (lista Proc znajduje się z prawej strony w górnej części okna Code).

1. Z listy Proc wybierz element Pomnoz. W odpowiedzi Visual Basic wyświetli procedurę Pomnoz.

1. Podświetl całą procedurę (razem z nagłówkiem i ostatnią linijką) i wciśnij klawisz Delete (Del).

1. Z menu Tols wybierz New Procedure. W odpowiedzi Visual Basic wyświetli okno dialogowe New Procedure.

1. W okmnie dialogowym New Procedure wybierz przycisk opcji Function (dodajemy nową funkcje).

1. W polu Name okna dialogu wpisz Pomnoz

1. Kliknij przycisk OK okna dialogowego New Procedure. W odpowiedzi Visual Basic wyświetli okno Code funkcji Pomnoz.

Function Pomnoz()

End Function

1. Zmień w następujący sposób nagłówek funkcji Pomnoz.

Function Pomnoz (X As Integer, Y As Integer)

End Function

1. Dodaj do funkcji Pomnoz następujący kod:

Function Pomnoz (X As Integer, Y As Integer)

Dim Z

Z = X * Y

Pomnoz = Z

End Function

Informacja

W kodzie funkcji Pomnoz() została zadeklarowana zmienna Z, której następnie przypisywany jest wynik mnożenia X * Y. Ostatnia instrukcja funkcji Pomnoz() przypisuje Pomnoz wartość zmiennej Z Pomnoz = Z Pomnoz to wartość zwracana przez funkcję Pomnoz(). Każdy, kto wywołał funkcję Pomnoz(), może wykorzystać zwróconą przez funkcję wartość.

1. W następujący sposób zmień procedurę cmdMnozenie_Click():

Sub cmdMnozenie_Click()

txtWynik.Text = Pomnoz (2, 3)

End Sub

Informacja

Kod wewnątrz procedury cmdMnozenie_Click() przypisuje wartość zwracaną przez funkcję Pomnoz do cechy Text pola tekstu txtWynik. txtWynik.Text = Pomnoz(2,3) Zastosowanie funkcji w miejsce procedur w przypadku wyliczania jakichkolwiek wartości zwiększa czytelność i zrozumiałość programów. Zapisana powyżej instrukcja, może być odczytana jako: wywołaj funkcję Pomnoz() dla parametrów 2 i 3, a zwróconą wartość przypisz do cechy Text pola tekstowego txtWynik.

1. Zachowaj projekt (z menu File wybierz Save Project).

1. Uruchom program Mnożenie..

1. Kliknij przycisk Mnożenie.

1. Kliknij przycisk Koniec, aby zakończyć działanie programu.

Tworzenie pliku wykonywalnego (Mnozenie.exe)

1. Wybierz z menu File opcję Make EXE File.

1. Zapamiętaj plik pod nazwą Mnozenie.exe .

1. Zakończ działanie Visual Basic wybierając z menu File opcję Exit.

1. Uruchom stworzony program.

Ćwiczenie końcowe

1. Dodaj do programu kratkę, której wybór spowoduje wykonanie funkcji mnożenia natomiast jeżeli kratka nie będzie wybrana wciśnięcie klawisza Dodaj spowoduje wykonanie procedury dodawania dwóch liczb.

11

6

---