PUC 2-Lucrari de Laborator

8/10/2019 PUC 2-Lucrari de Laborator

1/64

UNIVERSITATEA PETRU MAIORFACULTATEA DE INGINERIECATEDRA ITM

Ioan MOCIAN R zvan CAZACU

PROGRAMAREA I UTILIZAREA CALCULATOARELOR (2)

- Lucr ri de laborator

- 2010 -


2/64

Cuvnt nainte

Prezentul ndrumtor de lucrri de laborator a fost conceput pentru a folosi studenilorarondai catedrei ITM, la aprofundarea cunotin elor de programare dobndite la cursul deprogramareai utilizarea calculatoarelor. ndrumtorul a fost gndit ntr-o manier practic , na a fel ca s pun la dispoziia studenilor tot ce au nevoie pentru o bun n elegere afenomenelor programrii n limbajul Visual Basic.

Astfel, materialul a fost mpr it pe 4 categorii de programe, de la simplu la complex, pentruca studenii s parcurg n mod firesc paii de nv are. Fiecare categorie are o parte deconsideraii teoretice, cel puin un program model, urmate de programe propuse care au numaispecificaiile necesare. Acest mod de abordare i ajut pe studeni s aplice n practic cuno tin ele dobndite. De asemenea, acest ndrumtor de laborator, i ajut pe studeni s poat studia individual programarea n Visual Basic.

ndrumtorul este structurat pe 4 mari categorii de aplicaii i anume:

Lucr ri tip A. Programe cu obiectele de baz;

Lucr ri tip B. Programe cu obiecte complexe;

Lucr ri tip C. Programe cu mai multe formulare;

Lucr ri tip D. Programe de sintez.

Lucr ri tip A. Programe cu obiectele de baz . n aceast categorie sunt incluse cele maisimple programe, care folosesc obiectele de baz TextBox, Label, CommandButton ,instruciunea IF...THEN... ELSE i funciile InputBox i MsgBox . Ele au ca scop obinuireastudenilor cu mediul Visual Basici de a nelege tehnica programrii n acest limbaj.

Lucr ri tip B. Programe cu obiecte complexe. n aceast categorie sunt incluse aplicaii cugrad mai mare de dificultate n care sunt folosite, pe lng obiectele de tip A,i obiectele

ListBox , ComboBox , OptionButton i CheckBox . Pe baza modelului prezentat, studeniitrebuie s rezolve problemele propuse, pe baza specificaiilor prezentate.

Lucr ri tip C. Programe cu mai multe formulare. n aceast categorie intr aplicaii care

cuprind teme a cror rezolvare necesit mai multe formulare, care se apeleaz unele pe altele.Aceste proiecte sunt de complexitate mai mare, folosind multe din cunotin ele dobndite lacelelalte categorii de programe. Exemplul din programul model urmre te s v obi nui i cuabordarea acestor tipuri de aplicaii, n care este foarte important s se lucreze ordonat, de ladenumirea obiectelor pn la stabilirea corect a propriet ilor.

Lucr ri tip D. Programe de sintez . n aceast categorie intr aplicaii care cuprind teme ac ror rezolvare folosete obiecte i tehnici pe care le-ai utilizat n celelalte tipuri deprograme. Din aceast cauz nu vom mai avea un program model, ci vom da, cel mult,interfaa i schema logic. Aici va fi artat modalitatea de construi meniuri n Visual Basic.De asemenea, vei nv a s combinai cuno tin e dobndite anterior, pentru a rezolva diverse

probleme practice.


3/64

Anexa conine teme propuse pentru studenii care doresc s se perfecioneze i s - i ncercecompetenele de programator n Visual Basic. Studenii se pot consulta cu profesorulcoordonator pentru rezolvarea problemelor care apar. Programele din aceast anex vor fibine apreciate la evaluarea final a fiec rui student.

Acest ndrumar de lucrri de laborator la disciplinaProgramarea i utilizareacalculatoarelor(II) se adreseaz studenilor de la seciile arondate catedrei de InginerieTehnologic i Managerial de la Universitatea Petru Maior din Trgu Mure, dar poate fifolosit de oricine dorete s nvee, cu efort minim, programarea n limbajul Visual Basic.

Tg. Mure, februarie 2010 Autorii


4/64

Cuprins

Cuvnt nainte ............................................................................................................... 3

Lucr ri tip A. Programe cu obiectele de baz ........................................................... 7

Consideraii teoretice ......................................................................................... 7Programul model Adunarea a dou numere ................................................... 7Programul 1. Sum i produs ............................................................................. 10Programul 2. Valoare funcie ............................................................................. 11Programul 3. Valoare funcie definit pe intervale ........................................... 12Programul 4. Calculul mediei ........................................................................... 13Programul 5. Rezolvarea ecuaiei de gradul I ................................................... 14Programul 6. Rezolvarea ecuaiei de gradul II ................................................. 15

Programul 7. Rezolvarea unui sistem liniar de 2 ecuaii cu 2 necunoscute ...... 16Programul 8. Calculul sumei ptratelor primelor n numere naturale ................ 17Programul 9. Calculul minimuluii maximului a 3 numere ............................. 18Programul 10. Calculul dobnzii unui depozit .................................................. 19

Lucr ri tip B. Programe cu obiecte complexe ........................................................... 21

Consideraii teoretice ......................................................................................... 21Program model Operaii cu numere .......................................................... ..... 24Programe model Scriere, citire, funcie .......................................................... 28Programul 1. Calcule trigonometrice ................................................................. 32Programul 2. Calculul maxim-uluii minim-ului unuiir de numere ............... 33Programul 3. Calculul sumei unuiir de numere ............................................... 34Programul 4. Trecerea articolelor dintr-o list n alta ........................................ 35Programul 5. Calcule cu trei numere .................................................................. 36

Lucr ri tip C. Programe cu mai multe formulare ..................................................... 37

Consideraii teoretice .......................................................................................... 37

Programul model Calcule diverse ................................................................... 39Programul 1. Calcule aritmeticei trigonometrice ............................................. 44Programul 2. Calcule geometrice ....................................................................... 45Programul 3. Calcule arii .................................................................................... 46Programul 4. Calcule economice ........................................................................ 47Programul 5. Rezolvri de ecuaii ...................................................................... 48

Lucr ri tip D. Programe de sintez ............................................................................ 49

Programul 1. Ordonarea unuiir de numere ...................................................... 49Programul 2. ListBoxi ComboBox cu date citite dintr-un fiier ..................... 51P l 3 R l i i d d l II di diii 52


5/64

Programul 4. Program cu meniuri ............................................................... 54Programul 5. Program cu propoziii ............................................................ 61

Anex . Teme pentru programe ............................................................................ 62

1. Determinarea centrului de greutate a unui cadru de srm ...................... 622. Desenarea unui cerc care trece prin 3 puncte .......................................... 623. Desenarea unui cerc nscris ntr-un triunghi ............................................ 624. Crearea unei agende personale varianta I, cu structuri de date ............... 625. Crearea unei agende personale varianta II, cu baze de date .................... 626. Dezvoltarea unei aplicaii Calculator de buzunar ................................. 627. Aplicaia 6 din 49 ................................................................................. 638. Aplicaie Criptare text .......................................................................... 639. Aplicaie Situaia depozitelor de la banc ............................................ 63

10. Reprezentarea grafic a funciei de gradul II ........................................ 6311. Aplicaie Puncte n interiorul cercului ............................................... 6312. Aplicaie de utilit i ............................................................................... 63


6/64

PUC 2 ndrumtor de lucrri de laborator Lucrri tip A

Lucr ri tip A . Programe cu obiectele de baz

n acest capitol vor fi efectuate lucrri de programare simple, de iniiere, care vor necesita cunotin edespre obiecteleTextBox, Label, CommandButton, instruciunea IF...THEN... ELSE, funciile InputBox i MsgBox. Tot n aceste programe vor fi folositei instruciuni de ciclare. Primul programva fi tratat n detaliu, fiind folosit ca model, iar urmtoarele vor avea propus tema, schema logic,interfaa sau numai o parte din ele.

Considera ii teoretice

n acest paragraf vor fi prezentate, prin exemple, cele mai ntlnite situaii pe care le vei ntlni n practic.

Declararea unei variabile:Dim x As Integer, y As Single, y As String.

Citirea n variabila x, dintr-un TextBox: x = txtRaza.Text.

Scrierea ntr-un TextBox a valorii din variabilaaria: txtRezultat.Text = aria

Introducerea unei valori n variabilan, cu funcia InputBox:

n = InputBox(Nr. de puncte:)

Afi area unui mesaj: MsgBox(Radacini imaginare!) .

Revedei instruciunile de ciclareFOR ... NEXT, DO WHILE ... LOOP .

Programul model Adunarea a dou numere

Acest program i propune s adune dou numere, este un program simplu care arat pa iicare trebuie parcuri pentru abordarea programelor din aceast categorie.

Specifica ii:

Programul va avea dou variante: cele 2 numere vor fi introduse cu TextBox sau cuInputBox;

Se va testa care numr e mai marei va fi afiat un mesaj de forma Primul numreste mai mare sau Al doilea numr este mai mare;

Rezultatul va fi afiat ntr-un TextBox.


7/64


Schema logic :

Interfa a:

Se observ c interfaa conine 4 etichete (labels), 3 TextBoxurii 2 butoane de comand.ncercai s p stra i proporiile i a ezarea din figur.

Programul:

Varianta I-a: numerele se citesc din textbox-uri, iar mesajul privind numerele seafi eaz cu MsgBox. Vei deduce din codul surs, denumirile obiectelor.

START

a, b

a > bNU DA

AfiseazaSuma

Afiseazaa > b

Afiseazaa < b

S = a + b

STOP


8/64


Varianta II-a: numerele se citesc cu funcia InputBox, iar mesajul privind numerele seafi eaz cu proprietatea Caption a obiectului Label. Vei deduce din codul surs, denumirileobiectelor. Interfaa se va modificai ea: nu mai e nevoie de textbox-urile de introducere acelor dou numere

Salvarea proiectului:

Pentru salvarea proiectului trebuie s cre m un director al acestuia. Creai directorul:

My Documents / PUC2 /Lucrarea x ,

n care vei salva fiierele Lucrarea_x.vbp i Lucrarea_x.frm (proiectul i formularul).


9/64


Concluzii:

Acest exemplu trebuie s v ajute s n elegei care sunt paii pe care trebuie s-i urmaipentru a face un program n Visual Basic.

n aceste exemple ai v zut: Cum se introduc date n program cu TextBoxi InputBox; Cum se citete o valoare dintr-un TextBox; Cum se scrie o valoare ntr-un TextBox; Cum se folosete instruciunea IF...THEN... ELSE ; Cum se poate schimba o etichet prin modificarea valorii proprietii Caption;

Re ine i aceste tehnici pentru c ele v vor fi de folos n programele care urmeaz.

Programul 1. Sum i produs

Specifica ii:

Programul va adunai nmuli 3 numere 2 introduse cu TextBoxi unul cuInputBox;

Rezultatele vor fi scrise n textbox-uri.

Interfa a:


10/64


Programul 2. Valoare func ie

Specifica ii:

Programul va calcula valoarea unei funcii pe baza unui argument dat; Forma funciei este opional ; Rezultatul va fi scrise ntr-un textbox.

Interfa a:


11/64


Programul 3. Valoare func ie definit pe intervale

Specifica ii:

Programul va calcula valoarea unei funcii pe baza unui argument dat; Forma funciei:

f(x) =+

+

321

2

2

x x x x

Rezultatul va fi scrise ntr-un textbox; ncercai i alte funcii i alte intervale de argumente.

Schema logic :

Interfa a:

NU

- pentru x < 0- pentru 0 < x 10

STARTSTART

STOP

x

f(x)

x < 0

NU

DA

x < 10DA

1)( 2 += x x f

2)( = x x f

3)( 2 += x x x f


12/64


Programul 4. Calculul mediei

Specifica ii:

Programul va calcula media aritmetic a 3 note de trecere (>= 5); Dac o not este mai mic dect 5, nu se va calcula mediai va fi afiat un mesaj; Se va verifica dac notele sunt n intervalul [1, 10], afindu-se un mesaj dac nu

aparin acestui interval(Cel puin o not este nevalid); Rezultatul va fi scrise ntr-un textbox.

Schema logic :

Interfa a:

STARTSTART

STOP

n1,n2,n3

1


13/64


Programul 5. Rezolvarea ecua iei de gradul I

Specifica ii:

Programul va calcula soluia unei ecuaii de gradul I; Pentru coeficienii ecuaiei i soluie se va folosi obiectul TextBox; Pentru coeficientul lui x, egal cu zero se va emite un mesaj.

Schema logic :

Interfa a:

START

STOP

a, b

a # 0

x = - b / a

NU

DA

Mesaj

Solutia


14/64


Programul 6. Rezolvarea ecua iei de gradul II

Specifica ii:

Programul va calcula soluiile unei ecuaii de gradul II; Pentru coeficienii ecuaiei i soluii se va folosi obiectul TextBox; Pentru rd cini complexe, se va emite un mesaj.

Schema logic :

Interfa a:

START

STOP

D = b2 4ac

a, b, c

D < 0 NUMesaj DA )*2 /()(2,1 a Db x =

X1, X2


15/64


Programul 7. Rezolvarea unui sistem liniar de 2 ecua ii cu 2necunoscute

Specifica ii:

Programul va calcula soluiile unui sistem liniar de 2 ecuaii cu 2 necunoscute; Pentru a avea soluie determinantul sistemului trebuie s nu fie 0. Dac este zero va fi

anunat un mesaj de sistem nedeterminat; Coeficienii sistemului se vor introduce prin textbox-uri; Soluia va fi scris n textbox-uri.

Schema logic :

Ne reamintim c determinantul sistemului se calculeaz ca diferena dintre coeficieniidiagonalei principalei a diagonalei secundare (vezi schema logic).

Delta_x - este acelai determinant n care se nlocuiete coloana coeficienilor lui x cucoloana termenilor liberi.

Delta_y - este acelai determinant n care se nlocuiete coloana coeficienilor lui z cucoloana termenilor liberi.

START

DA

NU

START

STOP

a1,b1,c1a2,b2,c2

delta = a1*b2 a2*b1

Sistem nedeterminatdelta = 0

X = delta_x / deltaY = delta_y / delta

AfiseazaX, Y


16/64


Interfa a:

Sugestie! ncercai rezolvarea unui sistem de 3 ecuaii cu 3 necunoscute.

Programul 8. Calculul sumei p tratelor primelor n numere naturale

Specifica ii:

Programul va calcula suma 12 + 22 + . . . + n2; Programul va cere ca dat de intrare, numrul n; Se va folosi un cicluFor ... Next sau Do While ... Loop ; Rezultatul va fi scris ntr-un TextBox.

Schema logic :

NU

DA

START

STOP

n

S = 0i = 1

i


17/64


Programul 9. Calculul minimului i maximului a 3 numere

Specifica ii:

Cele 3 numere se vor introduce cu TextBox; Rezultatele vor fi scrise n TextBox-uri.

Schema logic :START

a, b, c

NU

DA

STOP

a > b max = b

max = a

max < c

max = c

NU

DA

a < b min = b

min = a

min > c

min = c

NU

DA

NU

DA

min, max


18/64


Interfa a:

Programul 10. Calculul dobnzii unui depozit

Programul va trebui s calculeze dobnda unui depozit de bani, dup un anumit numr deluni, cnd se cunoate dobnda anual.

Specifica ii:

Datele de intrare sunt:

- suma depozitului;

- dobnda anual;

- num rul de luni. Datele de ieire sunt:

- dobnda calculat;

- depozitul actual. Formula de calcul a dobnzii este:

Dobinda = S 0 * dob/100 * n/12

unde,

S 0 este suma iniial ;

dob este dobnda anual, n procente;

n este numrul de luni trecute. Depozitul actual este suma dintre valoarea iniial i dobnda calculat.


19/64


Interfa a:

Sugestie! ncerca i s deduce i o formul de calcul pentru dobnda capitalizat , adic s seia n considerare la calculul fiec rei luni, valoarea actualizat a depozitului.


20/64

PUC 2 ndrumtor de lucrri de laborator Lucrri tip B

Lucr ri tip B. Programe cu obiecte complexe

n acest capitol vor fi efectuate lucrri de programare cu grad de dificultate mai mare, n care vomfolosi obiectele ListBox , ComboBox , OptionButton i CheckBox . De asemenea, vor fi abordateproblemele scrieriii citirii din fiiere, precumi funciile definite de utilizator.


ListBox, ComboBox:

Iat cteva consideraii de care trebuie s ine i cont n aplicaiile din aceast categorie,prezentate n continuare.

Denumirea unui ListBox: prefixul lst + denumirea, de exemplulstNote.

Denumirea unui ComboBox: prefixul cbo + denumirea, de exemplucboNote.

Citirea n variabila x, respectiv y a unui articol selectat din ListBox respectiv ComboBox:

x = lstNote.List(lstNote.ListIndex)

y = cboNote.List(cboNote.ListIndex)

nc rcarea unui ListBox sau ComboBox se face cu metoda AddItem . Aceast nc rcare seface n procedura Form_Load (care se deschide automat, cu un dublu-click ntr-un punct depe formular care nu atinge vreun obiect). Iat un exemplu:

OptionButton, CheckBox:

Acestea sunt obiecte care se creeaz n interiorul unuiFrame . Ele sunt obiecte cu care se iau,elegant, opiuni i decizii, de exemplu, ce operaie s execut dintr-o list de operaii sau cums formatez afiarea unui rezultat (culoare, font, bold) dintr-o list de posibilit i. Diferenamajor dintreOptionButton i CheckBox este c n primul caz poate fi ales numai unul,iar n al doilea caz pot fi alese oricte opiuni cteva, toate, niciuna. Reine i c cele dou bi l fi hk


21/64


Pentru a testa dac un buton de op iune este setat, trebuie verificat proprietateaValue carepoate avea valoarea1 pentruTrue sau0 pentruFalse . Iat o astfel de secven de program:

If optAduna.Value = 1 Then

c = a + b

End If

Pentru a testa dac o caset de validare este setat, trebuie verificat proprietateaValue carepoate avea valoarea1 pentruTrue sau0 pentruFalse . Iat o astfel de secven de program:

If chkBold.Value = 1 Then

txtR.FontBold = True

Else

txtR.FontBold = False

End If

Folosirea fi ierelor:

n practica aplicaiilor pe calculator, introducerea datelor de la tastatur i afi area rezultatelorpe ecran, se ntlnete ntr-un numr limitat de cazuri, cnd programele au puine date deintrare sau sunt simple. Un program face parte, de regul, dintr-un pachet de programeifolose te date de la alt program iar rezultatele obinute vor fi date de intrare pentru altprogram. Aceast comunicare" ntre programe se face prin intermediul fiierelor, care seconstituie n depozit de date de intrare/ieire(I/O).

Fi ierele pot memora informaii din cele mai diverse imagini, texte, date numerice etc.

Orice fiier, nainte de a avea acces la el , trebuie deschis cu instruciunea Open . De fapt,orice acces la un fiier presupune efectuarea urmtoarelor operaii:

Deschiderea fiierului; Accesul la el (scriere, citire, adugare); nchiderea fiierului.

Aceste operaii vor trebui s apar n programele pe care le vei scrie. n continuare vor fireamintite aceste operaiuni, mpreun cu sintaxa lor.

Deschiderea unui fi ier:

Open cale For mode As # NumarFisier.

unde, cale este o expresie de tip text cu numele fiierului i locul unde se afl; mode este tipul de acces la fiier care poate fi Append, Inputi Output, pentru

fi ierele cu acces secvenial pe care le vom folosi noi. #NumarFisier este un numr ntreg cuprins n intervalul 1 511, cu care de noteaz

(codific) deschiderea unui fiier pentru a putea fi referit mai uor n program.


22/64


Exemple:Open c:\Mocian\Lucru\VB6\ex1.txt For Input As #1.

Open c:\Mocian\Lucru\VB6\ex2.txt For Output As #2.

Open c:\Mocian\Lucru\VB6\rezultat.dat For Append As #3.

Inchiderea unui fi ier:

Close #1 - nchiderea unui fiier

Close #1, #2, #20 - nchiderea mai multor fiiere

Close - nchiderea tuturor fiierelor

Scrierea datelor n fi ier:

Write #1, x1, x2, y1, y2

unde: #1 - este numrul asociat la deschiderea fiierului, numiti specificator de fiier.x1, x2, y1, y2 - este lista de date care va fi scris n fi ier.

Cnd se specific datele trebuie s inem cont de urmtoarele: mai multe valori se scriu n list separate prin virgul; textele se scriu ntre ghilimele; data i ora trebuie specificate n format:#dd-mm-yy hh:mm:ss#;

Iat o secven de program care scrie ntr-un fiier coeficienii i soluiile ecuaiei de gradul II:Open C:\Mocian\CursVB\ecuatia2.dat For Output As #1

Write #1, a, b, c, x1, x2

Close #1

Observa ie important ! Pentru scrierea n fi iere se poate folosi i instruc iunea Print #n ,unde n este specificatorul de fi ier. Aceast instruc iune realizeaz o scriere formatat , iar

fiecare articol din fi ier este considerat ca o singur variabil de tip String ( i nu o list devariabile ca la instruc iunea Write ), iar textele scrise nu se ncadreaz n ghilimele.

Utilizarea acestei instruc iuni pentru scrierea n fi ier nu este recomandat din cauz c lacitirea ulterioar a irului de caractere, acesta trebuie prelucrat folosind manipul ri destulde complicate pentru a separa expresiile ini iale.

Citirea datelor n fi ier: - secven de program

Open C:\Mocian\CursVB\ecuatia2.dat For Input As #1

Input #1, a, b, c

Close #1

Pentru o citire corect, nregistrarea trebuie s aib aceea i structur ca i lista de variabile dininstruciunea Input , altfel vom primi un mesaj de eroare. Fiecrei variabile i se va atribuivaloarea aflat ntre dou virgule.


23/64


Un fi ier are mai multe articole, iar instruciuneaInput cite te un singur articol. Pentru a cititoate articolele unui fiier trebuie s ne gndim la plasarea luiInput ntr-o structur repetitiv. Ie irea din bucl trebuie s se fac atunci cnd s-a ajuns la sfritul fi ierului, adic atunci cnd s-au citit toate articolele. Pentru a testa sfritul fi ierului se utilizeaz funciaEof(), care returneaz una din valorileTrue sau False dup cum suntem la sfritulfi ierului sau nu.

Sintaxa funciei este:Eof(1), dac fi ierul a fost deschis cu #1.

Program model Opera ii cu numere

Acest program i propune s adune i s nmuleasc dou numere, respectiv s afi ezerezultatele dup op iunile utilizatorului. Deoarece algoritmul este simplu nu va fi prezentat,mai important este interfaa cu obiectele sale.

Specifica ii:

Primul numr va fi introdus prin selectarea dintr-un ListBox; Al doilea numr va fi introdus prin selectarea dintr-un ComboBox; Programul va afia numai suma, numai produsul sau ambele; Rezultatele vor fi afiate n textbox-uri; Fontul de afiare a rezultatelor poate fi normal, bold sau de culoare roie.

Interfa a:

Interfaa conine: Un listbox de unde se va alege primul numr (a); Un combobox de unde se va alege al doilea numr (b); 2 textbox-uri pentru afiarea rezultatelor (sumai produsul);


24/64


Un frame cu 3 butoane de opiune pentru alegerea operaiei (primul setat pe True laproprietatea Value);

Un frame cu 2 checkbox-uri pentru alegerea formatului de font; 4 etichete (labels); 2 butoane de comand.

Numele obiectelor le vei da respectnd regulile nvate, cu prefixul fiecruia nainteanumelui. Numele date de acest exemplu le vei deduce din codul surs al programului.

Codul surs :

Codul surs (programul propriu-zis) conine mai multe proceduri care se declaneaz laurm toarele evenimente:

O procedur special care se declaneaz automat la pornirea programului (ncrcarea

formularului) numit Form_Load . Fiecare formular are o astfel de procedur carepoate fi folosit pentru anumite preparative care nu au evenimente, cum ar fi nc rcarea cu date a obiectelor ListBoxi ComboBox, ceea ce vom facei noi. Pentru a ajunge la aceast procedur da i dublu-clic ntr-o zon neutr a formularului.

ProceduracmdCalculeaza_Click care se declaneaz atunci cnd se face clic pebutonul de comand cmdCalculeaza . Practic, aceasta este procedura care execut algoritmul de calcul.

ProceduracmdExit_Click care se declaneaz atunci cnd se face clic pe butonul decomand cmdExit , care nu face altceva dect s ncheie programul.

ProceduraForm_Load :


25/64


Procedurile din spatele butoanelorcmdCalculeaza i cmdExit:


26/64


Concluzii:

Exemplul prezentat v ajut s n elegei urm toarele: Cum s folosii proceduraForm_Load pentru a ncrca cu date obiectele ListBoxi

ComboBox, folosind metoda AddItem; Cum se ncarc un ListBox sau un ComboBox folosind un ciclu (For...Next, Do

While). Cum se atribuie unei variabile o valoare provenit din ListBoxi ComboBox,

folosind proprietile List i ListIndex; Cum s folosii obiectele OptionButtoni CheckBox; Cum s folosii propriet ile ForeColori FontBold pentru a scrie n culori sau cu

bold ntr-un TextBox;

Acest program este un bun model de unde v putei inspira pentru a face programele careurmeaz n aceast categorie.


27/64


Programe model Scriere, citire, func ie

Acest paragraf conine 3 exemple de programe simple.

Exemplul 1. Scrierea ntr-un fi ier

Acest exemplu const n scrierea ntr-un fiier a notelor studenilor. Numele studenilor inota se introduc cu funcia InputBox, ntr-un ciclu Do While.

Interfaa:

Codul surs:Private Sub cmdExit_Click()

EndEnd Sub

Private Sub cmdScrie_Click()Open "C:\Mocian\Scoala\CursVB\note.dat" For Output As #1nume = InputBox("Numele= ")

Do While nume ""prenume = InputBox("Prenumele= ")nota = InputBox("Nota= ")Write #1, nume, prenume, notanume = InputBox("Numele= ")

LoopClose #1

End Sub

Rezultat:

n fi ier vor apare datele introduse sub aceast form . Verificai coninutul fiierului.


28/64


Exemplul 2. Citirea dintr-un fi ier

Acest exemplu const n citirea datelor din fiierul pe care l-ai creat n exemplul nr.1i lescrie n formularul aplicaiei.

Interfaa: - conine numai 2 butoane de comand.

Codul surs:Private Sub cmdCiteste_Click()

Open "C:\Mocian\_Scoala\CursVB\note.dat" For Input As #1

Do Until EOF(1)

Input #1, nume, prenume, nota

Form1.Print nume, prenume, nota 'Afisarea datelor pe formular

Loop

Close #1

End Sub

Private Sub cmdExit_Click()

End

End Sub

Din acest exemplu se observ cum a fost pus condiia pentru a detecta sfritul de fiier EOF,care merit re inut pentru c ve i mai avea nevoie de ea. De asemenea, se vede cum se scriepe o interfa , tehnic folosit mai ales pentru teste.

Exemplul 3. Crearea unei func ii utilizator

n acest exemplu se creeaz un program care calculeaz perimetrul unui triunghi dreptunghiccnd se cunosc catetele sale. Setie c pentru aceasta trebuie calculat i ipotenuzatriunghiului care se calculeaz cu teorema lui Pitagora. Calculul ipotenuzei se va face cu ofuncie definit de utilizator.


29/64


Interfaa:

Aceast interfa are 4 etichete, 2 textbox-urii 2 butoane de comand. Etichetele au la

proprietatea Caption urmtoarele valori: Cateta1:; Cateta2:; Perimetrul triunghiului este:; xx.

Rezultatul se va scrie n proprietateaCaption a eticheteilblPerimetru , care la definire va aveavaloarea xx.

Codul surs:

Observai c toate variabilele declarate sunt locale, chiar dac au acelai nume.

lblPerimetru , eticheta care arescris n proprietatea Captionrezultatul obinut


30/64


Concluzii

Din cele 3 programe prezentate ai putut s v punei la punct cu urmtoarele aspecte legatede programarea Visual Basic:

Deschidereai nchiderea unui fiier; Scrierea datelor ntr-un fiier; Citirea datelor dintr-un fiier; Crearea i folosirea la modul concret a unei funcii cu parametri create de utilizator; Folosirea proprietii Caption a obiectului Label pentru afiarea unor rezultate; Folosirea funciei Format, pentru formatarea numerelor.

Exemplele prezentate pot fi folosite ca modele pentru temele propuse n continuare.


31/64


Programul 1. Calcule trigonometrice

Programul va calcula cele 4 funcii trigonometrice, la alegere cu ajutorul butoanelor deop iune. Algoritmul de calcul nu necesit o schem logic .

Specifica ii:

Unghiurile se vor introduce n 4 moduri, folosind butoane de opiune:

- cu textbox;

- cu listbox;

- cu combobox;

- cu inputbox; Funciile trigonometrice vor fi alese cu butoane de opiune; Rezultatul funciei va afiat ntr-un textbox; Cu ajutorul a 3 checkbox-uri se va stabili formatul de afiare rou, bold i italic; Unghiurile se vor introduce n grade, dar ele trebuie transformate n radiani, pentru

a a cer funciile trigonometrice. Formula de transformare este:

unghi_rad = unghi_grad * PI / 180 , unde PI = 3.14159265358979 Definii constanta PI, nafara oricrei proceduri, dup modelul de mai jos:

Interfa a:


32/64


Programul 2. Calculul maxim-ului i minim-ului unui ir de numere

Specifica ii:

Programul va gsi cel mai marei cel mai mic numr dintr-un ir de numere; Numerele vor fi introduse ntr-un ListBox cu funcia InputBox; Rezultatul va fi afiat n textbox-uri.

Schema logic :START

nx1,x2...xn

Introducerea elementelorirului

Max = x1i = 2

Max < xi i = i + 1 i < n

DA

NU

NU

NU

DA

DAMax = xi

i = i + 1

i < n

STOP

Max

Aceast zon se va repeta pentru calculul minim-ului,cu adapt rile de rigoare


33/64


Interfa a:

Programul 3. Calculul sumei unui ir de numere

Specifica ii:

Numerele vor fi introduse cu funcia InputBox ; Terminarea introducerii se va face prin apsarea tasteiEnter f r a introduce nimic; Numerele vor fi stocate ntr-un ListBox; Numerele i suma lor vor fi salvate ntr-un fiier, al c rui nume se va afia.

Schema logic :START

x1,x2, ... xn

S = 0i = 1

S = S + i

i = i + 1

NU

DAi


34/64


Interfa a:

Programul 4. Trecerea articolelor dintr-o list n alta

Specifica ii:

Vor fi create 2 ListBox-uri; Articolele vor fi introduse cu funcia InputBox n ListBox-ul din stnga;

Trecerea se va face n ambele sensuri; Vor exista 2 tipuri de butoane de comand:

- trecerea a numai un articol;

- trecerea n bloc a tuturor articolelor. Ve i folosi metodeleAddItem , Clear , RemoveItem ale obiectuluiListBox .

Interfa a:

Observa ie! ncerca i s nc rca i lista din stnga cu date din fiier


35/64


Programul 5. Calcule cu trei numere

Specifica ii:

Cele 3 numere vor fi introduse cu TextBox; Cu cele 3 numere vor fi efectuate 3 operea ii:

- adunare;

- produs;

- medie aritmetic ;

Alegerea opera iei de efectuat se va face cu butoane de op iune (OptionButton); Rezultatul va fi trecut ntr-un TextBox care va fi formatat ro u sau bold.

Interfa a;

Observa ie! Proprietatea Caption a etichetei Rezultat poate fi nlocuit cu numele opera ieicare s-a executat (exemplu: Suma este: ).


36/64

PUC 2 ndrumtor de lucrri de laborator Lucrri tip C

Lucr ri tip C. Programe cu mai multe formulare

n acest capitol vor fi efectuate lucrri de programare care cuprind teme a cror rezolvare necesit maimulte formulare, care se apeleaz unele pe altele. Aceste proiecte sunt de complexitate mai mare,folosind multe din cunotin ele dobndite la celelalte categorii de programe. Exemplul din programulmodel urmre te s v obi nui i cu abordarea acestor tipuri de aplicaii, n care este foarte important s se lucreze ordonat, de la denumirea obiectelor pn la stabilirea corect a propriet ilor. n textulexplicativ se va folosi att termenul de form ct i cel de formular, care, n fond, nseamn acela ilucru.


Aplicaiile de pn acum constau dintr-o singur form pe care se puneau obiectele. Acesteaplicaii sunt simple, rostul lor era s ne obinuim cu programarea n Visual Basic.

E greu s ne imaginm o aplicaie ct de ct serioas care s aib numai o form. Lucrul cumai multe forme implic o disciplin sever , o gestionare atent a ntregului proiect.

Atunci cnd privim mediul de programare Visual Basic, apare prima form a aplicaiei, ceaimplicit , avnd numele implicitForm1 . Pe aceast form ncepem s a ez m obiecteleaplicaiei, din care nu va lipsi unul sau mai multe butoane de comand.

Dac pe o form avem multe obiectei aceasta devine foarte ncrcat este cazul s negndim la o soluie de a o mpr i n mai multe forme. Aici rolul experienei i spunecuvntul. Mai nti trebuie s schi m pe hrtie, cam ce face aplicaia apoi s ncerc m s proiectm formele necesare.

n principiu, se gndete o form principal numit , de regul, frmMain care are urmtoareleatribuii:

Porne te aplicaia Deschide alte forme nchide aplicaia.

Toate formele aplicaiei vor directa programul spre frmMain, atunci cnd sunt nchise. Dinforma principal se poate merge ntr-o alt form sau se poate nchide aplicaia.

Pentru a insera o nou form folosim comandaProject - AddForm , care va primi numeleimplicit Form2, sau alt indice care urmeaz la rnd. n urma acestei comenzi va apare o form goal la fel ca la deschiderea proiectului. n fereastraProject Explorer va apare i numele noiiforme.

Una dintre cele mai folosite proprieti ale obiectuluiForm este proprietateaVisible , carepoate avea 2 valori True i False , adic forma se vede sau nu, dup cum condiiile o cer.Iat cum se folosete aceast proprietate:


37/64


frmMain.Visible = False - forma devine invizibil.frmMain.Visible = True - forma devine vizibil.

Fiecare form are n spatele ei procedurii funcii legate de obiectele aparin toare formei. Deasemenea, exist a a numitele module standard care conin proceduri i funcii care nu sunt

legate de o form. Toate aceste proceduri folosesc variabile care pot fi locale sau globale. ntr-o lecie anterioar s-a vorbit despre aceste variabile dar ele vor fi nelese cu adevrat abiaacum.

Declararea variabilelor se face cu instruciunea Dim . Dup locul n care se gse te aceast instruciune vom determina valabilitatea variabilei declarate. Dac la nceputul modululuiformei, seciunea numit General include instruciunea Option Explicit aceasta oblig declararea n prealabil a tuturor variabilelor folosite. Dac aceast instruciune lipsete, toatevariabilele vor fi declaratevariant , ceea ce duce la un consum mai mare de memorie.

Dac variabila este declarat n interiorul unei proceduri, ea se numete variabil local ,

adic exist numai n interiorul acelei proceduri:Private Sub Nume_procedura()

Dim x1 As Integer 'x1 este variabila locala..........................

End Sub

Variabila x1 va dispare dup ce ie im din procedur, deci nu va mai putea fi folosit n alteproceduri.

Pentru ca variabilele s poat fi utilizate n toate procedurile unui modul, instruciunea Dim vafi plasat n seciunea General, aa cum se vede n secvena urm toare:

Option ExplicitDim raza As DoubleDim aria As DoubleConst PI As Double = 3.1416

Sub Calcul()aria = PI * raza ^ 2'.........End Sub

Sub evaluare()Dim taxateren As DoubleIf aria > 500 Then

taxateren = 10000Else

taxateren = 0End If

End Sub

Variabileleraza i aria sunt variabile care nu-i pierd valoarea cnd se termin procedura n care sunt utilizate. Ele se numescvariabile globale de modul. Ele pot fi folosite n oricareprocedur a modulului respectiv.

Dac n locul instruciunii Dim se utilizeaz Public, toate modulele-standardi toate form-urile aplicaiei vor putea lucra cu variabilele astfel declarate. Acestea se numescvariabile


38/64


globale de aplicaie, pentru c sunt valabile n orice procedur sau form a aplicaiei. Acestevariabile nu se pot declara ntr-o procedur Sub ... End Sub .

Este foarte important s gndim bine, care s fie variabile localei care variabile globale. Nutrebuie abuzat de folosirea variabilelor globale care pot consuma inutil memorie. Dac ovariabil local i una global au acelai nume nu este nici un conflict, deoarece variabilalocal este mai puternic f r s afecteze variabila global care r mne la aceeai valoare.

Programul model Calcule diverse

Aceast aplicaie este un exemplu practic de program cu mai multe formulare, care const ndiferite calcule care se fac n formularele corespunztoare: media a 3 note, calculul ariilorivolumului conului, deducerea TVA dintr-o valoare total. Programele sunt simple, dar scopulexemplului este acela de a prezenta metodologia de abordare a unor astfel de programe.

Specifica ii:

Programul va avea 4 forme, una principal numit frmMain i 3 formecorespunztoare fiecrui calcul care va fi f cut, numite frmMedie , frmCon i

frmTVA ; n formularul principal frmMain vor exista 3 butoane de comand care nu vor avea

alt funciune dect deschiderea celor 3 formulare secundare frmMedie , frmCon i frmTVA ;

n fiecare formular secundar va exista un buton de comand care va deschideformularul principali l va nchide pe cel secundar;

n orice moment, pe ecran va exista numai un formular.

Schema bloc: deoarece aplicaia conine, practic, 3 programe, fiecare dintre ele va aveapropria schem logic , important este s vedem corelaia dintre aceste formulare prezentat ntr-o schem de principiu, numit schem bloc, aa cum se vede mai jos.

La nevoie se pot face schemele logice pentru fiecare program n parte. Aici nu e cazul, pentc programele componente sunt banale.

Interfe ele (formularele):

Deoarece avem 4 interfee, fiecare cu obiectele lor, este nelept s ne organizm puin treaba,ca s nu avem probleme la scrierea codului. Pentru denumirea obiectelor vom respecta regu nv at deja: prefixul cu 3 litere mici, prima liter a numelui cu majuscul. Practic,

interfeele se schieaz pe hrtie pentru a fi mai operativi.Este indicat s facem i un tabel cu toate obiectele care sunt implicate n codul surs pentru a

frmMain frmConfrmMedie

frmTVA


39/64


Object Required care apare atunci cnd obiectul are un nume la crearei altul n codulsurs .

Iat tabelul pentru cazul nostru: Formular Obiect Proprietate Valoare

Observatii frmMain cmdMedie Caption Calcul

medie cmdCon Caption Calcul co cmdTVA Caption Calcul TV cmdExit Caption Terminar

aplicatie frmMedie txtNota1 TextBox

pentruprima not

txtNota2 TextBoxpentru doua not

txtNota3 TextBoxpentru treia not

lblMedie In aclabel se scrie med

cmdCalcul Caption Calculeaz

media cmdExit Caption Exit frmCon txtRaza Introduce

razei txtInaltimea Introduce

n l imii txtA TextBox

pentru acalculata

txtV TextBoxpentruvolumulcalculat

cmdCalcul Caption Calculeaz cmdExit Caption Exit frmTVA txtValoare Introduce

valorii txtTVA Locked True cmdCalcul Caption Calculeaz cmdExit Caption Exit


40/64


Observa ie important ! Pentru a mpiedica scrierea de ctre operator n textbox-urile deafi are a rezultatelor, proprietateaLocked a acestora se pune pe valoareaTrue . Acestetextbox-uri sunt:txtA i txtV din formularul frmCon , respectivtxtTVA din formularul frmTVA .

Interfeele propriu-zise sunt prezentate n continuare:

frmMain

frmTVA

frmMedie

frmCon


41/64


Observai c toate butoanele Exit conduc spre formularul principal frmMain .

Cnd avem mai multe formularei lans m programul n execuie, Visual Basic-ul nutie cucare formular s nceap . Cnd aveam numai un formular nu se punea aceast problem.

Pentru a stabili care este forma de pornire executai urm torii pai: Da i comandaProject Project1 Properties din comboxulStartup Object alegei

formularul de start; Ap sa i butonulOK .

Codul surs :

Procedurile formularului principal frmMain sunt:

Procedurile formularului frmMedia sunt:


42/64


Procedurile formularului frmCon sunt:

Procedurile formularului frmTVA sunt:


43/64


Concluzii:

Aceast aplicaie v-a ajutat s n elegei metodologia crerii programelor Visual Basic cu maimulte formulare. Ai nv at cum se face:

Inserarea unei noi forme n program; Alegerea formei de start; Vizibil sau invizibil o form; Declararea unei constante globale (PI, n formularul frmCon); Afi area unui rezultat folosind proprietatea Caption a unei etichete (frmMedia); Afi area unei valori numerice cu format (funcia Format).

Programul 1. Calcule aritmetice i trigonometrice

Programul este unul simplu, face calcule aritmetice cu 2 numere (adunare, produs, medie)icalculeaz o funcie trigonometric a unui unghi introdus n grade sexagesimale (cu caresuntem cu toii obi nui i). Fiecare tip de calcul se face cu ajutorul formularului su, deschisdintr-un formular principal.

Specifica ii:

Programul va avea 3 formulare, unul principal frmMain care conine butoanele decomand pentru deschiderea celorlalte dou;

Formularul pentru calcule aritmetice se va numi frmAritmetice ; Formularul pentru calcule trigonometrice se va numi frmTrig ; Formularele secundare vor avea cte un buton Exit pentru revenire n frmMain ; Cele 2 numerei unghiul se vor introduce cu textbox-uri; Pentru calculul funciilor trigonometrice unghiul se transform n radiani cu formula

rad = PI*ung / 180 , undeung este unghiul introdus de noi; Rezultatele vor fi afiate n textbox-uri, avnd proprietateaLocked setat peTrue .

Interfe e:

frmMain


44/64


Sugestie! ncercai i alt variant pentru Calcule trigonometrice, de exemplu funcia s fiealeas cu buton de opiune, iar rezultatul s fie scris din etichete sub forma Sin 30 = 0.5.Pentru aceasta e nevoie de mai multe etichete la care trebuie s le modificai proprietateaCaption .

Programul 2. Calcule geometrice

Programul va trebui s calculeze aria total i volumul corpurilor geometrice trunchi de conisfer . Este nevoie de 2 formulare pentru aceste calcule deoarece datele de intrarei rezultatelesunt diferite, plus un formular principal de pornire a aplicaiei.

Specifica ii:

Programul va avea 3 formulare, unul principal frmMain care conine butoanele decomand pentru deschiderea celorlalte dou, numite frmTrunchiCon i frmSfera ; Formularele secundare vor avea cte un buton Exit pentru revenirea n frmMain ; Pentru truchiul de con folosii formulele:

Al = G(R + r);

At = Al + (R2 + r2);

V = H(R2 + r2 + Rr) / 3;

Pentru sfer folosii formulele:Aria = 4 R2;

Vol = 4 R3 / 3; Rezultatele vor fi afiate n textbox-uri, avnd proprietateaLocked setat peTrue .

Interfe e:

frmTrig

frmAritmetice

frmMain


45/64


Programul 3. Calcule arii

Programul va trebui s calculeze ariile pentru triunghi, dreptunghii trapez. Va avea nevoiede 4 formulare din care unul este formularul de start.

Specifica ii:

Programul va avea 4 formulare, unul principal frmMain care conine butoanele de

comand pentru deschiderea celorlalte trei, numite frmTriunghi, frmDreptunghi i frmTrapez ; Formularele secundare vor avea cte un buton Exit pentru revenirea n frmMain ; Pentru triunghi folosii ca date de intrare lungimile laturilori formula lui Heron:

A = ))()(( c pb pa p p

undea, b, c sunt lungimile laturilor, iar p este semiperimetrul triunghiului; Pentru dreptunghi folosii formula A = L * l ; Pentru trapez folosii ca date de intrare baza mare, baza mic i n l imea, iar pentru

arie, formula A = h(B + b) / 2 ; Rezultatele vor fi afiate n textbox-uri, avnd proprietateaLocked setat peTrue .

Interfe e:

frmSfera

frmTrunchiCon


46/64


Programul 4. Calcule economice

Programul va trebui s calculeze echivalentul n EUROi USD a unei sume n lei, respectivs calculeze dobnda unui depozit n lei pe o anumit perioad.

Specifica ii:

Programul va avea 3 formulare, unul principal frmMain care conine butoanele decomand pentru deschiderea celorlalte dou, numite frmValuta, i frmDobinda ;

Formularele secundare vor avea cte un buton Exit pentru revenirea n frmMain ; Pentru calculul de schimb valutar se va folosi cursul zilei, care va fi stabilit prin

program cu ajutorul unor constante, pentru a nu fi cerut la fiecare rulare aprogramului;

Pentru calculul dobnzii, datele de intrare vor fi valoarea depozitului, dobnda pe ani num rul de luni pentru care se face calculul. Formula de calcul o vei deduce

singuri; Rezultatele vor fi afiate n textbox-uri, avnd proprietateaLocked setat peTrue .

Interfe e:


47/64


Programul 5. Rezolv ri de ecua ii

Programul va trebui s rezolve 3 tipuri de ecuaii: ecuaia de gradul I, ecuaia de gradul II isistemul liniar de 2 ecuaii cu 2 necunoscute. Aceste programe au fost prezentate separat lacategoria A, dar acum vor fi introduse ntr-o aplicaie cu mai multe formulare.

Specifica ii:

Programul va avea 4 formulare, unul principal frmMain care conine butoanele decomand pentru deschiderea celorlalte trei, numite frmEcuatia1, frmEcuatia2 i frmSistem ;

Formularele secundare vor avea cte un buton Exit pentru revenirea n frmMain ; Cele 3 tipuri de ecuaii au schema logic de rezolvare la exemplele din categoria A,

pe care le putei consulta (programele 5, 6i 7);

Interfe e:


48/64



49/64

PUC 2 ndrumtor de lucrri de laborator Lucrri tip D

Lucr ri tip D. Programe de sintez

n acest capitol vor fi efectuate lucrri de programare care cuprind teme a cror rezolvare foloseteobiecte i tehnici pe care le-ai utilizat n celelalte tipuri de programe. Din aceast cauz nu vom maiavea un program model, ci vom da, cel mult, interfaa i schema logic. Unele propuneri de teme voravea numai specificaii.

Programul 1. Ordonarea unui ir de numere

Acest program i propune s ordoneze cresctor un ir de numere reale introduse aleator.

Specifica ii:

Numerele vor fi introduse cu funcia InputBox; irul brut va fi pus ntr-un ListBox; irul ordonat va fi pus n alt ListBox; Numerele irului vor fiinute ntr-o matrice liniar.


50/64


Schema logic :

DA

NU

DA

DA

NU

i = 1

j = i + 1

ax = a(i)a(i) = a(j)a(j) = ax

i = i + 1 a(i)

START

i = 1

n

i a(j)

j = j + 1


51/64


Interfa a:

Programul 2. ListBox i ComboBox cu date citite dintr-un fi ier

Specifica ii:

Acest exemplu l vom folosi pentru a citi informaii din 2 fiiere pentru a completa un ListBox(fi ierul List1.txt) i un ComboBox (fiierul Combo1.txt), respectiv pentru a scrie informaii ntr-un al 3-lea fiier. Primele dou fi iere se vor crea cu utilitarul Notepadi vor aveastructurile de mai jos:

List1.txt: Nume1 Prenume1

Nume2 Prenume2. . .

Nume n Prenume n

Combo1.txt: Nota1Nota2

. . .

Nota n

Al 3-lea fiier va avea numele Rez.dat i o structur definit prin program, de forma: NumePrenume Nota , fiecare nregistrare fiind format din seleciile care se vor face dinListBox

iComboBox

. Acest fiier va fi generat de ctre program, trebuie doar s i stabilii loculunde va fi salvat (instruciunea Open).

Atenie la urmtoarele aspecte: Fi ierele List1.txt i Combo1.txt se deschid n modulInput , iar fi ierul Rez.dat n

modulAppend ; nc rcarea obiectelor ListBox i ComboBox se face n procedura special

Form_Load (care se deschide automat cu un dublu-click n interiorulformularului).

Deoarece avem o nregistrare de tip String, scrierea efectiv n fi ier se face cuinstruciunea Print #n, x - unde x = nume & &nota (de exemplu:)


52/64


Deoarece algoritmul este foarte simplu citirea a dou valori, concatenarea lori scrierea nfi ier a rezultatului nu mai este necesar schema logic.

Interfa a:

Dup rularea programului, verificai corectitudinea fiierului Rez.dat cu utilitarul Notepad.

Programul 3. Rezolvarea ecua iei de gradul II cu diverse condi ii

Specifica ii:

Acest program i propune rezolvarea ecuaiei de gradul II, avnd mai multe metode deintroducere a datelor iniiale (coeficienii a, b i c), cum ar fi:

Introducerea coeficienilor de la tastatur, din textBox-uri. Introducerea coeficienilor din comboBox-uri. Introducerea coeficienilor din listBox-uri. Introducerea coeficienilor din fiier.

Pentru fiecare metod de introducere este nevoie de o alt interfa , n cazul nostru de 4 formeplus una care se deschide primai care ne d posibilitatea de a le deschide pe celelalte, numit n generalfrmMain .

Mai nti trebuie s ne gndim cum vor arta formele, pentru aceasta vom face schie pe hrtiei o schem de funcionare a aplicaiei. Problema rezolvrii ecuaiei de gradul II ai mai

ntlnit-o. Noutatea const n valorificarea unor cunotin e anterioare, cum ar fi folosireaListBox-urilori ComboBox-urilor, a butoanelor de opiune, a citirii i scrierii n fiiere etc.

Rezultatele vor fi scrise n diverse formate, aa cum se vede din interfee.


53/64


Interfe ele:

Cnd pornete aplicaia trebuie s se activeze form-ulfrmMain . De aici, n funcie deop iunea aleas, se pot activa oricare din cele 4 form-uri (frmTastatura, frmCombo,frmList, frmFisier ). Se observ c fiecare din form-urile satelit conin obiectelecorespunztoare metodei alese.

Respectai notaiile care apar pe formulare pentru a v fi mai uor la scrierea codului dinspatele fiecrui buton de comand.

frmTastatura

frmCom bo

frmMain

frmFisier

frmList


54/64


Programul 4. Program cu meniuri

Cteva considera ii despre meniuri:

O alternativ la programele cu mai multe formulare este aceea de a folosi meniuri n locubutoanelor de comand, pentru deschiderea acestora, mai ales cnd exist un numr mare deformulare. Diferena este c pentru a lansa o procedur, n loc s se dea click pe un buton seva da click pe o opiune de meniu. Pentru crearea meniurilor se folosete editorul de meniuri.

Editorul de meniuri este un utilitar inclus n limbajul VB, destinat proiectrii meniurilorutilizator. Acesta se va folosi pentru crearea meniurilor personalizate, specifice aplicaiilor pecare le vei face.

Deschiderea editorului de meniuri se face prin comandaTools - Menu Editor ,rezultnd imaginea de mai jos:

Aceast caset de dialog conine o serie de casete de texti butoane de comand a c rorsemnificaie va fi exprimat n continuare.

Caption este o caseta de text n care se introduce numele articolului de meniu, aa cum apareel n bara de meniuri a programului pe care l facei. Pentru a permite accesul rapid de latastatur a articolului, se pune caracterul & naintea unei litere cu care dorim s apel marticolul respectiv (Ex: Cal&cul se apeleaz dac ap s m litera c, lista cu articole fiindactivat ). Dac la Caption se introduce caracterul - se va insera o linie separatoare ntrearticolele meniului. Completarea acestei casete este obligatorie.

Name este o caseta de text n care se introduce numele articolului de meniu. Prefixul estmnu (Ex: mnuCalcule) iar completarea casetei este obligatorie. Acesta este numele folo n codul surs.

Index este o caseta de text folosit pentru a introduce un numr ntreg care determin poziiaarticolului n cadrul unei matrici de controale. Aceast tehnic nu este folosit de nceptori,a a c aceast caset nu trebuie completat


55/64


Shortcut este o caseta combinat care afieaz o list din care se poate selecta o tast rapid pentru articolul de meniu respectiv. Tastele vor fi afiate n dreapta articolului. Completareaacestei casete nu este obligatorie.

HelpContextID este o caseta de text folosit pentru un cod numeric asociat unui identificatorde context. Nu vom folosi aceast facilitate la acest nivel.

NegotiatePosition este o caseta combinat legat de programarea avansat, deci nu o lum nconsiderare.

Cele 4 casete de validare au urmtoarele funciuni: Checked - este folosit pentru a apare un simbol n stnga articolului de meniu.

L sa i-o nebifat. Enabled - activeaz articolul de meniu. Lsa i-o activat. Visible - activeaz vizibilitatea articolului de meniu. Lsa i-o activat. WindowList - L sa i-o neactivat, aparine programrii avansate

Cele 4 butoane de ierarhizare permit mutarea articolelor de meniu n sus sau n jos, respectiv la stngai dreapta n cadrul aceluiai nivel. Micnd un articol stnga-dreaptastabilim, de fapt, subnivele ale articolului din stnga-sus.i aici se poate imagina o structur arborescent ca la structura de directoare din Windows Explorer.

Este de la sine neles c articolele cele mai din stnga vor apare n partea de sus a formei, iarcele indentate spre dreapta, vor fi ascunse n spatele articolului printe (primul din stnga-sus). Exemplul practic pe care l vom face ctre sfritul leciei va clarifica aceste aspecte.

Pe editorul de meniuri exist i 5 butoane de comand care au funciile urmtoare: Next - mut selecia pe linia urmtoare a structurii meniului; Insert - insereaz o nou linie deasupra celei selectate; Delete - terge linia selectat; OK - nchide editorul de meniurii salveaz toate modificrile efectuate; Cancel - nchide editorul de meniurii anuleaz toate modificrile

Pentru a lega codul-surs de opiunile de meniu se face dublu-click n faza de proeictare pe unarticol de meniu are loc deschiderea ferestrei de cod a evenimentuluiClick al articoluluirespectiv. n acest mod se poate scrie codul care trebuie executat cnd se face click pe uarticol de meniu. Mecanismul este asemn tor cu cel de la butoanele de comand.

F cnd dublu-click pe un articol de meniu se va deschide fereastra urmtoare:


56/64


n aceast fereastr se va scrie codul asociat articolului de meniu (mnuEc_1 n cazul nostru)cod care va fi executat la evenimentul click.

Dac structura unui meniu este inteligent construit, utilizatorii aplicaiei nu vor avea nici oproblem n utilizarea lor. Meniurile voastre nu vor diferi cu nimic de meniurile aplicaiilorWindows create de profesioniti.

Pentru a crea o aplicaie cu meniuri trebuie parcuri urm torii pai:1. Mai nti desenm pe hrtie structura detaliat a ntregului meniu.2. Pornim Editorul de meniuri cu comandaTools / Menu Editor .3. Construim structura meniului pornind de la schia de pe hrtie.4. Pentru fiecare opiune a meniului va trebui s scriem codul care va fi executat la

evenimentul click al acesteia.

Op iunile din meniu trebuie s ni le imaginm ca fiind nite butoane de comand mai speciale,

care la evenimentul click execut o procedur.

Exemplu practic de aplica ie cu meniu

Ne propunem s proiectm o aplicaie care face nite calcule i rezolv ecuaii i sisteme deecuaii liniare. Gestionarea acestei aplicaii se va face cu ajutorul unui meniu, desenat pehrtie i prezentat mai jos.

Calcule Rezolvari HelpMedia aritmetica Ecuatia de gr. I Descriere aplicatieMedia geometrica Ecuatia de gr. II Despre aplicatie

Perimetrul triunghiului Sistem 2 ec.Punctaj Sistem 3 ec.

Analiznd meniul afiat rezult c avem de f cut 4 calcule, de rezolvat 2 ecuaii i 2 sisteme,respectiv de a vizualiza 2 fiiere de tip Help. Pentru fiecare din cele 10 opiuni trebuie s avem cte o procedur care se declaneaz la evenimentul click pe acea opiune.

Primul pas care trebuie f cut este desenarea interfeei, care va trebui s conin att obiectecunoscute deja (textBox-uri pentru introducereai afi area datelor, butoane de comand,etichete etc) cti meniul. Aceast interfa este ar tat n figura urmtoare.


57/64


Fig. xx. Interfaa aplicaiei

Interfaa prezentat mai sus este potrivit pentru submeniulCalcule , presupunnd c avem defiecare dat numai 3 date de intrare. ProprietateaCaption a obiectuluiLabel este folosit pentru a afia diferite etichete n funcie de opiunea aleas.

Iat numele obiectelor de pe interfa, nume care vor fi folositei n codul surs: Etichete:lblVal1, lblVal2, lblVal3, lblRezultat i lblRezVal. Casete de text:txtVal1, txtVal2 i txtVal3 Butoane de comand: cmdOK i cmdExit Submeniul Calcule: mnuMediaA, mnuMediaG, mnuPerimetruT i

mnuPunctaj

Pentru submeniul Rezolvari trebuie gndit o alt form care s conin obiectele pentruintroducerea datelor iniiale i pentru afiarea rezultatelor. Aceast parte a aplicaiei nu estecuprins n acest exemplu, aa c va trebui s o facei singuri, pe baza cunotin elor acumulatepn acum.

Pentru afiarea casetei de dialog a editorului de meniuri folosii comandaTools / MenuEditor... Dup completarea tuturor elementelor meniului va trebui s ob ine i ceea ce se

vede n figura urmtoare.


58/64


ncercai s n elegei toate informaiile afiate n figura 15.23 pentru a face legtura cu ceeace se vede n interfa.

Definirea procedurilor-eveniment se face astfel:

Click pe elementul de meniu din interfa, de exemplu Me&dia aritmetica . Se va deschide proceduraSub mnuMediaA_Click(), care se va completa cu

codul care dorim s fie executat la activarea acestei opiuni.

Aceast operaiune seamn cu ataarea unei proceduri la un buton de comand.

n continuare se va prezenta codul pentru partea de calcule a aplicaiei.

Dim rez As Integer Acestea sunt variabile globaleDim rez1 As Double Media aritmetic Dim rez2 As Double Media geometric Dim rez3 As Double Perimetrul triunghiuluiDim rez4 As Integer Punctaj 3 puncte la victorie + 1 punct la egal

Private Sub cmdExit_Click()End

End Sub

Private Sub cmdOK_Click()lblRezultat.Visible = TruelblRezVal.Visible = TrueSelect Case rez

Case 1 Media aritmeticarez1 = Format((Val(txtVal1) + Val(txtVal2) + Val(txtVal3)) /

3, "##.00")


59/64


Case 2 Media geometricarez2 = Format(Sqr((Val(txtVal1) * Val(txtVal2) *

Val(txtVal3))), "##.00")lblRezVal.Caption = rez2

Case 3 Perimetrul triunghiuluirez3 = Format(Val(txtVal1) + Val(txtVal2) + Val(txtVal3),

"#####.00")lblRezVal.Caption = rez3Case Else Punctaj

rez4 = Val(txtVal1) * 3 + Val(txtVal2)lblRezVal.Caption = Format(rez4, "###")

End SelectEnd Sub

Private Sub mnuMediaA_Click()AscundelblRezultat.Caption = "Media aritmetica este:"

lblVal1.Caption = "Nota 1:"lblVal2.Caption = "Nota 2:"lblVal3.Caption = "Nota 3:"lblVal1.Visible = TruelblVal2.Visible = TruelblVal3.Visible = TruetxtVal1.Visible = TruetxtVal2.Visible = TruetxtVal3.Visible = Truerez = 1

End SubSub Ascunde()

lblVal1.Visible = FalselblVal2.Visible = FalselblVal3.Visible = FalsetxtVal1.Visible = FalsetxtVal2.Visible = FalsetxtVal3.Visible = FalselblRezultat.Visible = FalselblRezVal.Visible = False

End Sub

Private Sub mnuMediaG_Click()Ascunde

lblRezultat.Caption = "Media geometrica este:"

lblVal1.Caption = "Numarul 1:"lblVal2.Caption = "Numarul 2:"lblVal3.Caption = "Numarul 3:"lblVal1.Visible = TruelblVal2.Visible = TruelblVal3.Visible = TruetxtVal1.Visible = TruetxtVal2.Visible = TruetxtVal3.Visible = Truerez = 2

End Sub

Private Sub mnuPerimetruT Click()


60/64


lblRezultat.Caption = "Perimetrul triunghiului este:"

lblVal1.Caption = "Latura AB:"lblVal2.Caption = "Latura BC:"lblVal3.Caption = "Latura AC:"lblVal1.Visible = TruelblVal2.Visible = TruelblVal3.Visible = TruetxtVal1.Visible = TruetxtVal2.Visible = TruetxtVal3.Visible = Truerez = 3

End Sub

Private Sub mnuPunctaj_Click()AscundelblRezultat.Caption = "Punctajul obtinut este:"

lblVal1.Caption = "Victorii:"lblVal2.Caption = "Meciuri egale:"lblVal3.Caption = "Infringeri:"lblVal1.Visible = TruelblVal2.Visible = TruelblVal3.Visible = TruetxtVal1.Visible = TruetxtVal2.Visible = TruetxtVal3.Visible = Truerez = 4

End Sub

Acest exemplu v ofer un caz concret de utilizare a meniurilor n aplicaiile scrise n VisualBasic. El poate fi o surs de inspiraie pentru aplicaiile pe care o s le proiectai.

Observai cum se folosete proprietateaCaption pentru a schimba din cod ceea ce afieaz o etichet, tehnic foarte des folosit de c tre programatorii profesioniti.

Observai, de asemenea, folosirea variabilelor globalerez, rez1, rez2, rez3 irez4 care au fost declarate n afara procedurilor.

Completai aplicaia cu partea de rezolvri a ecuaiilor i sistemelor.


61/64


Programul 5. Program cu propozi ii

Acest program i propune s ating i s combine mai multe cunotin e pe care le-ai studiat n tipurile de lucrri anterioare.

Specifica ii:

Programul are 3 listbox-uri cu cuvinte subiecte, predicatei complemente; Aceste listbox-uri se vor ncrca fiecare din cte un fiier, care se vor crea n Notepad

i vor avea forma (exemplu pentru subiecte):Subiect1

Subiect2

........

O propoziie va fi format din 3 cuvinte: subiect, predicati complement legate ntre ele cu operatorul &;

Cele 3 cuvinte se vor alege, fiecare din listbox-ul corespunztor; Propoziia va fi format i afi at ntr-un textbox, folosind un buton de comand; Un buton de comand va scrie propoziia ntr-un fiier; Un altul va terge propoziia din textbox; Un altul va afia coninutul fiierului ntr-un listbox, care va fi creat ntr-un alt

formular;

Interfa a:


62/64


62

ANEXA. Teme pentru programe

1. Determinarea centrului de greutate a unui cadru de srm :

Datele de intrare vor fi segmente care vor fi citite dintr-un fiier de forma: x1, y1, x2, y2 ...... xn-1, yn-1, xn, yn Segmentele vor fi desenate, mpreun cu centrul de greutate care va fi

simbolizat printr-o cruce mic si notat cu G Coordonatele centrului de greutate vor fi afiate

2. Desenarea unui cerc care trece prin 3 puncte:

Punctele vor fi introduse prin textBox-uri Centrul cercului si raza vor fi afisate

3. Desenarea unui cerc nscris ntr-un triunghi:

Punctele care determin triunghiul vor fi introduse prin textBox-uri Centrul cercului si raza vor fi afisate

4. Crearea unei agende personale varianta I, cu structuri de date:

Se va crea un tip de data numit Persoana, care conine nume, prenume,telefon, data naterii, profesie, loc de munc, etc. Aplicaia va conine mai multe formulare, cum ar fi formularul de actualizare a

datelor, formularul de afiare a diverselor interogri cum ar fi: toate persoanelede gen feminin, toate persoanele dintr-un ora, toate persoanele nscute ntr-oanumit lun etc.

Design-ul aplicaiei este la latitudinea studentului.

5. Crearea unei agende personale varianta II, cu baze de date:

Se va crea o baz de date cu informaii despre persoane, firme etc. Aplicaia va conine mai multe formulare, cum ar fi formularul de actualizare a

datelor, formularul de afiare a diverselor interogri cum ar fi: toate persoanelede gen feminin, toate persoanele dintr-un ora, toate persoanele nscute ntr-oanumit lun etc.

Design-ul aplicaiei este la latitudinea studentului.


63/64


63

6. Dezvoltarea unei aplica ii Calculator de buzunar:

Va conine cele 4 operaii, radical, sin, cos, tg, ctg, buton cu memorie etc. Design-ul aplicaiei este la latitudinea studentului.

7. Aplica ia 6 din 49: Un formular va nscrie n fiier variante: Nume, x1,x2,...x6. O funcie care face extragerea (random). O funcie care stabilete rezultatele:

I 6 numere bune

II 5 bune

III 4 bune

IV 3 bune Design-ul aplicaiei este la latitudinea studentului.

8. Aplica ie Criptare text:

Un text va fi criptat dup o cheie, pentru a fi trimis undeva. O functie care vati s decripteze textul. Textele pot fi stocate n textBox sau n fiiere. Design-ul aplicaiei este la latitudinea studentului.

9. Aplica ie Situa ia depozitelor de la banc :

Am mai multe depozite, fiecare cu data lui de starti cu dobnda lui. Doresc s v d depozitele la un anumit moment. Design-ul aplicaiei este la latitudinea studentului.

10. Reprezentarea grafic a func iei de gradul II:

Se vor intoduce parametrii a, b, c. Se va specifica max/min ul funciei precum i interseciile cu axa Ox (x1,x2). Design-ul aplicaiei este la latitudinea studentului.

11. Aplica ie Puncte n interiorul cercului:

ntr-un fiier se gsesc n puncte:x1, y1x2, y2


64/64

PUC 2-Lucrari de Laborator

Documents

Transcript of PUC 2-Lucrari de Laborator