mich2e a écrit:... et que la commande set_remote_timing(uSec) permettait justement de franchir ce seuil des 10 ms infranchissable avant.
Pas sur que ça vous avance.
@title CAMremote
rem by VP-Systems
rem 29-06-2010
while 1
do
a = get_usb_power
until a>0
if a<3 then gosub "shoot"
else if a<9 then gosub "focus"
else if a<14 then gosub "focusoff"
else if a<21 then gosub "zin"
else if a<28 then gosub "zout"
else if a<35 then gosub "rec_video"
else if a<41 then gosub "avup"
else if a<47 then gosub "avdn"
else if a<53 then gosub "tvup"
else if a<59 then gosub "tvdn"
else if a<67 then gosub "stop_video"
else if a<77 then gosub "pwroff"
a=0
wend
end
:shoot
print "shoot:";a
press "shoot_full"
sleep 1500
release "shoot_full"
release "shoot_half"
return
:focus
print "focus:";a
press "shoot_half"
return
:focusoff
print "release:";a
release "shoot_half"
return
:zin
print "zoomin:";a
click "zoom_in"
release "shoot_half"
return
:zout
print "zoomout:";a
click "zoom_out"
release "shoot_half"
return
rec_video:
avup:
avdn:
tvup:
tvdn:
stop_video:
pwroff:
print "not supported:";a
return
return
if a<3 then gosub "shoot"
else if a<9 then gosub "focus"
else if a<14 then gosub "focusoff"
else if a<21 then gosub "zin"
else if a<28 then gosub "zout"
--[[
@title USB Tester
@param m Mode
@default m 0
@values m State Width Pulses Count Key
--]]
function printf(...)
local tic = get_day_seconds()
print (string.format("%02d:%02d:%02d %s", tic/3600, tic%3600/60, tic%60, ...))
end
mode = m
set_console_layout(1, 1, 44, 10)
set_remote_timing(1000)
print("USB remote test started")
if(mode == 1) then mstr="pulse width"
elseif (mode ==2) then mstr="pulses"
elseif (mode ==3) then mstr="pulse count"
elseif (mode ==4) then mstr="key"
else mstr="state" end
print(" test mode : "..mstr)
print("Press MENU to exit")
set_config_value(121,1) -- make sure USB remote is enabled
usb_state=-1
rkey=0
repeat
now = get_day_seconds()
-- check USB state ?
if ( mode == 0 ) then
new_state = get_usb_power(1)
if ( new_state ~= usb_state ) then
printf("state="..new_state)
usb_state=new_state
end
end
-- check USB pulse width ?
if ( mode == 1 ) then
x=get_usb_power(0)
if ( x > 0 ) then printf("width ="..(x*10).." mSec") end
end
-- check USB pulse train?
if ( mode == 2 ) then
x=get_usb_power(2)
if (x ~= 0 ) then
if ( x > 0 ) then printf("mark ="..(x*10).." mSec")
else printf("space="..(-1*x*10).." mSec") end
end
end
-- check USB pulse count ?
if ( mode == 3 ) then
x=get_usb_power(3)
if ( x > 0 ) then printf("count="..x) end
end
wait_click(100)
-- read USB as a camera key ?
if ( mode == 4 ) then
if (is_key("remote")) then
if (rkey==0) then
printf("remote pressed")
rkey=1
end
else
if (rkey==1) then
printf("remote released")
rkey=0
end
end
end
until is_pressed("menu")
set_config_value(121,0) -- make sure USB remote is disabled
Je pense que c'est "peine perdue" ... ne serais-tu pas un peu têtu ???
mich2e a écrit:Je me démène jusqu'à réussir pas à pas, ou tout foutre à la poubelle. ce qui va surement arriver à ce machin
@title Intervalozoom
@param a = interval (sec)
@default a 15
do
s = get_tick_count
if s % (a*1000) < 800 then gosub "shoot"
rem shoot à mettre en ligne suivante pour version finale
c = get_usb_power
if c > 0 then print " valeur USB (c) =", c
if c>20 and c < 28 then gosub "zout"
if c>13 and c <21 then gosub "zin"
c=0
until ( 0 )
:zout
print c;":zoomout"
c=0
set_zoom_rel -1
sleep 1000
cls
return
:zin
print c;":zoomin"
c=0
set_zoom_rel +1
sleep 1000
cls
return
:shoot
print "shoot:"
shoot
sleep 1000
cls
return
appuyer sur un bouton de plus n'est pas très gênant en vérité.
Par contre en l'air ça serait plus utile, d'autant que pour le coup les deux seraient disponibles via la radio.
Citation:
Je pense que c'est "peine perdue" ... ne serais-tu pas un peu têtu ???
ne t'inquiètes pas c'est pire que cela.
Le fait que le CHDK te renvoie des valeurs (erronées) est juste lié au fait qu'il détecte bien une impulsion (enfin plutôt un train d'impulsions) mais il ne sait pas l'interpréter ...
J'ai un peu fouillé sur le net à la recherche de l'équipement idéal...
(je suis un bon copiste !)
mich2e a écrit:Nous avons réussi avec YL à faire fonctionner le zoom en complément du déclenchement.
Et la joie qu'il a eue de s'essayer au SDM, en écrivant ses premiers scripts !
Michel a tellement insisté
Je n'ai été qu'un simple bêta testeur des évolutions que faisait l'expert programmeur en fonction de mes remarques.
Je ne suis pas un délateur mais je crois que son pseudo commence par un m et fini par un emich2e a écrit:Michel a tellement insisté
qui ça ?
Si, si, je confirme que je n'ai été qu'un gros bêta dans ce travailmich2e a écrit:Je n'ai été qu'un simple bêta testeur des évolutions que faisait l'expert programmeur en fonction de mes remarques.
Encore, Encore !
J'en pouffe encore !
pete a écrit:Bravo pour ces explications, c'est un vrai listing de procédure !
Il va falloir que je teste ça un jour...
Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 17 invités