Akademia Techniczno-Rolnicza w Bydgoszczy
Wydział Mechaniczny
Katedra Sterowania i Konstrukcji
Systemy mikrokomputerowe
WSTĘP DO PROGRAMOWANIA
W JĘZYKU VISUAL BASIC
Instrukcja nr 5
Opis działania programu Suma
Program Suma pozwala użytkownikowi wybrać liczbę, a następnie dodaje wszystkie liczby całkowite od 1 do tej liczby. Na przykład jeżeli użytkownik wybrał liczbę 5, program przeprowadzi następujące obliczenia:
1+2+3+4+5 = 15
i wyświetli wynik.
Wizualna implementacja programu Suma
1. Otwórz nowy projekt, zachowaj formę projektu w pliku Suma.frm, plik projektu jako Suma.mak.
2. Na podstawie tabeli zbuduj formę frmSuma.
Obiekt
Własność
Ustawienie
Form
Name
Caption
Height
Left
Top
Width
frmSuma
Suma
3708
1416
1512
6516
Command Button
cmdSuma
&Dodaj
1692
3600
480
2052
Vertical Scroll Bar
Max
Min
Value
vsbLiczba
2652
240
500
1
252
Text Box
Alignment
Enabled
MultiLine
Text
txtWynik
2-Center
False
612
600
True
720
2292
(usunąć zawartość)
cmdKoniec
&Koniec
372
4080
2400
972
Label
lblLiczba
Wybrana liczba:
2040
2412
Rys.1 Program Suma
Wprowadzanie kodu programu Suma
1. W części ogólnych deklaracji formy frmSuma wpisz kod:
‘Wszystkie zmienne muszą być zadeklarowane
Option Explicit
2. Do procedury cmdKoniec_Click() formy frmSuma wpisz kod:
Sub cmdKoniec_Click()
End
End Sub
3. Do procedury cmdSuma_Click() formy frmSuma wpisz kod:
Sub cmdSuma_Click()
Dim I
Dim R
For I = 1 to vsbLiczba.Value Step 1
R = R + I
Next
txtWynik.Text = R
Informacja
Procedura cmdSuma_Click() jest wykonywana zawsze, gdy użytkownik kliknie na przycisk Dodaj:
W procedurze deklarowane są dwie zmienne: I oraz R. Następnie w pętli For...Next jest wyliczana suma:
1 + 2 + 3 + .... + vsbLiczba.Value
Początkowo zmienna R ma wartość 0, ponieważ Visual Basic przypisuje wartość 0 w czasie deklaracji. Ostatnia instrukcja procedury uaktualnia cechę Text pola tekstu wartością zmiennej R.
Uwaga:
Blok For...Next jest rodzajem pętli Visual Basica. Następująca pętla wykonuje liczenie od 1 do 100:
For I = 1 to 100 Step 1
txtMojePoleTekstowe.Text = I
Aby wykonać liczenie od 1 do 100 z krokiem 2 (1,3,5,7, ...) można użyć poniższej pętli For...Next:
For I = 1 to 100 Step 2
Pominięcie słowa Step powoduje wykorzystanie standardowego kroku 1 (Step 1). Dwa następujące bloki wykonują tą samą operacje:
txtMojePoleTekstowe.Txt = I
Next I
For I = 1 to 100
Można wyjść z pętli For...Next zanim zmienna osiągnie wartość końcową wywołując instrukcję Exit For.
For I = 1 to 1000
txtWynik.Text = I
If I = 500 Then
Exit For
End If
Powyższy kod liczy z krokiem 1 zaczynając od 1. Gdy I równa się 500, pętla For kończy działanie.
1. Do procedury vsbLiczba_Change() formy frmSuma wpisz kod:
Sub vsbLiczba_Change()
lblLiczba.Caption = „Wybrana liczba: ” + str(vsbLiczba.Value)
Informacje
Procedura vsbLiczba_Change() jest wykonywana zawsze, gdy użytkownik zmienia położenie suwaka przewijania. Procedura uaktualnia cechę Text etykiety lblLiczba na wartość pobraną z cechy Value paska przewijania. Pozwala to użytkownikowi wczytać pozycję suwaka. Funkcja Str() kowertuje format zmiennej z cyfrowej na tekstową, co umozliwia dodanie jej do innego łańcucha tekstowego.
1. Do procedury vsbLiczba_Scroll() formy frmSuma wpisz kod:
Sub vsbLiczba_Scroll()
Procedura vsbLiczba_Scrol() jest wykonywana zawsze, gdy użytkownik przeciąga suwak paska przewijania. Procedura uaktualnia cechę Text etykiety lblLiczba na wartość pobraną z cechy Value paska przewijania.
Uruchomienie programu Suma
1. Wywołaj program Suma.
2. Wybierz liczbę, klikając ikony strzałek pionowego paska przewijania lub przeciągając suwak przewijania. W odpowiedzi program wyświetli wybraną liczbę.
3. Kliknij przycisk Dodaj. W odpowiedzi program wykona obliczenia i wyświetli wynik w polu tekstu.
4. Zakończ działanie programu klikając przycisk ...
kkkate