Cómo mostrar datos en tiempo real con curvas en VB
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.