Deltakap a écrit:Des scripts avec le zoom qui fonctionne sur le S95 sans planter ?
Wouah a écrit:Merci Michel, toutes les idées sont intéressantes...mais comme tu as vu au début du sujet, je ne suis pas spécialiste en programmation, c'est la curiosité de voir un système nouveau pour moi, qui m'a fait en arriver là...
@title test radio wouah - CHDK
:cr_normal
print "CR: USB/CHDK"
while 1
do
c = get_usb_power
until c>0
print " la télécommande fait c =" c
sleep 2000
rem if c>67 then gosub "pwroff"
rem if c>58 then gosub "stop_video"
rem if c>53 then gosub "tvdn"
rem if c>48 then gosub "tvup"
rem if c>40 then gosub "avdn"
rem if c>35 then gosub "avup"
rem if c>28 then gosub "rec_video"
rem if c>21 then gosub "zout"
rem if c>13 then gosub "zin"
rem if c>8 then gosub "focusoff"
rem if c>5 then gosub "focus"
rem if c>0 then gosub "shoot"
wend
end
@title CR simplifie wouah-CHDK
rem by
rem 02 02 2016
:attente_radio
print " demarrage, attente radio "
while 1
do
c = get_usb_power
until c>0
if c = 28 or c = 29 then gosub "shoot"
if c = 30 then print "on n'oublie pas ;-)"
if c = 11 or c = 12 then gosub "zout"
if c = 4 or c = 5 then gosub "zin"
wend
end
:shoot
print c;":shoot"
c=0
shoot
sleep 1000
cls
return
:zin
print c;":zoom en avant"
c=0
click "zoom_in"
sleep 1000
return
:zout
print c;" zoom arriere "
c=0
click "zoom_out"
sleep 1000
return
mich2e a écrit: petite question les manettes de ta radio ne vont pas dans les 4 directions ? seulement haut/bas à gauche et G/D à Droite ?
-ça déclenche avec la manette de gauche
manette de droite: Quand je fais une impulsion à droite (ou à gauche il fait la même chose)...il zoom+, zoom-, zoom+, zoom-, et attend la prochaine commande
plesage a écrit:chapeau bas les mecs, je ne pense pas être le seul à ne rien comprendre mais j'admire là, la vélocité de l'échange, Gilbert est impressionant et Emmanuel, tu peux être fier de "notre" forum que tu animes avec brio.
fly87
et voilà, pareil pour moi, on s'absente un mois et on comprend plus rien...
Manette de droite:
impulsion à droite = zoom+, zoom+ (il y a 5 d'indiqué à chaque fois qu'il zoom
impulsion à gauche....idem mais il y a d'indiqué 4 à chaque fois qu'il zoom
@title CR simplifie wouah-CHDK
rem by
rem 02 02 2016
:attente_radio
print " demarrage, attente radio "
while 1
do
c = get_usb_power 0
until c>0
if c = 28 or c = 29 then gosub "shoot"
if c = 30 then print "on n'oublie pas ;-)"
if c = 5 then gosub "zin"
if c = 4 then gosub "zout"
if c > 0 and c <> 4 and c <> 5 and c<> 28 and c<>29 then print " autre valeur = ", c
if c > 0 then c = 0
wend
end
:shoot
print c;":shoot"
rem shoot
sleep 5000
c=0
cls
return
:zin
c=0
print c;":zoom en avant"
rem click "zoom_in"
set_zoom_rel 1
sleep 5000
cls
return
:zout
c=0
print c;" zoom arriere "
rem click "zoom_out"
set_zoom_rel -1
sleep 5000
cls
return
@title zoom
set_zoom 0
for i = 1 to 14
set_zoom i
sleep 500
print " zoom step :", i
i = i +1
next i
print "on essaie plus"
set_zoom 30
sleep 500
print " zoom step : 30"
print "on essaie plus"
set_zoom 60
sleep 500
print " zoom step : 60"
end
@title CR simplifie wouah-CHDK
rem by
rem 02 02 2016
:attente_radio
print " demarrage, attente radio "
while 1
do
c = get_usb_power 0
until c>0
if c = 28 or c = 29 then gosub "shoot"
rem if c = 30 then print "on n'oublie pas ;-)"
if c = 5 then gosub "zin"
if c = 4 then gosub "zout"
if c > 0 and c <> 4 and c <> 5 and c<> 28 and c<>29 then
print "pas d'action"
print " car autre valeur = ", c
print " "
endif
if c > 0 then c = 0
wend
end
:shoot
print c;":shoot"
rem shoot
sleep 5000
c=0
cls
return
:zin
c=0
print c;":zoom en avant"
click "zoom_in"
sleep 1000
z = get_zoom
sleep 500
print "la valeur du zoom est" ,z
sleep 1000
if z = l then
print "on est au max donc on revient"
set_zoom 0
sleep 500
z = get_zoom
sleep 2000
endif
l = z
return
:zout
c=0
print c;" zoom arriere "
rem click "zoom_out"
set_zoom_rel -1
sleep 5000
return
Allumage de l'apn >il zoom 1 fois sans toucher à la radio (radio ouverte ou pas)
ensuite
1 impulsion = zoom+
1 impulsion = zoom+
1 impulsion = zoom+
1 impulsion = zoom - plantage immédiat
1 impulsion vers la droite retour immédiat c=5 c=12
1 impulsion vers la droite retour immédiat c=20, c=4, c=12
1 impulsion vers la droite retour immédiat c=19, c=5, c=11
1 impulsion vers la droite retour immédiat c=19, c=4, c=12
1 impulsion vers la droite retour immédiat c=17, c=5, c=12
manche de droite vers la gauche
Effet souhaité 1 impulsion 1 dézoom si le manche est maintenu le zoom revient à 0 ou s'arrete à la focale souhaitée.
1 impulsion vers la gauche retour immédiat c=20, c=10, c=12
1 impulsion vers la gauche retour immédiat c=19, c=11, c=12
1 impulsion vers la gauche retour immédiat c=20, c=13, c=12
1 impulsion vers la gauche retour immédiat c=20, c=11, c=11
1 impulsion à droite = zoom+, zoom+ 5,5
1 impulsion à droite= zoom+, zoom+ 5,5
1 impulsion à droite= zoom+, zoom - 5,4
1 impulsion à droite = zoom+ 5
1 impulsion à droite = zoom+,zoom+ 5,5
1 impulsion à gauche= zoom -, zoom - 4,4
1 impulsion à gauche= zoom -, zoom + 4,5
1 impulsion à gauche= zoom -, zoom + 4,5
1 impulsion à gauche= zoom -, zoom + 4,5
1 impulsion à gauche= zoom -, zoom - 4,4
1 impulsion à gauche= zoom -, zoom + 4,5
Retourner vers L'électronique embarquée et au sol
Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 27 invités