U ovoj lekciji obradićemo funkcije koje rade sa nizovima znakova i uradićemo primere za do sad spomenute objekte.

Funkcije koje rade sa nizovima znakova:

Val (brojna vrednost stringa-pretvara string u broj)

Len (daje dužinu stringa)
rez = Len(String)
Primer: rez = Len("Nokia") daje rezultat rez=5

Left (izdvaja n levih karaktera stringa)
rez = Left(String,n)
Primer: rez = Left("Nokia",2) daje rezultat rez="No"

Right (izdvaja n desnih karaktera stringa)
rez = Right(String,n)
Primer: rez = Right("Nokia",2) daje rezultat rez="ia"

LTrim (uklanja samo početne prazne znakove stringa)
rez = LTrim(String)
Primer: rez = LTrim("  Nokia  ") daje rezultat rez="Nokia  "

RTrim (uklanja samo krajnje prazne znakove stringa)
rez = RTrim(String)
Primer: rez = RTrim("  Nokia  ") daje rezultat rez="  Nokia"

Trim (uklanja početne i krajnje prazne znakove stringa)
rez = Trim(String)
Primer: rez = Trim("  Nokia  ") daje rezultat rez="Nokia"

UCase (pretvara mala slova u velika)
rez = UCase(String)
Primer: rez = UCase("Nokia") daje rezultat rez="NOKIA"

LCase (pretvara mala slova u velika)
rez = LCase(String)
Primer: rez = LCase("Nokia") daje rezultat rez="nokia"

Mid - izdvaja n karaktera stringa počevši od pozicije m, gde je m ceo broj i m>0. Ako se izostavi parametar n onda izdvaja sve karaktere od pozicije m do kraja stringa.

rez = Mid(String, m[, n])
Primer: rez = Mid("Nokia",2,2) daje rezultat rez="ok"
Primer: rez = Mid("Nokia",2,4) daje rezultat rez="okia"
Primer: rez = Mid("Nokia",2) daje rezultat rez="okia"

Space (daje kao rezultat n praznih mesta)
rez = Space(n)
Primer: rez =Space(4) daje kao rezultat rez="    "

StrReverse (obrće karaktere stringa)
rez = StrReverse (String)
Primer: rez = StrReverse("Nokia") daje kao rezultat rez="aikoN"

A sad prelazimo na primere:

Zadatak: Napraviti program koji će da sadrži 4 dugmeta (Prvo dugme / svojstvo Name - Desno, svojstvo Text - Pomeri Desno), (Drugo dugme / svojstvo Name - Levo, svojstvo Text - Pomeri Levo), (Treće dugme / svojstvo Name - Gore, svojstvo Text - Pomeri Gore), (Četvrto dugme / svojstvo Name - Dole, svojstvo Text - Pomeri Dole) i labelu (svojstvo Name - pokretnaLabela, svojstvo Text - Pokretna Labela) i napisati kod kojim će se labela pomerati u zavisnosti od toga koje je dugme kliknuto.

Rešenje: Forma treba da ima ovakav izgled

A kod koji treba da se unese:

Private Sub Gore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gore.Click
pokretnaLabela.Top -= 10
End Sub

Private Sub Dole_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dole.Click
pokretnaLabela.Top += 10
End Sub

Private Sub Levo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Levo.Click
pokretnaLabela.Left -= 10
End Sub

Private Sub Desno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Desno.Click
pokretnaLabela.Left += 10
End Sub

Napomena: u zadatku su korišćena svojstva objekta LEFT i TOP koja označavaju udaljenost objekta od gornje/leve ivice forme. NPR ukoliko želimo da postavimo neki objekat mesto udaljeno 100 jedinica od leve ivice forme to ćemo uraditi na sledeći način:

Objekat.Left = 100

ukoliko treba da postavimo neki objekat na mesto udaljeno 100 jedinica od gornje ivice forme to ćemo uraditi na sledeći način:

Objekat.Top = 100

a ukoliko treba da postavimo neki objekat na mesto udaljeno 100 jedinica i od gornje i od leve ivice forme to ćemo uraditi na sledeći način:

Objekat.Left = 100
Objekat.Top = 100

Zadatak: Iskoristiti postojeću formu i labelu na njoj a ostale objekte obrisati (četri dugmeta) i dodati objekat Timer (svojsvto Name - Tajmer, svojstvo Enabled - True, svojstvo Interval - 10). Napisati kod za objekat tajmer kojim će se labela pomerati udesno i kad dođe do desne ivice forme da se vrati na levu ivicu forme (na početak).

Rešenje:

Private Sub Tajmer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tajmer.Tick
pokretnaLabela.Left += 1
If pokretnaLabela.Left > Me.Width Then pokretnaLabela.Left = -pokretnaLabela.Width
End Sub

Objašnjenje: Svojstvo WIDTH predstavlja širinu objekta. Ako leva ivica labele pređe širinu forme onda se vraća na levu stranu ivice forme i ide u minus za širinu labele.   :)

Zadatak: Na postojeću formu dodati CheckBox (svojstvo Name - Kretanje, svojstvo Text - Kretanje) i ubaciti kod kojim će se uključenjem CheckBox-a labela kretati a isključenjem prestati da se kreće.

Rešenje:

Private Sub Tajmer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tajmer.Tick
pokretnaLabela.Left += 1
If pokretnaLabela.Left > Me.Width Then pokretnaLabela.Left = -pokretnaLabela.Width
End Sub

Zadatak: Na postojeću formu dodati TextBox (svojstvo Name - txtBoja) i dugme (svojstvo Name - btnBoja, svojstvo Text - Promeni Boju) i ubaciti kod kojim će se klikom na dugme menjati boja texta labele u zavisnosti od toga koja boja je upisana u txtBoja. Ukoliko je upisano/promeniće se boja u (crna - text labele menja se u crnu boju, crvena - text labele menja se u crvenu boju, plava - text labele menja se u plavu boju, zuta - text labele menja se u zutu boju, zelena - text labele menja se u zelenu boju, a ukoliko nije upisano ništa od navedenog boja texta promeniće se u belu).

Rešenje:

Private Sub btnBoja_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBoja.Click
Select Case txtBoja.Text
Case "crna"
pokretnaLabela.ForeColor = Color.Black
Case "crvena"
pokretnaLabela.ForeColor = Color.Red
Case "plava"
pokretnaLabela.ForeColor = Color.Blue
Case "zuta"
pokretnaLabela.ForeColor = Color.Yellow
Case "zelena"
pokretnaLabela.ForeColor = Color.Green
Case Else
pokretnaLabela.ForeColor = Color.White
End Select
End Sub

Zadatak: Na postojeću formu dodati pet RadioButton-a (Prvi / svojstvo Name - bBela, svojstvo Text - Bela Boja),  (Drugi / svojstvo Name - bCrvena, svojstvo Text - Crvena Boja), (Treći / svojstvo Name - bPlava, svojstvo Text - Plava Boja), (Četvrti / svojstvo Name - bZuta, svojstvo Text - Zuta Boja), (Peta / svojstvo Name - bZelena, svojstvo Text - Zelena Boja), i napisati kod kojim će se izborom ogovarajuće boje promenitiboja pozadine forme. Podesiti svojstvo Checked na True za prvi RadioButton (bBela).

Rešenje:

Private Sub bCrna_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.BackColor = Color.Black
End Sub

Private Sub bCrvena_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bCrvena.CheckedChanged
Me.BackColor = Color.Red
End Sub

Private Sub bPlava_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bPlava.CheckedChanged
Me.BackColor = Color.Blue
End Sub

Private Sub bZuta_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bZuta.CheckedChanged
Me.BackColor = Color.Yellow
End Sub

Private Sub bZelena_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bZelena.CheckedChanged
Me.BackColor = Color.Green
End Sub

Private Sub bBela_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bBela.CheckedChanged
Me.BackColor = Color.White
End Sub

Objašnjenje: Svjostvo ForeColor se odnosi na boju slova objekta a svojstvo BackColor se odnosi na pozadinsku boju objekta.