while 1
do
a = get_usb_power
until a>0
print a
sleep 1000
wend
max_zoom = get_zoom_steps()
zoom = get_zoom()
while 1
zoom = zoom + 1
if zoom > max_zoom then zoom = 0 end
set_zoom(zoom)
sleep 1000
wend
yvo a écrit:est ce que quelqu'un pourrai me faire un petit script qui ferai 1 shoot toutes les x secondes et 1 zoom toutes les x photos.
--[[
@title Intervalometer - zoom
@param a Shooting interval, sec
@default a 5
param b zooming interval, shoots
@default b 8
--]]
Interval = a*1000
photo = 0
max_zoom = get_zoom_steps()
zoom = get_zoom()
while 1
repeat
StartTick = get_tick_count()
shoot()
sleep(Interval - (get_tick_count() - StartTick))
photo = photo + 1
until photo == b
zoom = zoom + 1
if zoom > max_zoom then zoom = 0 end
set_zoom(zoom)
wend
luftschlosser a écrit:je vais essayer dés que possible ta solution
yvo a écrit:Si tu arrive à le faire fonctionner, tu serais un chef
@title Intervalometer - zoom
@param a Shooting interval, sec
@default a 5
@param b zooming interval, shoots
@default b 8
Interval = a*1000
photo = 0
max_zoom = get_zoom_steps()
zoom = get_zoom()
while 1
repeat
StartTick = get_tick_count()
shoot()
sleep(Interval - (get_tick_count() - StartTick))
photo = photo + 1
until photo == b
zoom = zoom + 1
if zoom > max_zoom then zoom = 0 end
set_zoom(zoom)
wend
yvo a écrit:le message en orange a changé : uBASIC :8 Parse err
@title Intervalometer - zoom
@param a Shooting interval, sec
@default a 5
@param b zooming interval, shoots
@default b 8
Interval = a*1000
Nb = 0
max_zoom = get_zoom_steps()
zoom = get_zoom()
while 1
repeat
StartTick = get_tick_count()
shoot()
sleep(Interval - (get_tick_count() - StartTick))
Nb = Nb + 1
until Nb == b
zoom = zoom + 1
if zoom > max_zoom then zoom = 0 end
set_zoom(zoom)
wend
@title Intervalometer - zoom
@param a Shooting interval, sec
@default a 5
Interval = a*1000
repeat
StartTick = get_tick_count()
shoot()
sleep(Interval - (get_tick_count() - StartTick))
until false
@title Intervalometer
@param a sec
@default a 5
Interval=a*1000
repeat
shoot
sleep(Interval)
until false
yvo a écrit:merci encore de ton aide mais pour ce soir, je vais aller me coucher.
@title Simple Intervalometer
@param i Interval between photos (Secs)
@default i 5
while 1
shoot
sleep i*1000
wend
end
@title zoom
max_zoom = get_zoom_steps()
zoom = get_zoom()
while 1
shoot
zoom = zoom + 1
if zoom > max_zoom then zoom = 0 end
set_zoom(zoom)
sleep(5000)
wend
@title Intervalzoom
@param a Interval between photos (Secs)
@default a 5
@param b zooming interval (photos)
@default b 8
i=a*1000
p=0
m=get_zoom_steps()
z=get_zoom()
while 1
print "zoom : ",z
while (p<8)
s=get_tick_count()
set_zoom z
sleep 500
print "photo : ",p+1
shoot
p=p+1
t=i+s-get_tick_count()
sleep t
wend
p=0
z=z+1
if z>m then z=0
wend
end
@title test zoom
m=get_zoom_steps()
print "maxi : ",m
z=get_zoom()
print "actuel : ",z
end
yvo a écrit:donc, avec ce dernier script, pas de message d’erreur mais juste après le lancement, on entend le zoom et après écran noir puis l'appareil est bloqué.
luftschlosser a écrit:Pourrais -tu me générer le nom du fichier ( sous forme .bas ) que tu as crée ?
Donne lui un nom.
luftschlosser a écrit:
- Code: Tout sélectionner
max_zoom = get_zoom_steps()
zoom = get_zoom()
while 1
zoom = zoom + 1
if zoom > max_zoom then zoom = 0 end
set_zoom(zoom)
sleep 1000
wend
m=get_zoom_steps()
z=get_zoom()
while 1
z=z+1
if z>m then z=0
set_zoom(z)
sleep 1000
wend
end
yvo a écrit:...ça ne fonctionne pas, le zoom se met en marche et se bloque, écran noir et l'appareil reste comme ça.
@title Intervalzoom
@param a Interval between photos (Secs)
@default a 5
@param b zooming interval (photos)
@default b 8
i=a*1000
p=0
m=get_zoom_steps()
z=get_zoom()
while 1
print "zoom : ",z
while (p<8)
s=get_tick_count()
set_zoom(z)
sleep 500
print "photo : ",p+1
shoot
p=p+1
t=i+s-get_tick_count()
sleep t
wend
p=0
z=z+1
if z>m then z=0
wend
end
luftschlosser a écrit:J'ai eu le même probléme avec ZoomNshoot.bas !
le zoom se pilote bien mais peut de temps aprés l'écran se fige et c'est terminé !
@title ZoomNshoot modifié
m=get_zoom_steps()
z=0
while 1
do
a = get_usb_power
until a>0
if a < 5 then gosub "ch1up"
if a > 4 and a < 8 then gosub "ch1mid"
if a > 7 and a < 11 then gosub "ch1down"
if a > 10 and a < 14 then gosub "ch2up"
if a > 13 and a < 17 then gosub "ch2mid"
if a > 16 and a < 20 then gosub "ch2down"
if a > 19 then print "error"
wend
end
:ch1up
print "shoot"
shoot
return
:ch1mid
print "channel 1 middle"
return
:ch1down
print "channel 2 down"
return
:ch2up
print "zoom in"
z=z+1
if z>m then z=m
set_zoom(z)
return
:ch2mid
print "channel 2 middle"
return
:ch2down
print "zoom out"
z=z-1
if z<0 then z=0
set_zoom(z)
return
return
luftschlosser a écrit:Le programme que tu me donnes n'est-il pas écrit en Qbasic ?
luftschlosser a écrit:Pourrais tu me donner directement la routine :ZoomNshoot modifié ?
luftschlosser a écrit:Le programme que tu me donnes n'est-il pas écrit en Qbasic ?
Y aurait-il moyen de le télécharger facilement pour qu'on puisse créer ou modifier des routines ?
Retourner vers Vos appareils photo
Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 13 invités