Aula 9 - Modulo 8/9 Projeto V/VI

 Projeto V
valor =  Val (Text1.Text)
taxa = Val (Text2.Text)
tempo = Val (Text3.Text)
prestação = valor + (valor * (taxa/100) * tempo)
Text4.Text = prestação

Projeto VI
vp = Val(Text5.Text)
tx = Val(Text6.Text)
meses = Val (Text7.Text)
parcela = Pmt(tx / 100,meses,-vp)
Text8.Text = parcela
Text9.Text = meses * parcela

Aula 8 - Mod 7 - Projeto IV

 1 form

4 frame

7 label

6 textbox

1 image

a = Val (Text1.Text)

b = Val (Text2.Text)

c = Val (Text3.Text)

delta = b * b - 4 * a * c

Text4.Text =  delta

x_1 = ( -b + Math.Sqr(delta)) / 2 *a

x_2 = ( -b + Math.Sqr(delta)) / 2*a

Text5.Text = x_1

Text6.Text = x_2

Aula 7 - Módulo 6 - Projeto III - Média Final

1 Form          Caption

6 Label         Caption

6 TextBox       Text

3 Command       Caption

Code: 

b1 = Val(Text1.Text)

b2 = Val(Text2.Text)

b3 = Val(Text3.Text)

b4 = Val(Text4.Text)

mfa = (b1 + b2 * 2 + b3 * 3 + b4 * 4 / 10

Text5.Text = mfa

nm = (50 - (b1 + b2 * 2 + b3 * 3)) / 4

Text6.Text = nm

mfa = (b1 * 1 + b2 * 2 + b3 * 3 + b4 * 4) / 10

Por que é dividido por 10?

Porque é soma dos pesos (ex: 1 + 2 + 3 + 4 = 10)

nm = (50 - (b1 * 1 + b2 * 2 + b3 * 3)) / 4

Aula 6 - Mod 5 - Projeto II - Cálculo

 1 form             caption

4 label              caption

4 textbox           text

3 command       caption

*Code "Calcular IMC"***

peso=Val(Text1.Text)

altura=Val(Text1.Text)

imc=peso/(altura*altura)

Text3.Tex=imc

If imc<18.5 Then

(Text4.Text)= Abaixo do peso

Elself imc="Peso normal

Else imc>=25= Acima do peso

Else Text4.Text= Obesidade

End If