Wikia

CHDK Wiki

UBASIC/Scripts:my first intervalometer

Talk0
575pages on
this wiki

< UBASIC

Revision as of 16:07, October 28, 2007 by 83.14.242.170 (Talk)

(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Is my first script ,please be tolerant ;)
rem Author 
rem Written for A710IS
rem Should be okay on others
@title My intervalometer
@param a Start 1st Shot (Mins)
@default a 0
@param b Start 1st Shot (10th Secs)
@default b 1
@param c Start 1st Shot (Secs)
@default c 0
@param d Number of  Shots 
@default d 1
@param e Interval (Minutes)
@default e 0
@param f Interval (10th Seconds)
@default f 1
@param g Interval (Seconds)
@default g 0 
if a<0 then a=0
if b<0 then b=0
if c<0 then c=0
if d<0 then d=1
if e<0 then e=0
if f<0 then f=0
if g<0 then g=0
if d=1 then z=0
z=(e*60)+f*10+g
n=(a*60)+b*10+c
if n>0 then gosub "pause"
for p=1 to d
print "Shot", p, "of", d
shoot
if p=d then goto "end"
sleep z
if z>0 then gosub "interval"
next p
end 
:interval
for r=1 to z
x=z-r
if z>0 then print "Interval:", x/60; "min",    x%60+1; "sec"
sleep 1000
cls
next r
return
:pause
for m=0 to n
q=n-m
if q>0 then print "To start:", q/60; "min",   q%60; "sec"
sleep 1000
cls
next m
return
:end
end

Around Wikia's network

Random Wiki