Samo registrovani članovi mogu pisati porukice.
[Zatvori]

  • Page 1 of 1
  • 1
Provjera vrijednosti (Select Case)






289
poruka na forumu
16 266



post # 1 | 13.02.2013 , 1:16 PM

Provjera pomoću Select Case naredbe se vrši na slijedeći način:
Code

Dim Vrijednost As Boolean

Select Case Vrijednost
Case False
MsgBox("False")
Case True
MsgBox("True")
End Select


Kao što vidimo, u prvoj liniji naredbe definiramo vrijednost koju želimo provjeriti.
Code
Select Case Vrijednost

Blok ove provjere se završava sa naredbom End Select.

Usporedbu vrijednosti vršimo preko naredbe Case [Vrijednost_Za_Usporedbu].
A ispod usporedbe pišemo kod koji će se izvršiti ako usporedba bude točna.

Slijedi još jedan primjer korištenja Select Case naredbe.
Code

Dim Vrijednost As Integer

Select Case Vrijednost
Case 1
MsgBox("Los")
Case 2
MsgBox("Dovoljan")
Case 3
MsgBox("Dobar")
Case 4
MsgBox("Vrlodobar")
Case 5
MsgBox("Odlican")
Case Else
MsgBox("Neocjenjen")
End Select


U ovom primjeru ste vjerovatno primjetili liniju koda Case Else. Kod koji
se nalazi ispod ove linije koda biti ce izvršen samo ako nijedna prijašnja usporedba
nije bila točna.








2963
poruka na forumu
797 10239



post # 2 | 04.03.2013 , 4:13 PM

Eye, Ovo si mogao a i trebao postaviti u Tutorijale...

:P



  • Page 1 of 1
  • 1
Search: