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.
2. 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
cmdMnozenie
&Mnożenie
1815
1800
2295
cmdKoniec
&Koniec
495
5760
3360
1215
Text Box
Text
txtWynik
855
360
480
6495
(skasować zawartość)
Label
lblWynik
Wynik:
255
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
2. 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
2. 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.
3. Zmień nagłówek procedury tak, aby miał następującą postać:
Sub Pomnoz (X As Integer, Y As Integer)
4. Do procedury Pomnoz wpisz następujący kod:
txtWynik.Text = X * Y
6
Informacja
Procedura Pomnoz() ma dwa argumenty:
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()
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)
Aby wykonać procedurę Pomnoz(), używa się instrukcji:
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
2. Kliknij przycisk Mnożenie. W odpowiedzi program wyświetli w polu tekstu liczbę 6.
3. Kliknij Koniec, aby zakończyć działanie programu.
Używanie funkcji w programie Mnożenie
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).
2. Kliknij strzałkę na liście Object (Lista Object znajduje się na lewo w górnej części okna Code).
3. Wybierz element General z listy Object.
4. Kliknij strzałkę na liście Proc (lista Proc znajduje się z prawej strony w górnej części okna Code).
5. Z listy Proc wybierz element Pomnoz. W odpowiedzi Visual Basic wyświetli procedurę Pomnoz.
6. Podświetl całą procedurę (razem z nagłówkiem i ostatnią linijką) i wciśnij klawisz Delete (Del).
7. Z menu Tols wybierz New Procedure. W odpowiedzi Visual Basic wyświetli okno dialogowe New Procedure.
8. W okmnie dialogowym New Procedure wybierz przycisk opcji Function (dodajemy nową funkcje).
9. W polu Name okna dialogu wpisz Pomnoz
10. Kliknij przycisk OK okna dialogowego New Procedure. W odpowiedzi Visual Basic wyświetli okno Code funkcji Pomnoz.
Function Pomnoz()
End Function
11. Zmień w następujący sposób nagłówek funkcji Pomnoz.
Function Pomnoz (X As Integer, Y As Integer)
...
kkkate