Light control system for smart home

gaspode42 · Sep 21, 2009

Mike

On my screen the post looks fine - how far out is it?

R

birdman0_o · Sep 21, 2009

I use Firefox and it's pointing at the 8th bit from the right

gaspode42 · Sep 21, 2009

Hum...I also use firefox and it's spot on, I will do a PDF instead

gaspode42 · Sep 21, 2009

Mike,

This should be OK now, thanks

birdman0_o · Sep 21, 2009

Beautiful now, I'm sure he will understand!

Mr RB · Sep 21, 2009

Code:

Monospaced fonts are your friend!

lebohangmaphothoane · Sep 22, 2009

Thanks guys, hear is the code i have corrected. it does not have errors, i tested it on MPLAB IDE v8.5. But it has warnings and masseges,i tried to get rid of those warnings but i could not. can u guys show me why there is those warnings and how should i get rid off them.

;PROGRAM FUNCTION:light control for smart home

list P=16F877a

include "P16F877a.inc"
__config 0x3D18
;Declarations:

NumH equ 20h
NumL equ 21h
org 0x0000

; Initializing porta
BCF STATUS, RP0 ;
BCF STATUS, RP1 ; Bank0
CLRF PORTA ; Initialize PORTA by
; clearing output
; data latches
BSF STATUS, RP0 ; Select Bank 1
MOVLW 0x06 ; Configure all pinss
MOVWF ADCON1 ; as digital inputs
MOVLW 0xCF ; Value used to
; initialize data
; direction
MOVWF TRISA ; Set RA<3:0> as inputs
; RA<5:4> as outputs
; TRISA<7:6>are always
; read as '0'.

return

;Program Start:

Start
call Init ;sets the values of ADCON0 and ADCON1
;initialize porta

Main
; Read_ADC
bsf ADCON0, GO_DONE ;initiate conversion
btfsc ADCON0, GO_DONE
goto $-1 ;wait for ADC to finish

movf ADRESH,W
andlw 0x03
movwf NumH
BANKSEL ADRESL
movf ADRESL,W
BANKSEL ADRESH
movwf NumL ;return result in NumL and NumH

btfss NumH,1
goto led_on
bcf PORTA,4 ; turn 0ff the LED
goto Main
led_on
bsf PORTA,4 ;turn on the LED

goto Main

;Subroutines:
; initialize ADC
Init movlw b'10000001';
movwf ADCON0 ;
BANKSEL ADCON1
movlw b'10000101'
movwf ADCON1
BANKSEL ADCON0

return

END

lebohangmaphothoane · Sep 22, 2009

birdman0 o i still remember how you said i should paste the code, i tried to paste it like that but i could see how to do it. iam sorry for that.

birdman0_o · Sep 23, 2009

I'll have your program rewritten by this afternoon.

birdman0_o · Sep 23, 2009

Nvm, did it fast, and it compiled!

Code:

;Author : Leprechaun
;Date: September 23rd 2009
;PROGRAM FUNCTION:light control for smart home

	list P=16F877a
	include "P16F877a.inc"
	__config 0x3D18

;***Declarations***
	CBLOCK 20h
	NumH
	NumL
	ENDC
;***

	ORG 0x000
	GOTO Init
	ORG 0x004

Init
							
	CLRF PORTA 			; Initialize PORTA by
	BSF STATUS, RP0 	; Select Bank 1
	MOVLW 0x06 			; Configure all pins
	MOVWF ADCON1 		; as digital inputs
	MOVLW 0xCF 			; Value used to initialize data direction
	MOVWF TRISA 		; Set RA<3:0> as inputs RA<5:4> as outputs TRISA<7:6>are always read as '0'.
	MOVLW b'10000101'	;
	MOVWF ADCON1		;

	BCF   STATUS,RP0	;
	MOVLW b'10000001'	;
	MOVWF ADCON0 		;

;Program Start:

Main
						; Read_ADC
	BSF ADCON0, GO_DONE ;initiate conversion
	BTFSC ADCON0, GO_DONE
	GOTO $-1 			;wait for ADC to finish

	MOVF ADRESH,W
	MOVWF NumH
	BSF STATUS,RP0
	MOVF ADRESL,W
	MOVWF NumL 			;return result in NumL and NumH
	BCF STATUS,RP0

	BTFSS NumH,1
	GOTO led_on
	BCF PORTA,4 		; turn 0ff the LED
	GOTO Main
led_on
	BSF PORTA,4			;turn on the LED

	GOTO Main

	END

lebohangmaphothoane · Oct 2, 2009

HI Birdman 0 i have been off for 5 days. im glad to see that code you have paste. i have tested it on MPLAB and i was happy with the results. below is my code which i tried to correct it before i got that one.

Code:

;PROGRAM FUNCTION:light control for smart home
;Written by: : Lebohang Maphothoane


	list		P=16F877a

    include    "P16F877a.inc"
                __config 0x3D18	
	;errorlevel -302, -207;suppress message 302 from the list
;Declarations:

        
NumH    equ     20h
NumL    equ     21h
     
      
	org		0x0000
	goto Start	

;Program Start:

Start
    call Init             ;sets the values of ADCON0 and ADCON1 
                                       ;initialize porta

Main           
            ; Read_ADC
    bsf	ADCON0, GO_DONE		;initiate conversion
    btfsc   ADCON0, GO_DONE
    goto    $-1			;wait for ADC to finish

    movf    ADRESH,W
    andlw   0x03
    movwf   NumH
    BANKSEL ADRESL
    movf    ADRESL,W
    BANKSEL  ADRESH
    movwf	NumL			;return result in NumL and NumH
    btfss NumH,1 
    goto led_on
    bcf PORTA,4       ; turn 0ff the LED
    goto Main

led_on   
    bsf PORTA,4       ;turn on the LED
    
    goto Main  


;Subroutines:
            ; initialize ADC
Init

    	   ; Initializing porta
    BCF STATUS, RP0 ;
    BCF STATUS, RP1 ; Bank0
    CLRF PORTA      ; Initialize PORTA by
            ; clearing output
                       ; data latches
    BSF STATUS, RP0 ; Select Bank 1
    MOVLW 0x06      ; Configure all pinss 
    MOVWF ADCON1    ; as digital inputs
    MOVLW 0xCF      ; Value used to
                     ; initialize data
                         ; direction
    MOVWF TRISA     ; Set RA<3:0> as inputs
                           ; RA<5:4> as outputs
                           ; TRISA<7:6>are always
                           ; read as '0'.

   	movlw   b'10000001';
	movwf   ADCON0 ;
             BANKSEL ADCON1
	movlw   b'10000101'
	movwf   ADCON1
	BANKSEL ADCON0
         
   
    return

    END

birdman0_o · Oct 2, 2009

Always nice to see closure

lebohangmaphothoane · Oct 3, 2009

hello birdman0, the project is not yet finished that was part one. The second part is that i have to use the motion sensor to detect movement. and the system should work like this: if there is movement then the LEDs must be on and if there is no movement, the LEDs must be off

birdman0_o · Oct 3, 2009

Thats easy enough, do you know how to set an input, and how to read it?
How does the motion sensor work, is it digital or analog?

lebohangmaphothoane · Oct 8, 2009

The motion sensor iam to use is called PIR325 Infrared Pyroelectric Sensor. i do not know how it operates, i searched and read about it but i do not get exactly what i want. i want to know whether there is output voltage i can read from the sensor if the sensor detects any moving object and how much is the output voltage if there is no movement.

birdman0_o · Oct 8, 2009

This link

Page 6, then just play around.

061012A · Oct 9, 2009

please,can u help me?i have a problem to sensor pir.i use sensor pir to receive signal to turn on_off bid cock electric.i don't understand this law.can u help me?if u can give me application circuit,it is useful for me

birdman0_o · Oct 9, 2009

What is a "bid cock electric"

P.S. next time start your own thread.

lebohangmaphothoane · Oct 9, 2009

Part three of the project is to use the stepping motor. im going to use the unipolar stepping motor to close or open the blinds(curtain window) depending on the light needed. i have to open the blinds using the motor, i have to turn the motor to a certain angle depending on how i want to open the blinds.

blueroomelectronics · Oct 9, 2009

birdman0_o said:
What is a "bid cock electric"

Whatever you do don't google it!

Light control system for smart home

Member

Active Member

Member

Member

Active Member

Well-Known Member

Member

Member

Active Member

Active Member

Member

Active Member

Member

Active Member

Member

Active Member

New Member

Active Member

Member

Well-Known Member

Similar threads

Privacy & Transparency

Privacy & Transparency