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.
