VISUAL BASIC - STRUKTURE ODLUČIVANJA

STRUKTURE ODLUČIVANJA
- uslovni izrazi postavljaju pitanja na koja se može odgovoriti sa TAČNO ili sa NETAČNO.
Primer:  Cena<100 je TAČNO ako promenljiva Cena sadrži vrednost koja je manja od 100, a NETAČNO,  ako je vrednost u promenljivoj Cena veća ili jednaka 100.
Mogui se upotrebiti sledeći operatori:
=      jednako
< >   nejednako
>      veće
<      manje
>=    veće ili jednako
<=   manje ili jednako

IF... THEN
- sa ovim uslovom dodajemo logiku u program
If uslov Then naredba
If Rezultat >=20 Then Label1.Caption = "Pobedili ste"

Ispitivanje više uslova u strukturi IF...THEN

If uslovi Then
      naredbe koje se izvršavaju ako je tačan uslov
Else If uslov2 Then
      naredbe koje se izvršavaju ako je tačan uslov2
Else
      naredbe koje se izvršavaju ako ni jedan od uslova nije tačan
End If

Private Sub Command1_Click()
Vrednost = InputBox("unesi broj")
If Vrednost >= 80 Then
      MsgBox ("Putujes najvisom klasom")
  ElseIf Vrednost >= 60 Then
      MsgBox ("Putujes prvom klasom ")
  ElseIf Vrednost >= 40 Then
      MsgBox ("Putujes drugom klasom")
  Else
      MsgBox ("Nije dovoljno za kartu")
  End If
End Sub





PROVERA IDENTITETA I ŠIFRE

Upotrebićemo isti obrazac (Form1), kao u prethodnom primeru, komandno dugme dobiće novi kod. Dupli klik na dugme Log In i upišite sledeći kod:
Napomena: na mesto crvenog teksta stavite svoj link do slike koju želite da se pojavi na obrascu.

Private Sub Command1_Click()
    UserName = InputBox("Unesi svoje ime.")
    Pass = InputBox("Unesi sifru.")
    If UserName = "Marija" And Pass = "Maj17" Then
        MsgBox ("Dobro dosla, Marija!  Da li si spremna za rad na svom PC?")
        Form1.Picture =LoadPicture("c:\vb6sbs\less06\pcomputr.wmf")
    ElseIf UserName = "Pavle" And Pass = "trek" Then
        MsgBox ("Dobro dosao Pavle!  Da li si spreman?")
        Form1.Picture = LoadPicture("c:\vb6sbs\less06\rolodex.wmf")
    Else
        MsgBox ("Izvinite, ne prepoznajem vas.")
        End   'izlaz iz programa
    End If
End Sub
......................................................................................................................................................
DA LI STE TINEJDZER
Evo još jedan primer gde se u zavisnosti od toga koliko imate godina proverava da li ste tinejdzer ili ne.

Dupli klik na dugme Test, upišite sledeći kod:

Private Sub Command1_Click()
    Godina = Text1.Text
        If Godina > 13 And Godina < 20 Then
        Text2.Text = "Ti si tinejdzer."
    Else
        Text2.Text = "Vise nisi tinejdzer."
    End If
End Sub