在线咨询
eetop公众号 创芯大讲堂 创芯人才网
切换到宽版

EETOP 创芯网论坛 (原名:电子顶级开发网)

手机号码,快捷登录

手机号码,快捷登录

找回密码

  登录   注册  

快捷导航
搜帖子
分享 双引号和花括号的区别
njithjw 2012-1-15 20:12
双引号和花括号用来将单词组合到一起,形成一个参数。双引号和花括号的差别在于双引号允许组内替代,而花括号不允许。该规则适用于命令替代,变量替代和反斜杠替代。 (System32) 1 % set s hello hello (System32) 2 % puts "The length of $s is " The length of hello is 5 (System32) 3 % puts {The length of $s i ...
个人分类: tcl_tk|807 次阅读|0 个评论
分享 三角形面积
njithjw 2012-1-3 21:54
proc area_angle {a b c} { if {$a + $b = $c || $a + $c = $b || $c + $b = $a} { puts "Sorry, the Num is not a angle" } else { set girth ...
个人分类: tcl_tk|952 次阅读|0 个评论
分享 阶乘
njithjw 2011-12-30 22:38
proc factorial {num} { set i 1 set product 1 set a $num while {$i = $a} { set product incr i } return $product } factorial 10
个人分类: tcl_tk|577 次阅读|0 个评论
分享 又一个小时钟
njithjw 2011-12-25 22:00
pack ; wm resizable . 0 0 proc every {} { set cur_time -format %H:%M:%S]; .my_clock config -text $cur_time; after 1000 every; } every
个人分类: tcl_tk|535 次阅读|0 个评论
分享 clock
njithjw 2011-12-23 19:55
grid set halfpi 1.570796 set piover6 0.5235987 set twopi 6.283185 wm resizable . 0 0 .c create oval 50 50 550 550 -fill white -outline black -width 3 for { set h 1 } { $h = 12 } { incr h } { set angle set x set ...
个人分类: tcl_tk|730 次阅读|1 个评论
分享 删除指定目录下指定类型的文件
njithjw 2011-12-21 22:03
set prj_dir ; proc file_search {file_dir file_name} { set path_list "" if { == 1} { file attributes $file_name -hidden 0 } if { != ""} { &nbs ...
个人分类: tcl_tk|703 次阅读|0 个评论
分享 查找指定目录下指定类型的文件
njithjw 2011-12-21 21:57
set prj_dir ; set code_dir "$prj_dir"; set code_list w]; proc file_search {file_dir file_name} { set path_list "" if { == 1} { file attributes $file_dir/$file_name -hidden 0 } &nbs ...
个人分类: tcl_tk|776 次阅读|0 个评论
关闭

站长推荐 上一条 /2 下一条

小黑屋| 关于我们| 联系我们| 在线咨询| 隐私声明| EETOP 创芯网
( 京ICP备:10050787号 京公网安备:11010502037710 )

GMT+8, 2024-4-19 16:42 , Processed in 0.009094 second(s), 3 queries , Gzip On, Redis On.

eetop公众号 创芯大讲堂 创芯人才网
返回顶部