<div dir="ltr"><div><div><div><div><div><div>Si, Maxi<br><br></div>Respondi antes pero me llego un mesaje que elmoderador elimino el mensaje.<br><br></div>Puedo reenviar mi respuesta.<br><br></div>Saludos,<br><br></div>Pancho<br></div>Cordoba<br></div>Argentina<br></div><div class="gmail_extra"><br><div class="gmail_quote">El 14 de agosto de 2015, 10:47, Maxi <span dir="ltr"><<a href="mailto:maximiliano.duarte@gmail.com" target="_blank">maximiliano.duarte@gmail.com</a>></span> escribió:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Funciona?<br>
<div class="HOEnZb"><div class="h5"><br>
El día 9 de agosto de 2015, 6:33, Jerónimo Sánchez <<a href="mailto:socger@gmail.com">socger@gmail.com</a>> escribió:<br>
> Muchas gracias, Pancho.<br>
><br>
> Te he estado siguiendo en la lisa de <a href="http://lazarus.es" rel="noreferrer" target="_blank">lazarus.es</a> y veo que pudistes salir muy<br>
> bien de todos los consejos.<br>
><br>
> Bonito por tu parte. Un abrazo y todo un detalle por este aporte<br>
><br>
><br>
> El martes, 4 de agosto de 2015, 19:30:50 (UTC+3), Pancho escribió:<br>
>><br>
>> Tengo el siguiente código<br>
>><br>
>> procedure TfrmPesaje.UpdPeso(cLectura:String);<br>
>> var<br>
>>   lcTramas:TStringList;<br>
>><br>
>> lnIndice,lnNeto,lnNegativo,lnFueraRango,lnFueraEqui,lnTeclaAd,lnCantTramas:integer;<br>
>><br>
>> lcEstadoA,lcEstadoB,lcEstadoC,lcPeso,lcTara,lcDecimales,lcLectura:string;<br>
>> begin<br>
>>   lcEstadoA:='';<br>
>>   lcEstadoB:='';<br>
>>   lcEstadoC:='';<br>
>>   lcPeso:='';<br>
>>   lcTara:='';<br>
>>   lcTramas:= TStringList.Create;<br>
>>   Split('|', cLectura, lcTramas);<br>
>>   lnCantTramas:=lcTramas.count;<br>
>>   if lnCantTramas=5 then<br>
>>      begin<br>
>>        lcEstadoA:=lcTramas.Strings[1];<br>
>>        lcEstadoB:=lcTramas.Strings[2];<br>
>>        lcEstadoC:=lcTramas.Strings[3];<br>
>>        lcPeso:=copy(lcTramas.Strings[4],1,6);<br>
>>        lcTara:=copy(lcTramas.Strings[4],7,6);<br>
>>        {Analisis Estado A}<br>
>>        lcEstadoA:=HextoBin(lcEstadoA);<br>
>>        lcDecimales:=copy(lcEstadoA,6,3);<br>
>>        case lcDecimales of<br>
>>             '010':lnPesoComa:=0;<br>
>>             '011':lnPesoComa:=1;<br>
>>             '100':lnPesoComa:=2;<br>
>>             '101':lnPesoComa:=3;<br>
>>             '110':lnPesoComa:=4;<br>
>>        else<br>
>>             lnPesoComa:=0;<br>
>>        end;<br>
>>        {Analisis Estado B}<br>
>>        lcEstadoB:=HextoBin(lcEstadoB);<br>
>>        lnNeto:=StrToInt(copy(lcEstadoB,8,1));<br>
>>        lnNegativo:=StrToInt(copy(lcEstadoB,7,1));<br>
>>        lnFueraRango:=StrToInt(copy(lcEstadoB,6,1));<br>
>>        lnFueraEqui:=StrToInt(copy(lcEstadoB,5,1));<br>
>>        {Analisis Estado C}<br>
>>        lcEstadoC:=HextoBin(lcEstadoC);<br>
>>        lnTeclaAd:=StrToInt(copy(lcEstadoB,5,1));<br>
>>        {Calculos Finales}<br>
>>        lnPesoTara:=StrToInt(lcTara)/(Exp(LN(10)*lnPesoComa));<br>
>>        lnPesoTot:=StrToInt(lcPeso)/(Exp(LN(10)*lnPesoComa));<br>
>>        if lnNegativo=1 then<br>
>>           lnPesoTot:=lnPesoTot*(-1);<br>
>>        {Actualizo campo de Peso Actual}<br>
>>        txtPesoAct.Text:=FloatToStr(lnPesoTot);<br>
>>        txtPesoAct.Refresh;<br>
>>        application.ProcessMessages;<br>
>>      end;<br>
>><br>
>> Que se ejecuta por cada lectura del puerto serie.<br>
>><br>
>> txtPesoAct es una caja de texto en la cual pongo el peso de la balanza.<br>
>><br>
>> Si solo hago el Refresh no se refresca el control...<br>
>> Si le agrego application.ProcessMessages tampoco se refresca el control.<br>
>><br>
>> El control solo se refresca cuando hago un showmessage desde otro control.<br>
>><br>
>> Tengo otra pantalla que tiene un codigo similar pero el que recibe la info<br>
>> es una lista, en ese caso funciona sin inconvenientes...<br>
>><br>
>> Espero sus comentarios.<br>
>><br>
>> Pancho<br>
>> Córdoba<br>
>> Argentina<br>
><br>
><br>
</div></div><span class="im HOEnZb">> _______________________________________________<br>
> Lazarus-es mailing list<br>
> <a href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a><br>
> <a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" rel="noreferrer" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
><br>
<br>
<br>
<br>
</span><span class="im HOEnZb">--<br>
El que pregunta aprende, y el que contesta aprende a responder.<br>
<br>
No a la obsolecencia programada:<br>
<a href="http://www.rtve.es/noticias/20110104/productos-consumo-duran-cada-vez-menos/392498.shtml" rel="noreferrer" target="_blank">http://www.rtve.es/noticias/20110104/productos-consumo-duran-cada-vez-menos/392498.shtml</a><br>
<br>
Linux User #495070<br>
<a href="http://domonetic.com/blog" rel="noreferrer" target="_blank">http://domonetic.com/blog</a><br>
<br>
</span><div class="HOEnZb"><div class="h5">_______________________________________________<br>
Lazarus-es mailing list<br>
<a href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" rel="noreferrer" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
</div></div></blockquote></div><br></div>