[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; 


[Nikitiy_II]

Попробуйте с сервера данные отправлять с "ноликом" спереди, и точкой, в качестве разделителя

[Bargest]

Нужно убрать "Enter" на конце, и возможно дописать 0 в начале.

[Dark King]

Matnik!!!
За это можно и бан схлоптать!

[fofka]

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

Попробуйте с сервера данные отправлять с "ноликом" спереди, и точкой, в качестве разделителя

Nikitiy_II. Это сложнее. Я отправляю запрос, получаю ответ в таком примерно виде

PHP код:

#ADC,1,0293 


Где #ADC - выход с АЦП, 1 - первый канал, 0293 - сами данные.

[Nikitiy_II]

Тогда при раздилении переменной написать проверочку...

[fofka]

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

Тогда при раздилении переменной написать проверочку...

А пример можно? На си+ без проверки работает.

[Nikitiy_II]

ну, strtofloat в делфи достаточно капризная функция...

ну вообще как-то так:

PHP код:

s:=StringReplace(s,',','.',[rfReplaceAll, rfIgnoreCase]);//заменяем запятую точкой

 if s[1]='.' then Insert('0',s,1);//если первый символ ".", то спереди ставим 0 


[fofka]

Ну одну ошибку отыскал, при проверки входного сигнала брал еще запятую

PHP код:

s := copy(s,i+1,length(s)); 


Исправил на

PHP код:

s := copy(s,i+2,length(s)); 


Без модуля , при испралении данных в Edite меняется температура. Подключаю модуль, выдает ошибку.
В прицепе програмулина. Может подскажите?

Выдержка из мануала

PHP код:

Пример 1:
Получить результат преобразования АЦП с 3-го канала:
запрос: $KE,ADC,3
ответ: #ADC,3,0645
В данном примере на входе АЦП в момент подачи запроса было напряжение:
645 3.3 2.08 [ ] 


[fofka]

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

PHP код:

Vadc:=s/1023.0*3.3; 


а надо так:

PHP код:

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


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