Avaliação contextualizada programação de computadores

Prévia do material em texto

Avaliação On-Line 5 (AOL 5) - Atividade Contextualizada
Curso: Engenharia de Produção
Disciplina: Programação de Computadores
Professor: Leopoldo França
Aluno: Roosevelt Izel Pereira de Melo
 Conteúdo do exercício
 Proposta de atividade
Considere o seguinte problema: uma sala possui um sensor que, a cada minuto, envia para um computador informações sobre temperatura e umidade. O cenário ideal, em que se apresenta um conceito ótimo, é aquele em que a temperatura está entre 20°C e 30°C, com umidade entre 75% a 85%. Caso a temperatura seja maior do que 30°C e a umidade fique entre 85% e 90%, não há pânico: o ambiente está em boas condições, mas apresenta conceito de atenção. Por outro lado, se a umidade for menor do que 30% e a temperatura for maior do que 30°C, é emitido um alarme, pois esta é a pior situação, em que se apresenta o conceito de EMERGÊNCIA. Fora esses casos descritos, nos demais momentos o ambiente apresentará o conceito regular.
Conforme essas informações e o conteúdo visto aqui, você deve escrever um código que receba e analise, de tempos em tempos, os dados do sensor. O código deve ser feito no VBA e, posteriormente, copiado e colado no Microsoft Word (ou outro editor de texto), em fonte Arial 12. É importante que você insira o código completo.
 Solução
Option Explicit
Dim tempo As Date
Dim valorTemperatura As Integer
Dim valorUmidade As Integer
Sub executa_por_tempo()
 tempo = Now + TimeValue("00:01:00")
 Call Application.OnTime(tempo, "executa_por_tempo")
 valorTemperatura = CInt(InputBox("Informe a temperatura do sensor"))
 valorUmidade = CInt(InputBox("Informe a Umidade do sensor")) 
 If valorTemperatura > 30 And valorUmidade < 30 Then
 MsgBox "situacao de EMERGENCIA"
 Else
 If valorTemperatura > 30 And (valorUmidade >= 85 And valorUmidade <= 90) Then
 MsgBox "situacao de ATENÇÃO"
 Else
 If (valorTemperatura >= 20 And valorTemperatura <= 30) And (valorUmidade >= 75 And valorUmidade <= 85) Then
 MsgBox "situacao de ÓTIMO"
 Else
 MsgBox "situacao de REGULAR"
 End If
 End If
 End If
End Sub
Sub finaliza_por_tempo()
Call Application.OnTime(tempo, "executa_por_tempo", False)
End Sub
Parte inferior do formulário
 
Resultado