1、matlab各种游戏编程大全俄罗斯方块贪吃蛇拼图五子棋黑白棋华容道等用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,
2、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
3、, on ) ; elseif ischar( varargin1 ) 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(
4、 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( Sav
5、eGame_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 = ui
6、menu( 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
7、( HighScore_Callback, gcbo ), Enable, off );GameLevelMenu = uimenu( OperationMenu, Label, 游戏难度,. Cal,RussiaBlock( GameLevel_Callback, gcbo ) );HelpMenu = uimenu( FigureHandle, Label, 帮助 );AboutMenu = uimenu( HelpMenu, Label, 关于此软件, Cal, helpdlg(俄罗斯方块MATLAB版,关于此软件);HelpDlgMenu = uimenu( HelpMenu, Lab
8、el, 游戏帮助, Separator, on, Cal, helpdlg(帮不了你- -!,不好意思) );% 创建工具条,图标可以用imread从图片读取,但图片不要太大BeginTool = uipushtool( ToolTipString, 开始, CData, rand(16,16,3), Tag, BeginTool,. ClickedCallback, RussiaBlock( StartNewGame_Callback, gcbo ) ) ;PauseTool = uitoggletool( ToolTipString, 暂停, Tag, PauseTool, Tag, Pa
9、useTool,. CData, reshape( repmat( 1 1 0, 16, 16), 16,16,3 ),. ClickedCallback, RussiaBlock( PauseGame_Callback, gcbo ) ) ;% 创建游戏窗口MainWindowXPos = TabSpace;MainWindowYPos = TabSpace;MainWindowWidth = BlockWidth * 12 ; MainWindowHeight = BlockHeight * 22 ;MainWindowPosition = MainWindowXPos MainWindo
10、wYPos MainWindowWidth MainWindowHeight ;% 定义游戏窗口的右键菜单AxesContextMenu = uicontextmenu( Tag, uicontextmenu ) ;uimenu( AxesContextMenu, Label, 设置窗口颜色, Cal, RussiaBlock( WindowColor_Callback, gcbo ) )uimenu( AxesContextMenu, Label, 设置背景图片, Cal, RussiaBlock( WindowPicture_Callback, gcbo ) )uimenu( AxesCo
11、ntextMenu, Label, 设置方块颜色, Cal, RussiaBlock( BlockColor_Callback, gcbo ) )uimenu( AxesContextMenu, Label, 恢复默认, Cal, RussiaBlock( Default_Callback, gcbo ) )MainAxes = axes( Units, pixels, Pos, MainWindowPosition, XTick, , YTick, XTickLabel, ,. YTickLabel, , Box, on, Tag, MainAxes, UicontextMenu, Axes
12、ContextMenu,. XLim, 0 MainWindowWidth, YLim, 0 MainWindowHeight ) ;hold on;% 创建一个窗口用于显示下一个方块的图形NextBlockWndXPos = MainWindowXPos + MainWindowWidth + TabSpace ;NextBlockWndHeight = 4 * TabSpace + BlockHeight ;NextBlockWndYPos = MainWindowYPos + MainWindowHeight - NextBlockWndHeight ;NextBlockWndWidth
13、 = TabSpace * 4 + BlockWidth ;NextBlockWndPosition = NextBlockWndXPos NextBlockWndYPos NextBlockWndWidth NextBlockWndHeight ;NextBlockAxes = axes( Units, pixels, Pos, NextBlockWndPosition, XTick, , YTick,. XTickLabel, , YTickLabel, , XLim, 0 NextBlockWndWidth,. YLim, 0 NextBlockWndHeight, . Box, on,
14、 Tag, NextBlockAxes, Color, 0.85 0.85 0.85 ) ;% 创建一组控件,包括(两个文本框用于显示当前方块数和成绩,两个按钮用于暂停和退出)ButtonTag = QuitButton, PauseButton, BlockNumText, ScoreText ;ButtonStyle = pushbutton, togglebutton, text, text ;FontColor = 0 0 0, 1 0 0, 0 0 1, 1 0 1 ;ButtonColor = 0.7 0.8 0.9, 0.3 1 0.3, 0.5 1 1, 0.5 1 1 ;Bu
15、ttonString = 退出, 暂停, 方块数, 积分 ;ButtonCallback = close(gcf), RussiaBlock( ButtonPauseGame_Callback, gcbo ), , ;ButtonNumber = length( ButtonTag ) ;ButtonWidth = NextBlockWndWidth ;ButtonHeight = 50 ;ButtonXPos = NextBlockWndXPos ;ButtonYPos = MainWindowYPos + TabSpace ;ButtonPosition = ButtonXPos Butt
16、onYPos ButtonWidth ButtonHeight ;ButtonTabSpace = (NextBlockWndYPos - 2 * TabSpace - ButtonHeight * ButtonNumber) / ButtonNumber ;for num = 1: ButtonNumber TempButtonPosition = ButtonPosition ; TempButtonPosition(2) = ButtonPosition(2) + (num - 1) * (ButtonTabSpace + ButtonHeight); if findstr( Butto
17、nStylenum, button ) TempButtonPosition(1) = TempButtonPosition(1) + 10 ; TempButtonPosition(2) = TempButtonPosition(2) + 5 ; TempButtonPosition(3) = TempButtonPosition(3) - 10 * 2 ; TempButtonPosition(4) = TempButtonPosition(4) - 5 * 2 ; else TempButtonPosition(1) = TempButtonPosition(1) - 10 ; Temp
18、ButtonPosition(2) = TempButtonPosition(2) - 5 ; TempButtonPosition(3) = TempButtonPosition(3) + 10 * 2; TempButtonPosition(4) = TempButtonPosition(4) + 5 * 2 ; end ButtonHandle = uicontrol( Tag, ButtonTagnum, Style, ButtonStylenum, Pos, TempButtonPosition,. Foregroundcolor, FontColornum, Backgroundc
19、olor, ButtonColornum,. Fontsize, 16, String, ButtonStringnum, Cal, ButtonCallbacknum ) ; if findstr( ButtonStylenum, text ) set( ButtonHandle, Max, 2 ) ; end if findstr( ButtonTagnum, PauseButton ) set( ButtonHandle, Enable, inactive, ButtonDownFcn, ButtonCallbacknum, Cal, ) ; endendMainBlockAxes =
20、axes( Units, pixels, Pos, MainWindowPosition, XTick, , YTick, XTickLabel, ,. YTickLabel, , Box, on, Tag, MainBlockAxes, Hittest, off,. XLim, 0 MainWindowWidth, YLim, 0 MainWindowHeight, Color, none ) ;line( Visible, on, Tag, BlockHandle, Markersize, 18, Parent, MainBlockAxes, HitTest, off,. Marker,
21、s, MarkerEdgeColor, k, XData, nan, YData, nan, LineStyle, none ) ;line( Visible, off, Tag, TempBlock, Markersize, 18, Parent, MainBlockAxes, HitTest, off,. Marker, s, MarkerEdgeColor, k, XData, 130, YData, 30, LineStyle, none ) ;line( Visible, off, Tag, NextBlock, Markersize, 18, Parent, NextBlockAx
22、es, HitTest, off,. Marker, s, MarkerEdgeColor, k, XData, 30, YData, 30, LineStyle, none ) ;setappdata( FigureHandle, XLim, 0 MainWindowWidth )setappdata( FigureHandle, YLim, 0 MainWindowHeight )handles = guihandles( FigureHandle ) ;guidata( FigureHandle, handles ) ;% -function init_FigureContent( Fi
23、gureHandle )handles = guidata( FigureHandle ) ;ColorInfo = ;try ColorInfo = load(ColorInfo.mat) ; catch endif isempty( ColorInfo ) ColorInfo.BlockColor = GetDefaultBlockColor ; ColorInfo.MainAxesColor = GetDefaultMainAxesColor ; ColorInfo.MainAxesImage.ImageData = ;endset( handles.MainAxes, Color, C
24、olorInfo.MainAxesColor ) ;if isempty( ColorInfo.MainAxesImage.ImageData ) ImageHandle = image( ColorInfo.MainAxesImage.ImageData, Parent, handles.MainAxes ) ; set( ImageHandle, ColorInfo.MainAxesImage.Property ) ; setappdata( FigureHandle, ImageData, ColorInfo.MainAxesImage.ImageData ) ;endset( hand
25、les.BlockHandle, MarkerFaceColor, ColorInfo.BlockColor ) ;set( handles.TempBlock, MarkerFaceColor, ColorInfo.BlockColor ) ;set( handles.NextBlock, MarkerFaceColor, ColorInfo.BlockColor ) ;setappdata( FigureHandle, BlockColor, ColorInfo.BlockColor ) ;% -function StartNewGame_Callback( h, StartType )h
26、andles = guidata( h ) ;global PauseTimeif nargin = 1 StartType = NewStart ; setappdata( handles.RussiaBlock, BlockNumber, 0 ) ; set( handles.BlockNumText, String, 方块数,0 ) ; setappdata( handles.RussiaBlock, CurrentScore, 0 ) ; set( handles.ScoreText, String, 积分,0 ) ; set( handles.BlockHandle, XData,
27、nan, YData, nan ) ; set( handles.TempBlock, XData, nan, YData, nan ) ; TextHandle = findobj( Parent, handles.MainBlockAxes, Type, text ) ; delete( TextHandle ) ;elseendset( handles.NextBlock, Visible, on ) ;set( handles.TempBlock, Visible, on ) ;set( handles.PauseTool, State, off ) ;set( handles.PauseButton, Value, 0 ) ;YLim = get( handles.MainAxes, YLim ) ;while( ishandle( h ) ) TotalYData = get( handles.BlockHandle, YData ) ; if any( TotalYData = YLim(2) ) % Game over text( 20, 200, GameOver, Parent, handles.MainBlockAxes,. FontSize, 30, Color, r, FontAngle, ita
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1