Matriță – Stiluri de text – varianta 0.3 – cu normal align left: 0

Năchilă Cătălin – Visual Basic 1

Proiectul 1.1. Să se aducă pe formă un control de tip Label și două controale de tip Button. În Label se scrie textul „Culoare” iar în butoane „Roșu” respectiv „Albastru”. La apăsarea unui buton, textul se va colora în roșu, iar la apăsarea altui buton se va colora în albastru. Să se modifice programul astfel încât, la apăsarea unui buton, textul se va colora în roșu și se va afișa textul „Culoare roșie”, iar la apăsarea altui buton textul se va colora în albastru și se va afișa textul „Culoare albastră”.

Să se seteze apoi forma şi controalele astfel:

– controlul Label1: Font -> Name: Comic Sans MS, Font -> Size: 11, Bold: true

– să se aducă pe formă un control de tip Label care să conţină textul „Program in Visual Basic” care să fie setat: Font -> Size: 18, ForeColor: albastru (Blue)

– culoarea de fundal a formei (BackColor) să fie portocalie (Orange)

– culoarea de fundal a butoanelor (BackColor) să fie: OrangeRed respectiv DeepSkyBlue

– butoanele să aibă lăţimea (width) de 60 şi înălţimea (height) de 30

– textul din butoane să fie formatat astfel: Font -> Name: Comic Sans MS, Font -> Size: 11, Bold: true

Proiectul 2.2. Să se aducă pe formă un control de tip Label în care se scrie textul 100. La apăsarea unui buton, să se adune o unitate la numărul din Label. După verificarea programului, să se mai aducă pe formă un buton care, la apăsare, va scade o unitate din numărul din Label.

Proiectul 2.3. Să se creeze un program asemănător cu cel de mai sus cu diferența că, numărul la care se va aduna/scădea o unitate este introdus de programator după lansarea în execuţie a programului.

În locul controlului de tip Label se va aduce un control de tip TextBox.

Să se seteze apoi forma şi controalele astfel:

– să se aducă pe formă un control de tip Label care să conţină textul „Program in Visual Basic” care să fie setat: Font -> Size: 18, ForeColor: albastru (Blue)

– culoarea de fundal a formei (BackColor) să fie portocalie (Orange)

– culoarea de fundal a butoanelor (BackColor) să fie: DeepSkyBlue

– butoanele să aibă lăţimea (width) de 40 şi înălţimea (height) de 30

– textul din butoane să fie formatat astfel: Font -> Name: Courier New, Font -> Size: 18, ForeColor: (Red)

Matriță – Stiluri de text – varianta 0.3 – cu normal align left: 0

Năchilă Cătălin – Visual Basic 2

Proiectul 2.4. Să se realizeze o aplicație pentru calculul salariului care să aibă interfața de mai jos.

Formula de calcul a salariului brut este: salariu brut = salariu + ore suplimentare * plata pe oră + prima

Formula de calcul a salariului net este: salariu net = salariu brut * (1 – impozit)

Impozitul este un număr între 0 și 1. Să se afișeze după cele două salarii textul euro.

Proiectul 2.5.(If – End If) Să se realizeze o aplicație pentru calculul sumei pe care trebuie să o plătească un client după selectarea unor produse. La apăsarea butonului Calculează se calculează suma conform produselor selectate. Dacă suma depășește 6000 lei, să se calculeze o reducere de 10%.

Controalele se așează pe forma astfel:

Panel1

Panel2

RadioButton 1 & 2

CheckBox 1 … 5

PictureBox 1 … 5

Label 2 … 4

Label 1

TextBox 1 … 3

GroupBox1

Button1

Să se modifice aplicația astfel: la selecția unui RadioButton se vor afișa doar produsele din acea categorie (celelalte se ascund).

Matriță – Stiluri de text – varianta 0.3 – cu normal align left: 0

Năchilă Cătălin – Visual Basic 3

Proiectul 2.6. (Select Case) Să se realizeze o aplicație pentru conversia valutară din lei în mai multe tipuri de valută.

Label

Label

TextBox

PictureBox

Button

ComboBox

La selectarea unei monede din ComboBox1, imaginea corespunzătoare acesteia va apare automat într-un control PictureBox1. După introducerea unei valori în TextBox1, la apăsarea butonului Convertiți, va avea loc conversia.

Proiectul 2.7. Să se aducă pe formă următoarele controale:

La apăsarea butonului Adaugă să va copia textul din TextBox1 în ListBox1. La apăsarea butonului Ștergere se va șterge tot textul din ListBox1.

Proiectul 2.8. (For – Next) Să se aducă pe formă următoarele controale:

La apăsarea butonului Calculați se vor efectua operațiile:

– să va prelua numărul din TextBox1 în variabila n

– în ListBox1 se vor afișa toate numerele cuprinse între 1 și n

Matriță – Stiluri de text – varianta 0.3 – cu normal align left: 0

Năchilă Cătălin – Visual Basic 4

Să se modifice programul astfel încât, după afișarea primelor n numere, să se afișeze și suma acestora. De exemplu:

Să se modifice programul astfel încât, să se afișeze numerele în ordine descrescătoare (For i = n To 2 Step -2).

Proiectul 2.9. (Do - Loop) Să se modifice proiectul 2.8 astfel încât structura repetitivă să fie cu număr necunoscut de pași (în primul caz cu test inițial apoi cu test final).

Proiectul 3.1.(a) Amortizare liniară:

• Valoare de intrare – se citește

• Perioada – se citește

• Norma de amortizare = 100 %

Perioada

• Amortizarea anuală = Valoare de intrare * Norma de amortizare %

• Amortizarea lunară = 12

Amortizare anuală

• Valoarea rămasă de amortizat la sfârșitul anului I = Valoare de intrare – Amortizarea anuală

Proiectul 3.1.(b) Amortizare liniară pe ani (Do – Loop)

Față de formula de la proiectul 2.10 avem în plus:

• Valoarea rămasă de amortizat la sfârșitul anului i+1 = Valoarea rămasă de amortizat la sfârșitul anului i – Amortizarea anuală

La rulare, după introducerea datelor, forma ar trebui să arate astfel:

Matriță – Stiluri de text – varianta 0.3 – cu normal align left: 0

Năchilă Cătălin – Visual Basic 5

Proiectul 3.2. Balanta de verificare (For – Next & baze de date) Forma are următorul design:

Se creează în prealabil o bază de date în Access numită balanta ce conține un tabel tabel_date ce conține datele:

Proiectul 3.4. Elemente de matematici financiare – plan de rambursare: (For – Next) Relații matematice:

1. _ _suma inceput lunaamortismentperioada

= (la pasul inițial suma_început_luna = suma

împrumutată)

– dacă perioada este în ani => 1100

suma procentperioada dobânda ⋅= ⇒ =

– dacă perioada este în luni => . .12 100 12

nr luni suma procent nr luniperioada dobânda ⋅= ⇒ = ⋅

– dacă perioada este în zile => . .

360 100 360nr zile suma procent nr zileperioada dobânda ⋅

= ⇒ = ⋅

2. 100

suma procentdobânda perioada⋅= ⋅

3. rata amortisment dobanda= +

4. _ _ _ _ - suma sf luna suma inceput luna amortisment=

Matriță – Stiluri de text – varianta 0.3 – cu normal align left: 0

Năchilă Cătălin – Visual Basic 6

Cazul 1: O persoană fizică împrumută 20.000 lei pe o perioadă de 9 luni. Banca lucrează cu un procent anual de 9,6%. Să se realizeze un plan de rambursare pentru creditul făcut în situația în care ratele sunt descrescătoare (amortismente egale).

Proiectul 3.6. Operații asupra unui șir de numere. Să se creeze un șir (pe baza unor numere dintr-un ListBox). Să se detemine maximul, minimul, media și suma elementelor. Să se sorteze șirul prin metoda bulelor și cu ajutorul funcției Array.Sort(sir_pt_sortare).

Proiectul 3.6. Operații asupra matricelor. Să se creeze două matrice A și B pe baza unor numere introduse în controale DataGridView.

Dacă matricea A are m linii și n coloane, matricea B are obligatoriu n linii și p coloane.

Produsul celor două va fi o matrice C cu m linii și p coloane.

( ) ( ) ( ), , ,,ij m n jk n p ik m pA a M B b M A B c M= ∈ = ∈ ⇒ ⋅ = ∈

Formula de calcul este:

1 1 2 21

... , 1, , 1, .n

ik i k i k in nk ij jkj

c a b a b a b a b i m k p=

= ⋅ + ⋅ + + ⋅ = ⋅ = =∑

Exemple:

1 3 2 41) 2, ,

2 1 3 0

(1,1) (1,1) (1, 2) (2,1) (1,1) (1, 2) (1, 2) (2, 2)(2,1) (1,1) (2, 2) (2,1) (2,1) (1, 2) (2, 2) (2, 2)

1 2 3 3 1 4 3 0 11 42 2 1 3 2 4 1 0 7 8

n m p A B C A B

A B A B A B A BA B A B A B A B

= = = = = ⇒ = ⋅ =

⋅ + ⋅ ⋅ + ⋅

= = ⋅ + ⋅ ⋅ + ⋅ ⋅ + ⋅ ⋅ + ⋅

= = ⋅ + ⋅ ⋅ + ⋅ .

Matriță – Stiluri de text – varianta 0.3 – cu normal align left: 0

Năchilă Cătălin – Visual Basic 7

1 20 1 1

2) 2, 3, 3, 4 5 ,1 2 2

2 3

(1,1) (1,1) (1, 2) (2,1) (1,1) (1, 2) (1, 2) (2, 2) (1,1) (1, 3) (1, 2) (2, 3)(2,1) (1,1) (2, 2) (2,1) (2,1) (1, 2) (2, 2) (2, 2) (2,1) (1

n m p A B C A B

A B A B A B A B A B A BA B A B A B A B A B

= = = = = ⇒ = ⋅ =

⋅ + ⋅ ⋅ + ⋅ ⋅ + ⋅

= ⋅ + ⋅ ⋅ + ⋅ ⋅ , 3) (2, 2) (2, 3)(3,1) (1,1) (3, 2) (2,1) (3,1) (1, 2) (3, 2) (2, 2) (3,1) (1, 3) (3, 2) (2, 3)

1 0 2 1 1 1 2 2 1 1 2 2 2 5 54 0 5 1 4 1 5 2 4 1 5 2 5 14 142 0 3 1 2 1 3 2 2 1 3 2 3 8 8

A BA B A B A B A B A B A B

+ ⋅ = ⋅ + ⋅ ⋅ + ⋅ ⋅ + ⋅ ⋅ + ⋅ ⋅ + ⋅ ⋅ + ⋅

= ⋅ + ⋅ ⋅ + ⋅ ⋅ + ⋅ = ⋅ + ⋅ ⋅ + ⋅ ⋅ + ⋅

( ) ( )

.

3 1 2 2 93) 3, 3, 1, 0 2 0 , 3 6 .

0 0 1 0 0

2 14) 3, 1, 2, 4 2 3 , 0 1 20 11 .

4 3

n m p A B C A B

n m p A B C A B

= = = = = ⇒ = ⋅ =

= = = = = − ⇒ = ⋅ =