[uBasic] alles in einem-script

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

alles in einem-script

Beitragvon silas » 31.08.2008, 10:44

Hier kommt mal wieder ein script. :D
Und was macht das script?
Es macht das:
Erst wird fast alles so wie ohne alt modus gemacht.
Wenn man dan set drückt dann komt ein text wo so auseht:
links für blizreihe"
rechts für intervall"
auf für raw an"
ab für mehr"
Und dann das mehr:
ab für focus bracketing"
auf für mer"
Da kann also das intervall, focus bracketing und ein script wo ein bild ohne bliz macht und ein mit gelaufen werden lassen, noch eine sache ist das die raw speicherungen an und abgeschalten werden.
NEU:Jezt ist auch noch motion detecting eingebaut!

Falls ihr fragen habt meldet euch, auch tipps und testberichte werden gerne angenommen!

download:
http://www.humyo.com/F/644375-186358177
Syntax: [ Download ] [ Verstecken ]
Benutze uBasic Syntax Highlighting
@title main
@param a Columns (motion detecting)
@default a 8
@param b Rows (motion)
@default b 6
@param c Threshold (0-255) (motion)
@default c 10
@param g pixel step (motion)
@default g 8
@param j anfang (focus bracketing)
@default j 30
@param k veränderung per bild (focus)
@default k 10
@param l anzahl der bilder (focus)
@default l 10
@param m bilder (intervall)
@default m 10
@param n Interval (Min)(intervall)
@default n 0
@param o Interval (Sec)(intervall)
@default o 10

:back

r=get_raw

cls
print "alles wie normal nur halb"
print "Auslöser drücken statt "
print "ganz und set für "
print "Einstellungen"
print "und  Skriptstart"
goto "clickback"
:clickback
do
 wait_click
  if is_key "left" then goto "left"
if is_key "right" then goto "right"
if is_key "down" then goto "down"
if is_key "up" then goto "up"
if is_key "display" then goto "display"
if is_key "shoot_half" then goto "shoot_full"
if is_key "set" then goto "load"
if is_key "zoom_in" then goto "zoomin"
if is_key "zoom_out" then goto "zoomout"


:load
cls
print "links für blizreihe"
print "rechts für intervall"
print "ab für mehr"
if r >0 then goto "scriptload2" else goto "scriptload"

:scriptload
print "auf für raw an"
do
 wait_click
  if is_key "left" then goto "eins"
if is_key "right" then goto "zwei"
if is_key "up" then goto "rawon"
if is_key "down" then goto "more"

:scriptload2
print "auf für raw aus"
do
 wait_click
  if is_key "left" then goto "eins"
if is_key "right" then goto "zwei"
if is_key "up" then goto "rawoff"
if is_key "down" then goto "more"

:more
cls
print "ab für focus bracketing"
print "links für motion detecting"
print "auf für mer"
wait_click
if is_key "down" then goto "drei"
if is_key "up" then goto "load"
if is_key "left" then goto "vier"

:shoot_full
shoot
goto "clickback"

:left
click "left"
goto "clickback"

:right
click "right"
goto "clickback"

:down
click "down"
goto "clickback"

:up
click "up"
goto "clickback"

:display
click "display"
goto "clickback"

:zoomin
click "zoom_in"
goto "clickback"

:zoomout
click "zoom_out"
goto "clickback"

:eins
print "Blitzreihe"
do
 click "right"
 U=get_flash_mode
 until U=2
shoot
sleep 400
do
 click "right"
 U=get_flash_mode
 until U=1
gosub "dispoff"
shoot
sleep 1000
gosub "dispon"
do
 click "right"
 U=get_flash_mode
 until U=2
goto "load"

:zwei
cls
print "intervall"
t=n*60000+o*1000
if m<2 then let m=10
if t<1000 then let t=1000


sleep 1000

print "Shoot 1 of", m
shoot
for n=2 to m
    sleep t
    print "Shoot", n, "of", m
    shoot
next n
goto "load"

:drei
sleep 500
get_focus z

for s=1 to l
  g=j+s*k
  print "Shoot", s, "(", g, ")"
  set_focus g
  shoot
next s
goto "load"

:vier
d=80
e=5
f=1
h=2
i=1
if a<1 then let a=1
if b<1 then let b=1
if c<0 then let c=0
if g<1 then let g=1
if f<1 then let f=1
let e=e*1000
let x=30000
for z=0 to 10000
    let t=0
md_detect_motion a, b, i, x, d, c, 1, t, h, 1, 1,  a,   f , 0, g, e
if t<1 then goto "zzz"
click "shoot_full"
rem sleep 10
rem release "shoot_full"
:zzz
next z

:rawon
set_raw 1
r=get_raw
print "raw "r" 1=an "
sleep 3000
goto "load"

:rawoff
set_raw 0
r=get_raw
print "raw "r" 0=aus "
sleep 3000
goto "load"

:dispoff
 do
 click "display"
 U=get_display_mode
 until (U=2 or U=3)
 return

:dispon
 do
 click "display"
 U=get_display_mode
 until U=1
 return
Erstellt in 0.016 Sekunden, mit GeSHi 1.0.8.9
Zuletzt geändert von silas am 01.11.2008, 19:25, insgesamt 11-mal geändert.
a550,IXUS 80IS (1.01a)
aktuelle version
Flickr
Benutzeravatar
silas
CHDK-Begeisterter
CHDK-Begeisterter
 
Beiträge: 150
Registriert: 23.04.2008, 13:11
Wohnort: Schweden

Beitragvon PhyrePhoX » 31.08.2008, 22:50

hallo,

vielleicht möchtest du noch kurz erklären was das skript macht? :)
Benutzeravatar
PhyrePhoX
CHDK-Begeisterter
CHDK-Begeisterter
 
Beiträge: 490
Registriert: 04.07.2008, 21:31

Beitragvon silas » 04.09.2008, 20:01

So ich habe jezt mal eine kurze erklärung geschrieben.
Ich hoffe es hilft jemand.
Und noch mal erfarungen und fragen werden gerne angenommen! :)
a550,IXUS 80IS (1.01a)
aktuelle version
Flickr
Benutzeravatar
silas
CHDK-Begeisterter
CHDK-Begeisterter
 
Beiträge: 150
Registriert: 23.04.2008, 13:11
Wohnort: Schweden

Beitragvon chiptune » 04.09.2008, 20:17

silas hat geschrieben:So ich habe jezt mal eine kurze erklärung geschrieben.

Mhm - sehe ich irgend etwas nicht :-s

Was macht nun das Script ?

viele Grüße
chiptune
SX100IS mit CHDK
MD_SLOWMD_FASTMD_TUNE
chiptune
CHDK-Begeisterter
CHDK-Begeisterter
 
Beiträge: 131
Registriert: 16.07.2008, 05:24

Beitragvon silas » 05.09.2008, 06:31

Zumbespiel:
Erst kannst du das meiste wie direkt ohne altmodus mach und wenn du set drückst dann kann zumbeispiel intervall oder focus bracketing gelaufen werden lassen.
Auch raw kann an und abgeschalten werden.
Habe es jezt auch oben genauer bescrieben
a550,IXUS 80IS (1.01a)
aktuelle version
Flickr
Benutzeravatar
silas
CHDK-Begeisterter
CHDK-Begeisterter
 
Beiträge: 150
Registriert: 23.04.2008, 13:11
Wohnort: Schweden

Beitragvon xxcenturioxx » 24.09.2008, 19:54

Kann mir jemand erklären wie man das Script integriert?
Is j nur text..

Muss ich das irgendwie in ner textdatei speichern oder wie? :)
xxcenturioxx
CHDK-Einsteiger
CHDK-Einsteiger
 
Beiträge: 8
Registriert: 22.09.2008, 13:39

Beitragvon silas » 25.09.2008, 15:15

Oben ist ein link inkludiert (gerade über dem text)
Das solltest du herunterladen zu dem folder CHDK/SCRIPTS auf der karte und dann das script laden über chdk menü.
Script wird dann mit shoot taste gstartet.
a550,IXUS 80IS (1.01a)
aktuelle version
Flickr
Benutzeravatar
silas
CHDK-Begeisterter
CHDK-Begeisterter
 
Beiträge: 150
Registriert: 23.04.2008, 13:11
Wohnort: Schweden

Beitragvon xxcenturioxx » 25.09.2008, 19:35

Danke und Sorry für Spam.. :)
hab es dann auch noch gefunden.. ;)
xxcenturioxx
CHDK-Einsteiger
CHDK-Einsteiger
 
Beiträge: 8
Registriert: 22.09.2008, 13:39


Zurück zu Code-Ecke

Wer ist online?

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