(Meer info)
Timelapse
Afstandsbediening
Bulb-trigger

Enkele commando's verklaard

< Terug

ClrHome
DelVar A
DelVar B
DelVar D
DelVar E
DelVar K
Float

Disp "Timelapse"
Disp "----------------"
Input "Interval (Sec): ",A
Disp "----------------"

ClrHome
Output(1,1,"EOS Timelapse")
Output(2,1,"----------------")
Output(3,1,"Interval: ")
Output(3,11,A)
Output(4,1,"----------------")
Output(5,1,"Press 0 to quit.")
Output(6,1,"----------------")
Output(7,1,"Picture: ")
Output(8,1,"Time: ")

A*60->A
While K=0
For(B,1,A,1.5)
A/60->E
E-B/60->E
getKey->K
If K=102
Goto 99
Fix (1)
Output(8,7,E)
Float
End

Send(A)
D+1->D
Output(7,10,D)
End

Lbl 99
Float
ClrHome
Output(1,1,"Nr. of pictures")
Output(2,1,"taken: ")
Output(2,7,D)
Output(3,1,"----------------")
Output(4,1,"Gemaakt in 2008")
Pause "Ga voor info, voorbeelden, verwerking en vragen naar http://tinyurl.com/3y5a7t"
ClrHome
Stop

^ Naar boven

ClrHome
DelVar A
DelVar B
DelVar K

Disp "Remote shutter"
Disp "----------------"
Disp ". to focus."
Disp "(-) to release"
Disp "----------------"
Disp "Press 0 to quit."
Disp "----------------"
Output(8,1,"Pictures: ")
100->A

Lbl 01
While 1
getKey->K
If K=103
Goto 97
If K=104
Goto 98
If K=102
Goto 99
End

Lbl 97
GetCalc(A)
Goto 01

Lbl 98
Send(A)
B+1->B
Output(8,11,B)
Goto 01
End

Lbl 99
ClrHome
Output(1,1,"Nr. of pictures")
Output(2,1,"taken: ")
Output(2,7,B)
Output(3,1,"----------------")
Output(4,1,"Gemaakt in 2008")
Pause "Ga voor info, voorbeelden, verwerking en vragen naar http://tinyurl.com/3y5a7t"
ClrHome
Stop

^ Naar boven

(NB: voor het uitvoeren van de volgende functie moet de camera in de bulb-stand staan. Zie FAQ om te zien hoe dat moet.)

DelVar A
DelVar B
DelVar D
Float

Lbl 01
ClrHome
Output(5,1,"----------------")
Output(6,1,"Input 0 to quit.")
Disp "Bulb trigger"
Disp "----------------"
Input "Interval (Sec): ",A

If A=0
Goto 99

ClrHome
Output(1,1,"Bulb trigger")
Output(2,1,"----------------")
Output(3,1,"Interval: ")
Output(3,11,A)
Output(4,1,"----------------")
Output(5,1,"0 to cancel.")
Output(6,1,"----------------")
Output(7,1,"Picture: ")
Output(8,1,"Time: ")

For(B,1,A,1)
Send(A)

Fix (1)
Output(8,7,B)
Float

End

D+1->D
Goto 01

Lbl 99
Float
ClrHome
Output(1,1,"Nr. of pictures")
Output(2,1,"taken: ")
Output(2,7,D)
Output(3,1,"----------------")
Output(4,1,"Gemaakt in 2008")
Pause "Ga voor info, voorbeelden, verwerking en vragen naar http://tinyurl.com/3y5a7t"
ClrHome
Stop

^ Naar boven

Overal waar -> of --> staat moet je op de knop STO-> drukken (boven ON) op het toetsenbord van de rekenmachine. Er zal een pijltje op het scherm verschijnen. Overige commando's zijn tijdens het programmeren te vinden 'onder' de knop PRGM en anders in de alfabetische catalogus (2nd+0).

^ Naar boven

< Terug