俄罗斯方块MATLAB版的代码

function varargout = RussiaBlock( varargin ) if nargin == 0 OldHandle = findobj( Type , figure , Tag , RussiaBlock ) ; if ishandle( OldHandle ) delete( OldHandle ) ; end FigureHandle = figure( Name , 俄罗斯方块 MATLAB 版 , Tag , RussiaBlock , NumberTitle , off ,. Menubar , none , DoubleBuffer , on , Resize , off , visible , off ,. KeyPressFcn , RussiaBlock( KeyPress_Callback , gcbo ) ,. HelpFcn , helpdlg( 帮不了你- -! , 不好意思 ) ,. CloseRequestFcn , RussiaBlock( CloseFigure_Callback , gcbo ) ) ; generate_FigureContent( FigureHandle ) ; init_FigureContent( FigureHandle ) ; set( FigureHandle, Visible , on ) ; elseif ischar( varargin{1} ) if nargout == 0 f( varargin{:} ) ; else [varargout{1:nargout}] = f( varargin{:} ) ; end end % ------------------------------------------------------------------------- function generate_FigureContent( FigureHandle ) TabSpace = 30 ; BlockWidth = 20 ; BlockHeight = 20 ; FigureWidth = BlockWidth * (12 + 1) + TabSpace * 7; FigureHeight = 500 ; set( FigureHandle, Position , [0 0 FigureWidth FigureHeight] ) ; movegui( FigureHandle, center ) ; % 创建菜单 BeginMenu = uimenu( FigureHandle, Label , 开始 ) ; StartMenu = uimenu( BeginMenu, Label , 开始新游戏 , Accelerator , N ,. Callback , RussiaBlock( StartNewGame_Callback , gcbo ) ); SaveMenu = uimenu( BeginMenu, Label , 保存 , Accelerator , S , Enable , on ,. Separator , on , Cal , RussiaBlock( SaveGame_Callback , gcbo ) ); LoadMenu = uimenu( BeginMenu, Label , 读取 , Accelerator , L , Enable , on ,. Cal , RussiaBlock( LoadGame_Callback , gcbo ) ); QuitMenu = uimenu( BeginMenu, Label , 退出 , Accelerator , Q , Separator , on , Cal , close(gcf) ); OperationMenu = uimenu( FigureHandle, Label , 功能 ); BoardConfigMenu = uimenu( OperationMenu, label , 键盘设置 , Enable , on ,. Cal , RussiaBlock( BoardConfig_Callback , gcbo ) ); FigureConfigMenu = uimenu( OperationMenu, label , 界面设置 , Enable , on ); uimenu( FigureConfigMenu, Label , 设置窗口颜色 , Cal , RussiaBlock( WindowColor_Callback , gcbo ) ) uimenu( FigureConfigMenu, Label , 设置背景图片 , Cal , RussiaBlock( WindowPicture_Callback , gcbo ) ) uimenu( FigureConfigMenu, Label , 设置方块颜色 , Cal , RussiaBlock( BlockColor_Callback , gcbo ) ) uimenu( FigureConfigMenu, Label , 恢复默认 , Cal , RussiaBlock( Default_Callback , gcbo ) ) HighScoreMenu = uimenu( OperationMenu, label , 最高记录 , Separator , on ,. Cal , RussiaBlock( HighScore_Callback , gcbo ) , Enable , on ); GameLevelMenu = uimenu( OperationMenu, Label , 游戏难度 ,. Cal , RussiaBlock( GameLevel_Callback , gcbo ) ); HelpMenu = uimenu( FigureHandle, Label , 帮助 ); AboutMenu = uimenu( HelpMenu, Label , 关于此软件 , Cal , helpdlg( 俄罗斯方块 MATLAB版------冰风漫天 (制作)(2006/11/21) , 关于此软件…… ) ); HelpDlgMenu = uimenu( HelpMenu, Label , 游戏帮助 , Separator , on , Cal , helpdlg( 帮不了你- -! , 不好意思 ) ); % 创建工具条,图标可以用 imread 从图片读取，但图片不要太大 BeginTool = uipushtool( ToolTipStri