Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)
-   -   Crear grafico con tchart (https://www.clubdelphi.com/foros/showthread.php?t=60963)

Elite237 20-10-2008 22:20:55

Crear grafico con tchart
 
Hola, mi duda es la siguiente: como puedo generar una grafica a partir de valores que tengo en un StringGrid.

Las series que quiero que aparezcan se deben de generar en tiempo de ejecucion, ya que es un cuestionario lo que hize. El cuestionario consta de secciones, por ejemplo imagen...dentro de esas secciones tengo preguntas y cada pregunta tiene de 2 a 4 respuestas. Lo que quiero hacer es que en las series aparezca las secciones..por ejemplo..imagen personal,servicio al cliente y resultados(cabe señalar que las secciones se generan dependiendo del cuestionario, y puedo tener de 3 a 6 secciones por evaluacion).En mi grid muestro los datos de la siguiente manera:

(seccion)Imagen Personal respuesta
como es su vestimenta en la oficina? 2
como es su peinado, pantalon a la oficina? 3

(seccion)servicio al cliente
como trata al cliente interno? 5
como trata al cliente 4

(seccion) resultados
cuanto obtuvo de atencion al cliente 2

el numero de las respuestas que muestro son los identificadores de cada una, por ejemplo:3-muy bien....2-regular....entonces yo quiero hacer una suma por secciones(por ejemplo de seccion personal serian en total=5, de servicio al cliente total=9 y de resultados total=2) y que la pueda mostrar en una grafica, espero haberme dado a entender y me puedan ayudar

Elite237 21-10-2008 17:51:43

Hola de nuevo, fijense que aun no me sale la grafica con los correctos valores.

Lo que quiero hacer es sumar los valores de cada celda, y lo hago asi:
Código Delphi [-]
procedure TForm1.BitBtnGraficarClick(Sender: TObject);
var
 suma,i:integer;
 secc:string;
begin
for i := 1 to sgEvaluacion.RowCount - 1 do // 1 es la fila donde inicia la cuenta
  begin
    if sgEvaluacion.cells[0,i]= '' then
     secc:=sgEvaluacion.cells[1,i];
  begin
   if sgEvaluacion.cells[7,1]<>'' then
   suma := suma + StrToInt(sgEvaluacion.Cells[7,i]);
Series1.Clear;  {Where Series1 is your Bar series}
Series1.Add( suma , secc  , clBlue );
Series1.Add( suma ,secc    , clRed );
Series1.Add( suma , secc , clYellow );
end;
end;
end;

Pero me muestra los datos mal, todo juntos, y los valores del pie no aparecen todos.Como estan muy largos quiza por eso, habra alguna propiedad del tchart, donde pueda girar en un angulo de 90º para que quede verticales. Por ejemplo en la parte izquierda esta los valores que representan en numeros(osea la Y) y en la X deben de aparecer por ejemplo imagen personal y las demas secciones, pero como los nombres son largos quiza por esa razon, entonces alli es donde quiero saber como modificar el angulo, para que se aprecien todas las secciones.Gracias a todos saludos


La franja horaria es GMT +2. Ahora son las 21:12:39.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi