1. Języki programowania 1 Piotr Górczyński Instrukcje warunkowego wyboru

2. Instrukcje warunkowego wyboru Instrukcje warunkowego wyboru pozwalają na wybranie sposobu działania programu w zależności od aktualnych warunków.

3. Instrukcja If • Instrukcja If wykonuje zestaw rozkazów jeśli podane wyrażenie jest prawdziwe, czyli ma wartość True. • Składnia:If wyrażenieThenrozkaz1rozkaz2 ...End If strHaslo=Inputbox(„Jakie jest hasło?”) if strHaslo<>”Sezam” then Msgbox „Zle haslo – koniec” End end if Msgbox „Haslo poprawne – ide dalej”

4. Działanie If ‘Kod programu Linia1 If a=5 then Linia2 Linia3 End if Linia4 ‘Wykonanie programu – gdy zmienna a jest równa 5, czyli wyrażenie a=5 jest prawdziwe (True) Linia1 Linia2 Linia3 Linia4 ‘Wykonanie programu – gdy zmienna a jest różna od 5, czyli wyrażenie a=5 jest nieprawdziwe (False) Linia1 Linia4

5. Inna składnia If • Instrukcja If wykonująca jeden rozkaz jeśli podane wyrażenie jest prawdziwe, czyli ma wartość True. • Składnia:If wyrazenieThen rozkaz If intOcena=2 Then Msgbox „Nie zdałeś” Komunikat „Nie zdałeś” zostanie wyświetlony tylko wtedy, jeśli wartość zmiennej intOcena będzie równa 2, czyli wyrażenie intOcena=2 będzie prawdziwe (True).

6. Instrukcja If i Else • Zestaw rozkazów po instrukcji Else jest wykonywany jeśli wyrażenie podane w instrukcji If jest nieprawdziwe (False). • Składnia:If wyrażenieThenrozkaz1rozkaz2 ...Elserozkaz3 rozkaz4 ...End If

7. Działanie If i Else ‘Kod programu Linia1 If a=5 then Linia2 Else Linia3 End if Linia4 ‘Wykonanie programu – gdy zmienna a jest równa 5, czyli wyrażenie a=5 jest prawdziwe (True) Linia1 Linia2 Linia4 ‘Wykonanie programu – gdy zmienna a jest różna od 5, czyli wyrażenie a=5 jest nieprawdziwe (False) Linia1 Linia3 Linia4

8. Zagnieżdżony If If Text1.Text = 2 Then Label1.Caption = "Dwa" Else If Text1.Text = 3 Then Label1.Caption = "Trzy" Else If Text1.Text = 4 Then Label1.Caption = "Cztery" Else If Text1.Text = 5 Then Label1.Caption = "Pięć" Else Label1.Caption = "Poza zakresem!" End If End If End If End If

9. Instrukcja Select Case • Instrukcja Select Case wykonuje dany zestaw rozkazów jeśli wyrażenie przyjmuje daną wartość. • Instrukcja ta działa tylko dla wyrażeń dyskretnych • Składnia:Select CasewyrażenieCasewartość1rozkazy ... [CasewartośćNrozkazy][Case Elserozkazy]End Select

10. Przykład Select ‘To samo zapisane instrukcją If If Text1.Text = 2 Then Label1.Caption = "Dwa" Else If Text1.Text = 3 Then Label1.Caption = "Trzy" Else If Text1.Text = 4 Then Label1.Caption = "Cztery" Else If Text1.Text = 5 Then Label1.Caption = "Pięć" Else Label1.Caption = "Poza zakresem!" End If End If End If End If Select Case Text1.Text Case 2 Label1.Caption = "Dwa" Case 3 Label1.Caption = "Trzy" Case 4 Label1.Caption = "Cztery" Case 5 Label1.Caption = "Pięć" Case Else Label1.Caption = "Poza zakresem!" End Select

11. Literatura • www.vba.matrix.pl • vb4all.canpol.pl