Programación VB ----- Programa de monitorización de simulación
Dim Cnt As Integer 'Count
Dim Tmp As Integer 'Punto aleatorio
Dim JX As Integer 'Draw Point Spacing
Private Sub Form_Load()
JX = 2
End Sub
Private Sub Timer1_Timer()
Atenuar Lin como entero
Atenuar V1, V2 como entero
lbNow = Ahora
'Capturar datos
Lin = txtData.Text=Cnt
'Dibujar coordenadas
picData .Línea (0, 5)-(250, 5), vbRed '280
picData.Line (JX * Cnt, V2) Línea (JX * Cnt, V2) -(JX * Cnt - 1, V1), vbBlack
End Sub
Si necesitas el código fuente te lo puedes enviar.