MATLAB鼠標事件

來源：https://blog.csdn.net/weixin_39090239/article/details/80586930

 

前記：

      人機交互的方式--鍵盤開關、鼠標、觸摸屏、體感傳感器（Kinect、leap motion）等的使用大大促進人與機器的交流過程。

這里記錄鼠標事件與MATLAB的結合，為后期機器人仿真控制打下基礎---如鼠標直接拖動機器人運動（像很多機器人仿真軟件里的作用一樣，如Robotstudio、soldworks、proe\core、Adams等）。

1、鼠標畫矩形

   代碼功能：運行代碼在出現的figure窗口，點擊鼠標畫出矩形

1.  
   k = waitforbuttonpress;
2.  
   point1 = get(gca,'CurrentPoint'); % button down detected
3.  
   finalRect = rbbox; % return figure units
4.  
   point2 = get(gca,'CurrentPoint'); % button up detected
5.  
   point1 = point1(1,1:2); % extract x and y
6.  
   point2 = point2(1,1:2);
7.  
   p1 = min(point1,point2); % calculate locations
8.  
   offset = abs(point1-point2); % and dimensions
9.  
   x = [p1(1) p1(1)+offset(1) p1(1)+offset(1) p1(1) p1(1)];
10.  
    y = [p1(2) p1(2) p1(2)+offset(2) p1(2)+offset(2) p1(2)];
11.  
    hold on
12.  
    axis manual
13.  
    plot(x,y)

                                                        

2、鼠標拖動直線

1.  
   function main
2.  
   f =figure;
3.  
   aH=axes('Xlim',[0 1],'Ylim',[0 1]);
4.  
   h=line([0.5 0.5],[0 1],...
5.  
   'color','red',...
6.  
   'linewidth',4,...
7.  
   'ButtonDownFcn',@startDragFcn);
8.  
   set(f,'WindowButtonUpFcn',@startDragFcn);
9.  
   function startDragFcn(varargin)
10.  
    set(f,'WindowButtonMotionFcn',@draggingFcn);
11.  
    end
12.  
    function draggingFcn(varargin)
13.  
    pt=get(aH,'CurrentPoint');
14.  
    set(h,'Xdata',pt(1)*[1 1]);
15.  
    end
16.  
    function stopDragFcn(varargin)
17.  
    set(f,'WindowButtonMotionFcn','');
18.  
    end
19.  
    end

                                                  

 

3、顯示坐標

1.  
   function ff
2.  
   x = 5:30;
3.  
   y = x.^2-40.*x+400;
4.  
   plot(x,y);
5.  
   axis([5,30,-50,250]);
6.  
    
7.  
   tb = text;
8.  
   set(gcf, 'WindowButtonMotionFcn', @callback);
9.  
    
10.  
    function callback(hObject, event)
11.  
    loc = get(gca, 'CurrentPoint');
12.  
    loc = loc([1 3]);
13.  
    set(tb, 'string', num2str(loc), 'position', loc);
14.  
    end
15.  
    end

                                                  

4、畫軌跡並保存點坐標

1.  
   function MouseDraw(action)
2.  
   % MouseDraw 本例展示如何以Handle Graphics來設定滑鼠事件
3.  
   % (MouseDraw Events)的反應指令(Callbacks)
4.  
    
5.  
   % 本程序在鼠標移動非常快時，不會造成畫“斷線”
6.  
   % global不能傳矩陣
7.  
   global InitialX InitialY FigHandle
8.  
   if nargin == 0, action = 'start';
9.  
   end
10.  
     
11.  
    switch(action)
12.  
    %%開啟圖形視窗
13.  
    case 'start'
14.  
    FigHandle = figure('WindowButtonDownFcn','MouseDraw down');
15.  
    axis([-600 600 -600 600]); % 設定圖軸范圍
16.  
    % axis off;
17.  
    grid on;
18.  
    box on; % 將圖軸加上圖框
19.  
    title('手寫體輸入窗');
20.  
    % % fprintf('start');
21.  
    %%設定滑鼠按鈕被按下時的反應指令為「MouseDraw down」
22.  
    % set(gcf, 'WindowButtonDownFcn', 'MouseDraw down');
23.  
    dlmwrite('IXT.txt', 10, 'delimiter', '\t', 'precision', 10);
24.  
    dlmwrite('IZT.txt', 10, 'delimiter', '\t', 'precision', 10);
25.  
    %%滑鼠按鈕被按下時的反應指令
26.  
    case 'down'
27.  
    if strcmp(get(FigHandle, 'SelectionType'), 'normal') %如果是左鍵
28.  
    set(FigHandle,'pointer','hand');
29.  
    CurPiont = get(gca, 'CurrentPoint');
30.  
    InitialX = CurPiont(1,1);
31.  
    InitialY = CurPiont(1,2);
32.  
    dlmwrite('IXT.txt', InitialX, '-append', 'delimiter', '\t', 'precision', 10);
33.  
    dlmwrite('IZT.txt', InitialY, '-append', 'delimiter', '\t', 'precision', 10);
34.  
    % 列印「MouseDraw down!」訊息
35.  
    % % fprintf('MouseDraw down!\n');
36.  
    % 設定滑鼠移動時的反應指令為「MouseDraw move」
37.  
    set(gcf, 'WindowButtonMotionFcn', 'MouseDraw move');
38.  
    set(gcf, 'WindowButtonUpFcn', 'MouseDraw up');
39.  
    elseif strcmp(get(FigHandle, 'SelectionType'), 'alt') % 如果是右鍵
40.  
    set(FigHandle, 'Pointer', 'arrow');
41.  
    set( FigHandle, 'WindowButtonMotionFcn', '')
42.  
    set(FigHandle, 'WindowButtonUpFcn', '')
43.  
    fprintf('MouseDraw right button down!\n');
44.  
    ImageX = importdata('IXT.txt');
45.  
    ImageY = importdata('IZT.txt');
46.  
    InputImage = ones(imSize);
47.  
    roundX = round(ImageX);
48.  
    roundY = round(ImageY);
49.  
    for k = 1:size(ImageX,1)
50.  
    if 0 <roundX(k) && roundX(k)<imSize && 0<roundY(k) && roundY(k)<imSize
51.  
    InputImage(roundX(k)-1:roundX(k)+2, roundY(k)-1:roundY(k)+2) = 0;
52.  
    end
53.  
    end
54.  
    InputImage = imrotate(InputImage,180); % 圖像旋轉
55.  
    figure(2);
56.  
    imshow(InputImage);
57.  
    end
58.  
    %%滑鼠移動時的反應指令
59.  
    case 'move'
60.  
    CurPiont = get(gca, 'CurrentPoint');
61.  
    X = CurPiont(1,1);
62.  
    Y = CurPiont(1,2);
63.  
    % 當鼠標移動較快時，不會出現離散點。
64.  
    % 利用y=kx+b直線方程實現。
65.  
    x_gap = 1; % 定義x方向增量
66.  
    y_gap = 1; % 定義y方向增量
67.  
    if X > InitialX
68.  
    step_x = x_gap;
69.  
    else
70.  
    step_x = -x_gap;
71.  
    end
72.  
    if Y > InitialY
73.  
    step_y = y_gap;
74.  
    else
75.  
    step_y = -y_gap;
76.  
    end
77.  
    % 定義x,y的變化范圍和步長
78.  
    if abs(X-InitialX) < 0.1 % 線平行於y軸，即斜率不存在時
79.  
    iy = InitialY:step_y:Y;
80.  
    ix = X.*ones(1,size(iy,2));
81.  
    else
82.  
    ix = InitialX:step_x:X ; % 定義x的變化范圍和步長
83.  
    % 當斜率存在，即k = (Y-InitialY)/(X-InitialX) ~= 0
84.  
    iy = (Y-InitialY)/(X-InitialX).*(ix-InitialX)+InitialY;
85.  
    end
86.  
    ImageX = [ix, X];
87.  
    ImageY = cat(2, iy, Y);
88.  
    line(ImageX,ImageY, 'marker', '.', 'markerSize',1, ...
89.  
    'LineStyle', '-', 'LineWidth', 2, 'Color', 'Blue');
90.  
    dlmwrite('IXT.txt', ImageX, '-append', 'delimiter', '\t', 'precision', 10);
91.  
    dlmwrite('IZT.txt', ImageY, '-append', 'delimiter', '\t', 'precision',10);
92.  
    InitialX = X; %記住當前點坐標
93.  
    InitialY = Y; %記住當前點坐標
94.  
    % 列印「MouseDraw is moving!」及滑鼠現在位置
95.  
    % fprintf('MouseDraw is moving! Current location = (%g, %g)\n', ...
96.  
    % CurPiont(1,1), CurPiont(1,2));
97.  
    % % fprintf('MouseDraw move!\n');
98.  
    % 設定滑鼠按鈕被釋放時的反應指令為「MouseDraw up」
99.  
    % set(gcf, 'WindowButtonUpFcn', 'MouseDraw up');
100.  
     %%滑鼠按鈕被釋放時的反應指令
101.  
     case 'up'
102.  
     % 清除滑鼠移動時的反應指令
103.  
     set(gcf, 'WindowButtonMotionFcn', '');
104.  
     % 清除滑鼠按鈕被釋放時的反應指令
105.  
     set(gcf, 'WindowButtonUpFcn', '');
106.  
     % 列印「MouseDraw up!」
107.  
     % % fprintf('MouseDraw up!\n');
108.  
     end
109.  
      
110.  
     end
111.  
      

                                               

5、也是拖動直線的，不過一個拖動時，另一個不動。點擊show position...在命令行返回數值（因為有GUI所以打包放在我的資源里了，需要的自己下）點擊打開鏈接。

        

6、后記

以上為網上資源的收集，主要是供自己學習。如果碰巧你需要，甚幸~.~ //