Simples relógio digital
Publicado por Sandro Marcell 08/09/2008
[ Hits: 7.950 ]
Homepage: http://sanmarcell.wordpress.com
Simples script em Tcl/Tk que mostra um relógio digital com data e dia da semana.
#!/usr/bin/wish # # Simples relogio digital (com data) em Tcl/Tk. # Sandro Marcell (sandro_marcell@yahoo.com.br) # # Obs.: # - As horas sao mostradas no formato 24h; # - O relogio ainda apita! # # Mais detalhes: # man tk # tclhelp # Codificacao padrao: encoding system utf-8 # Procedimento principal que formata a data, hora e dia: proc _Principal_ {} { # Dia da semana por extenso: switch [clock format [clock seconds] -format "%w"] { 0 { set dia "Domingo" } 1 { set dia "Segunda-feira" } 2 { set dia "Terça-feira" } 3 { set dia "Quarta-feira" } 4 { set dia "Quinta-feira" } 5 { set dia "Sexta-feira" } 6 { set dia "Sábado" } } # Cores diferentes para cada dia: switch -glob $dia { Dom* { set cor "#31a90b" } Seg* { set cor "#be1b0b" } Ter* { set cor "#ebe80b" } Qua* { set cor "#f8700b" } Qui* { set cor "#1c70e3" } Sex* { set cor "#b6a8c1" } Sáb* { set cor "#d8c908" } } # Mes por extenso: switch [clock format [clock seconds] -format "%m"] { 01 { set m "Janeiro" } 02 { set m "Fevereiro" } 03 { set m "Março" } 04 { set m "Abril" } 05 { set m "Maio" } 06 { set m "Junho" } 07 { set m "Julho" } 08 { set m "Agosto" } 09 { set m "Setembro" } 10 { set m "Outubro" } 11 { set m "Novembro" } 12 { set m "Dezembro" } } # Data: set d [clock format [clock seconds] -format "%d"] # Ano: set a [clock format [clock seconds] -format "%Y"] # Hora set h [clock format [clock seconds] -format "%T"] # Reconfigurando label's: .clock configure -text $h -font {helvetica 14 bold} .data configure -text "$d de $m de $a" .dia configure -text $dia -background $cor # Se for HH:MM:SS em ponto, apite! if {[regexp {(([01][0-9]|2[0-3]):00:00)} $h]} { puts "\a" } # Aguardar 1 segundo antes de atualizar tudo: after 1000 _Principal_ } # Montando as janelas (widgets) tk_setPalette "#000000" wm title . "TkClock" wm minsize . 200 80 wm maxsize . 200 80 # Mostrando relogio: label .clock -text {} # Montando o widget label: pack .clock -side top -fill x -expand yes # Mostrando data: label .data -text {} pack .data -side bottom -fill x -expand yes # Mostrando dia label .dia -text {} pack .dia -side bottom -fill x -expand yes # Chamando procedimento: _Principal_ # Fechando janela (tecle <ENTER>): bind all <Return> { after cancel _Principal_ destroy . exit } # Fim
Compactando arquivos e diretórios simultâneamente
Compactando / descompactando arquivos (Melhorado)
Criando uma simples lixeira para o usuário [Melhorado]
Simples visualizador de arquivos texto
Nenhum comentário foi encontrado.
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Toda vez que tento atualizar o clamav me deparo com erros ao atualizar... (0)
Meu notebook não está funcionando no monitor secundário (2)
Queria saber se existe alguma forma de desistalar programa no ubuntu s... (2)
Quero saber sobre os melhores aplicativos de office para usar em 2024 ... (1)