Calculadora em Tcl/Tk

Publicado por Mauricio 06/03/2004

[ Hits: 7.951 ]

Homepage: http://www.mbmaciel.com

Download calculator.tcl




Uma calculadora simples feita em tcl/tk

  



Esconder código-fonte

wm title . Calculadora
 grid [entry .e -textvar e -just right] -columnspan 5
 bind .e <Return> =
 set n 0
 foreach row {
    {7 8 9 + -}
    {4 5 6 * /}
    {1 2 3 ( )}
    {C 0 . =  }
 } {
    foreach key $row {
        switch -- $key {
            =       {set cmd =}
            C       {set cmd {set clear 1; set e ""}}
            default {set cmd "hit $key"}
        }
        lappend keys [button .[incr n] -text $key -command $cmd]
    }
    eval grid $keys -sticky we ;#-padx 1 -pady 1
    set keys [list]
 }
 grid .$n -columnspan 2 ;# aumenta o tamanha do tecla (=)
 proc = {} {
    regsub { =.+} $::e "" ::e ;# limpa resultado
    if [catch {lappend ::e = [set ::res [expr 1.0*$::e]]}] {
        .e config -fg red
    }
    .e xview end
    set ::clear 1
 }
 proc hit {key} {
    if $::clear {
        set ::e ""
        if ![regexp {[0-9().]} $key] {set ::e $::res}
        .e config -fg black
        .e icursor end
        set ::clear 0
    }
    .e insert end $key
 }
 set clear 0
 focus .e           ;# permite entradas no teclado
 wm resizable . 0 0

Scripts recomendados

Crivo de Eratóstenes Simples em Tcl (sem Tk)

Script em Tcl para descompactar arquivos

Script lixeira em Tcl

Corretagem 0.1 - calcula corretagem padrão de operações da Bovespa

Renomeando arquivos de forma padronizada


  

Comentários
[1] Comentário enviado por jose_maria em 07/03/2004 - 21:29h

Tentei executar o código fonte mas deu isso:
./calculator.tcl: line 1: wm: command not found
./calculator.tcl: line 2: grid: command not found
./calculator.tcl: line 3: Return: No such file or directory
./calculator.tcl: line 5: foreach: command not found
./calculator.tcl: line 6: {7: command not found
./calculator.tcl: line 7: {4: command not found
./calculator.tcl: line 8: syntax error near unexpected token `('
./calculator.tcl: line 8: ` {1 2 3 ( )}'
Saca como resolver? To no kurumin 2.13.

[2] Comentário enviado por mbmaciel em 08/03/2004 - 00:11h

Você precisa do wish para executar. Se não me engano já vem no kurumin.

$ wish calculator.tcl

Aí ele funciona!

[3] Comentário enviado por nunesvictor em 01/10/2007 - 19:11h

pq vc num coloca antes do começo do codigo

#!/usr/bin/tclsh

dae funciona


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts