La parte del while() no es problema, ya que el codigo se bloquea al enviar cada comando para esperar su
respuesta. Por lo tanto, el comando siguiente se realiza cuando termino el primero.

Como prueba, realize el siguiente codigo que envia 1000 veces 8 comandos para cerrar los
relays (sin delay), y no da problemas:

        private void button1_Click(object sender, EventArgs e)
        {
            SendStat CmdStat = SendStat.Success;

            MessageBox.Show("INICIO: Puede tardar unos segundos...");

            for (int i = 0; i < 1000; i++)
            {
                if ((CmdStat = PioBoard.Cmd.Relay.Close(Relays.Relay1)) != SendStat.Success)
                {
                    MessageBox.Show(CmdStat.ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
                }

                if ((CmdStat = PioBoard.Cmd.Relay.Close(Relays.Relay2)) != SendStat.Success)
                {
                    MessageBox.Show(CmdStat.ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
                }

                if ((CmdStat = PioBoard.Cmd.Relay.Close(Relays.Relay3)) != SendStat.Success)
                {
                    MessageBox.Show(CmdStat.ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
                }

                if ((CmdStat = PioBoard.Cmd.Relay.Close(Relays.Relay4)) != SendStat.Success)
                {
                    MessageBox.Show(CmdStat.ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
                }

                if ((CmdStat = PioBoard.Cmd.Relay.Close(Relays.Relay5)) != SendStat.Success)
                {
                    MessageBox.Show(CmdStat.ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
                }

                if ((CmdStat = PioBoard.Cmd.Relay.Close(Relays.Relay6)) != SendStat.Success)
                {
                    MessageBox.Show(CmdStat.ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
                }

                if ((CmdStat = PioBoard.Cmd.Relay.Close(Relays.Relay7)) != SendStat.Success)
                {
                    MessageBox.Show(CmdStat.ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
                }

                if ((CmdStat = PioBoard.Cmd.Relay.Close(Relays.Relay8)) != SendStat.Success)
                {
                    MessageBox.Show(CmdStat.ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
                }
            }

            MessageBox.Show("FIN");
        }
    }

Fijate desabilitando todo codigo que (excepto la parte de los reles) y comproba si continua el error.

Si podes, enviame el proyecto completo a mi email (solo el programa que da error), asi lo pruebo y
analizo mejor.

Saludos, Boris.-

Buenas Jose,

Fijate colocar la funcion Count1Reset() luego de tomar "fb".

fb = Count1GetEventFreq_I()
Count1Reset()

Eso debería resetear los registros del contador,
que en este caso devuelve la frecuencia de los
dos últimos pulsos contados. Al resetear el contador
en cada lectura, cuando no hay pulsos, el retorno
es cero.

Otra cosa, para optimizar memoria y velocidad,
podes hacer lo siguiente para filtrar las muestras:

new i, sp   // declarar antes del while(true)

// ... codigo ...

// Filtro
sp = 0
for(i=0; i<40; i++)
{
   // Obtener 40 muestras
   sp += Vin1Read()
}

// Promediar.
sp = sp / 40


Saludos, Boris.-

--

Slicetex Electronics
www.slicetex.com.ar

Hola Pablo,

Si, es posible transmitir datos via ethernet. Si conoces la direccion
IP de la computadora de destino, podes utilizar la siguiente funcion:

UdpSend(A0, A1, A2, A3, Port, Size, Data[], Packed)

Donde la direccion IP la especificas en A0.A1.A2.A3.
Port: es el puerto de destino.
Size: es la cantidad de datos a enviar en bytes.
Data: es un array con los datos a enviar.
Packed: Especifica si los datos estan empaquetados, ver manual.

Entonces, vamos a un ejemplo:

Para enviar 6 bytes, con el mensaje "Hola!", hacemos

   // Crear un array para almacenar los bytes a enviar.
   new Data[6]

   // Almacenar caracters ASCII a enviar...
   Data[0] = 'H'
   Data[1] = 'o'
   Data[2] = 'l'
   Data[3] = 'a'
   Data[4] = '!'

   // Sexto byte con un valor entre 0 y 255.
   Data[5] = 0

   // Enviar paquete UDP a dirección 192.168.1.11, puerto 4980.
   UdpSend(192,168,1,11, 4980, 6, Data, false)

Luego, con el programa PawnUdpRx que está incluido en el paquete de
software STX8081-SDK,  podes desde la computadora, ver la recepecion
de los bytes enviados desde el PLC.

Tenes un ejemplo completo en el manual del PLC:

http://www.slicetex.com.ar/hw/stx8081/docs/STX8081-UM-PLC-AX_CX.pdf

Y una nota de aplicacion sobre como crear aplicaciones Windows para
leer datos desde la computadora en:

http://www.slicetex.com.ar/hw/stx8081/docs/STX8081-AN_001.pdf

Saludos, Boris.-

--
Slicetex Electronics
www.slicetex.com.ar

Hola,

En este foro puede hablar sobre asuntos relacionados a la placa STX570.

La placa STX570 le permite expandir las entradas y salidas discretas
a nuestra familia de PLC.

Espero sus comentarios y/o preguntas.

Saludos, Boris.-

--
Slicetex Electronics
www.slicetex.com.ar

Hola,

En este foro puede hablar sobre cualquier tema relacionado con la tecnología.

También, puede hablar sobre productos o servicios ofrecidos por Slicetex.

Saludos, Boris.-

--
Slicetex Electronics
www.slicetex.com.ar