Jump to content
Sign in to follow this  
Владислав

Помогите!

Recommended Posts

Ка сделать обратный отсчет...

На 3 часа?????

может скрипт какой для этого есть для флэша?


---------

Best Regards, Dj Vlad Vesna.

сайт Dj Vlad Vesna на pdj

BlogDJ.ru - всё о DJ. Уникальные новости, интервью, оборудование для DJ, софт.

Share this post


Link to post
Share on other sites

Слушай, спасибо, я сделал.. Использовал секундомер Вегаса...Отрендерил его, затем вставил уже видео и пустил его в реверс режиме..

Расскажи плиз про свой способ?


---------

Best Regards, Dj Vlad Vesna.

сайт Dj Vlad Vesna на pdj

BlogDJ.ru - всё о DJ. Уникальные новости, интервью, оборудование для DJ, софт.

Share this post


Link to post
Share on other sites

Тупо программинг))

Можно стянуть интерпретатор TCL http://downloads.sourceforge.net/freewrap/...mp;big_mirror=0

распаковать, ЕХЕшник переименовать (иначе работать не станет) и кинуть на него файл с кодом:

########отсюда########

set px {}; set py {}

bind . <1> {set px %x; set py %y}

bind . <B1-Motion> {wm geo . +[expr %X-$px]+[expr %Y-$py]}

set overFlag 0

bind . <Double-1> {

wm overrideredirect . $overFlag

wm attributes . -topmost $overFlag

set overFlag [expr 1-$overFlag]

}

set fontsize 20; set fontname times; set fontbold normal; set fontitalic roman

pack [label .t -font

-justify left -bg black -fg white] -expand 1 -fill both

proc updateFont {} { .t con -font

}

bind . <MouseWheel> {

incr fontsize [expr %D>0?1:-1]

updateFont

}

set _h 0; set _m 0; set _s 0

proc setZ {} {set ::msOffs [expr [clock seconds]-[clock scan ${::_h}:${::_m}:${::_s}]-[clock clicks -milliseconds]/1000]}

setZ

set timerQuant 10

set tFormat {%H:%M:%S}

set msRez 10

set showSign 1

set showMili 1

set doFlag 1

proc doTimer {} {

after $::timerQuant doTimer

set mili [expr [string range [clock clicks -milliseconds] 0 end-1]]

set timeDir 1

if {abs($mili/100+$::msOffs-43200)>43200} {set timeDir -1}

set mili [expr $timeDir*$mili]

set miliT [expr int(($mili-$mili/100*100)*$::msRez/100)]

.t con -text [if {$::showSign && $timeDir==-1} {concat -}][clock format [expr $mili/100+$timeDir*$::msOffs+[clock scan 0:0:0]] -format $::tFormat][if {$::showMili} {concat .[string range 00 [string length $miliT] end]${miliT}}]

}

doTimer

toplevel .cfg

wm protocol .cfg WM_DELETE_WINDOW {wm withdraw .cfg}

wm withdraw .cfg

bind . <3> {wm deiconify .cfg}

pack [label .cfg.l1 -text {-DoubleClick Timer to remove border.}] -anc w

pack [label .cfg.l2 -text {-Click-and-move to move}] -anc w

pack [label .cfg.l3 -text {-Use mouse scroll to change font size}] -anc w

pack [label .cfg.dsc1 -text {Set Hour, Minute nd Second}]

pack [frame .cfg.f0]

pack [spinbox .cfg.f0.sh -text hour -textvar _h -from 0 -to 23 -increment 1 -command setZ -width 4] -anc w -side left

pack [spinbox .cfg.f0.sm -text hour -textvar _m -from 0 -to 59 -increment 1 -command setZ -width 4] -anc w -side left

pack [spinbox .cfg.f0.ss -text hour -textvar _s -from 0 -to 59 -increment 1 -command setZ -width 4] -anc w -side left

pack [frame .cfg.f1]

pack [button .cfg.f1.bgb -text Background -bg black -fg white -command {set rc [tk_chooseColor -initialcolor [.t cget -bg]]; if {$rc!={}} {.t con -bg $rc; .cfg.f1.bgb con -bg $rc}}] -anc w -side left

pack [button .cfg.f1.fgb -text Foreground -bg white -command {set rc [tk_chooseColor -initialcolor [.t cget -fg]]; if {$rc!={}} {.t con -fg $rc; .cfg.f1.fgb con -bg $rc}}] -anc w -side left

pack [checkbutton .cfg.dosign -text {Show "Minus" sign when needed} -var showSign] -anc w

pack [checkbutton .cfg.domili -text {Show milliseconds} -var showMili] -anc w

set fonts

pack [frame .cfg.f2]

pack [listbox .cfg.f2.fnames -listv fonts -yscroll {.cfg.f2.fscr set}] -anc w -side left -fill x

pack [scrollbar .cfg.f2.fscr -command {.cfg.f2.fnames yview}] -side left -fill y

bind .cfg.f2.fnames <<ListboxSelect>> {set fontname [lindex $fonts [.cfg.f2.fnames curselection]]; updateFont}

pack [frame .cfg.f3]

pack [checkbutton .cfg.f3.bold -text bold -var fontbold -onvalue bold -offvalue normal -command updateFont] -anc w -side left

pack [checkbutton .cfg.f3.italic -text bold -var fontitalic -onvalue italic -offvalue roman -command updateFont] -anc w -side left

pack [spinbox .cfg.f3.size -text size -textvar fontsize -from 0 -to 500 -increment 1 -command updateFont -width 4] -anc w -side left

########Досюда########

Тыкнуть в таймер правой кнопкой мыши, там настройки.

ЗЫ :blush:

Share this post


Link to post
Share on other sites

Охренеть)))

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

×
×
  • Create New...