Uma calculadora simples feita em tcl/tk

• Download calculator.tcl
• Enviar nova versão

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

Cadeias aleatórias

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

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

Player de musica

Calculadora com funções básicas