[英]how make control bar to loop for in Tcl/Tk
我需要你的帮助来创造一种能够控制债券的方法:
只有我无法使用Play & Pause方法制作脚本。 Just Stop太容易了,使用 'break' 方法。
示例代码:
set waitvar 0
for {set i 0} {$i < 100} {incr i} {
puts "$i"
after 1000 set waitvar
waitvar vwait
set waitvar 0
}
如果有人可以帮助我使用 Tcl/Tk 中的一些教学示例。
我很感激,从现在开始。
如果有人可以举个例子是Tcl:
用switch
。 类似的东西..
set pause "pausing"
switch pausing
$play {expr {1}}
$pause {expr {2}}
$stop {expr {3}}
现在,如果谁要在 Tk 中举一些例子:
通过按钮拨打电话以便于理解。
对这两者进行示例并不是强制性的,我只是将两者之一作为建议留下 - Tcl 或 Tk
注意 - 对于这个问题的答案,我需要为版本 Tcl/Tk 8.5 提供它
在 8.5 及更早版本中,最好使用异步编程。 这需要一种与您正在使用的方法截然不同的方法(这与您在 8.6 及更高版本中使用协程可以做的很接近)。 以下是您需要的程序的草图; 实现暂停的最简单方法是在暂停时不增加状态变量。
proc UpdateWaitvar {} {
global waitvar callback paused
if {$paused} {
set callback [after 100 UpdadteWaitvar]
} elseif {[incr waitvar] < 100} {
set callback [after 1000 UpdateWaitvar]
}
}
proc CancelWait {} {
global callback
after cancel $callback
}
proc StartWait {} {
global waitvar callback paused
set waitvar 0
set paused 0
set callback [after 1000 UpdateWaitvar]
}
proc TogglePause {} {
global paused
set paused [expr {! $paused}]
}
关于这一点的尴尬之处在于,您将“循环”编写为代码块,在您暂停并让其他事情发生的部分之间运行,这感觉不像是一种自然的工作方式。
将waitvar
变量绑定到任何显示进度的 GUI 位waitvar
您决定。
在 8.6 中,您可以改用协程。
proc StartWait {} {
coroutine waiter apply {{} {
global waitvar paused callback
set paused 0
for {set waitvar 0} {$waitvar < 100} {incr waitvar} {
set callback [after 1000 [info coroutine]]
while {$paused} {
set callback [after 100 [info coroutine]]
}
}
}}
}
proc CancelWait {} {
global callback
after cancel $callback
rename waiter {}
}
# Also same TogglePause as before; it is, after all, just setting the right variable
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.