TCL简易语法练习-维基百科

TCL简易语法练习-维基百科 TCL简易语法练习 维基百科，自由的百科全 书 关于书的成语关于读书的排比句社区图书漂流公约怎么写关于读书的小报汉书pdf 回上一页 目录 工贸企业有限空间作业目录特种设备作业人员作业种类与目录特种设备作业人员目录1类医疗器械目录高值医用耗材参考目录 [隱藏] 1Example1(变数) 2Example2(变数) 3Example3( 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 示式) 4Example4( 流程 快递问题件怎么处理流程河南自建厂房流程下载关于规范招聘需求审批流程制作流程表下载邮件下载流程设计 控 制) 5Example5(程序) 6Example6(阵列) 7Example7(输出) [编 辑] Example1(变数) 　　本练习主要让使用者了解何谓变数，及变数的替换；所谓的变数，即是用来存放各种资料的容器，这些变数都有 各自的名称，名称皆不能重复。 　　在TCL中变数可用"set"及"unset"来新增或删除，其表示方式为在变数前面加一个"$"即可。 1、首先开启您的文字编辑器，建立一新 档案 肢体残疾康复训练教师个人成长档案教师师德档案表人事档案装订标准员工三级安全教育档案 example_01.tcl，并输入下列程式码，最后将本档案存放到本机资料夹中 setlabname"nmlab" puts"Ilove$labname" setmyteacher"Yen-Ping_Chu" settitle"Professor" setmerge"Ilove$labname,myteacheris $myteacher$title" puts"$merge" 2、接着开启cygwin，输入指令"ls"，查看刚才编辑的档案在不在 3、执行"nsexample_01.tcl”便可看到结果 http://64.233.179.104/translate_c?hl=zh-CN&u=http:...2Bwiki%26complete%3D1%26hl%3Dzh-CN%26newwindow%3D1（第 1／5 页）2007-4-19 15:22:44 TCL简易语法练习-维基百科 程式说明：第一行中设定一名为"labname"的变数，在第二中利用"puts"指令将字串"Ilove$labname"输出，而变数 $labname会由其内容"nmlab"所取代。 第三、四行设定另外两个变数，第五行则是将变数合并成一新变数，即该变数的 内容会随着前面的变面内容而更动。 第六行则是将变数输出。 [编 辑] Example2(变数) 　　本练习主要是让使用者知道"eval"这个指令，其主要是用于执行一个TCLscript。 1、建立一档案example_02.tcl，并输入下列程式码，最后将本档案存放到本机资料夹中 setnmlab"putsI_Love_Nmlab" eval$nmlab 2、执行"nsexample_02.tcl"便可看到结果 程式说明：在本程式中，变数nmlab包含了一个TCLscript，注意在puts后面的字串不能有空格，在第二行中，执行eval 这个指令时便会执变数nmlab的指令puts并输出结果。 [编 辑] Example3(表示式) 　　本练习主要是让使用者知道如何使用TCL的各种表示式，如数学表示式、关系表示式等。 而这些表示式通常都是 使用"[expr运算式]"的方式来执行表示式并求得结果。 1、建立一档案example_03.tcl，并输入下列程式码，最后将本档案存放到本机资料夹中 setvalue[expr0==1] puts$value setvalue[expr2>1] puts$value setvalue[expr3+7] puts$value puts"(20-15)*3=[expr(20-15)*3]" 2、执行"nsexample_03.tcl"便可看到结果 程式说明：在程式中，关系式中的True与False都是以0与1来代表，因此在第一段及第二段的程式码中，可以看到第一 个关系式0==1的结果是False，所以是0，而第二个关系式2>1是正确的，所以结果为1。 而第三、第四段的程式则是将 运算结果输出。 http://64.233.179.104/translate_c?hl=zh-CN&u=http:...2Bwiki%26complete%3D1%26hl%3Dzh-CN%26newwindow%3D1（第 2／5 页）2007-4-19 15:22:44 TCL简易语法练习-维基百科 [编 辑] Example4(流程控制) 　　本练习主要目的在于让使用者学会运用"if-else"、"while"、"for"、"switch"等常见的流程控制指令。 1、建立一档案example_04.tcl，并输入下列程式码，最后将本档案存放到本机资料夹中 setwight63 sethigh174 setname"Zi-Xuan" if{[expr$high-$wight]<100}{ puts"$name!youaretoofat!" }elseif{[expr$high-$wight] >100&&[expr$high-$wight]<120}{ puts"$name!yourwightisok!" }else{ puts"$name!youaretoothin!" } setvalue0 for{seti0}{$i<10}{incri1}{ setvalue[expr$value+$i] } puts$value setnum2 switch$num{ 1{puts"thesumof1to10is15(usingswitch)"} 2{puts"thesumof1to10is45(usingswitch)"} 3 {puts"thesumof1to10is35(usingswitch)"} default{puts"noanswerforyourchoise."} } 2、执行"nsexample_04.tcl"便可看到结果 程式说明：第一段是if-else的用法，在if的判断句中也能加入运算判断；第二段、第三段中都是计算从1加到10的和，第 四段则是用$num这个变数的值来选择要的输出字串，defult为若选则的编号不存在时的选项，即将上述程式中的$num 改为4时，则会输出default的结果。 [编 辑] Example5(程序) 　　本练习主要目的在让使用者学会如何使用自订的程序(procedures)，而定义一程序的语法为： procnameparamsbody，其中name为程序的名称，params为参数列表，body为程序主体。 定义完程序后就能像其它任何 TCL指令一样执行，简单的说就如同副程式一般呼叫并执行。 1、建立一档案example_05.tcl，并输入下列程式码，最后将本档案存放到本机资料夹中 procsum_proc{ab}{ return[expr$a+$b] } procmagnitude{num}{ if{$num>0}{ return$num } setnum[expr$num*(-1)] return $num } procfib{num}{ if{$num<2}{ return$num }else{ return[expr[fib[expr$num-1]]+[fib[expr$num-2]]] } } setnum112 setnum214 setsum[sum_proc$num1$num2] puts"Thesumis$sum" puts"Themagnitudeof3is[magnitude3]" puts"Themagnitudeof-2is [magnitude-2]" puts"TheFibonaccinumberof$num2is[fib$num2]" 2、执行"nsexample_05.tcl"便可看到结果 http://64.233.179.104/translate_c?hl=zh-CN&u=http:...2Bwiki%26complete%3D1%26hl%3Dzh-CN%26newwindow%3D1（第 3／5 页）2007-4-19 15:22:44 TCL简易语法练习-维基百科 程式说明：前面几段程序功能分别为"sum_proc"将传入的两个值加总后传回，"magnitude"是判断传入的值若为负值， 则将其乘-1变成正值后传回，"fib"程序为费氏级数的递回程式，其利用了重复递回的程式写法，在程序中呼叫自已。 最后几行便是将程式执行结果输出。 [编 辑] Example6(阵列) 　　本练习主要目的在于让使用者学习如何使用阵列来存放资料。 1、建立一档案example_06.tcl，并输入下列程式码，最后将本档案存放到本机资料夹中 setmyarr(0)"I" setmyarr(1)"Love" setmyarr(2)"nmlab" for{seti0}{$i<3}{incri1}{ puts$myarr($i) } 2、执行"nsexample_06.tcl"便可看到结果 程式说明：前三行为设定阵列其内容，最后利用for回圈将阵列中的值输出。 [编 辑] Example7(输出) 　　本练习主要目的为让使用者知道如何将资料存到硬碟装置中。 1、建立一档案example_07.tcl，并输入下列程式码，最后将本档案存放到本机资料夹中 setfile[open"myfile""w"] puts$file"ILoveNMLABsomuch." puts$file"NMLABistheleaderofthenchu" close$file 2、执行"nsexample_07.tcl"后，会产生一新的档案，名称为刚才设定的myfile 程式说明：在第一行中，利用open这个指令来开启一档案，其第一个参数为档案名称，第二个参数"w"为写入(write)状 态，第二行及第三行程式则是将两字串写入刚才开启的档案中，最后一行则是将档案关闭。 http://64.233.179.104/translate_c?hl=zh-CN&u=http:...2Bwiki%26complete%3D1%26hl%3Dzh-CN%26newwindow%3D1（第 4／5 页）2007-4-19 15:22:44 TCL简易语法练习-维基百科 回上一页 取自"http://wiki.mis.nchu.edu.tw/network/index.php?title=TCL%E7%B0%A1%E6%98%93%E8%AA%9E%E6%B3%95%E7% B7%B4%E7%BF%92" Views ● Article ● Discussion ● Edit ● History Personaltools ● 用户登录 Navigation ● 首页 ● Communityportal ● 新闻动态 ● 最近更改 ● 随机页面 ● 帮助 搜索 Toolbox ● 链入页面 ● 链出更改 ● 特殊页面 ● 最后更改07:362005年十一月10日. ● 本页面已经被浏览1247次。 ● 关于维基百科 ● Disclaimers http://64.233.179.104/translate_c?hl=zh-CN&u=http:...2Bwiki%26complete%3D1%26hl%3Dzh-CN%26newwindow%3D1（第 5／5 页）2007-4-19 15:22:44 64.233.179.104 TCL简易语法练习-维基百科 CFNBAPKGDDFKHBCHKMDABMFDIIKDLOHG: form1: x: f1: f2: 進入 f3: f4: 搜索 f5: