Fandom

CHDK Wiki

UBASIC/Scripts:my first intervalometer

< UBASIC

598pages on
this wiki
Add New Page
Talk0 Share

Ad blocker interference detected!


Wikia is a free-to-use site that makes money from advertising. We have a modified experience for viewers using ad blockers

Wikia is not accessible if you’ve made further modifications. Remove the custom ad blocker rule(s) and the page will load as expected.

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

Also on Fandom

Random Wiki