MATLAB 創建跑馬燈

if8051

MATLAB 超強功能！數學演算軟體  2D  3D  畫圖，自動控制  通訊  建模模擬，各式工程，舉凡財經研究，
DSP 開發，都需要 MATLAB，學術上用途很廣，現在展示如何設計 跑馬燈 。

1. function dotmatrix
   
2. % 跑馬燈
   
3. % 圖形窗口，座標軸準備
   
4. hfig=figure('position',[300   355   477   325],'color','k','name','dotmatrix','menubar','none');  % figure背景顏色
   
5. axis off ;axis equal
   
6. [X Y]=meshgrid(linspace(1,16,128));
   
7. h=zeros(size(X));        % 存放所有「點」的 token
   
8. str='熱烈歡迎 您 大駕光臨 SOGO 論壇 電子電機暨資訊工程館！';   %%%%【將此處修改成你要顯示的文字】
   
9. DATA=[];
   
10. for i=1:length(str)      % 調用字模提取函數文件，生成點陣數據
    
11.     temp=getwordmatrix(str(i));
    
12.     DATA=[DATA flipud(temp)];
    
13. end
    
14. DATA=[zeros(16,60) DATA zeros(16,60)];        %% 微調顯示效果，讓文字從右出現
    
15. for i=1:16               % 創建點陣
    
16.     for j=1:64
    
17.         h(i,j)=line(X(i,j),Y(i,j),'marker','s','markersize',3,'markerfacecolor','none');
    
18.             set(h(i,j),'buttondownfcn','buttondown','markeredgecolor','none');
    
19.     end
    
20. end
    
21. 
    
22. % while ishandle(hfig)   % 循環改變點陣
    
23. %    Z=DATA(:,1:64);
    
24. %     for i=1:16
    
25. %     for j=1:64
    
26. %         if Z(i,j)==1
    
27. %         set(h(i,j),'markerfacecolor','g');
    
28. %         else         
    
29. %         set(h(i,j),'markerfacecolor','none');
    
30. %         end
    
31. %     end
    
32. %     end
    
33. %  pause(1/24);
    
34. %  DATA=DATA(:,[2:end 1]);
    
35. %  end
    
36. %% 循環顯示
    
37. 
    
38. numFrames=0;
    
39. while numFrames<(size(DATA,2)-64)/2
    
40. % while ishandle(hfig)   % 循環改變點陣
    
41.    Z=DATA(:,1:64);
    
42.     for i=1:16
    
43.     for j=1:64
    
44.         if Z(i,j)==1
    
45.         set(h(i,j),'markerfacecolor','g');  %%%% 更改文字顏色。'g'為綠色
    
46.         else         
    
47.         set(h(i,j),'markerfacecolor','none');
    
48.         end
    
49.     end
    
50.     end
    
51.     pause(.02);
    
52.     DATA=DATA(:,[3:end 1:2]);
    
53.     numFrames=numFrames+1;  
    
54.     frames(numFrames)=getframe;
    
55. end
    
56. 
    
57. %% 寫文件
    
58. animated(1,1,1,numFrames) = 0;
    
59. for k=1:numFrames
    
60.    if k == 1
    
61.       [ animated cmap] = rgb2ind(frames(k).cdata, 256, 'nodither');
    
62.    else
    
63.       animated(:,:,1,k) =rgb2ind(frames(k).cdata, cmap, 'nodither');
    
64.    end     
    
65. end
    
66. 
    
67. filename = 'welcome.gif';
    
68. imwrite(animated, cmap, filename, 'DelayTime', .2, 'LoopCount', inf);
    
69. web(filename)
    
70. 
    
71. end
    
72. 
    
73. %% 下面這個回調函數可以無視掉~~
    
74. function buttondown      % 按下回調函數
    
75. set(gcbo,'markerfacecolor',rand(1,3));
    
76. end

複製代碼