TCL-TK界面

本文简单介绍tcl-tk，并附一个界面案例。最后上传了三个附件，关于tcl-tk编写的手册。

tck-tk手册在如下网页点击下载：http://pan.baidu.com/s/1jHXGXpW

首先，Tcl是一种简单的脚本语言，主要使用于发布命令给一 些互交程序如文本编辑器、调试器和shell。它有一个简单的语法 和很强可扩充性，Tcl可以创建新的过程以增强其内建命令的能力。

其次，Tcl是一个库包，可以被嵌入应用程序，Tcl的库包含了一个分析器、用于执行内建命令的例程和可以使你扩充（定义新的 过程）的库函数。应用程序可以产生Tcl命令并执行，命令可以由用户产生，也可以从用户接口的一个输入中读取（按钮或菜单等）。但Tcl库收到命令后将它分解并执行内建的命令，经常会产生递归的调用。

TK 是与 TCL 语言关系最密切、且被广泛使用的图形库，TCL 语言和 TK 都由 JohnOusterhout 开发。虽然 TK 于 1991 年作为 X11 库出现，但实际上它从那时起就被移植到每一种流行的 GUI。（它与 Python 逐渐拥有“标准”GUI 的情形相似。）现在，大多数流行语言和很多小型语言都有 TK 绑定（Tkinter 模块）。

本实例代码对应的界面截图

代码如下：

#wm title . "NS2环境中OLSR协议的研究及模拟"

grid [frame .f] -column 0 -row 0 -sticky nwes

grid columnconfigure . 0 -weight 1

grid rowconfigure . 0 -weight 1

 

#命名仿真文件

grid [label .f.laType -text "仿真文件命名" ] -column 1 -row 1 -sticky nwes

grid [entry .f.fileName -width 7 -textvariablefileName ] -column 2 -row 1 -sticky nwes

 

#选择拓扑类型

grid [label .f.latopotype -text "拓扑类型"]-column 1 -row 2 -sticky nwes

grid [radiobutton .f.line -text Line -variabletopotype -value Line] -column 2 -row 2 -sticky w

grid [radiobutton .f.matrix -text Matrix-variable topotype -value Matrix] -column 3 -row 2 -sticky w

grid [radiobutton .f.random -text Random-variable topotype -value Random] -column 4 -row 2 -sticky w

 

#选择协议

grid [label .f.laRout -text "协    议"] -column 1-row 3 -sticky nwes

grid [radiobutton .f.olsr -text OLSR -variableroupro -value OLSR] -column 2 -row 3 -sticky w

grid [radiobutton .f.aodv -text AODV -variableroupro -value AODV] -column 3 -row 3 -sticky w

grid [radiobutton .f.dsr -text DSR -variableroupro -value DSR] -column 4 -row 3 -sticky w

 

#输入节点数量

grid [label .f.laNodeNum -text "节点数量"]-column 1 -row 4 -sticky nwes

grid [entry .f.nodeNum -width 7 -textvariablenodeNum ] -column 2 -row 4 -sticky w

 

#输入产生流量节点数量

grid [label .f.laNodeNum2 -text "产生流量节点数量"] -column 3 -row 4 -sticky nwes

grid [entry .f.lanodeNum -width 7-textvariable lanodeNum ] -column 4 -row 4 -sticky w

 

#生成节点总数

grid [label .f.laNodeNum3 -text "发送数据包总数"] -column 1 -row 5 -sticky nwes

grid [entry .f.allnode -width 7 -textvariableallnode ] -column 2 -row 5 -sticky w

 

#设置网络接口队列大小

grid [label .f.laqlen -text "接口队列大小"] -column 3 -row 5 -sticky nwes

grid [entry .f.qlen -width 7 -textvariableqlen ] -column 4 -row 5 -sticky w

 

 

#选择流量类型

grid [label .f.laTcpUdp -text "Cbr流量类型"]-column 1 -row 6 -sticky nwes

#grid [radiobutton .f.cbr -text Cbr -variableflowType -value cbr] -column 2 -row 6 -sticky w

grid [radiobutton .f.tcp -text Tcp -variableflowType -value tcp] -column 2 -row 6 -sticky w

grid [radiobutton .f.udp -text Udp -variableflowType -value udp] -column 3 -row 6 -sticky w

 

# 设置发送包大小

grid [label .f.lapacketsize -text"packetsize"] -column 1 -row 7 -sticky nwes

grid [entry .f.packetsize -width 7-textvariable packetsize ] -column 2 -row 7 -sticky w

grid [label .f.danwei -text "字节"]-column 3 -row 7 -sticky w

#是否启用nam

grid [label .f.lanam -text "运行nam"]-column 1 -row 8 -sticky nwes

grid [radiobutton .f.isnam -text isnam-variable isnam -value isnam] -column 2 -row 8 -sticky nwes

grid [radiobutton .f.nonam -text nonam-variable isnam -value nonam] -column 3 -row 8 -sticky nwes

#选择连接的颜色

grid [label .f.laColor -text "链接颜色"]-column 1 -row 9 -sticky nwes

grid [radiobutton .f.red -text red -variablecolor -value red] -column 2 -row 9 -sticky w

grid [radiobutton .f.blue -text blue -variablecolor -value blue] -column 3 -row 9 -sticky w

grid [radiobutton .f.yellow -text yellow-variable color -value yellow] -column 4 -row 9 -sticky w

 

#查看结果按钮

 

grid [button .f.save -text "保存设置"-command prWrite] -column 1 -row 10 -sticky nwes

grid [button .f.run -text "运行程序"-command prRun] -column 2 -row 10 -sticky nwes

grid [button .f.throughPutR -text "吞吐量查看"-command prThroughPutR] -column 3 -row 10 -sticky nwes

#grid [button .f.throughPutP -text "吞吐量绘图"-command prThroughPutP] -column 4 -row 7 -sticky nwes

#grid [button .f.delay -text "时延"-command prDelay] -column 3 -row 7 -sticky nwes

 

#

#随机生成两个节点产生流量

#

set ::nodeNum 6

set ::lanodeNum 3

set ::allnode 10000

set ::qlen 500

set ::packetsize 1000

set ::topotype Line

set ::roupro OLSR

set ::color red

 

proc prWrite {} {

#将图形界面中选择的数据写入到一个中间文件中

#在tcl主程序中读取这个文件中的数据，进行设置

     setf [open ./myvalues w]

    puts $f $::fileName

    puts $f $::topotype

    puts $f $::roupro

    puts $f $::nodeNum

    puts $f $::lanodeNum

    puts $f $::allnode

    puts $f $::qlen

    puts $f $::flowType

    puts $f $::packetsize

    puts $f $::color

    close $f

}

 

#数据分析

proc prRun {} {

    execsh runall.sh & exit 0

#}

proc prThroughPutR {} {

    execsh readresult.sh & exit 0

}

#proc prThroughPutP {} {

#   execgnuplot -p -e "set xlabel '时间(s)';set ylabel '吞吐量(kb)'; plot 'throughput_OLSR' with lines,'throughput_AODV' with#lines,'throughput_DSR' with lines"

#}

#proc prDelay {} {

#   execgnuplot -p -e "set xlabel '时间(s)';set ylabel '延迟(s)'; plot 'delay_OLSR' with lines,'delay_AODV' withlines,'delay_DSR' with #lines"      gawk–f throughput.awk olsr_wireless.tr > throughput_***

#}