Private Function EscreverArray() As Boolean Dim EnviarDados As Integer Dim LerByte As String = ("MB0") For ProcurarValor = 0 To 50 Step 1 LerValor = plc.Read(LerByte) TxtLer.Text = LerValor.ToString TrackBar1.Value = LerValor EnviarDados = LerValor Numero = LerValor Numeros(ProcurarValor) = Numero System.Threading.Thread.Sleep(200) Next Return True End Function
LerValor
plc
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)