© 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