need help in converting code from c to vb6
c code
then i convert into vb6Quote:
unsigned char tabla1[] = {
0xB1, 0xB1, 0x73, 0x73, 0xE6, 0xE6,
0x5A, 0x5A, 0xAB, 0xAB, 0x47, 0x47,
0x8E, 0x8E, 0x0D, 0x0D, 0x1A, 0x1A,
0x34, 0x34, 0x68, 0x68, 0x0B, 0x0B
};
unsigned char tabla2[] = {
0x34, 0x62, 0x58, 0x92, 0x76, 0x13,
0x25, 0x97, 0x56, 0x28, 0x68, 0x13
};
VB Code:
Dim table1 As Variant Dim table2 As Variant table1 = Array(&HB1, &HB1, &H73, &H73, &HE6, &HE6, _ &H5A, &H5A, &HAB, &HAB, &H47, &H47, _ &H8E, &H8E, &HD, &HD, &H1A, &H1A, _ &H34, &H34, &H68, &H68, &HB, &HB) table2 = Array(&H34, &H62, &H58, &H92, &H76, &H13, _ &H25, &H97, &H56, &H28, &H68, &H13)
how about this?
Quote:
unsigned short gethalf(unsigned char *donde)
{
return ((donde[1]<<8)|donde[0]);
}
void sethalf(unsigned char *donde, unsigned short que)
{
donde[0] = que & 0xFF;
donde[1] = (que>>8) & 0xFF;
}
void inv(unsigned char *cadena)
{
int i;
unsigned char temp;
for(i=0; i<=10; i+=2)
{
temp = cadena[i];
cadena[i] = cadena[i+1];
cadena[i+1] = temp;
}
}
