单片机论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 1606|回复: 0
打印 上一主题 下一主题
收起左侧

TCL语言学习笔记分享-献给初学者

[复制链接]
跳转到指定楼层
楼主
a庚 发表于 2018-2-8 20:12 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
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, 下载次数: 0)


评分

参与人数 1黑币 +50 收起 理由
admin + 50 共享资料的黑币奖励!

查看全部评分

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 转播转播 分享分享 分享淘帖 顶 踩
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|手机版|小黑屋|单片机论坛 |51黑电子论坛单片机.

Powered by 单片机教程网

快速回复 返回顶部 返回列表