© W. Treichel, Podstawy Informatyki, sem. 2, Wydział Inżynierii Środowiska

Strona 1 z 3

B1. Instrukcje warunkowe

If ... Then ... EndIf

Z a d B 1 . M o d u ł l i c z b y . Obliczyć wartość bezwzględną podanej liczby.

Wskazówki do rozwiązania
1. Tworzenie formularza

1.1. Utwórz nowy projekt typu Windows Form Application. Zmień nazwę tworzonego

projektu na Modul. W panelu Solution Explorer zmień nazwę utworzonego
formularza z Form1 na Modul oraz w panelu właściwości zmień napis (Text) na
pasku formularza na Obliczanie wartości bezwzględnej

1.2. Umieść napis Obliczanie wartości bezwzględnej podanej liczby w postaci etykiety

(Label). Dla lepszego kontrolowania etykiety zmień właściwość automatycznego
wymiarowania (Auto size) na False. Zadbaj o odpowiednie położenie (TextAlign)
(wycentrowanie) oraz czcionkę (Times New Roman, 14, Pogrubiona)

1.3. Umieść na formularzu ramkę, kontener grupy (GroupBox) i zmień na niej napis

(Text) na Podaj liczbę.

1.4. Wewnątrz grupy umieść etykietę (Label) z napisem (Text) a = . Możesz wyrównać

go do prawego marginesu (nadać właściwości TextAlign wartość MiddleRight).
Obok niej umieść pole tekstowe (TextBox) i nazwij je odpowiednio txtA.

1.5. W podobny sposób umieść na formularzu następną etykietę (Label), nazwij ją

(Name) lblModul oraz wyczyść jej zawartość (Text). W tym miejscu będzie
wyświetlony wynik obliczeń.

1.6. Umieść na formularzu przycisk akcji (Button), nadaj mu nazwę (Name) btnOblicz

oraz zmień napis na nim (Text) na Oblicz.

1.7. Na koniec, umieść na formularzu jeszcze jeden przycisk akcji (Button), nadaj mu

nazwę btnKoniec oraz zmień napis na nim na Koniec.

1.8. Zapisz na dysku utworzony projekt nadając mu nazwę Modul. Wybierz odpowiedni

katalog roboczy i upewnij się, że zaznaczona jest opcja „Utwórz nowy katalog dla
rozwiązania”.

2. Pisanie kodu programu
Uwaga: Przed przystąpieniem do pisania kodu programu narysuj schemat blokowy dla tego
zadania.

2.1. Dwukrotne kliknięcie przycisku btnKoniec przeniesie cię do okna kodu

Modul.Designer.vb

, do procedury obsługi zdarzenia kliknięcia tego przycisku, czyli

© W. Treichel, Podstawy Informatyki, sem. 2, Wydział Inżynierii Środowiska

Strona 2 z 3

do procedury

Private

Sub

btnKoniec_Click(...)

.

Wpisz wewnątrz tej procedury

polecenie

Close()

powodujące zakończenie programu.

2.2. Wróć ponownie do okna tworzonego formularza

Modul.vb[Design]

. Dwukrotne

kliknięcie przycisku btnOblicz przeniesie cię ponownie do okna kodu, do obsługi
zdarzenia kliknięcia tego przycisku, czyli do procedury

Private

Sub

btnOblicz_Click(...)

. Będzie to główna procedura realizująca obliczenia w

zależności od wprowadzonej wartości w polu txtA oraz wyświetlająca wynik Na
początku tej procedury zadeklaruj lokalną zmienną typu rzeczywistego wpisując:

Dim

a

As

Single

Następnie odczytaj wartość znajdującą się w polu tekstowym txtA nadając tą wartość
zmiennej a tzn. podstaw na a wartość właściwości Text obiektu txtA. Zagwarantuj,
ż

e nastąpi konwersja (zamiana) tekstu na liczbę (zapewnia to funkcja Val. W

przypadku, gdy obiekt txtA będzie zawierał tekst nie odpowiadający liczbie, funkcja
Val zwróci wartość równą 0). Linia kodu powinna wyglądać następująco:

a = Val(txtA.Text)

2.3. Posługując się przygotowanym na początku schematem blokowym napisz instrukcję

warunkową:

If

....

Then

.....

End

If

która pozwoli obliczyć wartość bezwzględną wprowadzonej liczby, tzn. liczbę ujemną
zamieni na do niej przeciwną, a liczbę nieujemną pozostawi bez zmian.
Uwaga: do wpisania konstrukcji

if ... endif

możesz skorzystać z narzędzia

automatycznego wstawiania kodu (Code Patterns) InsertSnippet, które oferuje
ś

rodowisko Visual Basic 2008.

2.4. Wyświetl następnie obliczoną wartość bezwzględną w miejscu do tego

przeznaczonym czyli nadaj właściwości Text etykiety lblModul odpowiednią
wartość. Zadbaj o konwersję liczby na tekst za pomocą funkcji

Str()

. Zatem

lblModul.Text = "|a| = " & Str(a)

2.5. Zapisz swój projekt, a następnie uruchom go i przetestuj jego działanie na kilku

danych. Sprawdź działanie programu dla błędnych danych np. wprowadź w pole
tekstowe inny tekst niż liczby.

© W. Treichel, Podstawy Informatyki, sem. 2, Wydział Inżynierii Środowiska

Strona 3 z 3

Poniżej, dla sprawdzenia, przytoczono kod programu dla tego zadania.

Private

Sub

btnKoniec_Click(

ByVal

sender

As

System.Object,

ByVal

e

As

System.EventArgs)

Handles

btnKoniec.Click

Close()

End

Sub

Private

Sub

btnOblicz_Click(

ByVal

sender

As

System.Object,

ByVal

e

As

System.EventArgs)

Handles

btnOblicz.Click

Dim

a

As

Single

a = Val(txtA.Text)

If

a < 0

Then

a = -a

End

If

lblModul.Text =

"|a|="

& Str(a)

End

Sub