Proceduri

Proceduri

O procedura este un subprogram care efectueaza anumite operatii solicitate de programul apelant, putand returna anumite valori.

O procedura are urmatoarea sintaxa:

Private Sub numeProcedura ( Lista_de_parametri as tipData )

Bloc_instructiuni

End Sub

Exemplu 1 

Private Sub mesaj (cuvant as String)

Dim msj as String

msj = "Mesajul este :" + cuvant

MsgBox msj

End Sub

Pe aceasta procedura am numit-o mesaj si are un singur parametru cuvant de tipul String (sir). Variabila msj este locala si poate fi folosita doar in procedura mesaj. In procedura mesaj variabilei msj i se atribuie valoarea "Mesajul este :" concatenata cu valoarea variabilei cuvant, care apoi este afisata pe ecran cu procedura predefinita MsgBox.

Apelarea unei proceduri se face prin numele sau urmat de lista de parametri efectivi. Spre exemplu apelarea proceduri mesaj se face altfel :

Dim pm as String

Private Sub CommandButton1_Click()

pm = "prima procedura"

mesaj pm 'apelarea proceduri mesaj

End Sub

Apelarea proceduri mesaj cu parametru efectiv pm are ca efect afisarea pe ecran a textului:

Mesajul este: prima procedura

Observatie :

Variabila cuvant este un parametru formal, deoarece de la un apel la altul aceasta variabila isi schimba valoarea ;

Variabila pm este parametru efectiv deoarece reprezinta valoarea cu care programul lucreaza efectiv;

Parametrul formal si parametrul efectiv trebuie, obligatoriu, sa fie de acelasi tip.

Exemplu 2 :

Private Sub mesaje ( cuvant1 as String , cuvant2 as String )

Dim msj1 as String , msj2 as String

msj1 = "Primul mesaj este :" + cuvant1

msj2 = "Al doilea mesaj este :" + cuvant2

MsgBox msj1

MsgBox msj2

End Sub

Procedura mesaje are doi parametri si anume cuvant1 si cuvant2. Variabilele msj1 si msj2 sunt locale si pot fi folosite doar in aceasta procedura. In procedura variabilei msj1 i se atribuie valoarea "Primul mesaj este " concatenata cu valoarea parametrului cuvant1, iar variabilei msj2 i se atribuie valoarea "Al doilea mesaj este " concatenata cu valoarea parametrului formal msj2. Dupa aceasta, valorile variabilelor msj1 si msj2 sunt afisate pe ecran cu procedura predefinita MsgBox.

Apelarea acestei proceduri se face in modul urmator :

Dim pm1 as String , pm2 as String

Private Sub CommandButton1_Click()

pm1 = "prima procedura"

pm2 = "a doua procedura "

mesaje pm1 , pm2 ' apelarea procedurii mesaje

End Sub

Apelarea procedurii mesaje cu parametri efectivi pm1, pm2 are ca efect afisarea pe ecran :

Primul mesaj este : prima procedura

Al doilea mesaj este : a doua procedura