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_***

#}

 

相关推荐
这是一个VB6的IDE插件(Addin),使用VB6的IDE直接设计Python的界面。 Python和VB都是能让人快乐的编程语言,我使用了Python之后,很多自己使用的工具都使用Python开发或改写了,因为最终实现的Python代码实在太短了(相比VB),有时候Python一行代码就可以实现VB一个函数的功能。 Python就是这种让人越用越开心的语言。 不过说实在,使用Python开发GUI界面还是麻烦了一些了,自带的标准库Tkinter使用起来非常简单,不过对于习惯了VB拖放控件完成界面设计的偶来说,还是不够人性化。TK也有一个工具叫GUI Builder,不过它使用Layout布局,不够直观,而且用起来很不爽。。 至于PyQt/wxPython等GUI库,尽管有可视化设计工具,但总感觉做一般的轻量级应用是杀鸡用牛刀, 而且不够环保,不够低碳,要带一个很大的库,需要目标机器上夜同样安装了PyQt/wxPython,做不了绿色软件。 所以最终的结果是我更喜欢Tkinter,用起来很简单,绿色环保,真正的跨平台,一个py文件到处运行(担心泄密就编译成pyc)。 很多人都认为TK界面不够美观,不过我经过多次实验后发现导入Python自带的标准TTK主题库,界面非常Native,不输PyQt/wxPython。 此Addin默认启用TTK支持,也可选择关闭。 总而言之,轻量级GUI,TK+TTK足够。 使用此Addin,你可以不用写一句代码就可以生成一个完整可运行的Python的GUI界面,支持2.X和3.X。 安装方法:将压缩包解压到你希望的目录,然后执行Setup.exe完成注册插件过程,打开VB6就可以用了。 在VB窗体上设计完成界面后(你可以大胆的设置各控件的属性,Addin尽量将其翻译为tkinter的控件属性),点工具栏上的VisualTkinter(图标为一片羽毛),再点'生成代码'按钮,即可生成可运行的Python代码,可以拷贝至剪贴板或保存至文件。 一般情况下你可以不用再改变tkinter的控件属性,但是如果你熟悉tkinter,需要更多的控制,可以一一核对各属性,并且修改,再生成代码。 当然除了用来设计界面外,此ADDIN内置的各控件属性列表可以做为编程参考,比较完整,除了极少数我认为大多数人都不用的属性外,属性定义基本上是我从官方的tkinter文档直接翻译的。 如果还没有VB6,网上找一个VB6精简版即可,不到20M,小巧玲珑。 代码已经在Github上托管,更新的版本可以在这上面找到,需求也可以在上面提: https://github.com/cdhigh/Visual-Tkinter-for-Python
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页