One Hat Cyber Team
Your IP :
172.16.0.254
Server IP :
58.26.163.33
Server :
Windows NT DGPENSV2LPKMN 10.0 build 14393 (Windows Server 2016) AMD64
Server Software :
Apache/2.4.46 (Win64) OpenSSL/1.1.1h PHP/7.3.25
PHP Version :
7.3.25
Buat File
|
Buat Folder
Eksekusi
Dir :
C:
/
laragon
/
bin
/
python
/
python-3.10
/
tcl
/
tk8.6
/
demos
/
View File Name :
timer
#!/bin/sh # the next line restarts using wish \ exec wish "$0" ${1+"$@"} # timer -- # This script generates a counter with start and stop buttons. package require Tk label .counter -text 0.00 -relief raised -width 10 -padx 2m -pady 1m button .start -text Start -command { if {$stopped} { set stopped 0 set startMoment [clock clicks -milliseconds] tick .stop configure -state normal .start configure -state disabled } } button .stop -text Stop -state disabled -command { set stopped 1 .stop configure -state disabled .start configure -state normal } pack .counter -side bottom -fill both pack .start -side left -fill both -expand yes pack .stop -side right -fill both -expand yes set startMoment {} set stopped 1 proc tick {} { global startMoment stopped if {$stopped} {return} after 50 tick set elapsedMS [expr {[clock clicks -milliseconds] - $startMoment}] .counter config -text [format "%.2f" [expr {double($elapsedMS)/1000}]] } bind . <Control-c> {destroy .} bind . <Control-q> {destroy .} focus . # Local Variables: # mode: tcl # End: