1.使用proc命令定义一个函数,并成功调用它。 之前写函数一直调用不成功的原因时函数体中的语句没有用分号隔开,导致出错。
2.使用 source 命令调用一个 tcl 文件(一般 windows 下会隐藏扩张名,要更改一下设 置,使其可以直接修改)。
新建文本,输入命令,并把扩展名改为.tcl
在控制台用 source 命令调用新建的 tcl 文件。
2017/3/14
1.在 tcl 文件中定义两个凼数,并用 source 命令调用它们
注意空格的使用!
2.tcl 语言中换行的使用:
在 tcl 文件中定义一个包含 if 语句的凼数,并学会使用 stringcompare 命令进行字符串 比较。
其中 stringcompare 语句比较完之后结果取逻辑非,因为默认比较字符串一致会返回 0.
2017/3/15
在一个 tcl 文件里编辑 button 组件,并用 source 命令调用它。
控制台调用:
效果展示:
2017/3/16
Testvaiable 示例:
要注意的是 watch.label watch.value 之间是没有空格的。
代码解释:
toplevel .watch #创建新的顶级窗口“watch”
label .watch.label –text “Value of\”$name\” : ” # 生成 watch 的标签 显示变量名(控 制台中变量 为 county)
label .watch.value –textvariable $name #变量名后显示变量值,如果变量值发生改 变,则其显示的值也会随之改变(控制台赋值country)
grid watch.label .watch.value –pady 12 # 显示 watch 窗口标签 变量及变量值,窗口 大小设置为 12
控制台调用:
效果展示:
如果取消双斜杠,则报错:
更改窗口大小为 80 效果:
2017/3/17
在昨天代码中加入-font 命令,更改字体。
更改变量值的字体大小:
尝试前面字符串加黑,更改变量值字体为 Roman,并加上下划线:
效果如下:
2017/3/21
做一个可以横向 竖向 拉伸 收缩的窗口 指令:WM
双击该 tcl 文件,窗口效果:
主要代码:
set f . wm title $f "WM_TEST SMART BOY" wm geometry $f 1000x1000 wm maxsize $f 1000 1000 wm minsize $f 200 200
注意的是 wm maxsize 的值是可以设的 wm geometry 的值大的,例如:
set f . wm title $f "WM_TEST SMART BOY" wm geometry $f 1000x1000 wm maxsize $f 2000 2000 wm minsize $f 200 200
全部资料51hei下载地址:
TCL语言学习笔记.pdf
(751.83 KB, 下载次数: 7)
|