Functii

Functii

O functie este un subprogram care calculeaza si returneaza programului apelant o singura valoare. Aceasta valoare este asociata numelui functiei.

Sintaxa unei functii este urmatoarea :

Private Function numeFunctie(lista_parametri as tipData1) as tipData2

Bloc_instructiuni

NumeFunctie = val

End Function

Unde numeFunctie reprezinta numele propriu-zis al functiei, lista_parametri reprezinta o lista de parametri de tipul tipData1 iar val este o valoare de tipul tipData2 pe care functia o intoarce in programul apelant.

Exemplu

Private Function salariu(nr_ore as Integer , impozit as Single) as Single

Dim sal as Single

sal = nr_ore * 20

sal = sal - impozit

salariu = sal

End Function

Aceasta functie are doi parametri: nr_ore de tipul Integer si impozit de tipul Single.

Ea returneaza un rezultat de tipul Single - salariu. Variabila locala sal este folosita pentru a calcula un salariu. Dupa ce s-a calculat salariul, se asociaza valoarea salariului cu numele functiei (salariu = sal).

Apelarea unei functii se face prin numele functiei urmat in paranteza de lista de parametri efectivi.

Exemplu

Dim n_ore as Integer

Dim imp as Single

Dim valoare_sal as Integer

Private Sub CommandButton1_Click()

n_ore = 200

imp = 900

valoare_sal = salariu(n_ore , imp) '-> apelul functiei salariu

MsgBox valoare_sal

End Sub

TEMA: -Sa se introduca de la tastatura nr . de ore lucrate.

-Sa se introduca de la tastaura tariful orar.

-Sa se imparta impozitul in trei grupe, impozit care sa fie citit din celule.

-Numarul de ore sa fie citit dintr-un tabel cu zilele lucrate si nr. de ore pe ziua respectiva.

Prin apelul functiei salariu s-a retinut in variabila valoare_sal valoarea returnata de functia salariu pentru parametri efectivi n_ore si imp. Dupa aceasta, valoare_sal va fi afisata pe ecran cu ajutorul procedurii speciale MsgBox.

Observatie :

apelarea unei functii se poate face numai in membrul drept al unei operatii de atribuire.