Planilha VBA Pomodoro - Técnica para Organização do Tempo

Objetivo: Demonstrar rapidamente como funciona a técnica Pomodoro e disponibilizar uma planilha que realiza através de VBA a aplicação do método.

Conforme definição do blog Sea Tecnologia "Pomodoro Technique é uma técnica de organização, concentração e produtividade pessoal que está dando o que falar ultimamente."

Atécnica consiste em utilizar um timer para estabelecer ciclos de trabalho e de descanso da seguinte forma: 25 minutos de trabalho, 5 minutos de descanso, a cada 4 ciclos 15 minutos de descanso.

Bastante simples e com um forte ganho na concentração no seu trabalho, sem pausas para qualquer distração, e dando uma medida igual para ciclos de trabalho.

Conforme depoimento do site InfoQ "Desde que começamos a usar Pomodoro na SEA, nossas estimativas deram um salto de precisão incrível (sem falar em nossa produtividade). Ao experimentar os seus 4 ou 8 primeiros tomates, já se consolida uma metáfora para a unidade de esforço que é muito clara e precisa. Essa unidade ajuda a imaginar o esforço necessário para realizar uma tarefa, além de estabelecer uma "moeda" única e fácil de padronizar, que ajuda a comparar o tamanho das tarefas. Este artigo aborda a técnica brevemente, introduz a questão das estimativas e explica como estamos usando a técnica Pomodoro para melhorar nossas estimativas na SEA."

Ainda conforme o mesmo site "O principal objetivo da técnica é o de diminuir as ansiedades ligadas a prazos e atrasos, ajudando a relaxar as preocupacões e aumentar a concentracão, potencializando o tempo de trabalho criativo. Além de contribuir com o descanso e propiciar momentos de reflexão a respeito do que se está fazendo, a técnica também contribui com as estimativas de esforço da equipe."

Como não posso instalar softwares no meu serviço criei esta planilha que realiza via VBA este controle que disparam 3 bips a cada mudança de etapa do ciclo.

Utilizei hoje e senti diferenças no desempenho do trabalho, pode demorar um pouco para você se acostumar, mas vai sentir a diferença rapidamente.

Código fonte:

Sub Beeper()
    'Início
    Alarme

    For i = 1 To 5000
        '25 minutos
        Cells(1, 1).Value = "Trabalhando"
        start2 = Now() + TimeSerial(0, 25, 0)
        Application.Wait start2
        Alarme

        If i Mod 4 <> 0 Then
            '5 minutos
            Cells(1, 1).Value = "Folga"
            'lsCriaArquivoMusica
            start2 = Now() + TimeSerial(0, 5, 0)
            Application.Wait start2
            Alarme
        Else
            '15 minutos
            Cells(1, 1).Value = "Folga"
            'lsCriaArquivoMusica
            start2 = Now() + TimeSerial(0, 15, 0)
            Application.Wait start2
            Alarme
        End If
    Next i
End Sub

Sub Alarme()
    Dim j As Integer

    For j = 1 To 3
        Beep
        start2 = Now() + TimeSerial(0, 0, 1)
        Application.Wait start2
    Next j
End Sub

Abraço

Marcos Rieper