Taschenrechner als Fern-/Intervallauslöser für Canon und als Formelsammlung

foto()
Prgm
0z
Lbl top
ClrHome
ClrIO
Toolbar
 Title "Fotografieren"
  Item "Kabelausl",kabel
  Item "Selbstausl",selbst
  Item "Intervallausl",interv
 Title "Berechnung"
  Item "Hyperfokaldistanz",hyper
  Item "Schaerfentiefe",schaer
 Title "Quit",quit
EndTBar
Lbl kabel
ClrIO
Disp "zum Ausloesen Enter druecken"
0k
While k13
 getKey()k
EndWhile
 If k=13
  Try
   Send {z}
  Else
   ClrErr
  EndTry
 PopUp {"nochmal","beenden"},ents
 If ents=1
  Goto kabel
 If ents=2
  Goto top
 end
end
Lbl selbst
ClrIO
0k
0timer
Disp "Zeit zum"
Input "Ausloesen: ",time
Disp "Zeit laeuft"
startTmr()timer
While checkTmr(timer)<time
 Disp "Warte"
EndWhile
Try
 Send {z}
Else
 ClrErr
EndTry
Disp "ausgeloest"
PopUp {"nochmal","abbruch"},ents
If ents=1
 Goto selbst
If ents=2
 Goto top
end
end
Lbl interv
ClrIO
0timer
0i
0k
Disp "Zeit zwischen den"
Input "Bildern(Sek): ",t
Input "Anzahl Bilder: ",n
t*ngesamt
timeCnv(gesamt)list
Disp list
Disp "{Tage Std. Min. Sek.}"
Pause "Programm starten?"
Disp "Abbruch jederzeit mit ON-Enter"
For i,n,1,*1
 startTmr()timer
  While checkTmr(timer)<t
  EndWhile
   Try
	Send {z}
   Else
	ClrErr
   EndTry
 Disp i*t
 Disp "verbleibend Zeit (sec.)"
EndFor
PopUp {"nochmal","abbruch"},ents
If ents=1
 Goto interv
If ents=2
 Goto top
end
Lbl hyper
ClrIO
 Input "Brennweite in mm: ",brenn
 Input "Blendenzahl zB 2.8: ",blende
 Disp "welches Kameraformat?"
 PopUp {"APS-C","Kleinbild","Mittelformat","Grossformat"},zer1
 If zer1=1
  .018zer
 If zer1=2
  .03zer
 If zer1=3
  .05zer
 If zer1=4
  .1zer
 end
 Disp "Die Hyperfokaldistanz ist (m):"
 (brenn+brenn^2/(blende*zer))/1000h
 Disp h
 PopUp {"nochmal","abbruch"},ents
 If ents=1
  Goto hyper
 If ents=2
  Goto top
end
Lbl schaer
ClrIO
 Input "Brennweite in mm",brenn
 Input "Blendenzahl zB 2.8",blende
 Input "Entfernung in m",entf
 Disp "Welches Kameraformat?"
 PopUp {"APS-C","Kleinbild","Mittelformat","Grossformat"},zer1
If zer1=1
 .018zer
If zer1=2
 .03zer
If zer1=3
 .05zer
If zer1=4
 .01zer
end
ClrIO
Disp "hyperfokale Entfernung(m)"
(brenn+brenn^2/(blende*zer))/1000h
Disp h
Disp "Nahpunkt(m)"
entf*h/(h+entf-brenn/1000)nah
Disp nah
Disp "Fernpunkt(m)"
entf*h/(h-entf+brenn/1000)fern
Disp fern
Disp "Schaerfentiefe(m)"
fern-nahscharft
Disp scharft
break
PopUp {"nochmal","abbruch"},ents
If ents=1
 Goto schaer
If ents=2
 Goto top
end
end
Lbl quit
DelVar scharft
DelVar nah
DelVar fern
DelVar i
DelVar k
DelVar z
DelVar ents
DelVar time
DelVar timer
DelVar t
DelVar n
DelVar list
DelVar brenn
DelVar blende
DelVar zer1
DelVar zer
DelVar h
DelVar entf
EndPrgm

Lbl H
1üÁ
ClrHome
Menu("***EOS-REMO-TI**","KABELAUSL.",K,"TIMERAUSL.",T,"INTVLAUSL.",B,"ABOUT",A,"QUIT",Q)

Lbl K
Menu("***KABELAUSL.***","Ausloesen",00,"Zurueck",H)
Lbl 00
Send(Á)
Goto K

Lbl T
Menu("***TIMERAUSL.***","2Sek.",01,"5Sek.",02,"Eigene Zeit",03,"Zurueck",H)
Lbl 01
2üR
Disp ""
Disp "Abbrechen:ENTER"
prgmWAITR
Send(Á)
ClrHome
Goto T
Lbl 02
5üR
Output(2,1,"Abbrechen: ENTER")
prgmWAITR
Send(Á)
ClrHome
Goto T
Lbl 03
Disp "Eig.Zeit(Sek.)"
Input R
Output(2,1,"Abbrechen: ENTER")
prgmWAITR
Send(Á)
ClrHome
Goto T

Lbl B
Menu("***INTVLAUSL.***","1B/Min,60B.",04,"10B/Min.,600B.",05,"2B/Min.,120B.",06,"Eigene Werte",07,"Zurueck",H)
Lbl 04
For(X,1,60)
60üR
ClrHome
Output(1,1,"Bild-Nr.: ")
Output(1,11,X)
Send(Á)
prgmWAITR
End
ClrHome
Goto B
Lbl 05
For(X,1,600)
6üR
ClrHome
Output(1,1,"Bild-Nr.: ")
Output(1,11,X)
Send(Á)
prgmWAITR
End
ClrHome
Goto B
Lbl 06
For(X,1,120)
30üR
ClrHome
Disp X
Send(Á)
prgmWAITR
End
ClrHome
Goto B
Lbl 07
Output(1,1,"Eigenes Intrvll")
Disp " "
Input "AnzahlBilder:   ",B
Input "Zeitzw.Bildern: ",C
For(X,1,B)
CüR
ClrHome
Output(1,1,"Bild-Nr.: ")
Output(1,11,X)
Send(Á)
prgmWAITR
End
ClrHome
Goto B

Lbl A
ClrHome
Output(1,1,"EOS-REMO-TI 2011")
Output(3,1,"Von:")
Output(4,1,"Philipp Neubert")
Output(5,1,"Visit:")
Output(6,1,"www.pnbrt.de")
Output(8,1,"Zurueck: ENTER")
getKeyüY
While Yø105
getKeyüY
End
Goto H
Lbl Q

startTmr+RüR
While R>startTmr
If getKey=105
Return
End