Loading 效果 - Tcl 篇
02-02
有時候在工具里看到Loading 的效果,就像這樣:
如何實現呢?
其實我們使用的是Tcl 的n 和r 在Unix 中的不同含義,配合flush stdout 做出的效果。
測試代碼具體如下:
set width 50nfor {set i 0} {$i <= $width} {incr i} {n set s [format "[%-*s][%3d]" $width [string repeat * $i] [expr {$i*100/$width}] ]n puts -nonewline "$sr"n flush stdoutn after 200n}n
Share The Value From QF
好久沒怎麼更的博客重新起來,媒體越來越多樣化,但是文字的魅力只會增不會減。
推薦閱讀:
※IC 工程師有一台VPS可以做什麼
※CAD到底用哪個版本好?關於CAD版本的兩三事兒!
※如何成為一名優秀的中央空調設計師?
※CAD有哪些經典視頻?
※用 CAD 繪圖如何有效的控制精度?