Question

Conteúdo do exercício

No nosso cotidiano, nos deparamos constantemente com estruturas de controle como as estudadas ao longo da disciplina. Por exemplo, ao acordarmos, a primeira ação é SE O DESPERTADOR TOCAR, desligue-o, SENÃO, mantenha-o ligado. Ao sair de casa, SE NÃO HOUVER TRÂNSITO, continue reto pela via, SENÃO, vire à esquerda. Ao chegar no trabalho, você entra no elevador e pressiona o botão 4, que corresponde ao seu andar. SE o andar for igual a 4, então o elevador para, SENÃO, ele continua a subir. E, ENQUANTO não chega o seu andar, ele segue subindo. A condição de parada é chegar ao quarto andar.

Como vimos, as estruturas de controle podem ser do tipo de decisão ou de repetição, e cada uma tem suas características e aplicabilidades. Analise o caso a seguir e faça o que se pede.

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.​

Answer 1

Sub meu_codigo()

Dim temperatura As Double

Dim umidade As Double

B = Range("D3").Value

A = Range("D4").Value

If A >= 20 And A <= 30 And B >= 75 And umidade <= 85 Then

Range("D5").Value= "NÃO HÁ PÂNICO : O AMBIENTE ESTÁ EM BOAS CINDIÇÕES"

Else

If A > 30 And B >= 85 And B <= 90 Then

Range("D5").Value= " EMERGENCIA"

Else

If B < 30 And A > 30 Then

Range("D5").Value= " EMERGENCIA"

Else

Range("D5").Value= "NÃO HÁ PÂNICO : O AMBIENTE ESTÁ EM BOAS CINDIÇÕES"

End If

End If

End If

End Sub