Red de conocimiento informático - Material del sitio web - Cómo mostrar datos en tiempo real con curvas en VB

Cómo mostrar datos en tiempo real con curvas en VB

VB puede usar el método de línea o el método PSet en el evento Temporizador del control Temporizador para dibujar líneas y colores para mostrar la curva de los datos recopilados en tiempo real.

Método de líneas, dibuja líneas rectas y rectángulos sobre objetos.

El método PSet establece puntos en el objeto en el color especificado.

El siguiente es el código para utilizar el método Línea en un programa de control industrial:

¿Opciones? ¿Claro

Oscuro? dejar la bandera? ¿Como? ¿El sistema de álgebra booleana

es oscuro? cmdXianshiFlag? ¿Como? ¿El sistema de álgebra booleana

es oscuro? cmdTestFlag? ¿Como? ¿El sistema de álgebra booleana

es oscuro? ¿pag? ¿Como? Entero

¿Atenuado? h? ¿Como? Entero

¿Atenuado? miao1? ¿Como? Entero

¿Atenuado? fen1? ¿Como? Entero

¿Atenuado? j? ¿Como? Entero

¿Atenuado? ¿dos? ¿Como? Entero

¿Privado? br_br? ¿Como? ¿Dos veces

Privado? ab_bm? ¿Como? ¿Dos veces

Privado? wy_wy? ¿Como? ¿Dos veces

Privado? ¿Shi Jian (360)? ¿Como? ¿Cadena? *?10

¿Privado? ¿Shi Jianzh (360)? ¿Como? ¿Cadena? *?10

¿Privado? record_zh(5,?360)?como? Soltero

¿Privado? registro(5,?360)?como? Soltero

¿Privado? c(360)? ¿Como? ¿Constancia diferente

? ¿respuesta? =?3.141592654?*?2

¿Público? ¿Función? xp(colvb?as?variant,?xx?as?variant,?yy?as?variant,?txt?as?variant)

Imagen 1. ¿Color de primer plano? =?colvb? QBColor(14)

Imagen 1. ¿ActualX? =?xx

Imagen 1. ¿ActualY? =?yy

Imagen 1. ¿Imprimir? ¿TXT? '

¿Fin? Función

¿Privada? ¿Sub? CmdTest_Click()

¿Y si? cmdTestFlag? Entonces

¿Para qué? j? =?0?¿Adónde ir? 359

¿Registro (0,?j)? =?0

Registro(1,?j)? =?0

Registro(2,?j)? =?0

Registro(3,?j)? =?0

Registro(4,?j)? =?0

Registro(5,?j)? =?0

¿Siguiente? j

cmdTest. ¿título? =?"Prueba"

Otros

¿Para qué? j? =?0?¿Adónde ir? 359

c(j)? =?j? *?¿respuesta? /?60

¿Registro (0,?j)? =?Pecado(c(j))? *?-450

Registro(1,?j)? =?Pecado(c(j))? *?-300

Registro(2,?j)? =?Sin(c(j)? ?Respuesta?/?3)?*?-450

Registro (3,?j)? =?Sin(c(j)? ?2?*?Respuesta?/?3)?*?-450

Registro (4,?j)? =?Sin(c(j)? ?2?*?Respuesta?/?3)?*?-300

Registro (5,?j)? =?Sin(c(j)? ?2?*?Respuesta?/?3)?*?-150

¿Siguiente? j

cmdTest.

¿título? =?"Grabar"

¿Fin? Si

cmdTestFlag? =?¿No es así? cmdTestFlag

¿Fin? Submarino

¿Privado? ¿Sub? Timer1_Timer()

¿Si? lblTiempo. ¿título? ¿Es gt? CStr(hora$)? Luego

lblTime. ¿título? =?Tiempo$

Frmjly. ¿título? =?"Grabadora" y. ? ¿Espacio (90)? ¿amperio? ¿Fecha$? ¿amperio? ¿Espacio(6)? ¿amperio? ¿Dólares de tiempo

miao1? =?Mid(lblTime, 7,?2)

fen1? =?Mid(Tiempo$,?4,?2)

¿Si? fen1? =?0?Entonces qué. miao1? =?0?Entonces

Shi Jian(0)? =?lblTime

¿Fin? Si

Etiqueta1? =?lblTime

¿Y si? miao1? =?0?Entonces

¿Para qué? k? =?0?¿Adónde ir? 358

record_zh(0,?k??1)?=?record(0,?k)

record_zh(1,?k??1)?=?record( 1,?k)

Record_zh(2,?k? ?1)?=?record(2,?k)

Record_zh(3,?k? ?1)? =?Registro(3,?k)

Registro_zh(4,?k? ?1)?=?Registro(4,?k)

Registro _zh(5,?k ?1)?=?Record(5,?k)

¿Siguiente? k

¿Para qué? j? =?1?¿Adónde ir? 359?'9

Registro (0,? j)? =?record_zh(0,?j)

Registro(1,?j)? =?record_zh(1,?j)

Registro(2,?j)? =?Record_zh(2,?j)

Registro(3,?j)? =?Record_zh(3,?j)

Registro(4,?j)? =?Record_zh(4,?j)

Registro(5,?j)? =?Record_zh(5,?j)

¿Siguiente? j

¿Fin? Si

¿Y si? fen1? =?0?Entonces qué. miao1? =?1?Entonces

¿Para qué? ¿dos? =?0?¿Adónde ir? Cinco

Shi Jian zh (ii? ?1)?=?Shi Jian (dos)

¿Siguiente? 2

¿Para qué? h? =?1?¿Adónde ir? Seis

¿Shi Jian(h)? =?Shi Jianzh(h)

¿Siguiente? h

Etiqueta1. ¿visible? =?Incorrecto

Etiqueta 2. ¿visible? =?Real

Fin? Si

¿Finalizar? Si

¿Finalizar? Submarino

¿Privado? ¿Sub? Timer2_Timer()

BitBlt? I. Imagen1.hDC,? 0,?0,?I. Imagen 1. ¿Ancho de escala? I. Imagen 1.

ScaleHeight0,?0,?0,?"negro"

Texto1? =?Dólares de tiempo

¿Plántulas? =?derecho$(hora$,?2)

Texto2? =?fen1

Registro(0,?0)?=?record_jm(3)? *?-30

¿Registro(1,?0)?=?record_jm(4)? *?-30

¿Registro(2,?0)?=?record_jm(5)? *?-30

Registro(3,?0)?=?record_jm(0)? *?-30

¿Registro(4,?0)?=?record_jm(1)? *?-30

¿Registro(5,?0)?=?record_jm(10)? *?-30?Secador al vacío

¿Eh? =?Val(fen1?*?60)? ?Val(Miao)

j? =?Mmm

p? =?(j?/?360)?-?Int(j?/?360)

j? =?pag? *?360

Texto2? =?Fecha$

Etiqueta8? =?Fecha$

Etiqueta2? =?Shi Jian(1)

Etiqueta 2. ¿izquierda? =?fen1? *?30?140

Etiqueta3? =?Shi Jian(2)

Etiqueta 3. ¿izquierda? =?fen1? *?30? ?1800?*?1?140

Etiqueta4? =?Shi Jian(3)

Etiqueta 4. ¿izquierda? =?fen1? *?30??1800?*?2?140

Etiqueta5? =?Shi Jian(4)

Etiqueta5. ¿izquierda? =?fen1? *?30??1800?*?3?140

Etiqueta6? =?Shi Jian(5)

Etiqueta 6. ¿izquierda? =?fen1? *?30??1800?*?4?140

Etiqueta7? =?Shi Jian(6)

Etiqueta 7.

¿izquierda? =?fen1? *?30? ?1800?*?5? ?140

Coordenadas de temperatura

colvb? =?vbBlanco

xx? =?100

¿aa? =?150

texto? =?"℃"

wp? =?xp(colvb,?xx,?yy,?txt)

yy? =?350

texto? ="100"

wp? =?xp(colvb,?xx,?yy,?txt)

xx? =?200

¿aa? =?1850

texto? ="50"

wp? =?xp(colvb,?xx,?yy,?txt)

yy? =?3350

xx? =?300

texto? =?"0"

wp? =?xp(colvb,?xx,?yy,?txt)

xx? =?100

¿aa? =?4850

texto? =?"-50"

wp? =?xp(colvb,?xx,?yy,?txt)

xx? =?0

¿aa? =?6350

texto? =?"-100"

wp? =?xp(colvb,?xx,?yy,?txt)

Coordenadas de vacío

colvb? =?vbRojo

xx? =?11500

¿aa? =?150

texto? =?"Pa"

wp? =?xp(colvb,?xx,?yy,?txt)

yy? =?350

texto? ="10000"

wp? =?xp(colvb,?xx,?yy,?txt)

xx? =?11500

¿aa? =?1850

texto? ="1000"

wp? =?xp(colvb,?xx,?yy,?txt)

yy? =?3350

xx? =?11500

texto? ="100"

wp? =?xp(colvb,?xx,?yy,?txt)

xx? =?11500

¿aa? =?4850

texto? ="10"

wp? =?xp(colvb,?xx,?yy,?txt)

xx? =?11500

¿aa? =?6350

texto? =?"1"

wp? =?xp(colvb,?xx,?yy,?txt)

xx? =?500

¿aa? =?150

texto? =?"Pa"

wp? =?xp(colvb,?xx,?yy,?txt)

yy? =?350

texto? ="10000"

wp? =?xp(colvb,?xx,?yy,?txt)

xx? =?500

¿aa? =?1850

texto? ="1000"

wp? =?xp(colvb,?xx,?yy,?txt)

yy? =?3350

xx? =?500

texto? ="100"

wp? =?xp(colvb,?xx,?yy,?txt)

xx? =?500

¿aa?

=?4850

texto? ="10"

wp? =?xp(colvb,?xx,?yy,?txt)

xx? =?500

¿aa? =?6350

texto? =?"1"

wp? =?xp(colvb,?xx,?yy,?txt)

Dibujar una cuadrícula

Imagen 1. ¿Color de primer plano? =?vbBlanco

Imagen 1. ¿Cable? (450,?400)-(11300,?400)

Imagen 1. ¿Cable? (450,?700)-(500,?700)

Imagen 1. ¿Cable? (450,?1000)-(500,?1000)

Imagen 1. ¿Cable? (450,?1300)-(500,?1300)

Imagen 1. ¿Cable? (450,?1600)-(500,?1600)

Imagen 1. ¿Color de primer plano? =?vbRed

Imagen 1. ¿Cable? (500,?566.7)-(550,?566.7)

Imagen 1. ¿Cable? (500,?733.3)-(550,?733.3)

Imagen 1. ¿Cable? (500,?900)-(550,?900)

Imagen 1. ¿Cable? (500,?1066.7)-(550,?1066.7)

Imagen 1. ¿Cable? (500,?1233.3)-(550,?1233.3)

Imagen 1. ¿Cable? (500,?1400)-(550,?1400)

Imagen 1. ¿Cable? (500,?1566.7)-(550,?1566.7)

Imagen 1. ¿Cable? (500,?1733.3)-(550,?1733.3)

Imagen 1. ¿Cable? (500,?2066.7)-(550,?2066.7)

Imagen 1. ¿Cable? (500,?2233.3)-(550,?2233.3)

Imagen 1. ¿Cable? (500,?2400)-(550,?2400)

Imagen 1. ¿Cable? (500,?2566.7)-(550,?2566.7)

Imagen 1. ¿Cable? (500,?2733.3)-(550,?2733.3)

Imagen 1. ¿Cable? (500,?2900)-(550,?2900)

Imagen 1. ¿Cable? (500,?3066.7)-(550,?3066.7)

Imagen 1. ¿Cable? (500,?3233.3)-(550,?3233.3)

Imagen 1. ¿Cable? (500,?3566.7)-(550,?3566.7)

Imagen 1. ¿Cable? (500,?3733.3)-(550,?3733.3)

Imagen 1. ¿Cable? (500,?3900)-(550,?3900)

Imagen 1. ¿Cable? (500,?4066.7)-(550,?4066.7)

Imagen 1. ¿Cable? (500,?4233.3)-(550,?4233.3)

Imagen 1. ¿Cable? (500,?4400)-(550,?4400)

Imagen 1. ¿Cable? (500,?4566.7)-(550,?4566.7)

Imagen 1. ¿Cable? (500,?4733.3)-(550,?4733.3)

Imagen 1. ¿Cable? (500,?5066.7)-(550,?5066.7)

Imagen 1. ¿Cable? (500,?5233.3)-(550,?5233.3)

Imagen 1.

¿Cable? (500,?5400)-(550,?5400)

Imagen 1. ¿Cable? (500,?5566.7)-(550,?5566.7)

Imagen 1. ¿Cable? (500,?5733.3)-(550,?5733.3)

Imagen 1. ¿Cable? (500,?5900)-(550,?5900)

Imagen 1. ¿Cable? (500,?6066.7)-(550,?6066.7)

Imagen 1. ¿Cable? (500,?6233.3)-(550,?6233.3)

Imagen 1. ¿Color de primer plano? =?vbBlanco

Imagen 1. ¿Cable? (450,?1900)-(11300,?1900)

Foto 1. ¿Cable? (450,?2200)-(500,?2200)

Imagen 1. ¿Cable? (450,?2500)-(500,?2500)

Imagen 1. ¿Cable? (450,?2800)-(500,?2800)

Imagen 1. ¿Cable? (450,?3100)-(500,?3100)

Imagen 1. ¿Cable? (450,?3400)-(11300,?3400)

Imagen 1. ¿Cable? (450,?3700)-(500,?3700)

Imagen 1. ¿Cable? (450,?4000)-(500,?4000)

Imagen 1. ¿Cable? (450,?4300)-(500,?4300)

Imagen 1. ¿Cable? (450,?4600)-(500,?4600)

Imagen 1. ¿Cable? (450,?4900)-(11300,?4900)

Imagen 1. ¿Cable? (450,?5200)-(500,?5200)

Imagen 1. ¿Cable? (450,?5500)-(500,?5500)

Imagen 1. ¿Cable? (450,?5800)-(500,?5800)

Imagen 1. ¿Cable? (450,?6100)-(500,?6100)

Imagen 1. ¿Cable? (450,?6400)-(11300,?6400)

Imagen 1. ¿Cable? (500,?400)-(500,?6400)

Imagen 1. ¿Cable? (11300,?400)-(11300,?6400)

Dibujo de coordenadas de tiempo

Imagen 1. ¿Color de primer plano? =?VB amarillo

¿Y si? -700?fen1? *?30? 200? Entonces

Imagen 1. ¿Cable? (-400? ?fen1?*?30,?400)-(-400? ?fen1?*?30,?6400)

¿Fin? Si

Imagen 1. ¿Cable? (500? ?fen1?*?30,?400)-(500? ?fen1?*?30,?6400)

Imagen 1. ¿Cable? (1400? ?fen1?*?30,?400)-(1400? ?fen1?*?30,?6400)

Imagen 1. ¿Cable? (2300? ?fen1?*?30,?400)-(2300? ?fen1?*?30,?6400)

Imagen 1. ¿Cable? (3200? ?fen1?*?30,?400)-(3200? ?fen1?*?30,?6400)

Imagen 1. ¿Cable? (4100? ?fen1?*?30,?400)-(4100? ?fen1?*?30,?6400)

Imagen 1.

¿Cable? (5000? ?fen1?*?30,?400)-(5000? ?fen1?*?30,?6400)

Imagen 1. ¿Cable? (5900? ?fen1?*?30,?400)-(5900? ?fen1?*?30,?6400)

Imagen 1. ¿Cable? (6800? ?fen1?*?30,?400)-(6800? ?fen1?*?30,?6400)

Imagen 1. ¿Cable? (7700? ?fen1?*?30,?400)-(7700? ?fen1?*?30,?6400)

Imagen 1. ¿Cable? (8600? ?fen1?*?30,?400)-(8600? ?fen1?*?30,?6400)

Imagen 1. ¿Cable? (9500? ?fen1?*?30,?400)-(9500? ?fen1?*?30,?6400)

Si? 10400?fen1? *?30?lt? 11300? Entonces

Imagen 1. ¿Cable? (10400? ?fen1?*?30,?400)-(10400? ?fen1?*?30,?6400)

¿Fin? Si

¿Y si? 11300?fen1? *?30?lt? 11300? Entonces

Imagen 1. ¿Cable? (11300? ?fen1?*?30,?400)-(11300? ?fen1?*?30,?6400)

¿Fin? Si

Mostrar registro

Imagen 1. ¿Color de primer plano? =?VB amarillo

¿Para qué? j? =?0?¿Adónde ir? 359

Foto 1. ¿Cable? (j?*?30??500,?Record(0,?j)??3395)-(j?*?30??502,?Record(0,?j)??3405),?vbRed,? Novio

Foto 1. ¿Cable? (j?*?30??500,?Registro(1,?j)??3395)-(j?*?30??502,?Registro(1,?j)??3405),?QBColor(7 ),? Novio

Foto 1. ¿Cable? (j?*?30??500,?Record(2,?j)??3395)-(j?*?30??502,?Record(2,?j)??3405),?vbWhite,? Novio

Foto 1. ¿Cable? (j?*?30??500,?Record(3,?j)??3395)-(j?*?30??502,?Record(3,?j)??3405),?vbAmarillo,? Novio

Foto 1. ¿Cable? (j?*?30??500,?Record(4,?j)??3395)-(j?*?30??502,?Record(4,?j)??3405),?vbGreen,? Novio

¿Y si? Registro(5,?j)? /?-30?lt? 10?Entonces

wy_wy? =?-0? ?166.7

br_br? =?5.5556

¿Otra persona? Registro(5,?j)? /?-30? gt=?10? Entonces qué. Registro(5,?j)? /?-30?lt? 100?Entonces

wy_wy? =?-1500? ?166.7

br_br? =?0.5555

¿Otra persona? Registro(5,?j)? /?-30? gt=?100? Entonces qué.

Registro(5,?j)? /?-30?lt? ¿1000? Entonces

wy_wy? =?-3000? ?166.7

br_br? =?0.055555

¿Otra persona? Registro(5,?j)? /?-30? gt=?1000? Entonces qué. Registro(5,?j)? /?-30?lt? ¿10000? Entonces

wy_wy? =?-4500? ?166.7

br_br? =?0.0055555

¿Fin? Si

Imagen 1. ¿Cable? (j?*?30??500,?registro(5,?j)?*?br_br??wy_wy??3395??3000)-(j?*?30??502,?registro(5,?j )?*?br_br??wy_wy??3405??3000),?QBColor(11)? Novio

¿Siguiente? j

Imagen 1. Refrescante

¿Fin? El código del método de curva de sublínea anterior se puede trasladar fácilmente al método Pset para dibujar la curva.