activating i/o ports according to variable value

[Picman]

Hi all, I am trying to work out a way to generate a variable using a for .. to .. next loop and then send the i/o port (let's say b for arguments sake) corresponding to the numeric variable value high .. eg (for x=0 to 4: high portb.x: next x). Now this doesn't work one little bit but I was wondering if there was a way to do it ( different code ) same outcome....

Cheers

[JEC]

FOR x = 0 to 5
HIGH PORTB.0[x]
Pause 100
Next x

[Picman]

Thanks JEC .. gave it a whirl but got a comiling error...

[Bruce]

Did you declare X VAR BYTE? Should work fine otherwise. What error do you get?

[Charles Linquis]

Here is a program I posted some time ago. It can be used as an example to do what you are trying to do.

http://www.picbasic.co.uk/forum/show...highlight=port

[Picman]

Thanks Charles, I haven't had time to run a test but maybe I've spotted my problem whilst checking your code.

IF PortValue = 4 THEN
HSEROUT [10,13,"Port A4 is Open Collector!",13,10]
ENDIF
ADCON1 = $FF
TRISA.0(PortValue)= 0 'Make it an output
PauseUs 20
PORTA.0(PortValue) = 0 'Write a '0'
GOTO StateCheck
ENDIF


My understanding, according to the code, is that I should use round brackets not square brackets as I misunderstood? JEC's code to show???? I'll try and see if it works