游戏Java源码,Java源码,Java源码下载 -
&发布中心&
&Java源码分类
资源搜索：
Delphi源码
Python源码
Android源码
IT考试资料
系统设计方案
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
&Java源码->游戏共51个&&本页显示第1-15个&&&&资源名称资源等级网友评分下载评论&&&发布者:lisj,发布时间: 21:55:42,资源大小:65KB074084一个简单的java程序&查看网友评论&&&&正在读取...&&&发布者:lyzlehehe,发布时间: 21:29:48,资源大小:1943KB5.019161完整的五子棋&查看网友评论&&&&正在读取...&&&发布者:wstt,发布时间: 13:50:00,资源大小:391KB4.8114488本游戏为Java awt 和 swing组件模拟的休闲小游戏《潜艇大战》。玩家通过操作军舰向水下的鱼雷扔炸弹水下潜艇向上发射鱼雷，此版本加入了一些UI处理，比较流畅。
或 D 键 控制军舰向右按空格键扔炸弹&查看网友评论&&&&正在读取...&发布者:li,发布时间: 0:14:21,资源大小:255KB3.51120115用java实现一个简单的　拼图游戏．．&查看网友评论&&&&正在读取...&发布者:神&下,发布时间: 17:02:53,资源大小:23KB5.015742TankWar小游戏&查看网友评论&&&&正在读取...&发布者:fgr9010287,发布时间: 16:53:09,资源大小:86KB5.027863是男人就过30秒&查看网友评论&&&&正在读取...&发布者:supercode,发布时间: 14:33:00,资源大小:638KB3.6789924PC经典RPG游戏《仙剑奇侠传》手机版的java源码&查看网友评论&&&&正在读取...&发布者:lyzlehehe,发布时间: 9:16:16,资源大小:15KB5.0235413本人初次做点小东西，和大家分享一下！！&查看网友评论&&&&正在读取...&发布者:goldbear,发布时间: 11:21:31,资源大小:20KB3.9138039五子棋源码，可以学习一下简单游戏编程的原理和开发过程&查看网友评论&&&&正在读取...&发布者:zhouwei2011,发布时间: 11:09:35,资源大小:5519KB5.083545基本功能都实现了，有点小卡，大家可以试玩下&查看网友评论&&&&正在读取...&发布者:JAVAjby,发布时间: 19:27:45,资源大小:573KB2.041204一款不是很完整的java小游戏，扫雷，希望大家喜欢，新手发布&查看网友评论&&&&正在读取...&&&发布者:hjinxueqiang,发布时间: 21:58:10,资源大小:23KB3.91926745我看到一本杂志上关于俄罗斯方块小游戏的评论,一时兴奋就编了这个游戏,不足千行的代码就能实现了它的基本功能,有兴趣的朋友还可以把它的功能扩展一下&查看网友评论&&&&正在读取...&发布者:combing520,发布时间: 22:47:18,资源大小:1738KB5.087222java写的中国象棋，带有图形，一起学习&查看网友评论&&&&正在读取...&&&发布者:Service,发布时间: 18:33:16,资源大小:3KB016862一个Java小游戏抓不住的方块，用户可以通过鼠标抓取方块，但是无论用户怎样努力，方块总是朝着与鼠标相反的方向运动，总是抓不住方块。主要是利用Java的图形界面技术和消息响应机制完成了抓不住的方块的制作。通过图形界面的技术，完成了界面布局和方块的制作。通过运用Windows下鼠标动作的响应技术，...&查看网友评论&&&&正在读取...&发布者:shenjun134,发布时间: 15:53:24,资源大小:3KB3.0652221这是个比较简单的java程序，仅仅作为学习用&查看网友评论&&&&正在读取...共4页&&&&[1]&&&&
QQ技术交流群：编程乐园
(VB交流群) 3326898(Delphi交流群) (VC交流群) &&
版权所有 &
保留所有权力 && 上传我的文档
 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
正在努力加载中...
vb小游戏编程代码
下载积分：30
内容提示：vb小游戏编程代码，有点灯、弹球、数字排序、打字小游戏等
文档格式：PDF|
浏览次数：496|
上传日期： 22:21:11|
文档星级：
该用户还上传了这些文档
vb小游戏编程代码
官方公共微信求个VB编程小游戏.要有源代码.不要过于简单.有的留下联系方式..急~~
求个VB编程小游戏.要有源代码.不要过于简单.有的留下联系方式..急~~
补充：要成品
补充：&我要的成品文件..不是给代码我自己做
我做的是21点。对于我来说简单了点。不过里面的判断算很多了。有源文件。你加我Q发你吧。Q：六
其他回答 (2)
下面着个网站有很多VB编的游戏源代码.
这个是VB编程游戏大全代码
太大发不过去
邮箱不行吗？QQ：
VERSION 5.00Begin VB.Form Form1&&& Caption & & & & = & "Form1"&& ClientHeight & &= & 5985&& ClientLeft & & &= & 60&& ClientTop & & & = & 345&& ClientWidth & & = & 7155&& LinkTopic & & & = & "Form1"&& ScaleHeight & & = & 5985&& ScaleWidth & & &= & 7155&& StartUpPosition = & 3 &'窗口缺省&& Begin VB.Timer Timer1&&& & &Enabled & & & & = & 0 & 'False&& & &Interval & & & &= & 1000&& & &Left & & & & & &= & 480&& & &Top & & & & & & = & 360&& End&& Begin VB.ListBox lstInput&&& & &Height & & & & &= & 2580&& & &Left & & & & & &= & 3840&& & &TabIndex & & & &= & 3&& & &Top & & & & & & = & 240&& & &Width & & & & & = & 2415&& End&& mandButton cmdStart&&& & &Caption & & & & = & "开始"&& & &Height & & & & &= & 495&& & &Left & & & & & &= & 120&& & &TabIndex & & & &= & 2&& & &Top & & & & & & = & 2520&& & &Width & & & & & = & 975&& End&& Begin VB.TextBox txtInput&&& & &Height & & & & &= & 375&& & &Left & & & & & &= & 3840&& & &MaxLength & & & = & 4&& & &TabIndex & & & &= & 1&& & &Top & & & & & & = & 2880&& & &Width & & & & & = & 2415&& End&& mandButton cmdNext&&& & &Caption & & & & = & "next"&& & &Enabled & & & & = & 0 & 'False&& & &Height & & & & &= & 375&& & &Left & & & & & &= & 3960&& & &TabIndex & & & &= & 0&& & &Top & & & & & & = & 3600&& & &Width & & & & & = & 1215&& End&& Begin VB.Label lblTime&&& & &Caption & & & & = & "150"&& & &Height & & & & &= & 375&& & &Left & & & & & &= & 1560&& & &TabIndex & & & &= & 4&& & &Top & & & & & & = & 360&& & &Width & & & & & = & 1575&& EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption ExplicitDim x(1 To 4) As StringDim xCount As IntegerDim scr As IntegerDim blRun As BooleanDim timeLeft As Integer&Private Sub GameStart()&& &NewNumber&& &scr = 100&& &xCount = 0&& &blRun = True&& &timeLeft = 150&& &lblTime.Caption = timeLeft&& &Timer1.Enabled = True&& &txtInput.Text = ""&& &cmdStart.Caption = "结束"End SubPrivate Sub GameStop()&& &blRun = False&& &cmdNext.Enabled = False&& &Timer1.Enabled = False&& &cmdStart.Caption = "开始"&& &lblTime.Caption = x(1) & x(2) & x(3) & x(4)End SubPrivate Sub NewNumber()&& &Dim c As New Collection&& &Dim n As Integer&& &On Error Resume Next&& &Randomize&& &&& &Do Until c.Count = 4&& & & &n = Int(Rnd() * 10)&& & & &c.Add n, "K" & n&& & & &&& &Loop&& &&& &For n = 1 To 4&& & & &x(n) = c(n)&& & & &Debug.Print x(n),&& &Next&& &Debug.PrintEnd SubPrivate Function GetResult(ByVal InputString As String) As String&& &Dim i As Integer, j As Integer&& &Dim tmp As String&& &Dim A As Integer&& &Dim B As Integer&& &For i = 1 To 4&& & & &tmp = Mid(InputString, i, 1)&& & & &If tmp = x(i) Then A = A + 1&& & & &For j = 1 To 4&& & & & & &If tmp = x(j) Then B = B + 1&& & & &Next&& &Next&& &GetResult = A & "A" & B & "B"&& &End Function&Private Sub cmdNext_Click()&& &xCount = xCount + 1&&&&& &Dim s As String&& &Dim rtn As String&& &&& &rtn = GetResult(txtInput.Text)&& &s = xCount & vbTab & txtInput.Text & vbTab & rtn&& &lstInput.AddItem s&& &If rtn = "4A4B" Then&& & & &MsgBox "成功" & scr & "分", vbInformation, "成功"&& & & &GameStop&& &Else&& & & &If xCount = 10 Then&& & & & & &MsgBox "失败", vbCritical, "失败"&& & & & & &GameStop&& & & &End If&& & & &scr = scr - 10&& &End If&& &txtInput.Text = ""End Sub&Private Sub cmdStart_Click()&& &If Not blRun Then&& & & &GameStart&& & & &&& &Else&& & & &GameStop&& & & &&& &End If&& &End SubPrivate Sub Timer1_Timer()&& &timeLeft = timeLeft - 1&& &lblTime.Caption = timeLeft&& &If timeLeft &= 0 Then&& & & &GameStop&& & & &MsgBox "时间到", vbCritical, "失败"&& & & &&& &End If&& &End SubPrivate Sub txtInput_Change()&& &cmdNext.Enabled = (Len(txtInput.Text) = 4) And blRunEnd Sub
成品啊..你给这个我没用.我不会做.我要你做好了发给我
以下代码用记事本保存为VBS文件，双击文件运行Dim infoinfo = "4位数字，不重复，你猜吧！150秒"Dim x(4)Dim B(9)Dim iDim starttime&& &If MsgBox(info, vbOKCancel, "游戏") = vbOK Then&& & & &info = ""&& & & &starttime = Timer&& & & &NewNumber&& & & &trytry&& &End IfSub NewNumber()&& &Randomize&& &&& &For i = 0 To 9&& & & &B(i) = i&& &Next&& &&& &Dim n&& &For i = 1 To 4&& &Do&& &n = Int(Rnd() * 10)&& &Loop Until B(n) && -1&& &x(i) = B(n)&& &B(n) = -1&& &NextEnd SubSub trytry()&& &&& &Dim DaAn, Ts, Inpt, Rtn&& &&& &Ts = vbCrLf & "输入一个4位数：" & vbCrLf&& &&& &&& &DaAn = x(1) & x(2) & x(3) & x(4)&& &&& &For i = 1 To 10&& &&& & & &Do&& & & & & &Inpt = InputBox(info & vbCrLf & Ts, "剩余时间：" & Int(150 - Timer + starttime) )&& & & & & &&& & & & & &If Inpt = "" Then Exit For&& & & & & &If Len(Inpt) = 4 And IsNumeric(Inpt) Then&& & & & & & & &Exit Do&& & & & & &Else&& & & & & & & &MsgBox "请输入一个合法的4位数"&& & & & & &End If&& & & &Loop&& & & &&& & & &Rtn = GetResult(Inpt)&& & & &&& & & &If Inpt = "4A4B" Then&& & & & & &MsgBox info & vbCrLf & "答案: " & DaAn & vbCrLf & vcbrlf & "恭喜你成功了！"&& & & & & &Exit For&& & & &Else&& & & & & &info = info & i & vbTab & Inpt & vbTab & Rtn & vbCrLf & vbCrLf&& & & &&& & & & & &If Timer - starttime - 150 & 0 Then&& & & & & & & &MsgBox info & vbCrLf & "答案: " & DaAn & vbCrLf & vcbrlf & "对不起，时间到了！"&& & & & & & & &Exit ForEnd If&& & & &&& & & &End If&& & & &&& &&& &Next&& &&& &If Rtn && "4A4B" Then MsgBox info & vbCrLf & "答案: " & DaAn & vbCrLf & vcbrlf & "游戏结束！"&& &End Sub&Function GetResult(InputString)&& &Dim i, j&& &Dim tmp&& &Dim A&& &Dim B&& &A = 0&& &B = 0&& &tmp = ""&& &For i = 1 To 4&& & & &tmp = Mid(InputString, i, 1)&& & & &If CInt(tmp) = x(i) Then A = A + 1&& & & &For j = 1 To 4&& & & & & &If CInt(tmp) = x(j) Then B = B + 1&& & & &Next&& &Next&& &GetResult = A & "A" & B & "B"&& &End Function&&你把我发给你的图和代码复制在一齐看
你可以把你这个程序的 Form1.frm
工程1.vbp这三个文件发到我邮箱吗？
不行,你自已能吧
输入///code/sort0191/sort0196/list1961.html或///view/721cdb75aa8e37.html
相关知识等待您来回答
小游戏领域专家
& &SOGOU - 京ICP证050897号