摘要: lesson 13 : 列表命令集 list arg1 arg2 ... 创建一个列表lindex list index 返回列表 list 中的第 index 个元素(element)值llength list 计算列表 list 元素个数 example ① : 创建一个List ,List的用 阅读全文
posted @ 2016-08-04 20:01 用不着为这点小事烦恼 阅读(3292) 评论(0) 推荐(0) 编辑
摘要: lesson 12 : upvar的学习 example ① upvar 很象c语言的引用传参,我用一个例子说明set a 1 ;#定义变量a, 并且值设为1proc test {b} {upvar $b myaputs $bputs $mya}test a ;#调用函数 testa ;#参数b的值 阅读全文
posted @ 2016-08-02 23:16 用不着为这点小事烦恼 阅读(5560) 评论(1) 推荐(0) 编辑
摘要: lesson 11 : proc应用 (带默认参数) 1.//使用过程的时候,不一定输入所有的参数值。过程的输入参数可以有默认值。默认值由{默认参数名 默认值}指定。如果调用过程时没有指定这些参数的值则会使用其默认值,否则使用输入值来替代默认值。在使用默认参数的时候要注意,如果默认参数之后还有非默认 阅读全文
posted @ 2016-08-02 23:13 用不着为这点小事烦恼 阅读(9406) 评论(0) 推荐(0) 编辑
摘要: lesson 10 :proc 子函数的使用 1. proc sum {arg1 arg2} { set x [expr $arg1+$arg2]; return $x } puts " The sum of 2 + 3 is: [sum 2 3]\n\n" //[语法] :proc procNam 阅读全文
posted @ 2016-08-02 23:12 用不着为这点小事烦恼 阅读(4763) 评论(0) 推荐(0) 编辑
摘要: lesson8 :while循环的使用 1. set x 1;while {$x < 5} { puts "x is $x"; set x [expr $x + 1] }//tcl里面的while 记得以{结束第一行,原因是告诉编译器这段话没结束 2. set x 0;while "$x < 5" 阅读全文
posted @ 2016-08-02 23:11 用不着为这点小事烦恼 阅读(2810) 评论(0) 推荐(0) 编辑
摘要: lesson9 :for循环的学习 for {puts "Start"; set i 0} {$i < 2} {incr i; puts "I after incr: $i"; } { puts "I inside first loop: $i" } //和c一样 有三个条件 ;# Because 阅读全文
posted @ 2016-08-02 23:11 用不着为这点小事烦恼 阅读(4276) 评论(0) 推荐(0) 编辑
摘要: lesson 7 : if的学习 1. set x 1; if {$x == 2} {puts "$x is 2"} else {puts "$x is not 2"} if {$x != 1} { puts "$x is != 1" } else { puts "$x is 1" }//if的基本 阅读全文
posted @ 2016-08-02 23:10 用不着为这点小事烦恼 阅读(2406) 评论(0) 推荐(0) 编辑
摘要: lesson 6 :switch 的用法 ;# Set the variables we'll be comparingset x "ONE";set y 1;set z "ONE";//例子的基本数值 1. switch $x \ "ONE" "puts ONE=1" \ "TWO" "puts 阅读全文
posted @ 2016-08-02 23:09 用不着为这点小事烦恼 阅读(1673) 评论(0) 推荐(0) 编辑
摘要: lesson 4 1. set x "abc"puts "A simple substitution: $x\n"//简单的例子 2. set y [set x "def"]puts "Remember that set returns the new value of the variable: 阅读全文
posted @ 2016-08-02 23:08 用不着为这点小事烦恼 阅读(1695) 评论(0) 推荐(0) 编辑
摘要: lesson 5 :基本数学计算 1. set X 100;set Y 256;set Z [expr "$Y + $X"]//亦可以写成 set Z [expr {$Y +$X}] 2. set Z_LABEL "$Y plus $X is "puts "$Z_LABEL $Z"puts "The 阅读全文
posted @ 2016-08-02 23:08 用不着为这点小事烦恼 阅读(1740) 评论(0) 推荐(0) 编辑