Using 4 input to control 10 output

[cibotsan]

Dear all.

first off all i would like to apologise my bad english.
Iam been working a robot project control via serial com PC using 4 channel RF( thanks to melaine that give source code on this forum). Transmitter section, iam using PIC 16F626 and to control 4 (led) output RA.0 to RA.3 that i connected to Transmitter module (4 ch).
On Reciever section, Reciever module is connected to PIC16F877 RB.0 to RB.3.
10 Output(led) is connected to RA.0 to RC.2
The problem is how to control the 10 LED individually using only 4 input?
i hope that this imformation can inderstand my project situation
regards

cibotsan

[mister_e]

The result will be based on this table



state of inputs state of outputs
============== ================
0000 0000000001
0001 0000000010
0010 0000000100
0011 0000001000
0100 0000010000
0101 0000100000
etc

simple code here...

ADCON1=7 ;disable ADC


TRISB=$FF
TRISA=0
TRISC=0


InputBCD VAR PORTB
Out1_8 VAR PORTA ;first 5 LEDs
Out9_10 VAR PORTC ;last 5 LEDs
GetInput VAR BYTE
BCDToDEC VAR BYTE

Out1_5=0
Out6_10=0

start:
Getinput=InputBCD

Select case Getinput
Case is<=5
Out6_10=0
BCDToDEC=dcd Getinput
Out1_5= BCDToDEC
Case is>=6
Out1_5=0
BCDToDEC=dcd (GetInput-6)
Out6_10= BCDToDEC
End Select
goto start


it's suppose to work. Try and post reply on this. There's several different way to do this

[cibotsan]

Thanks steve .
any how i try it but ist wont work.for you imformation.when i run it all output is on all while input = 0.When i set any input = 1 , the only ouput Rc0 =0 below is my code .

ADCON1=7 ;disable ADC


TRISB=$FF
TRISA=0
TRISC=0


InputBCD VAR PORTB
Out1_5 VAR PORTA.0 ;first 5 LEDs
Out2_5 VAR PORTA.1 ;first 5 LEDs
Out3_5 VAR PORTA.2 ;first 5 LEDs
Out4_5 VAR PORTA.3 ;first 5 LEDs
Out5_5 VAR PORTA.4 ;first 5 LEDs
Out6_10 VAR PORTC.0 ;last 5 LEDs
Out7_10 VAR PORTC.1 ;last 5 LEDs
Out8_10 VAR PORTC.2 ;last 5 LEDs
Out9_10 VAR PORTC.3 ;last 5 LEDs
Out10_10 VAR PORTC.4 ;last 5 LEDs

GetInput VAR BYTE
BCDToDEC VAR BYTE

Out1_5=0
Out6_10=0

start:
Getinput=InputBCD

Select case Getinput
Case is<=5
Out6_10=0
BCDToDEC=dcd Getinput
Out1_5= BCDToDEC
Case is>=6
Out1_5=0
BCDToDEC=dcd (GetInput-6)
Out6_10= BCDToDEC
End Select
goto start

[mister_e]

"Thanks steve .
any how i try it but ist wont work.for you imformation.when i run it all output is on all while input = 0.When i set any input = 1 , the only ouput Rc0 =0 below is my code ."


can you provide the output table from transmitter you have and receiver you want?

maybe

transmitter:
1111 = receiver out1
1110 = receiver out2
1101 = receiver out3
1100 = receiver out4
1011 = receiver out5
.....

let us know

[cibotsan]

thanks again steve
okey whats i need is like this

state of inputs state of outputs
============== ================
0000 all output =0
0001 out1 =1 out3=1
0010 out2 = 1 out 4 =1
0100 out1=1 out4=1
1000 out2=1 out3=1
0011 out5=1
0110 out6=1
1100 out7=1
0111 out8=1
1110 out9=1
1111 out10=1

its is possible to change from out put to a label? because i will use to control a different output devices for example RC servo, DC motor ,relay etc?

[mister_e]

"its is possible to change from out put to a label? because i will use to control a different output devices for example RC servo, DC motor ,relay etc?"

sure....



ADCON1=7 ;disable ADC


TRISB=$FF
TRISA=0
TRISC=0


Out1 VAR PORTA.0
Out2 VAR PORTA.1
Out3 VAR PORTA.2
Out4 VAR PORTA.3
Out5 VAR PORTA.4
Out6 VAR PORTC.0
Out7 VAR PORTC.1
Out8 VAR PORTC.2
Out9 VAR PORTC.3
Out10 VAR PORTC.4
Rinput VAR PORTB

GetInput VAR BYTE
Gosub ResetOutputPort
start:

GetInput=Rinput & $0F ;will mask the MSB bits of PORTB

select case Getinput
Case 0
Gosub ResetOutputPort
Case 1
Out1=1
Out3=1
Case 2
Out2=1
Out4=1
Case 3
Out5=1
Case 4
Out1=1
Out4=1
Case 6
Out6=1
Case 7
Out8=1
Case 8
Out2=1
Out3=1
Case 12
Out7=1
Case 14
Out9=1
Case 15
Out10=1
End Select
goto start


ResetOutputPort:
PORTA=0
PORTC=0
return



now it's really suppose to match with your specific need.

NEXT!!!

[cibotsan]

Yes!!! its working, thanks again steve you safe my robot life.can i buy you a drink?If i have further problem i will online again.

[mister_e]

hi cibotsan,
Great to know that everything work for you !!!

>can i buy you a drink?

hehe nothing exepensive.... 50 year age PORTO will do the job :)

best regards