Poisss

Disponível somente no TrabalhosFeitos
  • Páginas : 3 (628 palavras )
  • Download(s) : 0
  • Publicado : 22 de março de 2013
Ler documento completo
Amostra do texto
AULA 12/03/2013
1. Leia salário. Se salário for maior que R$ 1.500,00 efetue um reajuste de 8%¨, senão o reajuste será de 10%. Exiba: valor de reajuste e salário reajustado.

Public Class Form1Private Sub btnproc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproc.Click
'Botão Processar
Dim salario, reajuste, salreaj As Doublesalario = Val(txtsal.Text)
If salario > 1500 Then
reajuste = salario * 0.08
Else
reajuste = salario * 0.1
End If
salreaj = salario +reajuste
lblreaj.Text = "Reajuste......................" & FormatCurrency(reajuste)
lblsalreaj.Text = "Salário Reajustado....." & FormatCurrency(salreaj)
End SubPrivate Sub btnlimpar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlimpar.Click
'Botão Limpar
txtsal.Clear()
lblreaj.Text = ""lblsalreaj.Text = ""
txtsal.Focus()
End Sub
Private Sub btnsair_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsair.Click
'Botão Sair
IfMsgBox("Deseja Sair?", MsgBoxStyle.YesNo, "Sair") = vbYes Then
End
Else
btnlimpar.PerformClick()
End If
End Sub
End Class-------------------------------------------------

2. Leia dias letivos e faltas. Calcule o limite de faltas (25% dos dias letivos). Se as faltas for maior do que o limite exiba “Reprovado por falta”, senão “Ok”.

Public ClassForm1
Private Sub btnproc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproc.Click
'Botão Processar
Dim dl, faltas, limite As Integer
dl= Val(txtdias.Text)
faltas = Val(txtfaltas.Text)
limite = dl / 4
If faltas > limite Then
MsgBox("Reprovado por faltas", MsgBoxStyle.Critical, "Faltas")...
tracking img