Vielleicht kann jemand die PropertyCase-Variablen an DigicII anpassen.
Syntax: [ Download ] [ Verstecken ]
Benutze uBasic Syntax Highlighting
rem Für Kameras ohne Tv-Modus DigicIII
rem Original von MP9SIT 20080415
@title Tv-Modus
@param a Tv
@default a 0
t=a
if t=-19 then s=-576
if t=-18 then s=-544
if t=-17 then s=-512
if t=-16 then s=-480
if t=-15 then s=-448
if t=-14 then s=-416
if t=-13 then s=-384
if t=-12 then s=-384
if t=-11 then s=-352
if t=-10 then s=-320
if t=-9 then s=-288
if t=-8 then s=-256
if t=-7 then s=-224
if t=-6 then s=-192
if t=-5 then s=-160
if t=-4 then s=-128
if t=-3 then s=-96
if t=-2 then s=-64
if t=-1 then s=-32
if t=0 then s=0
if t=1 then s=32
if t=2 then s=64
if t=3 then s=96
if t=4 then s=128
if t=5 then s=160
if t=6 then s=192
if t=7 then s=224
if t=8 then s=256
if t=9 then s=288
if t=10 then s=320
if t=11 then s=352
if t=12 then s=384
if t=13 then s=416
if t=14 then s=448
if t=15 then s=480
if t=16 then s=512
if t=17 then s=544
if t=18 then s=576
if t=19 then s=608
if t=20 then s=640
if t=21 then s=672
if t=22 then s=704
if t=23 then s=736
if t=24 then s=768
if t=25 then s=800
if t=26 then s=832
if t=27 then s=864
if t=28 then s=896
if t=29 then s=928
if t=30 then s=960
if t=31 then s=992
if t=32 then s=1021
if t=33 then s=1053
if t=34 then s=1088
if t=35 then s=1120
if t=36 then s=1152
if t=37 then s=1184
if t=38 then s=1216
if t=39 then s=1248
if t=40 then s=1280
if t=41 then s=1312
if t=42 then s=1344
if t=43 then s=1376
if t=44 then s=1408
if t=45 then s=1440
if t=46 then s=1472
if t=47 then s=1504
if t=48 then s=1536
if t=49 then s=1568
if t=50 then s=1600
print "Menu für Fokus"
print "Display für Shoot"
print "links für Makro"
do
wait_click
if is_key "menu" then gosub "half"
if is_key "display" then gosub "full"
if is_key "left" then gosub "macro"
until is_key "set"
goto "the_end"
rem Propcase 6 Fokus-Modus 0=normal 1=Makro
:macro
set_prop 6 m
if m=0 then
m=1
print "Makro-Modus"
else
m=0
print "Normaler Modus"
endif
set_prop 6 m
return
:half
press "shoot_half"
sleep 1500
release "shoot_half"
return
:full
press "shoot_half"
sleep 500
get_av96 h
get_bv96 i
release "shoot_half"
rem exposure shift
get_prop 107 e
if e>65000 then
e=65536-e
endif
z=h+s-i-e
if z>759 then
z=759
set_led 8 1
endif
press "shoot_half"
sleep 1500
rem Tv
set_prop 262 s
rem Sv market
set_prop 247 z
press "shoot_full"
release "shoot_full"
set_led 8 0
release "shoot_half"
return
:the_end
end
rem Original von MP9SIT 20080415
@title Tv-Modus
@param a Tv
@default a 0
t=a
if t=-19 then s=-576
if t=-18 then s=-544
if t=-17 then s=-512
if t=-16 then s=-480
if t=-15 then s=-448
if t=-14 then s=-416
if t=-13 then s=-384
if t=-12 then s=-384
if t=-11 then s=-352
if t=-10 then s=-320
if t=-9 then s=-288
if t=-8 then s=-256
if t=-7 then s=-224
if t=-6 then s=-192
if t=-5 then s=-160
if t=-4 then s=-128
if t=-3 then s=-96
if t=-2 then s=-64
if t=-1 then s=-32
if t=0 then s=0
if t=1 then s=32
if t=2 then s=64
if t=3 then s=96
if t=4 then s=128
if t=5 then s=160
if t=6 then s=192
if t=7 then s=224
if t=8 then s=256
if t=9 then s=288
if t=10 then s=320
if t=11 then s=352
if t=12 then s=384
if t=13 then s=416
if t=14 then s=448
if t=15 then s=480
if t=16 then s=512
if t=17 then s=544
if t=18 then s=576
if t=19 then s=608
if t=20 then s=640
if t=21 then s=672
if t=22 then s=704
if t=23 then s=736
if t=24 then s=768
if t=25 then s=800
if t=26 then s=832
if t=27 then s=864
if t=28 then s=896
if t=29 then s=928
if t=30 then s=960
if t=31 then s=992
if t=32 then s=1021
if t=33 then s=1053
if t=34 then s=1088
if t=35 then s=1120
if t=36 then s=1152
if t=37 then s=1184
if t=38 then s=1216
if t=39 then s=1248
if t=40 then s=1280
if t=41 then s=1312
if t=42 then s=1344
if t=43 then s=1376
if t=44 then s=1408
if t=45 then s=1440
if t=46 then s=1472
if t=47 then s=1504
if t=48 then s=1536
if t=49 then s=1568
if t=50 then s=1600
print "Menu für Fokus"
print "Display für Shoot"
print "links für Makro"
do
wait_click
if is_key "menu" then gosub "half"
if is_key "display" then gosub "full"
if is_key "left" then gosub "macro"
until is_key "set"
goto "the_end"
rem Propcase 6 Fokus-Modus 0=normal 1=Makro
:macro
set_prop 6 m
if m=0 then
m=1
print "Makro-Modus"
else
m=0
print "Normaler Modus"
endif
set_prop 6 m
return
:half
press "shoot_half"
sleep 1500
release "shoot_half"
return
:full
press "shoot_half"
sleep 500
get_av96 h
get_bv96 i
release "shoot_half"
rem exposure shift
get_prop 107 e
if e>65000 then
e=65536-e
endif
z=h+s-i-e
if z>759 then
z=759
set_led 8 1
endif
press "shoot_half"
sleep 1500
rem Tv
set_prop 262 s
rem Sv market
set_prop 247 z
press "shoot_full"
release "shoot_full"
set_led 8 0
release "shoot_half"
return
:the_end
end
Erstellt in 0.020 Sekunden, mit GeSHi 1.0.8.9
Dank gilt dem Originalautor MP9SIT.