If - then statements

[Russ Kincaid]

This is my second PIC program, and I am having a problem. The IF - THEN statements look OK to me, but the compiler doesn't like it.

'device: 16F627A
S3 var portb.1 ' S3 is the timer output
S4 var portb.2 ' S4 determins whether short time or
' long time is measured. 0=short, 1=long
T var byte

green var portb.4 'Drives the green LED (physical pin 10)
red var portb.5 'Drives the red led (physical pin 11)
input s3
input s4
high green : high red 'LEDs are initally off
loop:
if s3=1 then time
goto loop

time:
if S4=0 then t =500 : endif
if s4 =1 then t = 5000 : endif
pause t
if t = 500 and s3 = 1 then bad : endif
if t = 500 and s3 = 0 then good : endif
* if t = 5000 and s3 = 0 then bad : endif
if t = 5000 and s3 = 1 then good :endif
stop ' should never get here!

In the line with the *, the compiler says that "then" is missing. Why does it not see it? the compiler does not like any of the IF - THEN statements. I did not use "endif" originally but got an error " endif missing".

[Jerson]

Where are the definitions of good and bad? Perhaps the compiler cannot see them. Is this the entire code you posted or just a fragment?

Jerson

[Darrel Taylor]

Hi Russ,

When using Inline IF statements, you don't need the ENDIF.

It's either

if S4=0 then t =500

-or-

if S4=0 then
    t =500
endif

<br>

[Russ Kincaid]

Thanks, Darrel, I removed the endif and now the compiler is happy and so am I. I guess PicBasic Pro Demo does not support "else" which got me off track in the first place.

[Darrel Taylor]

I've never used the DEMO version of PicBasic Pro. So, I can't really say for sure, but, It doesn't seem like it would be much of a DEMO if it couldn't even do IF-ELSE-ENDIF's.

Maybe there was a problem there too.

This should work.

IF S4=0 then 
    t =500
ELSE
    t =5000
ENDIF

This will Not.

IF S4=0 then t =500 : ELSE t = 5000 : ENDIF

[Russ Kincaid]

Thanks, Darrel. I have another question: My timing was way off so I measured the frequency at clkout, it was 2.28 mHz instead of 1.0. I can adjust T to compensate, but is there a way to reset the oscillator?