-

[xadap]

-

[Numeros]

Si el problema es que el valor de vEntrada no debe repetirse consecutivamente en el historial, te propongo usando un ListBox el siguiente

Código [Seleccionar] Expandir

    If vEntrada <> List1.List(List1.ListCount - 1) Then List1.AddItem vEntrada


De esta manera pienso que no tienes que preocuparte por la frecuencia del muestreo.


Saludos.

[xadap]

-

[el_chente23]

Creo que tu problema se resuelve guardando el valor en una variable, cada que entre al timer compara el valor de la variable con lo que trae ventrada, si son iguales, que no entre, de lo contrario que te guarde el valor, espero me entiendas.

Saludos

[Numeros]

y no se puede hacer nada con la caja de texto? no sólo la uso para el modo automático del robot, sino también para el modo teledirigido

Creo que podrías usar ambas cosas, el Listbox o guardarlo en la variable - como bien dice el_chente23, y el textbox para enviarle, me imagino que te refieres alguna especie de entrada de comandos.

e interesa conservar el espacio

esto último no entendí muy bien a que te refieres..

Saludos.

[Slasher-K]

Para eso existen las variables estáticas. Y no hace falta usar select case si sólo va a mostrar lo que entra.

Código [Seleccionar] Expandir


       Static lLastValue&

  If lLastValue <> vEntrada Then
    lLastValue = CLng(vEntrada)

    frmPrincipal.txtHistorial.Text = frmPrincipal.txtHistorial.Text & "valor " & vEntrada & vbCrLf
  End If


Saludos.

[xadap]

-

[Slasher-K]

Lo que hace el código es verificar que el valor de vEntrada no sea igual al anterior, si no es igual al anterior entonces muestra la nueva entrada y guarda el valor en lLastValue para volver a repetir la operación.

CLng lo que hace es devolver un valor de tipo Long (entero de 32 bits), lo uso para asegurarme de que no haya errores de conversión de tipos de datos.

Saludos.

[xadap]

-