Funkcije

Funkcije predstavljaju deo VB.Net paketa i koriste se kao olakšanje u pisanju koda. Npr. ukoliko imamo aplikaciju koja više puta koristi sabiranje dva broja to ćemo lakše izvestikorišćenjem već napisane funkcije koja sabira dva broja.

Primer:

Public Function Zbir(ByVal Broj1 As Double, ByVal Broj2 As Double) As Double
Zbir = Broj1 + Broj2
End Function

Funkcija vraća zbir dva uneta broja a poziva se na sledeći način:

Rezultat = Zbir(prviBroj, drugiBroj)

Moduli

Moduli su elementi VB.Net-a i koriste se za smeštanje promenljivih i funkcija koje se koriste u svim formama aplikacije. Modul dodajemo tako što u glavnom padajućem meniju izaberemo Project > Add Module > Add

Zadatak: Na formu dodati dugme (svojstvo Name - btnPozovi, svojstvo Text - Pozovi Funkciju), i dva TextBox-a (prvi / svojstvo Name - txtBroj1), (drugi / svojstvo Name - txtBroj2) i napisati kod kojim će se klikom na dugme izvršiti funkcija sabiranja dva broja koja će biti smeštena u modulu a rezultat će se prikazati u MsgBox-u u obliku "Zbir dva broja je: rezultat".

Rešenje: Ubacićemo modul kao što je prikazano na slici i u njega upisati kod:

Public Function Zbir(ByVal Broj1 As Double, ByVal Broj2 As Double) As Double
Zbir = Broj1 + Broj2
End Function

A u kod forme dodaćemo:

Private Sub btnPozovi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPozovi.Click
MsgBox("Zbir dva broja je: " & Zbir(txtBroj1.Text, txtBroj2.Text), MsgBoxStyle.Information, "Zbir brojeva")
End Sub

Ovako treba da izgleda zadatak:

Napomena: funkcije se često koriste pri izračunavanju površine, obima i drugih matematičkih operacija.

Dodatni zadatak: otkloniti grešku u programu koja se pojavljuje ako nije unet broj u neki od TextBox-eva.

Procedure

Procedura predstavlja jedinicu VB.Net koda. Sastoji se iz naredbi za sprovođenje neke operacije ili izračunavanje neke vrednosti.

Opšti oblik procedure je:

Public Sub Procedura()
naredbe
End Sub

ili

Private Sub Procedura()
naredbe
End Sub

Ukoliko se procedura nalaziu kodu forme ako ima oblik Public moći će da se pozove sa bilo koje forme a ako ima oblik Private moguće ju je pozvati samo sa forme na kojoj se nalazi.

Zadatak: Iskoristiti formu iz prethodnog zadatka i promeniti joj svojstva (svojstvo Name - frmGlavna, svojstvo Text - Glavna Forma). Nakon toga napisati proceduru tipa Public sa nazivom Boje u kojoj ćemo postaviti petlju IF koja će da smenjuje plavu i zelenu boju pozadine forme. Procedura će da se poziva prevlačenjem miša preko forme a prilikom otvaranja aplikacije boja pozadine forme će se promeniti u plavu.

Rešenje:

Public Sub Boje()
If Me.BackColor = Color.Blue Then
Me.BackColor = Color.Green
ElseIf Me.BackColor = Color.Green Then
Me.BackColor = Color.Blue
End If
End Sub

Private Sub frmGlavna_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.BackColor = Color.Blue
End Sub

Private Sub frmGlavna_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
Call Boje()
End Sub

Zadatak: Samostalno provežbati upotrebu funkcija, procedura i modula.