Problems with 12F675

[Darrel Taylor]

OOPS, my fault

In post #5 the line

        GP3PressDone     ;   we're done

Should have been

        GOTO GP3PressDone ;   we're done

That's how it get's out of the loop under those conditions.

Sorry,

[fratello]

...still not work proper...same bugs

[Darrel Taylor]

In your LAST version, you missed the LOW statement.

if but1=1 and rel2=0  then
         high rel1 
         pause 20
                          
         while but1=1
         call check
         wend
         pause 20
                                       
         while but1 = 0
         call check
         if rel1=0 then
            GOTO Btn1PressDone
;         pause 10
         endif
         wend
         LOW rel1

         while but1=1
         wend
         pause 20
endif
Btn1PressDone:

[fratello]

Thank You so much for help !
I think this is my worst project ... I damage two PIC, now I have just one, and this project don't work, even with so much help...I write so many lines of code but nothing works right...
This is the last version. Bugs:
-if press but2, ON/OFF rel2 works fine, but if I press but1 after but2, then rel2 goes OFF and nothing works more, need to disconect power
-if press but1, ON works, without OFF ; after OFF because of 'check' nothing works more, need to disconect power.
This is one nightmare !!!
Hope I don't became verry, verry boring...and I am really sorry about my english...

[Darrel Taylor]

I think this is my worst project

No arguments here.

I guess it's the language barrier.

I've built the circuit you described, and am using the following program ...
As far as I can tell, it does exactly what you want it to do.

@ DEVICE PIC12F675, intrc_osc_noclkout, wdt_OFF, pwrt_on, mclr_off, bod_off

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

adval var Word
vt var word
but1 var gpio.3
but2 var gpio.2
rel1  var gpio.5
rel2  var gpio.0


main:
rel1=0
rel2=0

btn1:

if but1=1 and rel2=0  then
         high rel1 
         pause 20
                          
         while but1=1
         call check
         wend
         pause 20
                                       
         while but1 = 0
         call check
         if rel1=0 then
            GOTO Btn1PressDone
;         pause 10
         endif
         wend
         LOW rel1

         while but1=1
         wend
         pause 20
endif
Btn1PressDone:


btn2:
if but2=1 and rel1=0  then
         high rel2 
         pause 20
                 
         while but2=1
         call check
         wend
         pause 20                          
        
         while but2 = 0
         call check
         if rel2 = 0 then
           GOTO Btn2PressDone
;         pause 10
         endif
         wend
         low rel2  
         
         while but2=1
         wend
         pause 20
endif
Btn2PressDone:
   
GOTO MAIN

check:
adcin 3, adval
 vt=adval * 5000
 vt=div32 1023

if vt > 1250 then
	gpio.0=0
	gpio.5=0
endif
return

end

[fratello]

Thanks for such a fast reply!
Yes, in ISIS works verry, very fine ! But in real world ( ) the bugs are present !!!! I really don't know what something else I can do...

[fratello]

This is it !
Now works how I intend ! Thank You verry, verry much ! The on/off button works fine, and the check procedure too .I hope I write correct this "check procedure" for checking 5 times if is - indeed - overload (?!)
One last problem : if press but1 and rel1 is high, how can made rel1 low, with but1 - press again, of course - OR BUT2 - press once... ?!? (and some things with but2/rel2).
I try to write something, but rel1 go low AND rel2 go high...and this is unacceptable...Thanks again for attention and especially to Mr.Darrel for kindness and patience...