¿Cómo ver el código fuente de qlineseries?
Deja una dirección de correo electrónico y te la escribiré y te la enviaré. ..
El siguiente es el ejemplo más simple, lz, si quieres el código fuente, hola, si necesitas otras funciones, también puedo ayudarte a agregarlas.
Unidad unidad 1;
Conexión
Uso
Ventana, mensaje, sistema, variable, clase, gráficos, control, formulario,
Cuadros de diálogo, controles estándar, motores, series, controles extendidos, TeeProcs, gráficos.
Tipo
TForm1 = clase(TForm)
CT: TChart;
serie 1: serie tbar;
botón 1: TButton;
TT: TTimer;
Botón de programa 1Click(remitente: a objetar);
formulario de procedimiento crear(Remitente: a objetar
Proceso TTTimer (remitente: a objeto
Privado
{Declaración privada}
Público
<) p>{Declaración pública}Fin;
Definir variables
formulario 1:t formulario 1;
Cumplimiento
{$R*. dfm}
Programa TForm1. Botón1Clic(Remitente: al objeto);
Inicio
//Interruptor de control del temporizador
Si TT. Habilitado=falso entonces
TT. Habilitado:=Verdadero
Otro
TT. enable:= false;
Fin;
Programa TForm1. FormCreate(remitente: al objeto);
Iniciar
TT. Intervalo: = 2000; //Actualiza cada 2 segundos.
TT. enable:= false;
Fin;
Programa TForm1. TTTimer(remitente: al objeto);
Inicio
ct. serie[0]. Claro;
//Tomé un número aleatorio como valor aquí.
//Puedes cambiarlo a tu valor específico, leerlo de un archivo u obtenerlo de la base de datos.
Aleatorización;
ct. serie[0]. Agregar(Aleatorio(1000) 200, ' tiempo1 ', clred);
ct. serie[0]. add(Random(1000) 100, ' time2 ', cl azul);
ct. serie[0]. add(Random(1000) 100, ' time3 ', clamarillo);
//Los tres parámetros son la cantidad del eje Y, la visualización del eje X y el color.
Fin;
Fin.
[Suplemento]:
ct. serie[0]. Add(c,'Time 3',clblue);
Simplemente escríbelo así... Esta función Agregar tiene tres parámetros.
El primero es el valor del eje y, cámbielo a c.
El segundo es la hora que se muestra en el eje X, que puede ser la hora actual.
formato fecha y hora('aaaa-m-DD hh:mm:ss', ahora)
El tercero es el color.
En resumen, deberías cambiarlo a:
ct. serie[0]. Add(c,format datetime('aaaa-m-DD hh:mm:ss',now),clamarillo);