User`s guide

13 Manage Application-Defined Data
% ---------- ---- ----------------------- ---------------
% Set the value of the edit text component String property
% to the value of the slider.
function sli der_ callback(hObject,eventd ata)
slider = guidata(fh); % Get GUI data.
slider.previous_val = slider.val;
slider.val = get(hObject,'Value') ;
set(eth,'String',num2str(slider.val));
sprintf('You c hang ed the slider value by %6.2f perce nt.' ,...
abs(slider.val - slider.previous_val))
guidata(fh,slider) % Save GUI data before return ing.
end
% ---------- ---- ----------------------- ---------------
% Set the slider value to the number the user types in
% the edit text or display an error messag e.
function edi ttex t_callback(hObject,even tdata)
slider = guidata(fh); % Get GUI data.
slider.previous_val = slider.val;
slider.val = str2double(get(hObje ct,'String'));
% Determine whether slider.val is a number bet ween the
% slider's Min and Max. If it is, set the slider Value.
if isnumeric( sli der.val) && length( slider.val) == 1 && ...
slider.val >= get(sh,'Min') && ...
slider.val <= get(sh,'Max')
set(sh,'Value',slider.val);
sprintf('You changed the slider value by %6.2f percent.',...
abs(slider.val - slider.previous_val))
else
% Increment the error count, and display it.
number_errors = number_errors+1;
set(hObject,'String',...
['You have entered an inval id entry ',...
num2str(number_errors),' times.']);
slider.val = slider.previous_val;
end
guidata(fh,slider); % Save the changes as GUI data.
end
end
13-22