SX200 Zoom / Autofocus

CHDK-Skripte, CHDK-Entwicklung, PC-Zusatzprogramme, Informationen für Tüftler

SX200 Zoom / Autofocus

Beitragvon dulap » 04.11.2009, 10:58

Hallo :D
Habe mein erstes Skript gebastelt , weiß nicht ob so richtig ist oder auch anders geht da ich nichts gefunden habe . :D

Tasten :

1. Half Shoot = AutoFocus
2. FuncSet = Stop Rec
3. UP = Zoom + Autofocus
4. DOWN = Zoom - Autofocus
5. DISP = M-Focus -
6. MENU = M-Focus +


Code: Alles auswählen
rem SX200 By Dulap
@title zoom / focus in video

get_prop 6 q
if q=0 then set_prop 6 1

get_focus u
o=0

do
o=o+1
p=o*o*(o+1)*(o+1)+80
until u<p

v=o

press "shoot_half"
sleep 800
click "shoot_full"
print "SET - Stop Rec"
print "Shoot Half - Auto Focus"
:loop
wait_click

if is_key "up" then goto "focus_1"
if is_key "down" then goto "focus_2"
if is_key "shoot_half" then set_aflock 1
if is_key "set" then goto "end"
if is_key "menu" then goto "menu_focus"
if is_key "display" then goto "display_focus"

goto "loop"

:focus_1
set_zoom_rel 15
set_aflock 1
goto "loop"
return

:focus_2
set_zoom_rel -15
set_aflock 1
goto "loop"
return

:menu_focus
v=v+1
gosub "focus_DISP/MENU"
goto "loop"

:display_focus
v=v-1
gosub "focus_DISP/MENU"
goto "loop"

:focus_DISP/MENU
u=(v*v*v*v)+80
if v>=12 then u=65535
if v<1 then let v=1
if v>12 then let v=12
set_focus u
get_focus t
print "focus", v; "/12 ("t; " mm)"
return

:end
click "shoot_full"
end

end

wait_click
cls
return
Dateianhänge
videofocus.bas
SX200IS Zoom /Autofocus
(1.11 KiB) 311-mal heruntergeladen
dulap
CHDK-Einsteiger
CHDK-Einsteiger
 
Beiträge: 32
Registriert: 22.09.2009, 11:35

Beitragvon smartkiller » 04.11.2009, 12:31

Hallo
Schön das Du es hier auch veröffentlicht hast. :D

Ich denke mal, das hier der richtige Ort dazu ist. Das DSLR Forum ist da wohl eher zweitrangig.

Smartkiller
Canon SX200is Firmware 1.00C
Canon SX1 IS Firmware 201A
smartkiller
CHDK-Begeisterter
CHDK-Begeisterter
 
Beiträge: 66
Registriert: 29.08.2009, 16:35
Wohnort: Gelsenkirchen bei SCHALKE

Beitragvon dulap » 04.11.2009, 13:32

smartkiller hat geschrieben:Hallo
Schön das Du es hier auch veröffentlicht hast. :D

Ich denke mal, das hier der richtige Ort dazu ist. Das DSLR Forum ist da wohl eher zweitrangig.

Smartkiller


:D Hallo

DSLR Forum war mir bequemer :D zu Posten
hast recht hier der richtige Ort :idea:

Hier zwei Demos

Skript in aktion :badgrin:

SX200 Zoom / Autofocus

http://www.youtube.com/watch?v=0vJMyleUiTY

M-Focus
http://www.youtube.com/watch?v=04x23R_VrQw
dulap
CHDK-Einsteiger
CHDK-Einsteiger
 
Beiträge: 32
Registriert: 22.09.2009, 11:35

Beitragvon dulap » 27.11.2009, 10:15

wie kann man machen wenn man Zoom_In drückt , das der zoom set_zoom_rel 1 widerholt ?

so wie jetzt ist geht nur schrittweise :idea:

Syntax: [ Download ] [ Verstecken ]
Benutze uBasic Syntax Highlighting
if z<0 then let z=1

if z>128 then let z=128

set_zoom_rel -z

get_zoom r

sleep 500

set_aflock 1

print "zoom", r

sleep 500

cls

goto "loop"
Erstellt in 0.005 Sekunden, mit GeSHi 1.0.8.9
Canon SX200is CHDK -akt. Version
dulap
CHDK-Einsteiger
CHDK-Einsteiger
 
Beiträge: 32
Registriert: 22.09.2009, 11:35


Zurück zu Code-Ecke

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 21 Gäste