TCL_TK un lenguaje de programacion muy interesante para aplicaciones

TCL y TK es un lenguaje de programacion muy interesante para realizar programacion de aplicaciones electronicas en un futuro.

Yo compile para Puppy estas dos pet , que aunque son de una version no la mas actualizada esto es la 8.5,  si he encontrado programas interesantes que funcionan con esta vesion.

Bueno aqui os dejo la pets, primero lo la Tcl8.5

 

http://www.mediafire.com/download/zu1iuyudkf6y78z/tcl8.5.17-i486.pet

 

y segundo la Tk8.5

 

http://www.mediafire.com/download/7t3osrhor7c680x/tk8.5.17-i486.pet

 

Hay una pagina muy interesante con multitud de ejemplos que es la siguiente

 

http://wiki.tcl.tk/1291

Bueno como ejemplo vamos a poner este codigo de una calculadora simple bajado de esta pagina:

 

#!/usr/local/bin/wish8.5
package require Tk
wm title . Calculator
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 ;# make last key (=) double wide
proc = {} {
regsub { =.+} $::e “” ::e ;# maybe clear previous result
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           ;# allow keyboard input
wm resizable . 0 0

 

Si lo copiamos y lo pegamos en  un archivo de texto, llamando a este  “calculadora.tcl”.

Y si tenemos instalados nuestro dos programas o pet de arriba podemos ejecutarlo de la siguiente forma desde el terminal:

 

./calculadora.tcl

 

Y veremos una pequeña calculadora.

En breve a poner unos ejemplos.

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s