Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Разъяснение (пояснение) схемы ЗАПРОС-ОТВЕТ


Автор: Pakshin A. S. 30.8.2006, 09:26
Есть устройство, подключенное к COM порту компьютера.

Есть пример-табличка запроса, который читает три параметра с устройства:

Автор: Pakshin A. S. 30.8.2006, 09:29
И есть пример ответа устройства:

Добавлено @ 09:34 
Вопроса два, но по одной и той же теме, а именно по табличкам.

1) В каком виде мне отправлять запрос (в том же виде ко мне придет ответ), если я работаю с портом через CreateFile(). Что-то типа вот этого?
Код

...
s: string; // строка в файл-порт
...
s:=chr(01) + chr(03) + chr(00) + ... + chr(08);

Поясните это момент с видом строки...
2) Вот есть значения байтов в ответе. Они представлены в шестнадцатеричной системе. Как они переводятся в нормальное значение параметров? Код был бы идеален, хотя и от алгоритма не откажусь.. smile

Заранее громадное спасибо!

Автор: Yanis 30.8.2006, 10:02
Цитата(Pakshin A. S. @  30.8.2006,  10:29 Найти цитируемый пост)
Как они переводятся в нормальное значение параметров?

Вот это вот непонятно. Что значит нормальное представление? Десятичное?

И вообще вопросы какие то жидкие smile Проблема в чём? В формировании буфера на отправку в остройство?

Автор: Romikgy 30.8.2006, 10:36
имхо проще создать 2 массива байтов один для передачи , второй для приема, или даже сразу структуру сделать , и просто указатель на нее в ридфайл передавать

Автор: Pakshin A. S. 30.8.2006, 11:10
По переводу есть инфа:
Цитата

Старший бит Single-числа содержит знак числа, следующие ща ним восемь бит - порядок числа со смещением 127, следующие 23 разряда - мантисса числа со скрытой единицей в 24-ом разряде. Значение числа при этом:
Val = (-1)^SIGN x 2^(EXP-127) x (1.bitsmant)
При передаче Single-числа сначала передаются третий и четвертый байты (младшие wrod-слово), затем первый и второй байты.
Пример: ДЕсятичное число -35.46, в Single-формате равное (C20DD70Ah), передается в следующем порядке: D7h, 0Ah, C2h, 0Dh. Для восстановление числа можно использовать процедуру:
SIGN = (C2 and 80 <> 0) = 1;
EXP = (C20D and 7F80)/80 = 84 (hex) = 132 (dec);
2^(EXP-127) = 32 (dec);
1.bitsmant = (0D D7 OA or 800000)/800000 = 1.1081250;
Val = (-1) * 32 * 1.1081250 = -35.46000


Перед тем, как использовать сию процедуру следует переводить представления шестнадцатеричные в десятичные, а потом применять.. Так? Хотя прибор же не знает системы, поэтому он передаст просто word - целое число, значит просто так сразу применяем сию процедуру.. smile

Тогда определение знака SIGN понятно, но не понятно как из двук переменных типа word сунуть число C20D в EXP, т. е. как из двук переменных образовать число?



Цитата(Romikgy @  30.8.2006,  11:36 Найти цитируемый пост)
имхо проще создать 2 массива байтов один для передачи , второй для приема, или даже сразу структуру сделать , и просто указатель на нее в ридфайл передавать 

Код

 question = array [1..8] of word;
 answer = array [1..19] of word;

Получается так? Ну да... логично и проще... smile А в ячейки пишем циферки из таблички.. smile Спасибо за наводку! smile

Автор: Yanis 30.8.2006, 11:20
Цитата(Pakshin A. S. @  30.8.2006,  12:10 Найти цитируемый пост)
но не понятно как из двук переменных типа word сунуть число C20D в EXP

MakeLong???

Автор: Romikgy 30.8.2006, 12:06
Цитата(Pakshin A. S. @  30.8.2006,  10:10 Найти цитируемый пост)
question = array [1..8] of word;
 answer = array [1..19] of word;

только имхо лучше не word а byte юзать , а еще лучше структуру создать  smile 

Автор: Pakshin A. S. 30.8.2006, 12:08
Цитата(Romikgy @  30.8.2006,  13:06 Найти цитируемый пост)
а еще лучше структуру создать

Жирно будет.. smile

Вот тут балуюсь с процедурой перевода:
Код

(* Перевод нормализированного шестнадцатеричного числа в десятеричное *)
function Norm16To10(value: string): integer;
var
 i: integer;
begin
 Result:=0;
 for i:=Length(value) div 2 -1 downto 1 do
  begin
   Result:=Result + StrToInt(Copy(value, 1, 2)) * Round(exp(i*ln(16)));
   Delete(value, 1, 2)
  end;
 Result:=Result + StrToInt(value)
end; // end of Norm16To10()

(* Номрализация шестнадцатеричного числа *)
function Normalize16(value: string): string;
begin
 Result:=value;
 Result:=StringReplace(Result, '0', '00', [rfReplaceAll]);
 Result:=StringReplace(Result, '1', '01', [rfReplaceAll]);
 Result:=StringReplace(Result, '2', '02', [rfReplaceAll]);
 Result:=StringReplace(Result, '3', '03', [rfReplaceAll]);
 Result:=StringReplace(Result, '4', '04', [rfReplaceAll]);
 Result:=StringReplace(Result, '5', '05', [rfReplaceAll]);
 Result:=StringReplace(Result, '6', '06', [rfReplaceAll]);
 Result:=StringReplace(Result, '7', '07', [rfReplaceAll]);
 Result:=StringReplace(Result, '8', '08', [rfReplaceAll]);
 Result:=StringReplace(Result, '9', '09', [rfReplaceAll]);
 Result:=StringReplace(Result, 'A', '10', [rfReplaceAll]);
 Result:=StringReplace(Result, 'B', '11', [rfReplaceAll]);
 Result:=StringReplace(Result, 'C', '12', [rfReplaceAll]);
 Result:=StringReplace(Result, 'D', '13', [rfReplaceAll]);
 Result:=StringReplace(Result, 'E', '14', [rfReplaceAll]);
 Result:=StringReplace(Result, 'F', '15', [rfReplaceAll])
end; // end of Normalize16()

(* Перевод десятеричного в шеснадцатеричное число *)
function IntTo16(value: integer): string;
var
 buf: integer;

 procedure Dobuf;
 begin
  case buf of
   0..9: Result:= IntToStr(buf) + Result;
   10: Result:='A' + Result;
   11: Result:='B' + Result;
   12: Result:='C' + Result;
   13: Result:='D' + Result;
   14: Result:='E' + Result;
   15: Result:='F' + Result;
  end
 end;
begin
 Result:='';
 while value > 15 do
  begin
   buf:=value mod 16;
   value:=value div 16;
   Dobuf
  end;
 buf:=value;
 Dobuf
end; // end of IntTo16()

procedure TForm1.Button1Click(Sender: TObject);
var
 s1, s2: string;
begin
 s1:='C2';
 s2:='0D';

 ShowMessage(IntToStr(Round((Norm16To10(Normalize16('C20D')) and Norm16To10(Normalize16('7F80')))/80)))
end;


Выводит 211, а по промеру должно быть 132...  smile 

Автор: Romikgy 30.8.2006, 12:15
Pakshin A. S., на кой те тут строки?
Цитата(Pakshin A. S. @  30.8.2006,  11:08 Найти цитируемый пост)
Жирно будет.. smile

имхо самый раз

Автор: Pakshin A. S. 30.8.2006, 12:18
Цитата(Romikgy @  30.8.2006,  13:15 Найти цитируемый пост)
на кой те тут строки?

Люблю две вещи: наглядность и целые числа.. smile ПРосто нет книжки, где покапатсья с представлениями и возможностями работы в дельфи с шестнадцатеричной системой, а метод тыка ничего особо не дал.. smile


Цитата(Romikgy @  30.8.2006,  13:15 Найти цитируемый пост)
имхо самый раз 

Ну ладно... Уговорили.. smile 
А разве по сути, кроме более культурного представления в коде это ничего не меняет? smile 

Автор: Romikgy 30.8.2006, 12:21
Код

type T_Long = record
adress: byte;
func: byte;
len: byte;
par0: word;
par1,par2,par3: dword;
crc: word;
end; 
T_Small = record
adress: byte;
func: byte;
nach_adr,count,crc: word;
end;

типа такого smile

Добавлено @ 12:23 
Цитата(Pakshin A. S. @  30.8.2006,  11:18 Найти цитируемый пост)
кроме более культурного представления в коде это ничего не меняет?

удобство доступа 
Цитата(Pakshin A. S. @  30.8.2006,  11:18 Найти цитируемый пост)
и целые числа.

я их тоже люблю smile
Цитата(Pakshin A. S. @  30.8.2006,  11:18 Найти цитируемый пост)
в дельфи с шестнадцатеричной системой

Код

var i: integer;
begin
 i:=$34; // вот вводим 34 шестнацетиричное
end;


Добавлено @ 12:31 
юзая 
Код

function SwapW(x: word):word;
begin
    asm
      rol ax,8
      ret
    end;
end;
function SwapDW(x: dword):dword;
begin
    asm
      rol ax,8
      rol eax,16
      rol ax,8
      rol eax,16
      ret
    end;
end;

SwapW для доступа к nach_adr, count , par0
SwapDW -//- par1,par2,par3
это для нормального вида

Автор: Pakshin A. S. 30.8.2006, 12:38
А я думал, что
Код

 TParam0 = record
  P1, P2: byte;
 end;
 TParam = record
  P1, P2, P3, P4: byte;
 end;
 TAns = record
  Adr: byte;
  Func: byte;
  Buf: byte;
  Param0: TParam0;
  Param1, Param2, Param3: TParam;
  Sum: TParam0;
 end;

 smile 

Автор: Romikgy 30.8.2006, 12:45
Код

function Hex_to_single(x: dword): double;
var EXP,y: longint;
bit,z: double;
begin
EXP :=x and $7f800000;
EXP:=EXP shr 16;
EXP:=EXP div $80;
y:=   $800000;
z:=y+0.0;
y:= x and $ffffff;
bit := y /z;
bit:=bit+1.0;
if (x and $80000000)>0 then
Result:=(-1.0)*(EXP mod 100)*bit
else
Result:=(EXP mod 100)*bit;
end;


Добавлено @ 12:46 
Цитата(Pakshin A. S. @  30.8.2006,  11:38 Найти цитируемый пост)
А я думал, что

можно и так , ты ведь пишешь smile

Автор: Pakshin A. S. 30.8.2006, 12:52
Цитата(Romikgy @  30.8.2006,  13:45 Найти цитируемый пост)
function Hex_to_single(x: dword): double;

Так вызывать?
Код
ShowMessage(FloatToStr(Hex_to_single($C20DD70A)));

Кстати, работает только вот такой вид:
Код

function Hex_to_single(x: dword): double;
var EXP: longint;
bit: double;
begin

EXP:=((x and $7f800000) shr 16) mod $80;
bit := (x and $ffffff) / $800000;
bit:=bit+1.0;
if (x and $80000000)>0 then
Result:=(-1.0)*(EXP mod 100)*bit
else
Result:=(EXP mod 100)*bit
end;

Выдает нуль...  smile 




Я вот тут переписал не особо думая...
Код

 SIGN := ord(($C2 and 80 <> 0)); EX := ($C20D and $7F80)/80 ;
 EX := exp((EX-127)*ln(2)); bt := ($0DD70A or 800000)/800000;
 Val := exp(sign*ln(1)) * EX * bt;

Считает, но результат не верен.. smile А может пример не верен?

Добавлено @ 12:54 
Гы... Получил перный роезультат:
Код

 SIGN := ord(($C2 and 80 <> 0)); EX := ($C20D and $7F80)/$80 ;
 EX := exp((EX-127)*ln(2)); bt := ($0DD70A or $800000)/$800000;
 Val := exp(sign*ln(1)) * EX * bt;


На знак не обращаем внимание...

Автор: Romikgy 30.8.2006, 12:58
Код

function Hex_to_single(x: dword): double;
var EXP,y: longint;
bit,z: double;
begin
EXP :=x and $7f800000;
EXP:=EXP shr 16;
EXP:=EXP div $80;
y:=   $800000;
z:=y+0.0;
y:= x and $ffffff;
bit := y /z;
bit:=bit+1.0;
if (x and $80000000)>0 then
Result:=(-1.0)*(EXP mod 100)*bit
else
Result:=(EXP mod 100)*bit;
end;

переработал smile

Автор: Pakshin A. S. 30.8.2006, 13:09
 smile 

Теперь мучаюсь с MakeLong... Как я понял, эта фугкция делает из чисел C2 и 0D число С20D... Так? А как четыре числа слить в одно? smile

Автор: Romikgy 30.8.2006, 13:13
Код

function sl4_1(x1: byte;x2: byte;x3: byte;x4: byte): dword;
begin
Result:=0;
Result:=Result+x1;
Result:=Result shl 8;
Result:=Result+x2;
Result:=Result shl 8;
Result:=Result+x3;
Result:=Result shl 8;
Result:=Result+x4;

end;

Автор: Pakshin A. S. 30.8.2006, 13:44
Спасибо за неоценимую помощь и науку!!!  smile

Добавлено @ 13:53 
 smile 
Число 4443DCCD подал в функцию... Ответ должен быть 783,45.. А получается 55... Что-то не то... smile
Это пример из таблички второй, где описывается пример ответа...

Добавлено @ 13:56 
А вот тупая переписка процедуры дала верный результат... 
Код

 SIGN := ord(($44 and 80 <> 0)); EX := ($4443 and $7F80)/$80 ;
 EX := exp((EX-127)*ln(2)); bt := ($43DCCD or $800000)/$800000;
 Val := exp(sign*ln(1)) * EX * bt;

Автор: Romikgy 30.8.2006, 14:03
значит не этот алгоритм надо юзать
Цитата(Pakshin A. S. @  30.8.2006,  10:10 Найти цитируемый пост)

Старший бит Single-числа содержит знак числа, следующие ща ним восемь бит - порядок числа со смещением 127, следующие 23 разряда - мантисса числа со скрытой единицей в 24-ом разряде. Значение числа при этом:
Val = (-1)^SIGN x 2^(EXP-127) x (1.bitsmant)
При передаче Single-числа сначала передаются третий и четвертый байты (младшие wrod-слово), затем первый и второй байты.
Пример: ДЕсятичное число -35.46, в Single-формате равное (C20DD70Ah), передается в следующем порядке: D7h, 0Ah, C2h, 0Dh. Для восстановление числа можно использовать процедуру:
SIGN = (C2 and 80 <> 0) = 1;
EXP = (C20D and 7F80)/80 = 84 (hex) = 132 (dec);
2^(EXP-127) = 32 (dec);
1.bitsmant = (0D D7 OA or 800000)/800000 = 1.1081250;
Val = (-1) * 32 * 1.1081250 = -35.46000

а что то другое

Добавлено @ 14:09 
Цитата(Romikgy @  30.8.2006,  13:03 Найти цитируемый пост)
2^(EXP-127) = 32 (dec);

это я не заметил smile
щаз

Автор: Pakshin A. S. 30.8.2006, 14:12
Код

function GetValue(p1, p2, p3, p4: byte): real;
var
 EX, BIT: real;
 buf1, buf2: dword;
begin
 buf1:=$4086{p1 shl 8 + p2};
 buf2:=$866666{p2 shl 8 + p3 shl 8 + p4};
 EX := (buf1 and $7F80)/$80 ;
 EX := exp((EX-127)*ln(2));
 BIT := (buf2 or $800000)/$800000;
 Result:= EX * BIT;
 if (p1 and 80) <> 0
  then
   Result:=-Result
end;

Тут не верно складываются числа... И знак не определяется...  smile 

Автор: Romikgy 30.8.2006, 14:14
во терь нормально smile
Код

function Hex_to_single(x: dword): double;
var EX,y: longint;
bit,z: double;
begin
EX :=x and $7f800000;
EX:=EX shr 16;
EX:=EX div $80;
y:=   $800000;
z:=y+0.0;
y:= x and $ffffff;
bit := y /z;
bit:=bit+1.0;
z:=EX-127;
z:=z*ln(2);
z:=Exp(z);
if (x and $80000000)>0 then
Result:=(-1.0)*(z)*bit
else
Result:=(z)*bit;
end;


Добавлено @ 14:19 
Цитата(Pakshin A. S. @  30.8.2006,  13:12 Найти цитируемый пост)
Тут не верно складываются числа... И знак не определяется... 

это почему?
ды знака там нет значит +

Автор: Romikgy 30.8.2006, 14:30
Код

function Hex_to_single(x: dword): double;
var EX,y: longint;
bit,z: double;
begin
EX :=x and $7f800000;
EX:=EX shr 16;
EX:=EX div $80;
y:=   $800000;
z:=y+0.0;
y:= x and $7fffff;

bit := y /z;
bit:=bit+1.0;
z:=EX-127;
z:=z*ln(2);
z:=Exp(z);
if (x and $80000000)>0 then
Result:=(-1.0)*(z)*bit
else
Result:=(z)*bit;
end;

все 3 параметра обрабатывает нормально smile

Добавлено @ 14:35 
Код

function Hex_to_single(x: dword): double;
var EX,y: longint;
bit,z: double;
begin
EX :=x and $7f800000;
EX:=EX shr 16;
EX:=EX div $80;
y:=   $800000;
z:=y+0.0;
y:= x and $7fffff;
bit := y /z;
bit:=bit+1.0;
EX:=EX-127;
EX:=1 shl EX;
if (x and $80000000)>0 then
Result:=(-1.0)*(EX)*bit
else
Result:=(EX)*bit;
end;

меньше работы с дробным число smile

Автор: Pakshin A. S. 30.8.2006, 21:45
Угу... smile

Я тут еще и своё доработал:
Код

function GetValue(p1, p2, p3, p4: byte): real;
var
 EX, BIT: real;
 buf1, buf2: dword;
begin
 buf1:=(0 + p1) shl 8 + p2;
 buf2:=((0 + p2) shl 8 + p3) shl 8 + p4;
 EX := (buf1 and $7F80)/$80 ;
 EX := exp((EX-127)*ln(2));
 BIT := (buf2 or $800000)/$800000;
 Result:= EX * BIT;
 if (p1 and $80) <> 0
  then
   Result:=-Result
end;

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)