Регистрация: Вт окт 03, 2006 02:19 Сообщения: 68 Откуда: Иркутск
|
можно, скриптом)
{преобразование БАЙТА данных в 8 битов - распаковка} DIM I AS INTEGER; DIM I1 AS INTEGER; IF IntVal == 0 THEN b0=0; LL_Act=0; L_Act=0; H_Act=0; HH_Act=0; b5=0; b6=0; b7=0; ELSE I=IntVal/2; IF I<>IntVal/2 THEN b0=1; ELSE b0=0; ENDIF; I1=I; I=I/2; IF ((I - I1/2)<>0) THEN LL_Act=1; ELSE LL_Act=0; ENDIF; I1=I; I=I/2; IF ((I - I1/2)<>0)THEN L_Act=1; ELSE L_Act=0; ENDIF; I1=I; I=I/2; IF ((I - I1/2)<>0) THEN H_Act=1; ELSE H_Act=0; ENDIF; I1=I; I=I/2; IF ((I - I1/2)<>0)THEN HH_Act=1; ELSE HH_Act=0; ENDIF; I1=I; I=I/2; IF ((I - I1/2)<>0)THEN b5=1; ELSE b5=0; ENDIF; I1=I; I=I/2; IF ((I - I1/2)<>0) THEN b6=1; ELSE b6=0; ENDIF; I1=I; I=I/2; IF ((I - I1/2)<>0) THEN b7=1; ELSE b7=0; ENDIF; ENDIF;
и в обратную сторону {преобразование 8 битов данных в БАЙТ} DIM I AS INTEGER; I = b7*2**7+b6*2**6+b5*2**5+HH_Act*2**4+H_Act*2**3+L_Act*2**2+LL_Act*2**1+b0*2*0; IntVar = I; RETURN IntVar; Язык не из супервизора но смысл понятен. в слове 2 байта как разделить должно быть понятно) если что формулу преобразования можно найти в инете
|
|