找回密碼
 立即注冊

QQ登錄

只需一步,快速開始

搜索
查看: 11466|回復(fù): 0
打印 上一主題 下一主題
收起左側(cè)

TCL語言學(xué)習(xí)筆記分享-獻給初學(xué)者

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
ID:80221 發(fā)表于 2018-2-8 20:12 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式
1.使用proc命令定義一個函數(shù),并成功調(diào)用它。
之前寫函數(shù)一直調(diào)用不成功的原因時函數(shù)體中的語句沒有用分號隔開,導(dǎo)致出錯。

2.使用 source 命令調(diào)用一個 tcl 文件(一般 windows 下會隱藏擴張名,要更改一下設(shè) 置,使其可以直接修改)。

新建文本,輸入命令,并把擴展名改為.tcl


在控制臺用 source 命令調(diào)用新建的 tcl 文件。




2017/3/14

1.在 tcl 文件中定義兩個凼數(shù),并用 source 命令調(diào)用它們


注意空格的使用!




2.tcl 語言中換行的使用:



在 tcl 文件中定義一個包含 if 語句的凼數(shù),并學(xué)會使用 stringcompare 命令進行字符串
比較。

其中 stringcompare 語句比較完之后結(jié)果取邏輯非,因為默認比較字符串一致會返回 0.


2017/3/15

在一個 tcl 文件里編輯 button 組件,并用 source 命令調(diào)用它。


控制臺調(diào)用:




效果展示:


2017/3/16

Testvaiable 示例:

要注意的是 watch.label watch.value 之間是沒有空格的。




代碼解釋:

toplevel .watch              #創(chuàng)建新的頂級窗口“watch”

label .watch.label –text “Value of\”$name\” : ” # 生成 watch 的標簽 顯示變量名(控 制臺中變量 為 county)

label .watch.value –textvariable $name              #變量名后顯示變量值,如果變量值發(fā)生改 變,則其顯示的值也會隨之改變(控制臺賦值country)


grid watch.label .watch.value –pady 12 # 顯示 watch 窗口標簽 變量及變量值,窗口 大小設(shè)置為 12

控制臺調(diào)用:




效果展示:


如果取消雙斜杠,則報錯:



更改窗口大小為 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 的值是可以設(shè)的 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語言學(xué)習(xí)筆記.pdf (751.83 KB, 下載次數(shù): 7)


評分

參與人數(shù) 1黑幣 +50 收起 理由
admin + 50 共享資料的黑幣獎勵!

查看全部評分

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏1 分享淘帖 頂 踩
回復(fù)

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

手機版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機教程網(wǎng)

快速回復(fù) 返回頂部 返回列表