En VB6.0, cómo recopilar los datos en tiempo real del instrumento a través del puerto serie de la computadora, mostrar la curva y luego guardar los datos.
Opción explícita
Dim sinX es un número entero
Subcomando privado 1_Click()
Imagen 1. AutoRedraw = True
Llamar a DrawAxis (Imagen 1)
Si (Comando1. Caption = "start ") Entonces
Comando1. Caption = "Redraw"
Terminará si...
sinX = 1
Temporizador 1. Enable = true
Conector final
eje de dibujo privado (mi imagen como cuadro de imagen)' Dibuja los ejes de coordenadas x e y, y el objeto del cuadro de imagen como mi imagen se pasa al proceso como un parámetro formal.
Dim x1 es un número entero, y1 es un número entero, x2 es un número entero, y2 es un número entero
Etiqueta y como un número entero
Mi foto. BackColor = QBColor(0)'Dibuje las coordenadas del tablero de dibujo y determine el color.
Mi foto. Cls
Mis fotos. DrawStyle = 0
x1 = 200
y1 = (Mi imagen. Altura de escala - 200)
y = y1 / 2
x2 = mi foto. Ancho de escala - 200
y2 = 200
Mi foto. Línea (x1, y1)-(x1, y2), QBColor(11)
Mi foto. Línea (x1, y)-(x2, y), QBColor(11)
Mi foto. Línea (x1 - 50, y2 + 120) - (x1, y2), QBColor(11)
Mi foto. Línea (x1 + 50, y2 + 120)-(x1, y2), QBColor(11)
Mi foto. Línea (x2 - 120, y + 50) - (x2, y), QBColor(11)
Mi foto. Línea(x2 - 120, y - 50) - (x2, y), Color QB(11)
Conector final
Subcomando privado 2_Click()
Temporizador1. enable=false
Conector final
Subcomando privado 3_Click()
Temporizador1. habilitado = verdadero
Temporizador1. intervalo = 50
Conector final
Subcomando privado 4_Click()
Fin
Conector final
Subformulario privado_Carga ()
MSComm1. CommPort = 3 'Inicialización del puerto serie
MSComm1. Configuración = "9600, n, 8, 1 "
MSComm1. InputLen = 0
MSComm1. InBufferSize = 512
MSComm1. InBufferCount = 0
MSComm1. SHreshold = 1
MSComm1. Puerto Abierto = Verdadero
MSComm1. RThreshold = 1
Conector final
Sub MSComm privado 1_on com()
Depurar. Imprimir 'Estado: & ampMSComm1.CommEvent
Conector final
Private Sub Timer1_Timer()' Dibuja una curva sinusoidal.
Atenuar escalaY como un número entero
Atenuar escalaY como un número entero
Atenuar escalaY como un número entero
Atenuar escalaY como un número entero >
scaley = imagen 1 altura de escala/4' 1/4 altura de dibujo.
Foto 1. ActualX = 200
Imagen 1. Actual =(Imagen 1. Altura de escala-200)/2 'Ordenada inicial (punto actual)
x = sinX / 720 * escalaY * 3.14
Si es la opción 1. Entonces valor = verdadero
y = Sin(3.14/180 * sinX)* escalaY
Terminará si...
Si la opción 2. Entonces valor = true
y = Cos(3.14/180 * sinX)* escalaY
Terminará si...
Si la opción 3. Entonces valor = verdadero
y = texto3. Texto / 100 * escalaY
Terminará si...
Imagen 1. PEstablezca el tamaño del paso (x, -y), QBColor(14)
sinX = sinX + 1
Texto1. Texto = x
Texto2. Texto = y
Conector final
Subtimer2_Timer() privado
Atenuar a como variante
a = MSComm1. Introduzca
Si Len(a)<> entonces 0
SMS 3. Texto = Val(a)
Terminará si...
Finalizar conector