I need help with 16F877A

[valerij]

I need help with PIC 16F877A
I am new to PIC BASIC.
In attachment is my Flow Chart and Conections.
Thanks
Val
[email protected]

[navaismo]

Anything else????

[skimask]

No kidding...
I'll write the whole program, put it on a circuit board, test it, and deliver it to your house for $1,000 -- complete with a free pizza.

NOT!!!!

Why not show us an attempt...no matter how feeble...then maybe, just maybe, somebody around here will help you...myself included.

Until you've done some of the legwork, forget it...
JDG

[valerij]

I try to wrote code and for sure do a lot of mistakes.
Can you check code in Att. and help me.
Thanks

[sayzer]

Let me post it here for you.

'****************************************************************
'*  Name    : TEST_Example.BAS                                  *
'*  Author  : VAL                                               *
'*  Notice  : Copyright (c) 2006                                *
'*          : All Rights Reserved                               *
'*  Date    : 11/27/2006                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
 program TEST_Example

'Project name:
'    TEST_Example
' * Description:
'    This project simulate real environment and test PLC response
' Configuration:
'    MCU:   PIC16F877A
'   Oscillator:  HS, 8 MHz
'   Ext. Modules:  ADC(MCP3204),Switches,LED Diodes
' * Notes:
' ADC on PORTC
' 2x16 LDC on PORTB (4-bit)
' LED Diodes on PORTA
' Switches on PORTD and PORTE
' 1000=1 second
PBP -p16F877A TEST_Example

 DEFINE OSC 8
 DEFINE ADCON1=7
 DEFINE intcon=0
 DEFINE LCD_DREG  PORTB
 DEFINE LCD_DBIT     0
 DEFINE LCD_RSREG    PORTB
 DEFINE LCD_RSBIT    4
 DEFINE LCD_EREG     PORTB
 DEFINE LCD_EBIT     5
 DEFINE LCD_BITS     4
 DEFINE LCD_LINES    2
 DEFINE LCD_COMMANDUS  2000
 DEFINE LCD_DATAUS   50
 
 TRISB=0
 LCD_Init(PORTB)
 LCDOut $FE,$80+6,"TEST"  'I want to show TEST in the midle of first line on the display
 LCDOut $FE,$0C+6,"START" 'I want to show START in the midle of second line 
 
 'Here I need code for ADC connected to PORTC
 'CLK(SCK) to PORTC.3
 'Dout(MISO) to PORTC.5
 'Din(MOSI) to PORTC.4
 'ADC is MCP3204 and I want To use CH0 and CH1
 'CH0 will be var MODV and CH1 will be var CURRV
 'Range is From 5 V to 0 V
 
 TRISA=0
 AA VAR PORTA.0       'PORTA is Output
 BB VAR PORTA.1
 CC VAR PORTA.2           'I connect diodes(AA,BB,CC,MM,NN,MDEF) to specific Pins
 MM VAR PORTA.3
 NN VAR PORTA.4
 MDEF VAR PORTA.5
 
 TRISD=1
 ALARM VAR PORTD.0            'PORTD is Input
 HEAT VAR PORTD.1
 INRANGE VAR PORTD.2     'Togle switches are connected to specific Pins
 DEFROST VAR PORTD.3
 EVAL VAR PORTD.4
 CF VAR PORTD.5             'Togle switch is RELAY that is ON or OFF
 SSV VAR PORTD.6
 COOL VAR PORTD.7   'ON=1 and OFF=0
 
 TRISE=1
 RET VAR PORTE.0         'PORTE same like PORTD
 CM VAR PORTE.1        
 
 
 main:
 
 ALARM1=ALARM             'Read status of PINA.0 (Can be GND or Vcc-0 or 1)
 IF ALARM1=0 Then        'If ALARM1=0(Pin ALARM is GND) I want to show this on LCD
 LCDOut $FE,$80+6,"TEST"
 LCDOut $FE,$0C+6,"FAIL 1"
 Else
 
 LCDOut $FE,$80+6,"TEST"
 LCDOut $FE,$0C+6,"PASS 1"
 High CC     'Set CC to 1(Vcc) and rest to 0(GND)
 Low BB
 Low AA
 Low MM
 Low NN
 Low MDEF
 Pause 360000  'Keep that setings for 6 min
 
 
 
 Count CF,360000,CF1      'During this 6 min read status of CF and SSV
 Count SSV,360000,SSV1
  
 IF CF1<2 OR SSV<2 Then    'During this 6 MIN check does CF AND SSV change
 LCDOut $FE,$80+6,"TEST"    'they status min 2 times
 LCDOut $FE,$0C+6,"FAIL 2"
 Else
 
 LCDOut $FE,$80+6,"TEST"
 LCDOut $FE,$0C+6,"PASS 2"
 ALARM1=ALARM
 HEAT1=HEAT
 INRANGE1=INRANGE        'Read status of inputs
 DEFROST1=DEFROST
 EVAL1=EVAL
 COOL1=COOL             'I also need to read value of ANALOG INPUTS
 RET1=RET      'CURRV must be betwen 2.5 V and 5 V
 CM1=CM
 
 IF EVAL1=0 OR CM1=0 OR INRANGE1=0 OR ALARM1=0 OR RET1=1 OR DEFROST1=1 OR HEAT1=1 OR COOL1=0 OR MODV1=0 OR CURRV1<2.5 Then
  
 LCDOut $FE,$80+6,"TEST"
 LCDOut $FE,$0C+6,"FAIL 3"
 Else
 
 LCDOut $FE,$80+6,"TEST"
 LCDOut $FE,$0C+6,"PASS 3"
 
 High CC    'Change status of output and keep that status 2 min
 High BB
 Low AA
 Low MM
 Low NN
 Low MDEF
 Pause 120000
 
 Count CF,120000,CF1
 IF CF1<2 Then
 
 LCDOut $FE,$80+6,"TEST"
 LCDOut $FE,$0C+6,"FAIL 4"
 Else
 
 LCDOut $FE,$80+6,"TEST"
 LCDOut $FE,$0C+6,"PASS 4"
 
 IF EVAL1=0 OR INRANGE1=0 OR CM1=0 OR MODV1>0 OR HEAT1=1 OR SSV1=1 OR DEFROST1=1 OR RET1=1 OR ALARM1=0 OR COOL1=1 OR CURRV1<2.5 Then
 LCDOut $FE,$80+6,"TEST"
 LCDOut $FE,$0C+6,"FAIL 5"
 Else
 
 LCDOut $FE,$80+6,"TEST"
 LCDOut $FE,$0C+6,"PASS 5"
 
 High AA
 LOW BB
 HIGH CC
 LOW MM
 LOW NN
 LOW MDEF
 PAUSE 180000
 
 COUNT IR,180000,IR1
 IF IR1=0 THEN
 LCDOut $FE,$80+6,"TEST"
 LCDOut $FE,$0C+6,"FAIL 6"
 ELSE
 
 LCDOut $FE,$80+6,"TEST"
 LCDOut $FE,$0C+6,"PASS 6"
 
 IF EVAL1=0 OR HEAT1=0 OR CF1=1 OR CM=1 OR SSV1=1 OR DEFROST1=1 OR ALARM1=0 OR RET1=1 or COOL=1 OR HEAT1=0 OR MODV1>0 OR 0.9<CURRV1<1.8 THEN
  LCDOut $FE,$80+6,"TEST"
 LCDOut $FE,$0C+6,"FAIL 7"
 ELSE
 
 LCDOut $FE,$80+6,"TEST"
 LCDOut $FE,$0C+6,"PASS 7" 
  
  LOW AA
  HIGH BB
  HIGH CC
  LOW MM
  LOW NN
  LOW MDEF
  PAUSE 30000
  
  LOW AA
  HIGH BB
  HIGH CC
  HIGH MM
  LOW NN
  LOW MDEF
  PAUSE 15000
  
  LOW AA
  HIGH BB
  HIGH CC
  LOW MM
  HIGH NN
  LOW MDEF
  PAUSE 1000
  
  LOW AA
  HIGH BB
  HIGH CC
  LOW MM
  LOW NN
  LOW MDEF
  PAUSE 120000
  
  IF EVAL1=0 OR CM1=0 OR SSV1=0 OR HEAT1=1 OR DEFROST1=1 OR ALARM1=0 OR RET1=1 OR COOL=0 OR MODV1<2.5 OR CURRV1<2.5 THEN
  LCDOut $FE,$80+6,"TEST"
 LCDOut $FE,$0C+6,"FAIL 8"
 ELSE                  
   
 LCDOut $FE,$80+6,"TEST"
 LCDOut $FE,$0C+6,"PASS 8"
 
 LOW AA
 HIGH BB
 HIGH CC
 HIGH MM
 HIGH NN
 LOW MDEF
 PAUSE 15000
 
 LOW AA
 HIGH BB
 HIGH CC
 LOW MM
 HIGH NN
 LOW MDEF
 PAUSE 1000
 
 LOW AA
 HIGH BB
 HIGH CC
 LOW MM
 LOW NN
 LOW MDEF
 PAUSE 30000
 
 LOW AA
 HIGH BB
 HIGH CC
 LOW MM
 LOW NN
 HIGH MDEF
 PAUSE 1000
 
 LOW AA
 HIGH BB
 HIGH CC
 LOW MM
 LOW NN
 LOW MDEF
 PAUSE 60000
 
 IF DEFROST1=0 OR HEAT1=0 OR ALARM1=0 OR MODV1>0 THEN
  LCDOut $FE,$80+6,"TEST"
 LCDOut $FE,$0C+6,"FAIL 9"
 ELSE   
  LCDOut $FE,1,"I AM GOOD"
 LCDOut $FE,$0C,"TO GO"
 
 Endif
  ENDIF
   ENDIF
    ENDIF
     ENDIF
      ENDIF
       ENDIF
        ENDIF
         ENDIF
   END

I just posted your code.
I did not change anything in it.


--------------------