function?varargout?=?poker（varargin）
gui_Singleton?=?1;
gui_State?=?struct（‘gui_Name‘???????mfilename?...
???????????????????‘gui_Singleton‘??gui_Singleton?...
???????????????????‘gui_OpeningFcn‘?@poker_OpeningFcn?...
???????????????????‘gui_OutputFcn‘??@poker_OutputFcn?...
???????????????????‘gui_LayoutFcn‘??[]??...
???????????????????‘gui_Callback‘???[]）;
if?nargin?&?isstr（varargin{1}）
????gui_State.gui_Callback?=?str2func（varargin{1}）;
end
if?nargout
????[varargout{1:nargout}]?=?gui_mainfcn（gui_State?varargin{:}）;
else
????gui_mainfcn（gui_State?varargin{:}）;
end
%?--------------------------------------------------------------------
function?poker_OpeningFcn（hobject?eventdata?handles?varargin）
handles.output?=?hobject;
guidata（hobject?handles）;

global?IMAGE;global?POKER;global?GRAY;global?BW;global?BWSTR;
IMAGE=0;
POKER=0;
GRAY=0;
BW=0;
BWSTR=0;%全局變量初始化為0
%?--------------------------------------------------------------------
function?varargout?=?poker_OutputFcn（hobject?eventdata?handles）
varargout{1}?=?handles.output;
%?--------------------------------------------------------------------
function?file_Callback（hobject?eventdata?handles）
%?--------------------------------------------------------------------
function?new_Callback（hobject?eventdata?handles）
global?IMAGE;
global?POKER;
global?GRAY;
global?BW;
global?BWSTR;

name=0;
[namepath]=uigetfile（{‘*.bmp‘;‘*.jpg‘;‘*tif‘}‘打開圖像‘）;
if?name==0;
????return;%沒有打開圖像
end

IMAGE=imread（strcat（pathname））;%成功打開圖像
POKER=0;GRAY=0;BW=0;BWSTR=0;%其他圖像復位

subplot（111）imshow（IMAGE）title（‘撲克紙牌圖像‘）;
%?--------------------------------------------------------------------
function?operate_Callback（hobject?eventdata?handles）
%?--------------------------------------------------------------------
function?rectify_Callback（hobject?eventdata?handles）
global?IMAGE;
global?POKER;

if?IMAGE==0;%未打開圖像
????msgbox（‘請先打開一幅撲克圖像‘‘錯誤‘‘error‘）;
else
????tic;%計算校正與定位用時
????POKER=rectify（IMAGE）;
????if?toc>5%設(shè)置超時時間為3秒
????????msgbox（‘圖像校正定位超時‘‘錯誤‘‘error‘）;
????????return;
????end
????time=num2str（toc）;
????str=strcat（‘校正與定位耗時‘time‘秒‘）;
????subplot（111）imshow（POKER）title（‘撲克紙牌‘）;
????msgbox（str‘消息‘）;
end
%?--------------------------------------------------------------------
function?gray_Callback（hobject?eventdata?handles）
global?IMAGE;
global?POKER;
global?GRAY;

if?IMAGE==0%未打開圖像
????msgbox（‘請先打開一幅撲克圖像‘‘錯誤‘‘error‘）;
elseif?POKER==0%未進行圖像校正
????msgbox（‘請先對圖像進行校正定位‘‘錯誤‘‘error‘）;
else
????GRAY=rgb2gray（POKER）;
????subplot（111）imshow（GRAY）title（‘圖像灰度化‘）;
end
%?--------------------------------------------------------------------
function?binary_Callback（hobject?eventdata?handles）
global?IMAGE;
global?POKER;
global?GRAY;
global?BW;

if?IMAGE==0%未打開圖像
????msgbox（‘請先打開一幅撲克圖像‘‘錯誤‘‘error‘）;
elseif?POKER==0%未進行圖像校正
????msgbox（‘請先對圖像進行校正定位‘‘錯誤‘‘error‘）;
elseif?GRAY==0%未進行圖像灰度化
????msgbox（‘請先對圖像進行灰度化‘

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件??????12016??2008-06-19?11:54??poker\poker.fig

?????文件??????13055??2008-06-21?12:46??poker\poker.m

?????文件?????230454??2007-01-19?13:15??poker\圖片?000.bmp

?????文件?????230454??2007-01-17?13:38??poker\圖片?001.bmp

?????文件?????230454??2007-01-17?13:38??poker\圖片?002.bmp

?????文件?????230454??2007-01-17?13:39??poker\圖片?003.bmp

?????文件?????230454??2007-01-17?13:39??poker\圖片?004.bmp

?????文件?????230454??2007-01-17?13:39??poker\圖片?005.bmp

?????文件?????230454??2007-01-17?13:39??poker\圖片?006.bmp

?????文件?????230454??2007-01-17?13:39??poker\圖片?007.bmp

?????文件?????230454??2007-01-17?13:40??poker\圖片?008.bmp

?????文件?????230454??2007-01-19?14:40??poker\圖片?009.bmp

?????文件?????230454??2007-01-17?13:40??poker\圖片?010.bmp

?????文件?????230454??2007-01-17?13:40??poker\圖片?011.bmp

?????文件?????230454??2007-01-17?13:41??poker\圖片?012.bmp

?????文件?????230454??2007-01-17?13:41??poker\圖片?013.bmp

?????文件?????230454??2007-01-17?13:41??poker\圖片?014.bmp

?????文件?????691200??2008-06-20?14:48??poker\撲克紙牌識別報告.doc

?????目錄??????????0??2008-06-21?12:50??poker

-----------?---------??----------?-----??----

??????????????4173081????????????????????19