Saving RFID Data

[skimask]

Sorry Skimask!
When I have 30 34 30 31 thats mean i need a modifier with 4 to have 04 and 01.
Regards Pesti

Yes, I know...and your answer awaits...

[Pesticida]

Hi,:-)

I Use this:

DEBUGIN [WAIT("E0"),dec4 Daten[14], dec4 Daten[13], dec4 Daten[12], dec4 Daten[11], dec4 Daten[10], dec4 Daten[9], dec4 Daten[8],dec4 Daten[7], dec4 Daten[6], dec4 Daten[5], dec4 Daten[4], dec4 Daten[3], dec4 Daten[2], dec4 Daten[1],dec4 Daten[0]]

While DEBUGIN more fast is,but i have now more bytes this is not what I want.

And that with Raw data what you have mean is working: :-)

HSEROUT ["E0",Daten[14], Daten[13],Daten[12], Daten[11], Daten[10], Daten[9], Daten[8], Daten[7], Daten[6], Daten[5], Daten[4], Daten[3], Daten[2], Daten[1],Daten[0],13,10]

What is if I use instead dec4 hex modifier,can I reduce my bytes!?

Thank you Skimask

Regards Pesti

[Pesticida]

This is the Solution :-)

DEBUGIN [WAIT("E0"),Daten[13],Daten[12],Daten[11], Daten[10], Daten[9],Daten[8], Daten[7],Daten[6], Daten[5], Daten[4], Daten[3], Daten[2], Daten[1], Daten[0]]
Pause 50
for N = 13 to 1 step - 2
Daten[N]= ((Daten[N]-$30) *10) + (Daten[N-1]-$30)
Pause 5
next N
High Led_Tag
Gosub ReadTime
Gosub Read_BCD

HSEROUT ["E0",hex2 Daten[13],hex2 Daten[11],hex2 Daten[9],hex2 Daten[7],hex2 Daten[5],hex2 Daten[3],hex2 Daten[1],13,10]

Regards Pesti

[skimask]

That wasn't quite the solution I was going for, but what you've got will work just fine.

One thiing to note...in the first line below:

Daten[N]= ((Daten[N]-$30) *10) + (Daten[N-1]-$30)

You might want to put in some code for checking an out-of-bounds condition.

[Pesticida]

Hi Skimask,

What you mean with out of bond!?

Did you mean when I receive a wrong character.

Regards Pesti

[skimask]

Hi Skimask,
What you mean with out of bond!?
Did you mean when I receive a wrong character.
Regards Pesti

What happens if you get a character that you weren't expecting? One with a value too low or too high...

For instance:
Daten[N]= ((Daten[N]-$30) *10) + (Daten[N-1]-$30)

What happens if the value in 'Daten[N]' or 'Daten[N-1] is $30? is $20? is $0?

[Pesticida]

Hi,

Ok this is a very good argument ! :-)

Is good that you have warnning me I forgot this :-(

I think that i should the Data discard !

Or I think wrong !?

Something like this:

Bad_Data var bit
Bad_Data = 0

Data_Check:
for N = 0 to 13
If Daten(N) < $30 then Bad_Data = 1 : Daten(N) = $30
Next N
Select case Bad_Data
case 0 ' it's all ok
for N = 13 to 1 step - 2
Daten[N]= ((Daten[N]-$30) *10) + (Daten[N-1]-$30)
Pause 5
next N
case 1 ' no good :-)
Bad_Data = 0
Goto Warning or something like that
end select

If I have Daten[N] = $30 this is not bad while $30-$30 = 0

Regards Pesti