[fofka]

Добрый вечер всем. Вопрос по формуле.

PHP код:

var
          s : string;
          i : integer;
          f, Vadc : Double;
   begin
{процедура}
 Vadc:=f/1023.0*3.3; 


Получаю ошибку.

PHP код:

Unit1.pas(185): Incompatible types: 'String' and 'Extended' 


Как заставить корректно работать формулу?
Это "продолжение" темы http://www.delphisources.ru/forum/sh...ad.php?t=19573

[Nikitiy_II]

А дальше код где???

[fofka]

Полный код процедуры, где ошибка.

PHP код:

procedure TForm1.Timer1Timer(Sender: TObject);
 var
    s: string;
    i: integer;
    f, RT, RM, Vadc : Double;
 
begin
{ Vadc - напряжение АЦП в вольтах к которому подключен датчик
  Vpit - источник постоянного опорного напряжения
  K - коэффициент температурной чуствительности, равен 3988
  Rm - сопротивление резистора в омах ( схема и формула [url]http://www.kernelchip.ru/KTS-1.php[/url])
  Ro - сопротивление датчика при 25 oC, равно3 кОм
  RT = (Rm*Vadc)/(Vpit - Vadc);
 Так как модуль запитан через свой стабилизатор 3.3v, Vpit = 3.3v
}
 RM :=5060.0;///Сопротивление резистора в омах

CS1.Socket.SendText('$KE,ADC,1'#13#10);
 Memo1.Text:=s;
  {
 s := edit2.Text;
 }
 if s[1] = '#' then begin
 if copy(s,2,3) = 'ADC' then begin
 i := 5;
 while s[i] <> ',' do begin
 if i > 10 then break; // (*) if i > 10 then break;
 inc(i);
 end;
      inc(i);
      s := copy(s,i+1,length(s));
      Vadc:=s/1023.0*3.3;///расчет напряжения АЦП в вольтах
      RT:= (Rm*Vadc)/(3.3 - Vadc);///расчет сопротивления терморезистора в омах
      f := (3988.0/({log}(RT/3000.0) + 3988.0/298.0))-273;///Расчет температуры в градусах цельсия
      Form1.Edit1.Text := FormatFloat('0.0000 C"',f);
      end;
    end;
   end; 


[Nikitiy_II]

PHP код:

Vadc:=s/1023.0*3.3; 


а надо так:

PHP код:

Vadc:=strtofloat(s)/1023.0*3.3; 


[fofka]

Сделал как посоветовали. Выдает ошибку.

[fofka]

PHP код:

procedure TForm1.CS1Read(Sender: TObject;Socket: TCustomWinSocket);
 begin
  s := Socket.ReceiveText;
end; 


[fofka]

Сообщение от Nikitiy_II

PHP код:

Vadc:=s/1023.0*3.3; 


а надо так:

PHP код:

Vadc:=strtofloat(s)/1023.0*3.3; 


Спасибо за подсказку помогло. Был не прав, работает У меня ошибка.....

[fofka]

Внимательно еще раз прочитав мануал отыскал такой момент

PHP код:

Любая KE команда, отсылаемая модулю, должна начинаться с символов ‘$KE’. 
Также все команды должны заканчиваться символом возврата каретки <CR> 
и символом перехода на новую строку <LF> (в шестнадцатеричном формате 
эти символы имеют коды 0x0D и 0x0A соответственно). 
Ответы модуля на команды, а также отдельные информационные блоки 
выдаваемые модулем всегда начинаются с символа ‘#’ (шестнадцатеричный код 0x23) 
и заканчиваются символами возврата каретки <CR> и перехода на новую строку <LF>. 


Получается что входной сигнал для программы у меня

PHP код:

#ADC,1,0293#13#10 


потому и ошибка. А как мне от них (#13#10) избавится?