ok, ich sehe, Du denkst mit und hast die falschen Werte entdeckt.
Die Notwendigkeit eines Weißabgleichs sehe ich ein. Aber wozu brauchst Du Blendeneinstellungen? Sollte der Lichteinfall nicht maximal sein. Je größer die Blende, desto weniger Lichteinfall hast Du. Ich lasse mich aber gerne vom Nutzen der Blendeneinstellung überzeugen.
Vieleicht kann man die Tasten auch für die Empfindlichkeit (ISO) nutzen?
Und nun der nächste Test:
Syntax: [ Download ] [ Verstecken ]
Benutze uBasic Syntax Highlighting
@title Remote Control
E=0
while 1
do
p = get_usb_power
until p>0
select p
case 9 to 10; gosub "Shooting"
case 14 to 15; gosub "WB"
case 19 to 20; gosub "Ev_Minus"
case 24 to 25; gosub "Ev_Plus"
case 29 to 30; gosub "Zoom_Minus"
case 34 to 35; gosub "Zoom_Plus"
case 39 to 40; gosub "Av_Minus"
case 43 to 45; gosub "Av_Plus"
case_else; gosub "Fehler"
end_select
:Shooting
print "Auslöser"
shoot
return
:WB
print "WB"
rem BAUSTELLE FÃœR MANUELLEN WEISSABGLEICH
return
:Ev_Minus
print "EV -"
E=E-1
set_ev E*32
return
:Ev_Plus
print "EV +"
E=E+1
set_ev E*32
return
:Zoom_Minus
print "Zoom -"
set_zoom_rel -1
return
:Zoom_Plus
print "Zoom +"
set_zoom_rel 1
return
:Av_Minus
print "AV -"
rem BAUSTELLE FÃœR BLENDE -
return
:Av_Plus
print "AV +"
rem BAUSTELLE FÃœR BLENDE +
return
:Fehler
print "Fehler"
print "neue Eingabe"
return
wend
end
E=0
while 1
do
p = get_usb_power
until p>0
select p
case 9 to 10; gosub "Shooting"
case 14 to 15; gosub "WB"
case 19 to 20; gosub "Ev_Minus"
case 24 to 25; gosub "Ev_Plus"
case 29 to 30; gosub "Zoom_Minus"
case 34 to 35; gosub "Zoom_Plus"
case 39 to 40; gosub "Av_Minus"
case 43 to 45; gosub "Av_Plus"
case_else; gosub "Fehler"
end_select
:Shooting
print "Auslöser"
shoot
return
:WB
print "WB"
rem BAUSTELLE FÃœR MANUELLEN WEISSABGLEICH
return
:Ev_Minus
print "EV -"
E=E-1
set_ev E*32
return
:Ev_Plus
print "EV +"
E=E+1
set_ev E*32
return
:Zoom_Minus
print "Zoom -"
set_zoom_rel -1
return
:Zoom_Plus
print "Zoom +"
set_zoom_rel 1
return
:Av_Minus
print "AV -"
rem BAUSTELLE FÃœR BLENDE -
return
:Av_Plus
print "AV +"
rem BAUSTELLE FÃœR BLENDE +
return
:Fehler
print "Fehler"
print "neue Eingabe"
return
wend
end
Erstellt in 0.018 Sekunden, mit GeSHi 1.0.8.9
Nun hast Du genug Stoff zum Testen und Weiterentwickeln.
Gruß msl