Akademia Techniczno-Rolnicza w Bydgoszczy
Wydział Mechaniczny
Katedra Sterowania i Konstrukcji
Systemy mikrokomputerowe
WSTĘP DO PROGRAMOWANIA
W JĘZYKU VISUAL BASIC 5
Instrukcja nr 11
Opis działania programu Grafika
Program Grafika pokazuje wykorzystanie podstawowych funkcji graficznych języka Visual Basic.
Implementacja wizualna programu Grafika.
1. Otwórz nowy projekt, zachowaj jego formę w pliku Grafika.frm, a projekt pod nazwą Grafika.mak .
2. Na podstawie tabeli zbuduj formę tak jak na rysunku 1.
Obiekt
Własność
Ustawienie
Form
Name
Caption
Height
Left
Top
Width
frmGrafika
Grafika
5115
1155
2715
7590
Timer
Interval
tmeZegar
1
6960
120
Command Button
cmdStartStop
Start
390
240
1830
Rys.1 Program Grafika
W celu utworzenia menu opcje należy otworzyć okno Menu Design, poprzez wybór z menu Window opcji Menu Design.
Rys.2 Okno Menu Design
- jest to okienko tekstowe, do którego wprowadza się nazwę menu, podmenu lub komendy mającej pojawić się na pasku menu lub w samym menu. Wpisanie znaku „-” zamiast nazwy tworzy w menu separator. Uzyskanie dostępu poprzez klawiaturę do wprowadzanej pozycji menu możliwe jest po umieszczeniu znaku „&” przed jednym ze znaków nazwy. Po uruchomieniu znak poprzedzony ampersandem („&”) będzie podkreślony, a użytkownik będzie mógł dotrzeć do menu wciskając na klawiaturze lewy Alt i podkreślony znak.
- okienko tekstowe, do którego wprowadza się nazwę tworzonego obiektu (menu, podmenu lub komendy), Nazwa ta spełnia taką samą rolę jak nazwy innych obiektów Visual Basica.
- okienko tekstowe, do którego wprowadza się wartość numeryczną określającą pozycję obiektu menu w tabeli obiektów (bez związku z pozycją obiektu na ekranie).
- lista, z której można wybrać skrót klawiatórowy związany z daną pozycją menu.
- wybór tej opcji spowoduje, że menu będzie zawierało listę wszystkich otwartych form (okienek) projektowanej aplikacji.
- okienko tekstowe, do którego wprowadza się wartość numeryczną określającą indeks tematu pomocy związanego z daną pozycją menu.
- wybór tej opcji spowoduje, że po uruchomieniu wskazana pozycja menu będzie zaznaczona (znaczkiem „ü”, a wartość cechy Checked będzie ustawiona na True.
- zaznaczenie tej opcji powoduje, że wskazana pozycja menu będzie dostępna dla użytkownika po uruchomieniu aplikacji.
- zaznaczenie tej opcji spowoduje, że wybrana pozycja menu będzie widoczna po uruchomieniu programu.
- klawisze, które pozwalają ustalić, czy wprowadzona pozycja jest nazwą menu, stanowi jedną z jego komend lub jest nazwą podmenu. Można w ten sposób utworzyć do czterech „warstw” menu.
- umożliwiają zmianę pozycji wskazanej komendy menu niższą lub wyższą w obrębie pojedynczej „warstwy” menu.
- hierarchiczna lista obiektów wszystkich menu. Komendy menu i nazwy podmenu są odsunięte od marginesu, aby wyróżnić ich pozycję na poszczególnych „warstwach”.
- przesuwa wskazany obiekt do następnej linii.
- wprowadza nowy obiekt do menu przed obiekt wskazany.
- kasuje wskazany obiekt.
- kończy definiowanie menu, zapisując zmiany
- kończy definiowanie menu unieważniając zmiany
Numer menu
Menu nadrzędne (numer)
mnuOpcje
&Opcje
-
2
mnuPunkt
&Punkty
3
mnuLinia
&Linie
4
mnuOkrag
Okrę&gi
5
mnuSeparator1
6
mnuKoniec
&Koniec
Wprowadzanie kodu programu Grafika
1. Do procedury mnuPunkt_Click() formy frmGrafika wpisz następujący kod:
Sub mnuPunkt_Click()
mnuPunkt.Checked = True
mnuLinia.Checked = False
mnuOkrag.Checked = False
End Sub
Instrukcja
Procedura ta wykonywana jest po wybraniu z menu Opcje komendy Punkty. W wyniku jej działania cecha Checked oznaczająca fakt wybrania opcji Punkty (mnuPunkty) jest ustawiania na True (Prawda), zaś ta sama cecha w przypadku innych opcji menu jest ustawiana na False. Wizualnym efektem działania tej procedury jest pojawienie się w menu przy opcji Punkty znaczka „ü”.
2. Do procedury mnuLinia_Click() formy frmGrafika wpisz następujący kod:
Sub mnuLinia_Click ()
mnuPunkt.Checked = False
mnuLinia.Checked = True
Procedura ta wykonuje podobne operacje co kod zamieszczony w punkcie 1 lecz odnosi się do wybrania z menu Opcje komendy Linie.
3. Do procedury mnuOkrag_Click() formy frmGrafika wpisz następujący kod:
Sub mnuOkrag_Click ()
mnuOkrag.Checked = True
Procedura ta wykonuje podobne operacje co kod zamieszczony w punkcie 1 lecz odnosi się do wybrania z menu Opcje komendy Okręgi.
4. Do procedury mnuKoniec_Click() formy frmGrafika wpisz następujący kod:
Sub mnuKoniec_Click ()
End
Procedura ta wykonywana jest po wybraniu z menu Opcje komendy Koniec i powoduje zakończenie działania programu.
6. Do procedury cmdStartStop_Click() formy frmGrafika wpisz następujący kod:
Sub cmdStartStop_Click ()
Select Case Wykonuj
Case True
cmdStartStop.Caption = "Start"
Wykonuj = False
mnuOpcje.Enabled = True
Cls
Case False
cmdStartStop.Caption = "Stop"
Wykonuj = True
mnuOpcje.Enabled = False
If mnuLinia.Checked = True Then
Randomize
DrawWidth = 2
ElseIf mnuPunkt.Checked = True Then
DrawWidth = 5
ElseIf mnuOkrag.Checked = True Then
DrawWidth = 1
DrawStyle = 1
DrawMode = 7
End If
End Select
kkkate