Cele mai multe obiecte care sunt create deja "știu" cum să lucreze după pornirea programului și sunt gata să primească date de la utilizator. Funcționalitatea internă a obiectelor create este una dintre cele mai puternice caracteristici ale VBA.
În programul dezvoltat, aveți nevoie de un cod care va calcula valoarea unei expresii printr-o anumită formulă utilizând numerele pe care le introduceți și afișând rezultatul calculelor.
Componentele de calcul pot fi integrate în aplicație numai cu ajutorul codului de program, care determină exact ce ar trebui să facă programul în fiecare etapă a lucrării. Programul este controlat de butoane <Вычислить> și
Pentru a lucra cu codul programului al butonului de comandă, faceți dublu clic pe el. De exemplu, dați clic pe buton
Figura 30 - Vizualizarea ferestrei "Code"
Un bloc de cod asociat unui anumit obiect de interfață este numit procedură de eveniment VBA. Organismul procedurii este încheiat între operatorii care indică începutul și sfârșitul subrutinei.
Private Sub CommandButton2_Click ()
Operatorii și procedurile corporale sunt executate de fiecare dată când utilizatorul activează elementul de interfață asociat procedurii. În acest caz, evenimentul este un clic (clic), dar pot exista și alte tipuri de evenimente. (Puteți să le vedeți în lista derulantă făcând clic pe săgeata din dreapta textului Clic.)
Vom dezvolta codul pentru butoane <Вычислить> și
1 Deschideți lista obiectelor din fereastra "Cod". Toate obiectele Compute apar în listă, după cum se arată în Figura 31.
Figura 31 - Vizualizare listă de obiecte
2 Faceți clic pe linia CommandButton1 din listă. Se va afișa o procedură "goală" asociată cu butonul
În ciuda faptului că numele butonului a fost modificat <Вычислить>, în program numele său a rămas același.
Trebuie avut în vedere că fiecare obiect de interfață poate avea mai multe proceduri asociate - câte unul pentru fiecare eveniment asociat cu acest obiect. În acest caz, pentru un buton
3 Tastați următoarele linii de program:
Private Sub CommandButton1_Click ()
Dim A, B, X, z1, z2, z3 Ca single
z1 = Abs (Log (X) / Log (10)) - Sqr (Abs (Cos (X)
z2 = Abs (Tn (Abs (A * X-B)) / Sin (Abs (X)
z3 = Atn (z2 / Sqr (Abs (1 - z2 ^ 2)))
Label1.Caption = Jurnal (Abs (z1 * z3))
Notă. Funcția Val convertește un argument text la o valoare numerică (în mod prestabilit, datele introduse în câmpul text sunt reprezentate ca text simplu).
4 Faceți dublu clic pe butonul de comandă
5 Introduceți șirul de programe al procedurii asociate butonului
Figura 32 - Codul programului asociat cu butoanele de comandă 1 și 2