Slow starting up

[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

[Demon]

I can only assume he is referring to your comment that the problem must be in the code.

Robert

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

[Acetronics2]

Hi, the Holy Squad ...

I found this was overall a bit strange ...

so, rewrote the program and tested it with ISIS ... ( note it works fine NOW ... with ISIS !!! )

just change the DEC3 and DEC4 ( lcdout section ) into DEC ...

and, please, tell me your results ...

There's something I really do not understand here ...Alain

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2013 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 10/05/2013                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
INCLUDE "modedefs.bas" 'Includes supoprt for PicBasic language

OSCCON = %01101000 ' 16F 88 4 Mhz ... for those who didn't find it ... ( LOL )
DEFINE OSC 4
  

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
LCDOUT $FE,1


' 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

CMCON  = 7
CVRCON = 0  

ANSEL  = %00000011 ' set   AN0, AN1  as analog, others to digital
ADCON0 = %11000001 ' Configure and turn on A/D Module
ADCON1 = %10000000' Set PORTA analog for ten bit ADC

PORTA = 0
PORTB = 0
TRISB = %01000010
TRISA = %00000111

DutyCycle       var word
OldDutyCycle    Var Word
Frequency       var word
OldFrequency    VAR word

WHILE 1

'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
 
IF Frequency <> OldFrequency OR DutyCycle <> OldDutyCycle THEN
 
    lcdout $FE,2, "DutyCyc: ", dec3 DutyCycle/4
    lcdout $FE,$C0, "Frequen: ", dec4 Frequency+245
    pause 100
    
    HPWM 1,DutyCycle/4,Frequency+245 'channel, dutycycle, frequency
    OldFrequency = Frequency
    OldDutyCycle = DutyCycle
    pause 20
ENDIF

WEND

END