Nur eine Überlegung... Ist es nicht völlig irrelevant, in welcher Reihenfolge die Blitze gezündet werden?
Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
In eigener Sache!
Liebe Mitglieder, liebe Besucher und Gäste
ich weiß, es ist ein leidiges Thema, aber ich muss es ansprechen: Werbung, Werbeblocker und Finanzierung des Forums.
Bitte hier weiterlesen ...
Nur eine Überlegung... Ist es nicht völlig irrelevant, in welcher Reihenfolge die Blitze gezündet werden?
Ist schon jemand zum löten gekommen und
hat getestet ?
Ja
Zwar nicht gelötet aber gesteckt und programmiert.
siehe Anhang.
Zum experimentieren sind die hinderlich. Man kann so schlecht die Led sehenFehlen aber noch die Ausgangs-Treiber...
; *************************************************************************
; *************************************************************************
;
; Blitzweiche/ Flashswitch
; Version 1.0
; 5.2.2010
;
; Jens Langen
; copyright by jens@web ( www.jensatweb.com )
; info@jensatweb.com
;
; Blitzweiche ist ein Programm das in der DSLR-forum
; Community entstanden ist.
; https://www.dslr-forum.de/showthread.php?t=619240
;
; Blitzweiche kann 2 Blitze automatisch nacheinander schalten.
;
; Kommt innerhalb einer Zeit von 0,5s kein 2ter Impuls auf
; dem Eingang an setzt sich die Schaltung zurück
;
; Wer nähere Infos braucht kann mich gerne kontaktieren
;
;
; Flashswitch based on an idea from the german DSLR-community
; https://www.dslr-forum.de/showthread.php?t=619240
;
; Flashswitch can control 2 flashes automatical
; If the 2nd Puls not coming in a time range of 0,5sec the
; circuit is reset by it self
;
; If you need any further information please contact me
;
; *************************************************************************
; *************************************************************************
LIST P=12F508 ; list directive to define processor
#include <P12F508.inc> ; include device specific header file
errorlevel -302, -207 ; suppress useless assembler warnings
__CONFIG _CP_OFF & _MCLRE_OFF & _WDT_OFF & _IntRC_OSC
;***** variable ************
#DEFINE _C STATUS,0
#DEFINE _Z STATUS,2
#DEFINE skip_0 btfsc ; ... Bit ; Ueberspringe, wenn Bit = 0
#DEFINE skip_1 btfss ; ... Bit ; Ueberspringe, wenn Bit = 1
#DEFINE skip_NC btfsc STATUS,0 ; Ueberspringe, wenn Carry = 0
#DEFINE skip_C btfss STATUS,0 ; Ueberspringe, wenn Carry = 1
#DEFINE skip_NZ btfsc STATUS,2 ; Ueberspringe, wenn Zero = 0
#DEFINE skip_Z btfss STATUS,2 ; Ueberspringe, wenn Zero = 1
#DEFINE blitz2 GPIO,2
#DEFINE blitz1 GPIO,1
#DEFINE cam GPIO,0
#DEFINE ANZAHL 0x07
#DEFINE DELREG0 0x10
#DEFINE DELREG1 0x11
#DEFINE DELREG2 0x12
;***** variable ende********
org 0
start: movlw B'01000000' ; config wakeup
option
movlw B'11111001' ; GP1/2 Out GP0 in
tris GPIO
nop
;****************************************************************************
bcf blitz2
bsf blitz1 ; Blitz 1 sofort auslösen
TestGP0_1
call Wait_1ms ; warte auf loslassen des Auslösers
btfss cam
goto TestGP0_1
bcf blitz1 ; ok - Blitz 1 aus
;****************************************************************************
; warte auf 2te Auflösung
;****************************************************************************
call wait_500
andlw 0x01
btfsc STATUS,Z
goto go_sleep
bsf blitz2
call Wait_1ms
TestGP0_2
call Wait_1ms ; warte auf loslassen des Auslösers
btfss cam
goto TestGP0_2
bcf blitz2 ; ok - Blitz 2 aus
;****************************************************************************
; Der 2te wurde ausgelöst
;****************************************************************************
go_sleep: bcf blitz1
bcf blitz2
call Wait_1ms
movf GPIO, f
sleep
;****************************************************************************
; wartet 500ms
;
; wenn in der Zeit cam gedrückt wird return 1
; wenn nicht und Zeit abgelaufen return 0
;****************************************************************************
wait_500:
;499994 cycles
movlw 0x03
movwf DELREG0
movlw 0x18
movwf DELREG1
movlw 0x02
movwf DELREG2
wait_500_0:
decfsz DELREG0, f
goto $+2
decfsz DELREG1, f
goto $+2
decfsz DELREG2, f
goto test_cam
;2 cycles
goto $+1
;4 cycles (including call)
retlw 0
test_cam: btfss cam ;
retlw 1
goto wait_500_0
;****************************************************************************
; wartet 1ms
;****************************************************************************
Wait_1ms:
;4993 cycles
movlw 0xc6
movwf DELREG0
movlw 0x01
movwf DELREG1
Wait_1ms_0:
decfsz DELREG0, f
goto $+2
decfsz DELREG1, f
goto Wait_1ms_0
;3 cycles
goto $+1
nop
;4 cycles (including call)
retlw 0
END
@nikon-user: Das 2te Bild zeigt den Inhalt des Päckchens das seit Fr. 17:45 bei DHL ist![]()