-
hex to bin converter
Code:
@ device XT_OSC,PROTECT_OFF,WDT_OFF,PWRT_ON,MCLR_ON,BOD_OFF,LVP_OFF,PROTECT_OFF,CPD_OFF
TRISB=%00000000
CMCON=7
B0 var byte
B1 var byte
FOR B1=0 to 1
LOOKUP B1, ["$3F $FF"],B0
' ==== B0 hex to bin convert here ====
PAUSE 200
PORTB.0=B0.7
Pulsout PORTB.1,1
PORTB.0=B0.6
Pulsout PORTB.1,1
PORTB.0=B0.5
Pulsout PORTB.1,1
PORTB.0=B0.4
Pulsout PORTB.1,1
PORTB.0=B0.3
Pulsout PORTB.1,1
PORTB.0=B0.2
Pulsout PORTB.1,1
PORTB.0=B0.1
Pulsout PORTB.1,1
PORTB.0=B0.0
Pulsout PORTB.1,1
LOW PORTB.1
NEXT B1
I need hex to bin convert data in my B0
please help :(
-
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