Problems with 12F675

[Darrel Taylor]

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.



Here's the program I'm currently using.

[Archangel]

it is not a very big problem, but I want to understand the "mechanism" of the sleep procedure, and I am dissatisfied because, even I try all the variants, the obvious results are not present ! Just I try to make this project almost perfect and I really appreciate the support of all. Sorry if I disturb somebody...or if I became boring...

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.

[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 !

[Archangel]

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.

[fratello]

OOps ! I have a big problem : but1 don't work proper ! I double/triple check all ; I change the button, but nothing... After a few press on but1 or EVEN on but2, but1 became inopperating ! If press but2, rel2 go high and but1 stop him, but don't make rel1 high ! Or, if rel2 go low because of overload, but1 don't work not at all ! Must disconnect power source for 're-starting' him...
But2 works verry fine, but but1 don't !!! I really don't understand ! I check everything for so many times, I change even PIC..

Some problem !!!!

[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 !

[Archangel]

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.

[fratello]

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 !

[Darrel Taylor]

If it is a 78L05 ... then that's where your 3mA is going. (Quiescent Current)
<br>

[fratello]

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...

[Darrel Taylor]

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>

[fratello]

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 !

[Archangel]

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.

[fratello]

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.

[Acetronics2]

Hi, Fratello

you should try the ICL 7663 as a regulator, instead of the 78L05 ...

quiescent current is ... rather interesting !!!

Alain

[Darrel Taylor]

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>

[Acetronics2]

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, Darrel

LP 2950 ACZ 5.0 from National, i.e.???

regards

Alain

[fratello]

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 ?

[fratello]

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 !

[fratello]

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.

[fratello]

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

[fratello]

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 !

[Darrel Taylor]

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>

[fratello]

Thank You !

[fratello]

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 !

'****************************************************************
'*  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

[fratello]

I discover some errors in the code I posted yesterday.

  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...

[fratello]

My previous posts are wrong !
This is what work good for me ( about 10 seconds) :

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:

idem for btn2
and :

          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

It's correct what I do ? Thanks !