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/6
| Attributes | Values |
|---|
| rdfs:label
| - UBASIC/Scripts:my first intervalometer
|
| rdfs:comment
| - 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/6
|
| dcterms:subject
| |
| abstract
| - 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
|
![[RDF Data]](/fct/images/sw-rdf-blue.png)