vb小游戏雷竞技raybet手机网页

这里面有很多,你进去选一下,VB类毕业设计目录_VB毕业设计论文 双击自动滚屏 文章来源：一流设计吧 发布者：16sheji8 发布时间：2008-6-26 9:49:34 阅读：755次 VB目录《聊天通信软件开发》 《VB001小区物业管理系统》 《VB002超市管理系统》 《VB003酒店客房管理信息系统》 《VB004宾馆客房管理系统》 《VB005企业生产管理系统》 《VB006客户关系管理系统》 《VB007设备管理信息系统》 《VB008工资管理系统》 《VB009自动出题题库系统》 《VB010试卷生成系统》 《VB011员工培训管理系统》 《VB012医院住房管理系统》 《VB013医院管理信息系统》 《VB014旅游资源及线路管理系统》 《VB015音像管理系统》 《VB016基于智能Agent的网络教学管理系统》 《VB017学生信息管理系统》 《VB018学生成绩管理系统》 《VB019图书馆管理系统》 《VB020雷竞技raybet手机网页管理系统》 《VB021采购管理系统》 《VB022公交车调度管理系统》 《VB023通用缴费注册管理系统》 《VB024网吧记费管理系统》 《VB025高校科研信息管理系统》 《VB026机房管理系统》 《VB027教务管理系统》 《VB028备案管理信息系统》 《VB029进销存管理系统》 《VB030排课管理系统》 《VB031人事管理系统》 《VB032仓库管理系统》 《VB033餐饮管理系统》 《VB034售楼管理系统》 《VB035火车站售票管理系统》 《VB036运输管理系统》 《VB037固定资产管理系统》 《VB038航空公司管理系统》 《VB039家庭理财管理系统》 《VB040无纸化考试系统》 《VB041门诊管理系统》《VB042房屋销售管理系统》《VB043房屋租凭管理系统》《VB044失业保险管理信息系统》《VB045光盘管理系统》《VB046学籍管理系统》《VB047学生考勤信息管理》《VB048宿舍管理系统》《VB049图像处理工具》《VB050销售合同管理系统》《VB051招生管理系统》《VB052车辆管理系统》《VB053户籍管理系统》《VB054人事考勤管理系统》《VB055物流管理系统》《VB056学生档案管理系统》《VB057学生选课系统》《VB058身份证管理系统》《VB059自动点歌系统》《VB060课题项目进程管理系统》《VB061商品销售管理系统》《VB062中大迅通合同统计系统》《VB063上机考试系统》《VB064网络多人聊天系统的设计与实现》《VB065评语生成系统》《VB066高速公路收费系统》《VB067通用试题库系统》《VB068大学社团管理系统》《VB069报警系统》《VB070高校缴费系统》《VB071教师管理系统》《VB072教材管理系统》《VB073简单小游戏设计》VB074电脑销售系统》VB075期刊信息管理系统》VB076企业档案管理系统》VB077企业员工管理信息系统》VB078通讯录系统》VB079网吧管理系统》 本文来自: 一流设计吧() 详细出处参考：

'定义蛇的运动速度枚举值Private Enum tpsSpeedQUICKLY = 0SLOWLY = 1End Enum'定义蛇的运动方向枚举值Private Enum tpsDirectionD_UP = 38D_DOWN = 40D_LEFT = 37D_RIGHT = 39End Enum'定义运动区域4个禁区的枚举值Private Enum tpsForbiddenZoneFZ_TOP = 30FZ_BOTTOM = 5330FZ_LEFT = 30FZ_RIGHT = 5730End Enum'定义蛇头及身体初始化数枚举值Private Enum tpsSnakeSNAKEONE = 1SNAKETWO = 2SNAKETHREE = 3SNAKEFOUR = 4End Enum'定义蛇宽度的常量Private Const SNAKEWIDTH As Integer = 100'该过程用于显示游戏信息Private Sub Form_Load() = "BS贪食蛇 — (版本 " & & "." & & "." & & ")" = 1End Sub'该过程用于使窗体恢复原始大小Private Sub Form_Resize()If > 1 = "" = 6405 '窗体高度为 6405 缇 = 8535 '窗体宽度为 8535 缇 = ( - Width) \ = ( - Height) \ 2End IfEnd Sub'该过程用于重新开始开始游戏Private Sub cmdGameStart_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Beepmsg = MsgBox("您确认要重新开始游戏吗？", 4 + 32, "BS贪食蛇")If msg = 6 Then Call m_subGameInitializeEnd Sub'该过程用于暂停/运行游戏Private Sub chkPause_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If = "暂停游戏(&P)" = = = = = "继续游戏(&R)" = = = = = "暂停游戏(&P)"End IfEnd Sub'该过程用于显示游戏规则Private Sub cmdGameRules_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)BeepMsgBox " BS贪食蛇：一个规则最简单的趣味游戏，您将用键盘" & Chr(13) & _"上的4个方向键来控制蛇的运动方向。在运动过程中蛇" & Chr(13) & _"不能后退，蛇的头部也不能接触到运动区域的边线以外" & Chr(13) & _"和蛇自己的身体，否则就游戏失败。在吃掉随机出现的" & Chr(13) & _"果子后，蛇的身体会变长，越长难度越大。祝您好运！！", 0 + 64, "游戏规则"End Sub'该过程用于显示游戏开发信息Private Sub cmdAbout_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)BeepMsgBox "BS贪食蛇" & "(V-" & & "." & & "版本)" & Chr(13) & Chr(13) & _"" & Chr(13) & Chr(13) & _"由PigheadPrince设计制作" & Chr(13) & _"CopyRight(C)2002,", 0, "关于本游戏"End Sub'该过程用于退出游戏Private Sub cmdExit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Beepmsg = MsgBox("您要退出本游戏吗？", 4 + 32, "BS贪食蛇")Select Case msgCase 6EndCase (2).Value = 0Exit SubEnd SelectEnd Sub'该过程用于拖动窗体_(点击图标)Private Sub imgWindowTop_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)ReleaseCaptureSendMessage , WM_SYSCOMMAND, SC_MOVE, 0End Sub'该共用过程用于处理窗体控制按钮组的相关操作_(锁定、最小化、退出)Private Sub chkWindowButton_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)If Button > 1 Then Exit SubSelect Case IndexCase 0 '锁定窗体If (0).Value = 1 = = = = TrueEnd IfCase 1 '最小化 = (1).Value = = "BS贪食蛇 — (V-" & & "." & & "版本)"Case 2 '退出Beepmsg = MsgBox("您要退出本游戏吗？", 4 + 32, "BS贪食蛇")Select Case msgCase 6EndCase (2).Value = 0Exit SubEnd SelectEnd SelectEnd Sub'该过程用于设置蛇运动速度的快慢Private Sub hsbGameSpeed_Change() = Sub'该过程用于通过键盘的方向键改变蛇的运动方向Private Sub picMoveArea_KeyDown(KeyCode As Integer, Shift As Integer)Select Case g_intDirectionCase D_UPIf KeyCode = D_DOWN Then Exit SubCase D_DOWNIf KeyCode = D_UP Then Exit SubCase D_LEFTIf KeyCode = D_RIGHT Then Exit SubCase D_RIGHTIf KeyCode = D_LEFT Then Exit SubEnd Selectg_intDirection = KeyCodeEnd Sub'该计时循环过程用于计算游戏耗费的秒数并显示Private Sub tmrGameTime_Timer()g_lngGameTime = g_lngGameTime + = g_lngGameTime & "秒"End Sub'该计时循环过程用于控制蛇的行动轨迹Private Sub tmrSnakeMove_Timer()Dim lngSnakeX As Long, lngSnakeY As Long, lngSnakeColor As LongDim lngPointX As Long, lngPointY As Long, lngPointColor As '确认蛇头的运动方向并获取新的位置Select Case g_intDirectionCase D_UP '向上运动g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldXg_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldYg_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_CurY - SNAKEWIDTHCase D_DOWN '向下运动g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldXg_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldYg_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_CurY + SNAKEWIDTHCase D_LEFT '向左运动g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldXg_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_CurX - SNAKEWIDTHg_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldYCase D_RIGHT '向右运动g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldXg_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_CurX + SNAKEWIDTHg_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldYEnd Select'根据新的位置绘制蛇头lngSnakeX = g_udtSnake(SNAKEONE).Snake_CurXlngSnakeY = g_udtSnake(SNAKEONE).Snake_CurYlngSnakeColor = g_udtSnake(SNAKEONE). (lngSnakeX, lngSnakeY), lngSnakeColor'移动蛇身体其他部分的位置For i = 2 To g_intSnakeLengthg_udtSnake(i).Snake_CurX = g_udtSnake(i - 1).Snake_OldXg_udtSnake(i).Snake_CurY = g_udtSnake(i - 1).Snake_OldYlngSnakeX = g_udtSnake(i).Snake_CurXlngSnakeY = g_udtSnake(i).Snake_CurYlngSnakeColor = g_udtSnake(i). (lngSnakeX, lngSnakeY), lngSnakeColorNext i'更新蛇旧的坐标位置For j = 1 To g_intSnakeLengthg_udtSnake(j).Snake_OldX = g_udtSnake(j).Snake_CurXg_udtSnake(j).Snake_OldY = g_udtSnake(j).Snake_CurYNext j'判断蛇在移动中是否到了禁区而导致游戏失败If m_funMoveForbiddenZone(g_udtSnake(SNAKEONE).Snake_CurX, g_udtSnake(SNAKEONE).Snake_CurY) ThenBeepMsgBox "您的蛇移动到了禁区，游戏失败！", 0 + 16, "BS贪食蛇" = = = FalseExit SubEnd If'判断蛇在移动中是否碰到了自己的身体而导致游戏失败If m_funTouchSnakeBody(g_udtSnake(SNAKEONE).Snake_CurX, g_udtSnake(SNAKEONE).Snake_CurY) ThenBeepMsgBox "您的蛇在移动中碰到了自己的身体，游戏失败！", 0 + 16, "BS贪食蛇" = = = FalseExit SubEnd If'判断蛇是否吃到了果子If m_funEatPoint(g_udtSnake(SNAKEONE).Snake_CurX, g_udtSnake(SNAKEONE).Snake_CurY) Then'累加玩家的得分并刷新得分显示g_intPlayerScore = g_intPlayerScore + = g_intPlayerScore & "分"Call m_subAddSnake '加长蛇的身体Call m_subGetPoint '获取下一个果子的位置和颜色Else'绘制果子lngPointX = = = (lngPointX, lngPointY), lngPointColorEnd IfEnd Sub'该私有子过程用于初始化游戏Private Sub m_subGameInitialize()Erase g_udtSnake '清空蛇的结构数组g_intPlayerScore = 0 '清空玩家的得分g_lngGameTime = 0 '清空游戏耗费的秒数g_intDirection = D_DOWN '设定蛇的初始运动方向为下g_intSnakeLength = 4 '设定蛇的初始长度ReDim g_udtSnake(1 To g_intSnakeLength) '重新定义蛇的长度'定义蛇头部的数据With g_udtSnake(SNAKEONE).Snake_OldX = = = vbBlackEnd With'定义蛇身第2节的数据With g_udtSnake(SNAKETWO).Snake_OldX = = = vbGreenEnd With'定义蛇身第3节的数据With g_udtSnake(SNAKETHREE).Snake_OldX = = = vbYellowEnd With'定义蛇身第4节的数据With g_udtSnake(SNAKEFOUR).Snake_OldX = = = vbRedEnd = = g_intPlayerScore & "分" = g_lngGameTime & "秒" = = = TrueCall m_subGetPoint '获取第一个果子的位置和颜色End Sub'该私有子过程用于返回获取的果子的位置和颜色信息Private Sub m_subGetPoint()Dim lngRedValue As Long, lngGreenValue As Long, lngBlueValue As LongDim lngPointX As Long, lngPointY As Long, lngPointColor As Long'随机获取果子的颜色lngRedValue = Int((255 - 0 + 1) * Rnd + 0)lngGreenValue = Int((255 - 0 + 1) * Rnd + 0)lngBlueValue = Int((255 - 0 + 1) * Rnd + 0)lngPointColor = RGB(lngRedValue, lngGreenValue, lngBlueValue)'随机获取果子的位置lngPointX = Int((FZ_LEFT - FZ_RIGHT + 1) * Rnd + FZ_RIGHT)lngPointY = Int((FZ_TOP - FZ_BOTTOM + 1) * Rnd + FZ_BOTTOM) (lngPointX, lngPointY), lngPointColor'设置函数返回值With = = = lngPointColorEnd WithEnd Sub

现在的哈哈小游戏很好推荐给你哦

VB做游戏可以是可以。可视化强。主要要学习一下网络操作。呵呵。如果不用控件。你可多看一些网络操作的API。还有，如果是大游戏，你要专用的服务器。其它的问题就太BT了。思路可以这样。用winsock控件联接。可以多联接和单连。然后通过发送数据包。比如。发送一个“jiafen 800”的数据。那么接收端就用if left(数据,6)="jiafen" then 分数=分数+rigth(数据,3)end if 等这样的方法做出基本判断.然后做出相应的操作就行了。