maab各种游戏编程大全俄罗斯方块贪吃蛇拼图五子棋黑白棋华容道等.docxVIP

用matlab编写的俄罗斯方块小游戏function 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, on,... 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} ) feval( varargin{:} ) ; 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, off,... Separator, on, Cal, RussiaBlock( SaveGame_Callback, gcbo ) );LoadMenu = uimenu( BeginMenu, Label, 读取, Accelerator, L, Enable, off,... 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, off,... Cal, RussiaBlock( BoardConfig_Callback, gcbo ) );FigureConfigMenu = uimenu( OperationMenu, label, 界面设置, Enable, off,... Cal, RussiaBlock( FigureConfig_Callback, gcbo ) );HighScoreMenu = uimenu( OperationMenu, label, 最高记录, Separator, on,... Cal, RussiaBlock( HighScore_Callback, gcbo ), Enable, off );GameLevelMenu = uimenu( OperationMenu, Label, 游戏难度,... Cal,RussiaBlock( GameLevel