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.
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;
Valora esta pregunta
0