TCL数据类型
tcl不支持诸如int、float、double或char之类的变量类型。这意味着，在同一程序中，一个变量可以在不同的时刻分别被设置为数值、字符或字符串。但是在内部，tcl把所有的变量都当作字符串来看待。当需要操作变量时，tcl允许以ANSIC所能识别的任何一种方式来提供数字(实数
发表于 3/7/2012 11:27:52 AM
阅读（2821）
二进制文件处理
工程中有个数据文件，存储的是“事件”的处理结果，每个“事件”的处理结果是32bit，即4个字节。几百万甚至上亿个事件的处理结果都存储在一个二进制文件里（c语言创建或者访问此文件应该不难），这里给出在tcl里如何访问此文件。setchan[open"
发表于 3/6/2012 3:56:48 PM
阅读（39469）
binary命令
命令名：binary-Insertandextractfieldsfrombinarystrings命令概要：binaryformatformatString?argarg...?binaryscanstringformatString?varNamevarName...?命令描述：（scan有点像format的逆过程）Thiscommandprovidesfacilitiesformanipulatingbinarydata.Thefirstfor
发表于 3/6/2012 10:57:54 AM
阅读（2383）
Tcl/Tk的数学操作运算命令
前人总结了Tcl/Tk的数学操作运算命令：http://home.lupaworld.com/home.php?mod=space&uid=381071&do=blog&id=151057我现在为了节约virtualjtag的ir命令端口，需要在读FIFO的usedw的同时读回空、满标志，这时候在tcl里就需要分别从读回的十六进制数据
发表于 2/23/2012 1:33:15 PM
阅读（2934）
调试Visual Jtag的时候TK Widget error
按照riple的说法在QuartusIIshell下解析tclscript中的tkwidget需要添加init_tk命令，但是不知道是添加的方式不对、还是语法问题或者是解析的方式问题，导致error：Error:"invalidcommandname“init_tk”"
发表于 2/22/2012 7:23:08 PM
阅读（2728）
终于解决了从QII shell启动VJ调试GUI界面问题
昨天遇到的VirtualJtag调试GUI界面化的问题终于解决了，riple的方向是正确的，tclscript开始要加init_tk，结束要加退出前等待，但是对于该等待命令我从Altera的AE得到了一个跟riple不同的命令，即tkwait，不管了只要能达到目的就行。&nbs
发表于 2/22/2012 7:20:50 PM
阅读（5398）
TCL/TK Script打包发布
VisualTclBinary是Tristan为可视化开发工具VisualTcl写的几个重要扩展插件，并改进了部分代码之后打包而成的。使用这个工具可以来打包你的Tcl/Tk程序，发布为一个单独的可执行文件，里面包括大部分平时编程所需要的Tcl/Tk扩展。&nb
发表于 2/22/2012 7:18:08 PM
阅读（15466）
Tcl中bind用法
Tcl/TK中可以用bind进行命令绑定，最近小试了一下，复杂的不会，弄几个简单的例子：bind.t<Double-2>{.tdelete1.0end};##绑定鼠标中键为清除textbind.t<Control-a>{.tdelete1.0end};##绑定Ctrl+A键为清除text;###双击鼠标左键在entry里插入相应的内容
发表于 2/22/2012 7:17:14 PM
阅读（12857）
TCL写的串口调试精灵
调试串口的时候需要超级终端或者从网上找串口调试精灵，既然TCL可以实现串口调试，何不那tcl弄一个串口调试精灵，说干就干：图一：串口打开接收数据图二：串口关闭停止接收数据GUI上单个按钮实现开启关闭串口！！！增加一个十六进制显示控制的checkbutton：
发表于 2/22/2012 7:14:41 PM
阅读（5350）
format 命令
format：根据一组格式说明来格式化字符串，此命令不会改变被操作字符串的内容。语法：formatspecvalue1value2...&
发表于 2/22/2012 5:17:04 PM
阅读（2787）
TCL语法中花括号使用的一点注意
{}花括号，又叫大括号，英文叫brace或者curlybrace在给VJ写TCL的时候用了一条if判断语句，弄半天没解析成功，费了好大劲才发现问题出在了花括号的使用上。举例说明第一种正确的写法：if{$counter1==9}{puts"遇到数字9退出本次循环"}else{puts&quo
发表于 2/22/2012 4:38:12 PM
阅读（4011）
