- Code: Alles auswählen
set_resolution 0
rem beste qualität
set_quality 0
rem Iso Startwert 1 etspricht iso 80
i=1
rem fokus auf unendlich
set_focus 65535
sleep 400
set_aflock 1
rem filter ausschalten (entspricht Belde 8 auf Blende 2,8 öffnen)
set_nd_filter 2
:messen
set_iso i
press "shoot_half"
sleep 500
release "shoot_half"
a=get_av96
t=get_tv96
b=get_bv96
s=get_sv96
cls
print "Blende", a
print "Zeit", t
print "ISO", s
print "b", b
print b+s a+t
sleep p*1000
z=s+b-292
rem Isoanpassung bei zu langer Belichtungszeit
if z<m then gosub "iso"
rem minimale Belichtungszeit
if z<m then set_tv96 m
set_nd_filter 2
rem auslösen
shoot
goto "messen"
:iso
rem differenzberechnung
f=m-z
h=f+z
set_tv96_direct h
n=f+s
if n>795 then n=795
set_iso_real n
cls
print "neu berechnet"
print "differenz", f
print "zeit", z, h
print "iso" s, n
sleep 100
return
:restore
cls
print "************************"
print "Benutzerabbruch"
set_aflock 0
sleep 500
exit_alt
Gibts da noch Fehler ?