DODATNA NASTAVA

VISUAL BASIC - STRUKTURE ODLUČIVANJA Select Case

U strukturi odlučivanja Select Case se odluka o grananju donosi na osnovu vrednosti jedne promenljive.
Select Case je slična strukturi If...Then...ElseIf, ali je efikasnija kada grananje zavisi od jedne promenljive. Struktura Select Case je, osim toga, čitljivija.
Sintaksa strukture Select Case izgleda ovako:

Select Case promenljiva
Case vrednost1
   programske naredbe koje treba izvršiti ako promenljiva ima vrednost1
Case vrednost2
   programske naredbe koje treba izvršiti ako promenljiva ima vrednost2 
Case vrednost3
   programske naredbe koje treba izvršiti ako promenljiva ima vrednost3
.
.
.
End Select 
Na mesto promenljiva, stavljate promenljivu, svojstvo ili drugi izraz čija će vrednost biti merilo u strukturi. Na mesta vrednost1, vrednost2, vrednost3 stavljate brojeve, stringove ili druge vrednosti koje ispitujete. Ako je vrednost promenljive jednaka nekoj od vrednosti navedenih u strukturi, izvršiće se programske naredbe ispod odgovarajuće klauzule Case, posle čega VB nastavlja sa izvršavanjem naredbi iza naredbe End Select. Ako u istoj klauzuli postoji nekoliko vrednosti, treba ih razdvojiti zarezima.

U sledećem primeru se struktura Select Case koristi u programu za upućivanje odgovarajuće poruke, zavisno od nečije starosti.

Select Case Godine
Case 16
   Label1.Caption = "Sada mozete da vozite!"
Case 18
   Label1.Caption = "Sada mozete da glasate!"
Case 21
   Label1.Caption= "Mozete da pijete vino!"
Case 65
   Label1.Caption= "Vreme za penziju i uzivanje!"
End Select
U strukturi Select Case može da se koristi i klauzula Case Else za slučaj da vrednost promenljive nije ni jedna od navedenih u klauzulama. Evo kako bi to izgledalo u prethodnom primeru:


Select Case Godine
Case 16
   Label1.Caption = "Sada mozete da vozite!"
Case 18
   Label1.Caption = "Sada mozete da glasate!"
Case 21
   Label1.Caption= "Mozete da pijete vino!"
Case 65
   Label1.Caption= "Vreme za penziju i uzivanje!"
Case Else
   Label1.Caption= "Bas dobre godine!"
End Select
Visual Basic omogućava upotrebu operatora za poređenje u strukturi Select Case. Mogu se koristiti VB operatori za poređenje: =, <>, >, <, >= i <=. Kada se koriste operatori za poređenje, treba upotrebiti ključne reči Is ili To da bi se definisalo poređenje. Ključna reč Is nalaže prevodiocu da treba porediti promenljivu sa vrednošću iza ključne reči Is. Ključna reč To se koristi za opseg vrednosti.
Select Case Godine
Case Is <13
   Label1.Caption = "Uzivaj u detinjstvu!"
Case 13 To 19
   Label1.Caption = "Zdravo tinejdzeru!"
Case 21
   Label1.Caption= "Smete da pijete vino!"
Case Is >100
   Label1.Caption= "Odlicno"
Case Else
   Label1.Caption="Bas dobre godine!"
End Select

Struktura Select Case za obradu liste

1. U meniju File kliknite na komandu New Project i napravite novu standardnu aplikaciju.

2. Kliknite na kontrolu Label na paleti alatki i napravite veliki okvir u gornjem srednjem delu obrasca gde će se nalaziti naslov programa.

3.Kliknite na kontrolu ListBox na paleti alatki i ispod labele napravite polje sa listom.
4. Napravite jednu malu labelu iznad objekta ListBox i dve male labele ispod njega. Unjima će se prikazati rezultati programa.
5. Kliknite na kontrolu CommandButton na paleti alatki i napravite malo komandno dugme u dnu obrasca.
6. Kliknite na dugme Properties Window i podesite svojstva objekata kako je navedeno:
Objekat      Svojstvo                Vrednost
Label1          Caption                "Program za prikazivanje dobrodoslice na stranim jezicima"
                      Font                    Times New Roman, Bold, 14 pointa
Label2          Caption                "Izaberi zemlju"
Label3          Caption                 prazno
Label4          Caption                 prazno
                      BorderStyle          1 - Fixed Single
                      ForeColor            Tamnocrveno (&H00000080&)
Command1  Caption                "Izlaz"

7. Dva puta brzo kliknite na obrazac.
U prozoru Code se pojavljuje procedura događaja Form_Load.
8. Upišite sledeći programski kod za popunjavanje liste:
List1.AddItem "England"
List1.AddItem "Germany"
List1.AddItem "Spain"
List1.AddItem "Italy"
Metodom AddItem objekta ListBox, unosimo stavke u listu.

9. Otvorite padajuću listu Object i odaberite objekat List1. U prozoru Code se pojavljuje procedura događaja List1_Click.
10. Upišite sledeće redove za obradu korisnikovog izbora sa liste:
Label3.Caption=List1.Text
Select Case List1.ListIndex
Case 0
   Label4.Caption="Hello, programmer"
Case 1
   Label4.Caption="Hello, programmierer"
Case 2
   Label4.Caption="Hola, programador"  
Case 3
   Label4.Caption="Ciao, programmatori"
End Select

11. Dva puta kliknite na komandno dugme i upišite End u proceduru događaja.
Kliknite na start i proverite rad svog programa.