Printable View
fratello,
Have you changed anything?
I see you put the WDT back to OFF ... good.
Here's a picture of my breadoard of your circuit, in case you see something different.
Obviously, I'm using LED's instead of relays, but the rest should be the same.
When in SLEEP mode, I measure about 8 µA on my cheap DVM.
The only time it's not in sleep mode, an LED(relay) is ON, so that current is about 7 mA.
http://www.pbpgroup.com/files/Frat_Windows_SM.JPG
Here's the program I'm currently using.
Ya, Me too . . . You are not disturbing, or boring me, I just need to be clear on what you are doing, so as to understand, the post about PICadilly confused me.Quote:
Originally Posted by fratello
This is schematic I use. With my FUKE DT-830B I measure 3.5 mA -all the time- with no button push (so both relay OFF) and about 37 mA with one relay ON (without motor, of course). I remove the PIC and the current consumption is 2.5 mA (the two transistors ?) .
I use the same code ; I compile him after copy/paste of Yours ! Maybe it's because of my multimeter ? Anyway, thank You all so much for support !
Hi fratello, You could play with some resistors to bias those transistors so the base is more negative than the emitter to cause them to turn off more, do not tristate the outputs, drive them low, they will stay that way in sleep ( if I understand the data sheet that is ) . Try measuring the current with the relays out, betcha you get a low reading like Darrel did, MeThinks the logic zero on the port is still above zero volts (maybe due to internal leakage collector to base) giving the transistor some drive to increase the drain, try putting some emitter resistors in and see if it changes anything.Quote:
Originally Posted by fratello
Some problem !!!!Quote:
Originally Posted by fratello
I change the resistors from transistors base with 2k2 instead 4k7; nothing !!!
I change the transistors (BC337) with others (2SC1815; 2SC9014) but the results are all the time the same : after couple of pressing on but1 OR but2 (doesn't matter !) but2 (and rel2) works fine but but1 (rel1-of course) became inopperating !
Hi Fratello,
Ok, in the crude drawing I posted, R3 is selected to limit the current going through the relay coil. r1 is selected to limit current going into the transistor's base, and R2 is the trick. R2 needs to be smaller than R3, but not so low a value so as to inhibit the transistors operation. R2 will increase the ON current, but should help drive the transistor to "cut off".
in this link:http://engr.astate.edu/jdg/Electroni...orBiasing.html
Scroll down to Figure 5.
RC is your relay coil represented as a resistor
R1 is the resistor from the pic port, I know it is shown as connected to Vcc, but when your port goes high that is exactly what you have
R2 is the "pulldown resistor, causing cutoff
RE is the current limiting resistor for the load.
The problem are sure somewhere in the code ! The same code, how I say earlier, work if @SLEEP (and just this command !!!) is disabled !!!
Like in the previous code, which work - for real !- just after adding little pause in different places, I think this code is good, but need...something, I don't know what ! I spend all my day trying different variant of code...with pause from 20 to 100, but useless...I don't lose my hope ! Cheers !
http://www.pbpgroup.com/files/Frat_board.JPG
If it is a 78L05 ... then that's where your 3mA is going. (Quiescent Current)
<br>
Hi Mr.Darrel !
Maybe I can't explain verry clear !
If @SLEEP command is 'enable', the repause current is 2.5 mA (like without PIC !). But, after couple of press of but1 or but2, but1 don't work more ! Need to disconnect power !
If @SLEEP is 'disable' (by ' in front of her), the repause current is 3.5 mA, and but1 and but2 works without problems ! I do not change nothing in schematic !
Just use @SLEEP (2.5 mA ; problems with but1) or not (3.5 mA ; not problems)
Sorry for my poor english...
Your problems are NOT in the program, since the same program is running here without any problems.
What is that part I pointed to above?
Where are the Flyback diodes for the relay coils?
Where are the capacitors ... decoupling, and on the regulator?
<br>
The regulator is ST78L05, with 1x0.1 uF decoupling on output (SMD,on the back side) ; the diodes for relays are 1N4007 (on the back side). Thanks for patience !
Hi Fratello,
I think what Darrel is saying is the 3ma you are measuring is going out through the regulator as HEAT, and your circuit is working as expected.
Question, if this is a power window switch, do you shut off it's power with the ignition ? You lose more than 3ma because the top of the battery is not clean, and you cannot clean it well enough to not lose it.
I put one capacitor of 1uF to output of 78L05 and I replace the two diodes from relays with 1N4148, and ...YES !!!!!! Now the consumption is 2.5 mA and BOTH buttons work VERRY WELL !!!!! What a simple solution !!!! I can't explain why now work, but I'm HAPPY ! THANK YOU ALL SO MUCH !
...now I have in mind another thing : at the first start of this module, reading the current of overrload and memorized him in eeprom, for using as reference for further decoupling of relays. I read about this first 'calibration' in "12F675 Voltage monitor" by Frank Miller. Now I don't know how reading the highest level of voltage assuming the variation of tension is something like this ...
PS : Hope not making mistake if I bring here this new subject...
PS2 : A new observation : It's enough to put 1 uF capacitor; don't need to replace the two diodes on relays ! I try this on the other module.
Hi, Fratello
you should try the ICL 7663 as a regulator, instead of the 78L05 ...
quiescent current is ... rather interesting !!!
Alain
That 10µA or less quiescent looks really nice.
Is there something like that in a fixed voltage TO-92, so fratello can just stick one in his PC board?
<br>
Hi, DarrelQuote:
Originally Posted by Darrel Taylor
LP 2950 ACZ 5.0 from National, i.e.???
regards
Alain
I try to put another 'tips' in the code of this button.
At start ( plus by auto's contact) the PIC read from eeprom the value of overrload (variable "calibra"). If this is zero or less than minimum value (setting by me at 270 mV) start subroutine "calibration:". The value of maximum tension reading here are memorized as new value for "calibra".
One new start : the value of calibra is NOT zero or less than minimum value, so the module works as usual.
It's correct the code ? I think it's something wrong with reading/writing "calibra" from eeprom ?!? How write correct value of "calibra" in eeprom ?
I made some experiments ; the window roll-up (or roll-down) in about 6 seconds. I'm thinking to something like this :
...............
eeprom 0, [0, 0]
..............
read 0, calibra.byte0
read 1, calibra.byte1
if calibra =0 then
high rel1
....read U for maximum 7-8 seconds
....identify the highest value of U
....write this value in eeprom for further using as max.value in check:
low rel1
endif
..............
main:
....etc,etc.
Help, please, with the red lines; starting with what ? I use "search" but perhaps not so good ; I can't find one "clue" ! Thanks for supporting me !
I read about MAX. It's this correct :
'------------------------
read 0, calibra.byte0
read 1, calibra.byte1
if calibra =0 then
high rel1
gosub calibration
endif
'------------------------
calibration:
for cnt=0 to 80
adcin 3, v_cal
v_cal=v_cal * 5000
v_cal=div32 1023
vmax=vmax max v_cal
pause 100
next cnt ' reading v_cal for about 8 seconds ?
endfor
low rel1
calibra=vmax
calibra.highbyte = ADRESH
calibra.lowbyte = ADRESL
write 0, calibra.byte0
write 1, calibra.byte1
Return
'---------------------------
Thanks for any advice !
L.E.: The problem is : writing vmax ( example: 275) to eeprom, and then reading.
This is my working code :
calibration:
rel1=1 ' rel1 = 1 -->> window roll-up !
for cnt=1 to 80 ' assuming window roll-up complete in 8 seconds !
adcin 3, v_cal
v_cal=v_cal * 5000
v_cal=div32 1023
vmax=0 max v_cal
pause 100
next cnt
low rel1
calibra = vmax
if calibra > 20 then ' "20" is value knowing by user !
write 0, calibra.byte1
pause 10
write 1, calibra.byte0
pause 10
else
calibra = 19
write 0, calibra.byte1
pause 10
write 1, calibra.byte0
pause 10
endif
RETURN
The value for long press button it's a little to big. I want to reduce him. So,
Please, help :
Timer1 = 3037 ' 1 second
Timer1 = ? ' for 0.5 sec
' for 0.6 sec
' for 0.7 sec
' for 0,8 sec
Thanks !
3037 with a prescaler of 1:8, sets Timer1 to 500mS periods.
2 of those periods are counted to reach 1 second.
To calculate the number for any other time period, download mister-e's calculator ...
PicMultiCalc v1.3.1
http://www.picbasic.co.uk/forum/atta...achmentid=2957
In the "Timer Helper" app, set the time to 300ms and it shows the reload value as 28037. Two 300ms periods would give you a total time of 600ms.
Set it to 500mS and you'll see where I got the original number.
Any other period can be calculated easily.
<br>
Thank You !
As a supplement measure of safety I try to re-define the "check procedure" : if vs > 270 OR "time elapsed from but(1 or 2) = 1, no matter if long/short press" > 10 seconds then low rel . But, of course :( , the code not react as I wish...What I do -again- wrong ?! Thanks in advance for reply !Code:'****************************************************************
'* Name : THE_BUTON_sleep.BAS *
'****************************************************************
'
'
'
@ DEVICE PIC12F675, intrc_osc_noclkout, wdt_off, pwrt_on, mclr_off, bod_off
INCLUDE "Elapsed.bas"
DEFINE OSC 4
DEFINE ADC_BITS 10
DEFINE ADC_CLOCK 3
DEFINE ADC_SAMPLEUS 50
CMCON = 7
OPTION_REG = %10000110
TRISIO = %00011110
ANSEL = %00011000
ADCON0 = %10001101
GIE var intcon.7 ' global interrupt enable 1=on ; 0=off
gpie var intcon.3 'port change interrupt enable 1=0n ; 0=off
gpif var intcon.0 'port change interrupt flag bit
adval var Word
vt var word
u var byte
cnt var byte
but1 var gpio.3
but2 var gpio.2
rel1 var gpio.5
rel2 var gpio.0
Timer1 VAR WORD EXT :@Timer1 = TMR1L
TMR1ON VAR T1CON.0
TMR1IF VAR PIR1.0
T1Count VAR BYTE
LongPress VAR BIT
T1CON = %00110100
timpulUP var byte
u=0
cnt=0
GIE=0
GPIE=1
IOC.2=1 ' int-on-change for GPIO.2 enabled
IOC.3=1 ' int-on-change for GPIO.3 enabled
but1=0
but2=0
rel1=0
rel2=0
timpulUP=0
Gosub ResetTime ' Reset Time to 0d-00:00:00.00
pause 100
main:
rel1=0
rel2=0
@ sleep
pause 100
Timer1 = 3037
T1Count = 0
LongPress = 0
btn1: 'actionare buton up
if but1=1 and rel2=0 then
'this lines added ----------------
Gosub StartTimer ' Start the Elapsed Timer
IF SecondsChanged THEN
SecondsChanged = 0
IF Seconds = 10 THEN
TimpulUP=1
Gosub ResetTime ' Reset Time to 0d-00:00:00.00
ENDIF
ENDIF
'----------------------------------
high rel1
TMR1ON = 1
pause 20
while but1=1
call check
wend
IF LongPress THEN Stop_UP
T1Count = 0
pause 20
while but1 = 0 and but2 = 0
call check
if rel1=0 then
GOTO Btn1PressDone
endif
wend
Stop_UP:
LOW rel1
while but1=1 OR but2 = 1
wend
pause 100
endif
GPIF=0 'Clear ort change interrupt flag
Btn1PressDone:
btn2: ' actionare buton down
'this lines added ----------------
Gosub StartTimer ' Start the Elapsed Timer
IF SecondsChanged THEN
SecondsChanged = 0
IF Seconds = 10 THEN
TimpulUP=1
Gosub ResetTime ' Reset Time to 0d-00:00:00.00
ENDIF
ENDIF
'----------------------------------
if but2=1 and rel1=0 then
high rel2
TMR1ON = 1
pause 20
while but2=1
call check
wend
IF LongPress THEN Stop_Down
pause 20
while but2 = 0 and but1 = 0
call check
if rel2 = 0 then
GOTO Btn2PressDone
endif
wend
Stop_Down:
low rel2
while but2=1 or but1=1
wend
pause 100
endif
GPIF=0 'Clear ort change interrupt flag
Btn2PressDone:
GOTO MAIN
check: ' verificare pentru supracurent
adcin 3, adval
vt=adval * 5000
vt=div32 1023
for cnt = 1 to 5
if vt > 270 or timpulUP=1 then
u=u+1
if u > 5 then
gpio.0=0
gpio.5=0
endif
pause 50
goto check
else
u=0
Gosub ResetTime
endif
next cnt
IF TMR1IF then
TMR1IF = 0
Timer1 = 3037
T1Count = T1Count + 1
if T1Count = 2 then
TMR1ON = 0
T1Count = 0
LongPress = 1
endif
ENDIF
return
end ' of program
I discover some errors in the code I posted yesterday.
Code:btn1: 'actionare buton up
if but1=1 and rel2=0 then
'this lines added ----------------
Gosub StartTimer ' Start the Elapsed Timer
IF SecondsChanged THEN
SecondsChanged = 0
IF Seconds = 10 THEN
TimpulUP=1
ENDIF
ENDIF
'----------------------------------
high rel1
TMR1ON = 1
pause 20
'----------------------- // ---------------------------------------
'----------------------- // ---------------------------------------
btn2: ' actionare buton down
if but2=1 and rel1=0 then
'this lines added ----------------
Gosub StartTimer ' Start the Elapsed Timer
IF SecondsChanged THEN
SecondsChanged = 0
IF Seconds = 10 THEN
TimpulUP=1
ENDIF
ENDIF
'----------------------------------
high rel2
TMR1ON = 1
pause 20
'----------------------- // ---------------------------------------
'----------------------- // ---------------------------------------
check: ' verificare pentru supracurent
adcin 3, adval
vt=adval * 5000
vt=div32 1023
for cnt = 1 to 5
if vt > 270 or timpulUP=1 then
u=u+1
if u > 5 or timpulUP = 1 then
gpio.0=0
gpio.5=0
Gosub ResetTime
endif
pause 50
goto check
else
u=0
Gosub ResetTime
endif
next cnt
'----------------------- // ---------------------------------------
'----------------------- // ---------------------------------------
Still not work fine...
My previous posts are wrong !
This is what work good for me ( about 10 seconds) :
idem for btn2Code:btn1: 'actionare buton up
if but1=1 and rel2=0 then
high rel1
TMR1ON = 1
pause 20
while but1=1
t1Count=T1Count+1
call check
wend
IF LongPress THEN Stop_UP
T1Count = 0
pause 20
while but1 = 0 and but2 = 0
t1Count=T1Count+1
call check
if rel1=0 then
GOTO Btn1PressDone
endif
wend
Stop_UP:
and :It's correct what I do ? Thanks !Code:if vt > 270 o then
u=u+1
if u > 5 or T1Count > 100 then
gpio.0=0
gpio.5=0
endif
pause 50
goto check
else
u=0