CHDK-Scripte

So, nachdem ich stundenlang mit Marcus hier diskutiert habe, sieht mein Script für die S90 jetzt so aus:

@title Remote shutter
@param a Display on=1 off=0
@default a 1


print "changing to MF"
click "mf"


print "set focus to infinit"
set_focus 65535
sleep 500


print "ready for KAP! :-) "


:loop
wait_click 1
is_key k "remote"
if k=1 then shoot
goto "loop"
end

Stellt automatisch auf MF und dann "unendlich".
Anschließend startet das normale CHDK-Script von Peter Engels, um via CHDK und AuRiCo auslösen zu können.

Hallo!

Zitat

Original von Florian

Stellt automatisch auf MF und dann "unendlich".

Da das Objekt der Begierde nicht immer um 65m (genau 65535mm) zur Kamera steht, habe ich mit Hilfe von "gehtnix" aus dem CHDK-Forum ein Skript bearbeitet, mit dem in komfortabler Weise die Entfernung schrittweise eingestellt werden kann.

Zitat

rem von gehtnix bearbeitet von Zaunkönig
@title KAP-PAP 1
@param b Start in Meter
@default b 55
@param c Schaltgrenze USB
@default c 200
@param y Fokus Down=0/Left=1/S5=2
@default y 1

E=b*1000

if get_nd_present<>0 then goto "sprung2"
h=1
gosub "schalten"
:sprung2

goto "wait"

:weiter
cls
if get_nd_present<>0 then set_aflock 0
set_focus E
if get_nd_present<>0 then set_aflock 1

print "* Fokus = ";E/1000,"Meter *"
print "* Fertig für KAP & PAP *"

:start
a=0
do
a = get_usb_power
until a>0
if a>c then goto "wait"
shoot
a=0
goto "start"

end

:wait
cls
if E > 65000 then end
print "* Fokus = ";E/1000,"Meter"
print "* - Ändern mit"
print "* UP/DOWN/LEFT/RIGHT"
print "* - Weiter mit SET"

wait_click
is_key k "right"
if k=1 then gosub "addcm"
is_key k "left"
if k=1 then gosub "subcm"
is_key k "up"
if k=1 then gosub "addm"
is_key k "down"
if k=1 then gosub "subm"
is_key k "set"
if k=1 then goto "weiter"
goto "wait"

:addcm
select E
case g to 65000 ; E=E+1000
end_select
return

:subcm
select E
case g to 65000 ; E=E-1000
end_select
return

:addm
select E
case 10000 to 65000 ; E=E+5000
end_select
return

:subm
select E
case 10000 to 65000 ; E=E-5000
end_select
return

:schalten
if get_nd_present<>0 then goto "ixus"
cls
if y=2 and (h=1)or(h=0) then
click "mf"
sleep 300
else
while get_focus_mode<>h
select y
case 0; click "down"
case 1; click "left"
end_select
sleep 300

wend
endif
:ixus
return

:restore
h=0
gosub "schalten"
sleep z
cls
end

Alles anzeigen

Dieses Skript ist auch für PAP geeignet

Gruß Adalbert

- Editiert von Zaunkönig am 15.09.2010, 14:27 -

Sorry, aber da verstehe ich nicht, wofür ich ein Script brauche. Dann kann ich doch auch direkt manuell an der Kamera die Entfernung einstellen - oder?

Hi,

nachdem ich hier sehe dass euch zu CHDK eine Anleitung fehlt, schaut mal hier hin

http://www.wirklemms.de

Da gibt es auch eine Anleitung mit Auflistung der einzelnen Befehle. Zum Downloaden muss man eingeloggt sein.

Wir verwenden die Version CHDK-DE die einige spezielle Befehle hat die von der internationalen Version nicht unterstützt werden. Deshalb, Skripte von der deutschen Sektion nur mit CHDK-DE nutzen.

Am Anfang der Code-Ecke ist eine reichhaltige Sammlung von Skripten.

Zu dem Skript vom Zaunkönig noch die Anmerkung. Eine Ixus hat keinen manuellen Fokus. Daher die Fokus-Verstellung auf diese Weise. Das Skript läuft aber auch mit Kameras die einen MF haben.

gehtnix

Zitat

Eine Ixus hat keinen manuellen Fokus.

OK, DAS erklärt alles. Danke! :L

@ Florian,

das Skrip erspart, auch wenn die Kamera einen manuellen Fokus hat, den Modus immer wieder zu ändern, wenn man sonst im Autofokus fotografiert.
... und zum Fernauslösen braucht du je ein Skript.

Gehtnix
super erklärt. :H:

Gruß Adalbert

- Editiert von Zaunkönig am 15.09.2010, 14:06 -

moin moin,

hier ist noch eine JPG-Version des Handbuchs für die Kamera.

Die Datei auf die SD-Karte im Verzeichnis DCIM entpacken, fertig. Dann in Wiedergabe ansehen und reinzoomen.

Da bietet sich die kleine Karte die beim Kauf der Kamera dabei war.
Für Unterwegs immer mal die Möglichkeit was nachzulesen.

Viel Spaß

gehtnix

Zitat

Original von Gehtnix
moin moin,

hier ist noch eine JPG-Version des Handbuchs für die Kamera.

gehtnix

Ich wußte garnicht, dass es eine solche Datei gibt.

Es fehlt nur noch, dass man dieses "Buch" auch in den "Kopf"bekommt.

Gruß Adalbert

moin moin,

ich erlaube mir mal anzumerken:

Leerzeile 8 löschen

Zeile 12-14 kann auch gelöscht werden

Zeile 20 löschen

Zeile 21 nur - set_aflock 1

Zeile 33 - wer liest das in der Luft?

Hinter dem end immer eine Leerzeile

Eine Ergänzung wäre noch dies:

Zeile 38
if z>200 then goto "panic"

und unter end dann diese subroutine

:panic
shut_down
sleep 3000
return

Sollte der Drachen mal runterrauschen, so drückt man lange auf den USB-Auslöser und die Kamera wird abgeschaltet. Das Objektiv wird eingefahren!

Hier wäre für euch noch das Airwolf-Skript von Interesse.

gehtnix

Zitat

Original von Gehtnix
Zeile 33 - wer liest das in der Luft?

Die Anzeige dient der Diagnose bei Inbetriebnahme oder Problemen.
Hat mir bei Nachfragen / Ferndiagnosen zu meinem RC-CHDK Interface schon oft geholfen.

Seit Anfang des Jahres ist diese Anzeige per Default ausgeschaltet, lässt sich aber zu Diagnosezwecken einschalten,
dazu im Initialisierungskopf einfügen: (Das Script auf meiner kleinen CHDK Seite beinhaltet diese Änderung)

Zitat

@param d ShowTime
@default d 0

und die Zeile zum Anzeigen der Werte ersetzen durch:

Zitat

if d>0 then print "usbpower:",z

Somit kann man durch Setzen der Variable auf > '1' die Anzeige aktivieren,
ein Wert von '0' unterdrückt die Anzeige.

moin moin,

da halte ich dagegen. Ich geh dann auch mal durch:

Zeile 8: Keine Panik, iss ja jetzt wech

Zeile 12-14: do/end, dat jibbet et nich im CHDK-Handbuch! Stiftet aber bei weiteren Kopieraktionen Verwirrung wenn auf einmal ein herrenloses until sich zu dem do gesellt.

Ansonsten, her mit der do/end-Quelle

Leerzeile und Struktur ist schon OK. Aber das sleep 5000 ist halt unnötig. Daher dann diese 3 Zeilen, wech damit.

Und... "Basic mit goto und Krampf", das ist aber ein schlagendes Argument für uBasic, der uBasic-Debugger. Euch muss man aber auch zum Jagen tragen

Zeile 20 und 21: Wenn schon kopiergeklaut, dann aber richtig. Das Skript vom Zaunkönig läuft auch z.B auf einer S90. Mit "if get_nd_present<>0 then " wird nun festgestellt dass die Kamera einen ND-Filter hat, also eine IXUS ist. Da Du ja ohnehin oben ausdrücklich den Hinweis gibst dass das Skript für die IXUS ist, so ist das unnötig, schadet aber auch nicht. Es reicht "set_aflock 0/1".

Zeile 33 OK

gehtnix

Zitat

Original von Tiggr
Dafür baue ich die "Notbremse" von dir noch ein, um die Kamera auschalten zu können! Das find ich gut!

Ich find's auch gut,
aber es kann bei uns leider niemand etwas damit anfangen.....

Der Grundgedanke von Gehtnix ist gut,
aber leider weiss er nicht wie wir die unterschiedlichen Pulse bekommen (über RC-CHDK2)

RC-CHDK2 liefert aber nur die 3 Impulslängen (100ms, 300ms, 500ms), mehr nicht,
es gibt keine Möglichkeit in der Luft einen 2 sek. langen Impuls am USB Eingang zu generieren.......
Und somit würde eh nie die Panik Funktion ausgeführt.

Also, das mit dem Skript ist erledigt.

Zu uBasic: Am Anfang von CHDK stand uns nur uBasic zur Verfügung. Keine Frage dass LUA oder sonstwas mehr kann oder besser zu lesen ist. LUA kam erst später zu CHDK.

Viel User können noch Basic. Für die ist es dann ein Leichtes hier selber zu skripten.
Ab und An kommen ja auch neue User die gleich mit LUA skripten.

Selber bin ich zu faul in LUA zu skripten. Es gab aber schon mal Situationen wo ich dachte, oha jetza ist es soweit. Konnte diese Notsituation aber immer elegant umschiffen. Das Skript vom Zaunkönig war ratzfatz zusammenkopiert.

Die panic-Funktion sollte euer Hirnschmalz anregen 8-)

gehtnix

Salöü,

ich bekomme bei meiner A590 bei Peters Script
>>>>>
@title Remote button

while 1
wait_click 1
if is_key "remote" then
shoot
wend
end

<<<<<
immer einen "uBASIC 11 Parse err", wo ist denn da der Fehler?

Codierung ANSI, standard WIN-Editor.

LG Olli
*Haare raufend*