Slow starting up

[lerameur]

I will post the code, because I think that might be issue here... I used another PIC from a previous project and its working ..

INCLUDE "modedefs.bas" 'Includes supoprt for PicBasic language

OSCCON = %01100000 '4 Mhz
DEFINE OSC 4
  
CMCON = 7 : ADCON1 = 7
DEFINE LCD_DREG PORTB ' Set LCD Data port
DEFINE LCD_DBIT 4 ' Set starting Data bit (0 or 4) if 4-bit bus
DEFINE LCD_RSREG PORTA ' Set LCD Register Select port
DEFINE LCD_RSBIT 2 ' Set LCD Register Select bit
DEFINE LCD_EREG PORTA ' Set LCD Enable port
DEFINE LCD_EBIT 3 ' Set LCD Enable bit
DEFINE LCD_BITS 4 ' Set LCD bus size (4 or 8 bits)
DEFINE LCD_LINES 2 ' Set number of lines on LCD
DEFINE LCD_COMMANDUS 2500
DEFINE LCD_DATAUS 250
DEFINE CHAR_PACING 2000
pause 1500


' Define ADCIN parameters
Define ADC_BITS 10 ' Set number of bits in result
Define ADC_CLOCK 3 ' Set clock source (3=rc)
Define ADC_SAMPLEUS 50 ' Set sampling time in uS

DEFINE CCP1_REG PORTB 
DEFINE CCP1_BIT 0 
ANSEL = %00000010 ' set   AN1  as analog, others to digital

ADCON1 = %10000010 ' Set PORTA analog for ten bit ADC
'ADCON0 = %00000001 ' Configure and turn on A/D Module

TRISB = %01000010
TRISA = %00000111

DutyCycle var word
Frequency  var word

Mainloop:

ADCON0.2 = 1			'Start Conversion
pause 20	
ADCIN 0, DutyCycle 'Read channel PORTA.0 Duty Cycle
ADCIN 1, Frequency 'Read channel PORTA.1 Frequency
 Frequency = Frequency + 245
 DutyCycle = DutyCycle/4
 
lcdout $FE,1, "DutyCycle: ", dec DutyCycle
lcdout $FE,$C0, "Frequency: ", dec Frequency
pause 100

HPWM 1,DutyCycle,Frequency 'channel, dutycycle, frequency
pause 20

goto Mainloop

END

[Archangel]

Solder-less breadboards have a ton of capacitance, between traces, probably need some on the crystal to get reliable OSC start . . . also add caps to LCD power pins. If you're using a resonator use HS not XT in your configs?

[lerameur]

I have a 1uF cap, and using 4mhz internal clocking.

[Acetronics2]

may preset the outputs levels ...

and explicitly write the chip config ...

[lerameur]

I have an earlier version of that program, ( and no I changed it since) and that version work, meaning does not have this problem.
I guess something is wrong with the code..

K

[Acetronics2]

Ok, Ken ...

as you always know where the problem is ... I wish you a nice day !

Alain

[lerameur]

''as you always know where the problem is ...'' where is that coming from ?!!

K

[Archangel]

Hi Ken,
Let's have a look at your config statements please . . . Are you using internal osc on the breadboard too?
Sometimes if PICs power up too slowly they flounder a bit before starting, also backfeeds make for strange behavior. . .

[AvionicsMaster1]

According to the PBP3 manual LCDOUT command: "A program should wait for up to half a second before sending the first command to
an LCD. It can take quite a while for an LCD to start up". I don't see the wait time in your code.

Is it possible to have full code, schematic and some part numbers of major components?

[Demon]

...I don't see the wait time in your code.

Is it possible to have full code, schematic and some part numbers of major components?

Pause 1500 after defines.

Maybe it should be moved after all registers are set?

Robert

[AvionicsMaster1]

I thought that pause should be in your main loop. You'd do all the stuff and get the data ready for transmit, pause 500 and then send it to the LCD. I assumed that time was needed to get the LCD to warm up once your main loop starts not simply after the chip is powered up.

I'd like to know chip as I'm wondering if OSCCON statement is correct.