capturaBarra.m

%------------------------------------------------------------------------
%|   capturaBarra
%------------------------------------------------------------------------
%|      Script que captura la barra desliznte de n de trama
%-------------------------------------------------------------------------
%|   Autor: Cesar Delgado
%|   Fecha: 19-Abril-2.004
%-------------------------------------------------------------------------

if ~evento,% Editable
   nTrama = str2num(get(editTrama,'string'));
   nTrama = round(nTrama);
   set(barraTrama,'value',nTrama);
else, % Barra de desplazamiento
   nTrama = round(get(barraTrama,'value'));
   set(barraTrama,'value',nTrama);
   set(editTrama,'string',num2str(nTrama));
end;