Android Question convert code C to B4A

BluSky76 · Feb 15, 2018

Hello guys,
I have to convert this code to B4A.
----------------------------------------------------------------------------

B4X:

ushort Calc_CRC (uchar *Data, short Size)
{
ushort r=0, a, b;
short t;
for (t=0; t<Size; t++)
{
r+=(t*Data[t])+t;
}
a=r>>8; if (a==0x0D) a=0x0E;
b=r&0xFF; if (b==0x0D) b=0x0E;
a<<=8;
return a|b;
}

------------------------------------------------------------------------------
Thanks

DonManfred · Feb 15, 2018

please use CODE Tags when posting code

Star-Dust · Feb 15, 2018

I used the C language for 22 minutes and then abandoned it.
But I think it must be translated this way. The most expert will be able to correct.

B4X:

Sub Calc_CRC (Data () As Byte) As Int
    'ushort r=0, a, b;
    'short t;
    Dim r = 0, a, b As Int
   
    For t=0 To Data.Length-1
        'r+=(t*Data[t])+t;
        r = r + (t * Data(t))+t
    Next
   
    'a=r>>8; if (a==0x0D) a=0x0E;
    a=Bit.ShiftRight(r,8): If (a=0x0D) Then a=0x0e
    'b=r&0xFF; if (b==0x0D) b=0x0E;
    b=Bit.And(r,0xFF): If (b=0x0d) Then b=0x0e
    'a<<=8;
    a=Bit.ShiftLeft(a,8)
   
    'return a|b;
    Return Bit.Or(a,b)
End Sub

MarkusR · Feb 15, 2018

looks good, the only difference is now unsigned and signed

Star-Dust · Feb 15, 2018

MarkusR said:
unsigned and signed

Of course, but I do not think we can do this in B4X and maybe it's not necessary based on the algorithm.

If we understand what we need, we might understand better.

If I try to translate the algorithm and not the code ... it could be translated as well:

B4X:

Sub calculate_crc(Data () As Byte) As Long
    'ushort r=0, a, b;
    'short t;
    Dim r As Long = 0
    Dim a, b As Int
 
    For t=0 To Data.Length-1
        'r+=(t*Data[t])+t;
        r = r + (t * Data(t))+t
    Next
 
    'a=r>>8; if (a==0x0D) a=0x0E;
    a=r/256: If (a=13) Then a=14
    'b=r&0xFF; if (b==0x0D) b=0x0E;
    b=r Mod 256: If (b=13) Then b=14

    'a<<=8;
    'return a|b;
    Return ((a * 256)+b)
End Sub

MarkusR · Feb 15, 2018

i mean this Data(t) was before uchar 0-255 and now a byte -128 to 127

Erel · Feb 15, 2018

BluSky76 said:
I have to convert this code to B4A.

It will be easier if you post an input and output example.

Star-Dust said:
Of course, but I do not think we can do this in B4X and maybe it's not necessary based on the algorithm.

I'm sure that it can be done with B4X.

Erel · Feb 15, 2018

MarkusR said:
i mean this Data(t) was before uchar 0-255 and now a byte -128 to 127

In most cases it doesn't matter. The result of bitwise operations will be the same.

MarkusR · Feb 15, 2018

i mean this part, i guess it give different result. btw i saw that b4a understand UByte but i do not know which lib it is.
r = r + (t * 0)+t
r = r + (t * -128)+t

Star-Dust · Feb 15, 2018

Erel said:
I'm sure that it can be done with B4X.

I meant that I do not believe it was possible to declare UChar or UShort in B4X because they do not exist at the moment.

MarkusR said:
i mean this Data(t) was before uchar 0-255 and now a byte -128 to 127

This is easy to solve, just state Char. and then translate into value with Ascii ... see example

B4X:

Sub calculate_crc(Data () As Char) As Long
    'ushort r=0, a, b;
    'short t;
    Dim r As Long = 0
    Dim a, b As Int

    For t=0 To Data.Length-1
        'r+=(t*Data[t])+t;
        r = r + (t * Asc(Data(t)))+t
    Next

    'a=r>>8; if (a==0x0D) a=0x0E;
    a=r/256: If (a=13) Then a=14
    'b=r&0xFF; if (b==0x0D) b=0x0E;
    b=r Mod 256: If (b=13) Then b=14
 
    'a<<=8;
    'return a|b;
    Return ((a * 256)+b)
End Sub

also can write:

B4X:

Sub calculate_crc(Data () As Byte) As Long
    'ushort r=0, a, b;
    'short t;
    Dim r As Long = 0
    Dim Ap as long
    Dim a, b As Int

    For t=0 To Data.Length-1
        'r+=(t*Data[t])+t;
        AP = Data(t): If Ap <0 then Ap=Ap+256
        r = r + (t * Ap)+t
    Next

    'a=r>>8; if (a==0x0D) a=0x0E;
    a=r/256: If (a=13) Then a=14
    'b=r&0xFF; if (b==0x0D) b=0x0E;
    b=r Mod 256: If (b=13) Then b=14

    'a<<=8;
    'return a|b;
    Return ((a * 256)+b)
End Sub

For every problem there is a solution. Do not despair

Erel · Feb 15, 2018

Star-Dust said:
I meant that I do not believe it was possible to declare UChar or UShort in B4X because they do not exist at the moment.

That's true.

This line from your first post:

B4X:

r = r + (t * Data(t))+t

Should be:

B4X:

r = r + (t * Bit.And(0xFF, Data(t)))+t

Other than that it looks correct.

Star-Dust · Feb 15, 2018

To not know the C language, I did not do too much bad shape then.

Thanks Erel

BluSky76 · Feb 17, 2018

Hi Star-Dust,
but it does not work.

thank you

Star-Dust · Feb 18, 2018

I do not know. The translation seems correct, as I told you, not development in C.
Erel who also knows the C language has suggested only a change to the code.

Which of the 3 did you use?
The byte Array from where you get it. Are you sure it's not a string?

Maybe if you tell us this CRC what it refers to (containers, packages, shipping, tax codes) maybe we can find the original algorithm on the web.

Erel · Feb 18, 2018

As I previously wrote, you should provide an example with the input and output.

Android Question convert code C to B4A

BluSky76

Member

DonManfred

Expert

Star-Dust

Expert

MarkusR

Well-Known Member

Star-Dust

Expert

MarkusR

Well-Known Member

Erel

B4X founder

Erel

B4X founder

MarkusR

Well-Known Member

Star-Dust

Expert

Erel

B4X founder

Star-Dust

Expert

BluSky76

Member

Star-Dust

Expert

Erel

B4X founder

Similar Threads

Android Question convert code C to B4A

Member

Expert

Expert

Well-Known Member

Expert

Well-Known Member

B4X founder

B4X founder

Well-Known Member

Expert

B4X founder

Expert

Member

Expert

B4X founder

Similar Threads

Privacy & Transparency

Privacy & Transparency