Construindo um relógio analógico no Excel

O post de hoje é um pouco diferente. Nosso objetivo será construir um relógio analógico (com ponteiros móveis) com base nos gráficos do Excel. Confira!

No vídeo, você pode notar que o mapeamento dos pontos que definem os ponteiros é feito com trigonometria. A partir da função AGORA(), que retorna a hora atual da máquina, são calculados os ângulos dos ponteiros e as posições das extremidades.

É preciso notar que o zero do ciclo trigonométrico (sentido positivo do eixo x) coincide com a posição da marcação de 3 horas. O zero do relógio (que também é a posição do 12) corresponde ao ângulo de 90° no ciclo. Por esse motivo, os cálculos dos ângulos devem sempre somar 90°, de forma que teremos as seguintes fórmulas com os fatores de conversão:

Ângulo do ponteiro de segundos = 90° + [segundos]/(60 segundos/ciclo)*(360°/ciclo)

Ângulo do ponteiro de minutos = 90° + [minutos]/(60 minutos/ciclo)*(360°/ciclo)

Ângulo do ponteiro de horas = 90° + [horas]/(12 horas/ciclo)*(360°/ciclo)

O código de VBA que foi adicionado ao botão de ativação/inativação do relógio é o seguinte:

Public Ligado As Boolean

Sub Atualizar()
    Range("B1").Calculate
    If Ligado Then
        Application.OnTime Now + TimeValue("00:00:01"), "Atualizar"
    End If
End Sub

Sub ControleBotao()
    Ligado = Not Ligado
    If Ligado Then
        Call Atualizar
    End If
End Sub

Para baixar o arquivo do vídeo com a macro, utilize o link abaixo:

Aproveite para se inscrever no canal do YouTube e até mais!