Afficher un message
  #34  
non lus 19/06/2010, 15h46
Avatar de Azergoth
Azergoth Azergoth est déconnecté
Membre
Ma pratique de la photo: Pratique régulière
Matériel: Pentax K3, 8, 17-50, 35, 50, 100, 300, 500
 
Messages: 1 156
8690 Photiz - Faire un don
En faisant une recherche sur le net, je suis tombé sur le forum de Pentaxforum.com. Voici le lien.

Et voici le code:

Code:
240->Z Lbl ME ClrHome Disp " Camera" Disp " Intervalometer" Disp "" Disp " Options" Output(6,7,"Cal=") Output(6,11,Z) Output(8,3,"Go") Output(8,8,"Adj") Output(8,12,"Exit") Repeat Ans getKey->A End If A=12 Goto IV If A=14 Goto X If A=13 Goto C Goto ME Lbl C ClrHome Disp " Intervalometer" Disp " Calibration" Disp "" Disp "Any key to start" Disp "and WAIT 60 sec" Repeat getKey End Disp "Any key to STOP" 0->Z Repeat getKey Z+1->Z End Z/60->Z Goto ME Lbl IV ClrHome Disp " Intervalometer" Disp " --------------" Input "Interval(sec)?",I Input "Frames ?",N ClrHome Disp " Intervalometer" Disp " --------------" Disp "With camera off" Disp "connect camera" Disp "and TI calc" Disp "" Disp "Any key to start" Repeat getKey End ClrHome Disp "INTERVALOMETER" Disp "--------------" Output(3,1,N) Output(3,4," frames at") Output(4,1,"1 per ") Output(4,7,I) Output(4,11,"sec") I*Z->I 0->C 4294967295->D Output(6,2,"Click 1") Send(D) If I/Z>2 Send(D) While C<N-1 C+1->C 0->Y For(H,1,I,1) Y+1->Y End Output(6,8,C+1) Send(D) If I/Z>2 Send(D) End Output(7,1,"Complete") Output(8,1,"") Disp "" Disp "" Disp "" Disp "" Goto ME Lbl X ClrHome

Je ne sais par contre pas si c'est moins vorace en pile... ;-)

edit: pardon, ce fil est une traduction et est donc incompréhensible... voici le bon lien

Dernière modification par Azergoth 19/06/2010 à 15h51.
Réponse avec citation