用matlab编写的俄罗斯方块小游戏.docVIP

- . z. 用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,...? KeyPressF, RussiaBlock( KeyPress_Callback, gcbo ),...? HelpF, helpdlg(帮不了你- -!,不好意思),...? CloseRequestF, 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( Oper