ATIVIDADE CONTEXTUALIZADA PROGRAMAÇÃO COMPUTAÇÃO

Prévia do material em texto

ATIVIDADE CONTEXTUALIZADA
Aluno; Izaias Ribeiro dos Reis
Matrícula: 01443352				Data 30/06/2021
Curso: Engenharia Civil
Disciplina: Programação de Computadores
Professor: Leopoldo França
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 análise, 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.
CÓDIGO
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