Delphi - graficas/tablas en delphi con tchar

   
Vista:

graficas/tablas en delphi con tchar

Publicado por Luis (2 intervenciones) el 04/05/2015 19:30:43
Hola

necesito ayuda por favor

Mi problema es el siguiente:

hace poco me hice una aplicación para calcular la relación entre la variable medida de un transmisor de cualquier tipo
presión, nivel, flujo. temp etc. y su salida de 4 a 20 miliamperes por ejemplo si el transmisor es de -150 a 150 con 4 mA tendría -150, con 8 -75, 12 mA 0 con 16 75 y con 20 150 bar, psi o lo que sea y funciona también al inverso, con -150 tendria una salida de 4 mA. Todo eso funciona pero quiero crear una grafica con tchar con el formato de esas imagenes adjuntas y que vaya desde 4, 6, 8, hasta 20 ma.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
for i:=4 to 20 do
 begin
 
  BIAS:=4;
  Amp:=16;
    span2:=0;
   Span2 := strtofloat(edspan2.Text)-strtofloat(edinf2.Text);
  producto := strtofloat(edinf2.text)+(span2)/(Amp)*((i)-(BIAS));
linea:=format('%6s',[inttostr(i)])+ 'mA'+
'='+Format ('%6s',[floattostr(producto)])+format('%6s',[unid]);
lbresultado.items.add (linea);
cal.Visible:=false;
 end
  end
   else
 if (cbop.ItemIndex = 1) and(cbunit.ItemIndex >= 0)then
    begin
for i:=3 to 15 do
 begin
 
 
  BIAS:=3;
  Amp:=12;
    span2:=0;
   Span2 := strtofloat(edspan2.Text)-strtofloat(edinf2.Text);
  producto := strtofloat(edinf2.text)+(span2)/(Amp)*((i)-(BIAS));
 
linea:=format('%6s',[inttostr(i)])+ 'mA'+
'='+Format ('%6s',[floattostr(producto)])+format('%6s',[unid]);
lbresultado.items.add (linea);
cal.Visible:=false;
 
  end;
 end;
       end;
 end;

tabla
untitled
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder