Stadiul Iii

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 (End), astfel încât codul programului va fi asociat cu informațiile provenite de la aceste butoane.

Pentru a lucra cu codul programului al butonului de comandă, faceți dublu clic pe el. De exemplu, dați clic pe buton pe formular. Apoi, apare fereastra "Cod" (Figura 30).

Stadiul Iii

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.

Stadiul Iii

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 doar un eveniment este setat - faceți clic pe.

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ă pe formular (sau selectați linia Command2 din fereastra "Code").

5 Introduceți șirul de programe al procedurii asociate butonului . În acest caz, aceasta este o declarație de sfârșit. Este folosit pentru a opri programul și a-l scoate de pe ecran (Figura 32).

Stadiul Iii

Figura 32 - Codul programului asociat cu butoanele de comandă 1 și 2







Articole similare

Trimiteți-le prietenilor: