Hoi,
Ik wil voor mijn digitale camera een Time Lapse schooter maken. maar weet even niet hoe te beginnen. T lieft met een Pic 16f628a en een in te stellen tijd voor de tijd voor focus en tijd voor de tijd tussen de foto's in.
Wie kan mij helpen?
Edit: Zelf maar even een proggje geschreven maar werkt dit?
pic basic code:
DEVICE 16F628A ;Gebruik een 16F628A type
CONFIG INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF
ALL_DIGITAL TRUE ;Alle ingangen digitaal
;Logische constanten
SYMBOL LAAG = 0
SYMBOL OFF = 0
SYMBOL ON = 1
;Algemene constanten
SYMBOL Schaal = 124 ;schaal waarde in vullen
;Poortnamen
SYMBOL Potmeter = PORTA.1 ;Potmeter aangesloten via een condensator aan GND
SYMBOL Focusen = PORTA.2 ;Focusen
SYMBOL Foto = PORTA.3 ;Foto
SYMBOL S1 = PORTB.0 ;Toets om grenswaarden van instelling potmeter vast te leggen
;Variabelen declareren
DIM Focus AS BYTE ;Bevat de Focus tijd
DIM Wacht AS BYTE ;Bevat de wacht tijd
; 76543210
PORTA = %00000000 ;Alle PORTA uitgangen uit (laag maken)
TRISA = %11110011 ;PORTA.3 en PORTA.2 omschakelen als uitgang voor de LED's
PORTB_PULLUPS ON ;On-chip pull-up weerstanden actief (voor S1)
CLEAR ;Wis alle RAM geheugen
DELAYMS 500 ;LCD stabilisering
;Hoofdprogramma
CLS ;Alles van het LCD scherm wissen
;1234567890123456
PRINT AT 1, 1, " Stel Focus " ;Plaats tekst op het LCD
PRINT AT 2, 1, " S1 = Save "
REPEAT
Focus = POT Potmeter, Schaal ;Geef nieuw gemeten waarde aan 'Focus'
;1234567890123456
PRINT AT 3, 1, "Focus = sec "
PRINT AT 3, 9, DEC Focus, " " ;Geef potmeterinstelling rechtsonder op LCD weer
UNTIL S1 = LAAG ;Focus is in te stellen totdat op S1 is gedrukt
DELAYMS 25 ;even wachten voor de zekerheid
WHILE S1 = LAAG : WEND ;Wacht tot toets is losgelaten (Zolang S1 laag is...)
;90123456
PRINT AT 1, 9, "Wacht " ;Wijzig tekst op LCD
REPEAT
Wacht = POT Potmeter, Schaal ;Geef nieuw gemeten waarde aan 'Wacht'
;1234567890123456
PRINT AT 4, 1, "Wacht = sec "
PRINT AT 4, 9, DEC Wacht, " " ;Geef potmeterinstelling rechtsonder op LCD weer
UNTIL S1 = LAAG ;Wacht is in te stellen totdat op S1 is gedrukt
DELAYMS 25 ;even wachten voor de zekerheid
WHILE 1 = 1 ;Programma continu uitvoeren
HIGH Focusen
DELAYMS Focus * 1000
HIGH Foto
DELAYMS 10 ; even wachten met loslaten
LOW Focusen
LOW Foto
DELAYMS Wacht * 1000
WEND
END
Edit2: nieuwe code