Hello Darkman,
I don't understand what you want... but maybe using the bitshift command is what you are looking for....
Data var byte;
counter var byte
For counter=0 to 7
PORTB.0=Data.7 'assigns PORTB.0 the Bit Data.7 has (your part of the program).
Pulsout PORTB.1,1 'your part of the program...
Data=Data << 1 'shift left
Next counter
Unfortunately I really do not know what you are trying to accomplish... You assign Portb.0 a bit, but transmit out a pulse on Portb.1 (which is a different Port) Yet you never change the value of this POrtb.1... It is always the same.
Dwayne
Last edited by Dwayne; - 27th April 2005 at 14:50.
Ability to Fly:
Hurling yourself towards the ground, and missing.
Engineers that Contribute to flying:
Both optimists and pessimists contribute to the society. The optimist invents the aeroplane, the pessimist the parachute
Pilots that are Flying:
Those who know their limitations, and respect the green side of the grass...
Bookmarks