|
|
||||
|
|
||||
|
|
||||
|
1銆?font face="Times New Roman"> 鍚姩
% 鑾峰彇褰撳墠鏂囦歡鎵鍦ㄨ礬寰?/p>
currPath = fileparts(mfilename('fullpath'));
% 鍒囨崲宸ヤ綔璺緞鍒板綋鍓嶄綅緗?/p>
cd(currPath);
% 鍒ゆ柇鎵鐢ㄦ搷浣滅郴緇?/p>
if computer == 'PCWIN'
% MATLAB鐗堟湰鍙?/p>
v = version;
if v(1)~='7'
warndlg ('Only run in matlab 7.x(R14.x)');
return
else
% 娣誨姞褰撳墠璺緞涓嬬殑鎵鏈夊瓙鐩綍
addpath(genpath(pwd));
addpath(genpath(currPath));
end
end
2銆?font face="Times New Roman"> 鍦?font face="Times New Roman">GUI涓嬌鐢?font face="Times New Roman">Axes鎺т歡
% 1.鍒犻櫎鎵鏈夌敾綰垮強瀵瑰簲鍥句緥
% 鏌ユ壘Axes鎺т歡涓殑鐢葷嚎
sameLines = findobj('type','line');
% 閫愪竴鍒犻櫎榪欎簺鐢葷嚎
for i = 1 :length(sameLines)
delete(sameLines(i))
end
% 鑾峰彇Axes鎺т歡涓殑鍥句緥錛堢敱浜庣敾綰垮叏閮ㄨ鍒犻櫎錛屽洜姝や負絀猴級
lgStr = get(legend(handles.ResultsAxes), 'String');
% 閲嶆柊璁劇疆鍥句緥錛堜負絀猴級
legend(handles.ResultsAxes,lgStr);
% 2.娣誨姞鐢葷嚎
% 鑾峰彇鍘熸潵鐨勫浘渚?/p>
lgStr = get(handles.hLegend, 'String');
% 璁劇疆涓嬩竴涓敾綰夸負娣誨姞鏂瑰紡
set(handles.ResultsAxes, 'Nextplot', 'add');
% 鎸囧畾瑕佺敾綰跨殑Axes
axes(handles.ResultsAxes);
% 鐢葷嚎
plot(distance_target, '-r')
% 娣誨姞鍥句緥
handles.hLegend = legend(handles.ResultsAxes, lgStr,'鐩爣璺濈');
% 3.鍒犻櫎鏌愪竴鐢葷嚎
% 鎵鍒犻櫎鐢葷嚎瀵瑰簲鐨勬暟鎹負distance_target錛岃幏鍙栧畠鐨勫彞鏌?/p>
sameLines = findobj('type','line','YData', distance_target);
% 鍒犻櫎鐢葷嚎
if ~isempty(sameLines)
delete(sameLines);
end
% 鑾峰彇鍘熸湁鐨勫浘渚?/p>
lgStr = get(legend(handles.ResultsAxes), 'String');
% 浠庡師鏈夊浘渚嬩腑鍒犻櫎瀵瑰簲鍥句緥
legend(handles.ResultsAxes, setdiff(lgStr, {'鐩爣璺濈'}));
3銆?font face="Times New Roman"> 鍦?font face="Times New Roman">GUI涓嬌鐢?font face="Times New Roman">Excel琛ㄦ牸錛?font face="Times New Roman">Activex鎺т歡Microsoft Office Spreedsheet錛?/p>
% 鑾峰彇鐜板湪浣跨敤鐨剆preedsheet鐨勫彞鏌?/p>
ActiveSheet = get(handles.activex1,'ActiveSheet');
% 鐜板湪浣跨敤鐨剆preedsheet鐨勭幇鍦ㄤ嬌鐢ㄥ伐浣滆杽
ActiveWorkbook = get(handles.activex1,'ActiveWorkbook');
% 鐜板湪浣跨敤鐨勮〃
eSheets = handles.activex1.ActiveWorkbook.Sheets;
% 浣跨敤琛ㄧ殑絎竴涓瓙琛?/p>
eSheet1 = eSheets.get('Item', 1);
% 嬋媧昏琛?/p>
eSheet1.Activate;
% 鑾峰彇褰撳墠鍗曞厓鏍肩殑鍙ユ焺
ActiveCell = get(handles.activex1, 'ActiveCell');
% 閫夋嫨鍧愭爣涓篈1鐨勫崟鍏冩牸
Select(Range(ActiveSheet,'A1'));
% 鑾峰彇褰撳墠鍗曞厓鏍肩殑鍙ユ焺
ActiveCell = get(handles.activex1, 'ActiveCell');
% 璁劇疆褰撳墠鍗曞厓鏍間腑鐨勫唴瀹?/p>
set(ActiveCell, 'Value', '浠跨湡緇撴灉鎶ュ憡');
4銆?font face="Times New Roman"> 涓?font face="Times New Roman">Axes鎺т歡璁劇疆鍥劇墖
% 鎵鏈夎緗殑Axes鎺т歡
axes(handles.MyLog);
% 璇誨彇鍥劇墖鏁版嵁
Image_tip1=imread('Setting/mylog.jpg');
% 鏄劇ず鍥劇墖
image(Image_tip1);