function varargout = pakau_gui2(varargin)
% PAKAU_GUI2 M-file for pakau_gui2.fig
% PAKAU_GUI2, by itself, creates a new PAKAU_GUI2 or raises the existing
% singleton*.
%
% H = PAKAU_GUI2 returns the handle to a new PAKAU_GUI2 or the handle to
% the existing singleton*.
%
% PAKAU_GUI2('CALLBACK',hObject,eventData,handles,...) calls the local
% function named CALLBACK in PAKAU_GUI2.M with the given input arguments.
%
% PAKAU_GUI2('Property','Value',...) creates a new PAKAU_GUI2 or raises the
% existing singleton*. Starting from the left, property value pairs are
% applied to the GUI before pakau_gui2_OpeningFunction gets called. An
% unrecognized property name or invalid value makes property application
% stop. All inputs are passed to pakau_gui2_OpeningFcn via varargin.
%
% *See GUI Options on GUIDE's Tools menu. Choose "GUI allows only one
% instance to run (singleton)".
%
% See also: GUIDE, GUIDATA, GUIHANDLES
% Copyright 2002-2003 The MathWorks, Inc.
% Edit the above text to modify the response to help pakau_gui2
% Last Modified by GUIDE v2.5 11-Feb-2005 10:55:10
% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct('gui_Name', mfilename, ...
'gui_Singleton', gui_Singleton, ...
'gui_OpeningFcn', @pakau_gui2_OpeningFcn, ...
'gui_OutputFcn', @pakau_gui2_OutputFcn, ...
'gui_LayoutFcn', [] , ...
'gui_Callback', []);
if nargin && ischar(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
% End initialization code - DO NOT EDIT
% --- Executes just before pakau_gui2 is made visible.
function pakau_gui2_OpeningFcn(hObject, eventdata, handles, varargin)
% This function has no output args, see OutputFcn.
% hObject handle to figure
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
% varargin command line arguments to pakau_gui2 (see VARARGIN)
handles.deck = zeros(52,1);
handles.deck_value = zeros(52,1);
for card=1:52
% shuffle deck from 1 to 52.
while(1)
i = floor(rand(1) * 52)+1;
if handles.deck(i) == 0
break;
end
end
handles.deck(i) = card;
% determine card's value
temp = mod(card-1, 13) + 1;
if temp > 9
handles.deck_value(i) = 10;
else
handles.deck_value(i) = temp;
end
end
handles.ncard = 1; % starting card
handles.board = []; % empty card board
handles.board_value = []; % empty card board value
handles.situation = 0; % non-answer situation
% Choose default command line output for pakau_gui2
handles.output = hObject;
% Update handles structure
guidata(hObject, handles);
% UIWAIT makes pakau_gui2 wait for user response (see UIRESUME)
% uiwait(handles.figure1);
% --- Outputs from this function are returned to the command line.
function varargout = pakau_gui2_OutputFcn(hObject, eventdata, handles)
% varargout cell array for returning output args (see VARARGOUT);
% hObject handle to figure
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
% Get default command line output from handles structure
varargout{1} = handles.output;
% --- Executes on button press in radiobutton1.
function radiobutton1_Callback(hObject, eventdata, handles)
% hObject handle to radiobutton1 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
% Hint: get(hObject,'Value') returns toggle state of radiobutton1
% --- Executes on button press in radiobutton2.
function radiobutton2_Callback(hObject, eventdata, handles)
% hObject handle to radiobutton2 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
% Hint: get(hObject,'Value') returns toggle state of radiobutton2
% --- Executes on button press in radiobutton3.
function radiobutton3_Callback(hObject, eventdata, handles)
% hObject handle to radiobutton3 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
% Hint: get(hObject,'Value') returns toggle state of radiobutton3
function board_edit_Callback(hObject, eventdata, handles)
% hObject handle to board_edit (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
% Hints: get(hObject,'String') returns contents of board_edit as text
% str2double(get(hObject,'String')) returns contents of board_edit as a double
% --- Executes during object creation, after setting all properties.
function board_edit_CreateFcn(hObject, eventdata, handles)
% hObject handle to board_edit (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
% Hint: edit controls usually have a white background on Windows.
% See ISPC and COMPUTER.
if ispc
set(hObject,'BackgroundColor','white');
else
set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));
end
% --- Executes on button press in deal_pushbutton.
function deal_pushbutton_Callback(hObject, eventdata, handles)
% hObject handle to deal_pushbutton (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
m = 4; % 3-pairs pakau
% set all radiobuttons off
for i=1:m
set(eval(['handles.radiobutton' num2str(i)]),'Enable','off');
set(eval(['handles.radiobutton' num2str(i)]),'Value',0);
end
set(handles.go_pushbutton,'Enable','off');
ncard = handles.ncard; % current card
handles.board = [handles.board handles.deck(ncard)]; % adds card into board
handles.board_value = [handles.board_value handles.deck_value(ncard)];
n = length(handles.board); % numbers of cards inside board
% cards remaining
set(handles.r_text,'String',num2str(52-ncard));
% cards' symbol
symbols = [' A';' 2';' 3';' 4';' 5';' 6';' 7';' 8';' 9';'10';' J';' Q';' K'];
%-------- Summing, Checking, and Deleting Process -----------
% at least three cards are need to do the process
if n >= m
% summing:
total = zeros(1,m);
for situation=1:m
total(situation) = sum(handles.board_value([1:situation-1, n-m+situation:n]));
end
% checking:
answer = 10; % when total can be divided by 10
choice = [];
for situation=1:m
if mod(total(situation), answer) == 0
choice = [choice situation];
end
end
% choose situation
for i=1:length(choice)
set(eval(['handles.radiobutton' num2str(choice(i))]),'Enable','on');
end
if length(choice) >= 1
set(handles.go_pushbutton,'Enable','on');
end
end
%------------------------------------------------------------
% show cards
out = '';
for i=1:length(handles.board);
% newline when reach 13 cards
if mod(i-1,13) == 0
out = sprintf('%s\n',out);
end
out = sprintf('%s%3s',out,symbols(mod(handles.board(i)-1,13)+1,:));
end
set(handles.board_edit,'String',out);
% 'off' deal pushbutton when cards were finish dealed.
handles.ncard = handles.ncard + 1;
if handles.ncard > 52
set(handles.deal_pushbutton,'Enable','off');
% win ?
if length(handles.board) > 1 && length(choice) == 0
set(handles.result_text,'String','Game Over');
end
end
% Update handles structure
guidata(hObject, handles);
% --------------------------------------------------------------------
function uipanel2_SelectionChangeFcn(hObject, eventdata, handles)
% hObject handle to uipanel2 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
switch get(hObject,'Tag')
case 'radiobutton1'
handles.situation = 1;
case 'radiobutton2'
handles.situation = 2;
case 'radiobutton3'
handles.situation = 3;
case 'radiobutton4'
handles.situation = 4;
end
guidata(hObject, handles);
% --- Executes on button press in go_pushbutton.
function go_pushbutton_Callback(hObject, eventdata, handles)
% hObject handle to go_pushbutton (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
m = 4;
n = length(handles.board);
symbols = [' A';' 2';' 3';' 4';' 5';' 6';' 7';' 8';' 9';'10';' J';' Q';' K'];
situation = handles.situation;
if situation ~= 0
handles.board([1:situation-1, n-m+situation:n]) = [];
handles.board_value([1:situation-1, n-m+situation:n]) = [];
% show cards
out = '';
for i=1:length(handles.board);
% newline when reach 13 cards
if mod(i-1,13) == 0
out = sprintf('%s\n',out);
end
out = sprintf('%s%3s',out,symbols(mod(handles.board(i)-1,13)+1,:));
end
set(handles.board_edit,'String',out);
% set all radiobuttons off
for i=1:m
set(eval(['handles.radiobutton' num2str(i)]),'Enable','off');
set(eval(['handles.radiobutton' num2str(i)]),'Value',0);
end
set(handles.go_pushbutton,'Enable','off');
%-------- Summing, Checking, and Deleting Process -----------
n = length(handles.board);
% at least three cards are need to do the process
if n >= m
% summing:
total = zeros(1,m);
for situation=1:m
total(situation) = sum(handles.board_value([1:situation-1, n-m+situation:n]));
end
% checking:
answer = 10;
choice = [];
for situation=1:m
if mod(total(situation), answer) == 0
choice = [choice situation];
end
end
% choose situation
for i=1:length(choice)
set(eval(['handles.radiobutton' num2str(choice(i))]),'Enable','on');
end
if length(choice) >= 1
set(handles.go_pushbutton,'Enable','on');
end
end
%---------------------------------------------------------------
% win ?
if handles.ncard > 52
if length(handles.board) == 0
set(handles.result_text,'String','You WIN');
else
set(handles.result_text,'String','Game Over');
end
end
end
handles.situation = 0;
guidata(hObject, handles);
