来源:蜘蛛抓取(WebSpider)
时间:2017-08-16 16:55
标签:
贪吃蛇大作战马上玩
希望提供一个vb编写的小游戏,不要那些五子棋,贪吃蛇之类的,最好自己原创的,简单的也行_百度知道
希望提供一个vb编写的小游戏,不要那些五子棋,贪吃蛇之类的,最好自己原创的,简单的也行
打包发到我的邮箱@qq,不是vb6.com.0是在vs2005环境下编写的
我有更好的答案
t1 = True t2 = False t3 = False t4 = False End Sub Private Sub Command12_Click() If w1 = False Then S = Val(Text1) w1 = True S = S - Val(Text1) Text1 = & t1 = False t2 = False t3 = True t4 = False End If End Sub Private Sub Command14_Click() If w2 = False Then S = Val(Text1) w2 = True Text1 = & t1 = False t2 = True t3 = False t4 = False Else S = S - Val(Text1) Text1 = && t1 = False t2 = True t3 = False t4 = False End If End Sub Private Sub Command13_Click() If w3 = False Then S = Val(Text1) w3 = True Text1 = && t1 = False t2 = False t3 = True t4 = False Else S = S * Val(Text1) Text1 = &".Enabled = True End Sub Private Sub Command2_Click() Timer1 习题 1。抽奖的啊 Private Sub Command1_Click() Timer1.Enabled = False End Sub Private Sub Form_Load() For I = 0 To 5 Label1(I).FontSize = 48 Next I Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Randomize For I = 0 To 5 Randomize Label1(I).Caption = Int(Rnd() * 10) Next I End Sub 2.计算机 Dim w1 Dim w2 Dim S Dim t1 Dim t2 Dim t3 Dim w3 Dim t4 Private Sub Command1_Click() Text1 = Text1 & Command1;& S = 0 Text1 = && End Sub Private Sub Command17_Click() If t1 = True Then S = S + Val(Text1) Text1 = Str(S) ElseIf t2 = True Then S = S - Val(Text1) Text1 = Str(S) ElseIf t3 = True Then S = S * Val(Text1) Text1 = Str(S) Else S = S / Val(Text1) Text1 = Str(S) End If End Sub Private Sub Command2_Click() Text1 = Text1 & Command2.Caption End Sub Private Sub Command3_Click() Text1 = Text1 & Command3.Caption End Sub Private Sub Command4_Click() Text1 = Text1 & Command4.Caption End Sub Private Sub Command5_Click() Text1 = Text1 & Command5.Caption End Sub Private Sub Command6_Click() Text1 = Text1 & Command6.Caption End Sub Private Sub Command7_Click() Text1 = Text1 & Command7.Caption End Sub Private Sub Command8_Click() Text1 = Text1 & Command8.Caption End Sub Private Sub Command9_Click() Text1 = Text1 & Command9.Caption End Sub Private Sub Form_Load() t1 = False t2 = False t3 = False t4 = False t6 = False t7 = False End Sub 3。打方块小游戏 注意timer1和timer2开始时ENABLED属性设置为FALSE Private Sub Command1_Click() Timer1.Interval = 900 End Sub Private Sub Command2_Click() Timer1.Interval = 600 End Sub Private Sub Command3_Click() Timer1.Interval = 500 End Sub Private Sub Command4_Click() Timer2.Enabled = True Timer1.Enabled = True Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command5.Visible = True Timer2.Interval = 1000 End Sub Private Sub Command5_Click() Static r r = r + 1 Text2 = Str(r) End Sub Private Sub Timer1_Timer() Randomize a = Int(Rnd() * 255) b = Int(Rnd() * 255) c = Int(Rnd() * 255) d = Int(Rnd() * 9495) e = Int(Rnd() * 10935) Command5.BackColor = RGB(a, b, c) Command5.Move d, e End Sub Private Sub Timer2_Timer() Static i i = i + 1 Text1 = Str(30 - i) If i = 30 Then Timer1.Enabled = False Timer2.Enabled = False Command5.Visible = False i = 0 r = 0 End If End S Val(Text1) Text1 = && t1 = False t2 = False t3 = False t4 = True End If End Sub Private Sub Command15_Click() S = Sqr(S) Text1 = Str(S) End Sub Private Sub Command16_Click() w1 = False w2 = False w3 = False Command16;".Caption = &复位&& t1 = False t2 = False t3 = False t4 = True Else S = S /.Caption End Sub Private Sub Command10_Click() Text1 = Text1 & Command10.Caption End Sub Private Sub Command11_Click() S = S + Val(Text1) Text1 = "
采纳率:19%
参考资料:
为您推荐:
其他类似问题
您可能关注的内容
贪吃蛇的相关知识
换一换
回答问题,赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。c++五子棋或者贪吃蛇以及其他小游戏代码_百度知道
c++五子棋或者贪吃蛇以及其他小游戏代码
c++五子棋或者贪吃蛇以及其他小游戏代码不需要有图形界面要求代码能够在编译器上通过编译 (c++11)
我有更好的答案
//定义棋盘int&m=0;//定义临时点,保存输入坐标int&);&&setfill('&'p[k-1][r+1]==p[k][r]&&=0) {
cout&&&超出棋盘范围;&&p[k-1][r-1]==p[k][r]&red()&&//红方落子{ cout&&&请红方输入落子位置:\n&
&&&请输入落子的行数!=',请重新输入正确坐标;n;-'p[k][r+1]==p[k][r]&&Y; } }void&p[k+2][r-2]==p[k][r]&&&k&=&black()&&//黑方落子{ cout&&&请黑方输入落子位置:\n&
&&&请输入落子的行数!='& for(int&i=1;&i&&if((p[m][n]==1)||p[m][n]==2) {
cout&=X||n&=Y||n&&请输入落子的列数:&;void& if(m&=0||m&//棋盘列数char&j++)
cout&&setw(3)&21;&//棋盘行数const& cin&-'&X-2:",r&= ,请重新输入正确坐标;该点已有棋子,请重新选取落子点;r++)
if(p[k][r]!='-'&X; display();}int&evalue()&&//只需要判断落子点为中心的九点“米”字是否连续即可{ int&Y-2;&);& display();}void&&p[k+1][r+1]==p[k][r]&&k&X;k++)&&//p[k][r]!='-'是排除空子的情况
for(r=3;r&k&X-2;k++)&&//两条;
else&if(p[k][r];k++)&&//红方用2来表示 system(&cls&//p[k][r];;
black(); } else
p[m][n]=1; !\n&&;
black(); } else&X&=&using&namespace !\n&&setfill('&'1;=0||n&=0||n&&p[k-2][r-2]==p[k][r]&i=0;p[k+1][r-1]==p[k][r]&&&r++)
if(p[k][r];&;
red(); } else
p[m][n]=2; if(m&=X||m&&p[k+2][r+2]==p[k][r])
return !\n&0;& cin&&display()&&//输出棋盘{ for(int :&
for(int&j=1;j&0;)&&i; cout&; cin&&m; cout& /*斜线判断*/ for(k=3;=Y) {
cout&&&超出棋盘范围;')&p[k][r+2]==p[k][r])
return&1; /*竖线判断*/ for(k=3;k&p[k][r-1]==p[k][r]&&&p[X][Y];i&X;&i++)
cout&&setw(3)&if((p[m][n]==1)||p[m][n]==2) {
cout&=&21;&setw(3)&&setfill(')&&p[i][j];
cout&&&&n=0;p[k][r-2]==p[k][r]&&; cin&&m; cout&&&//黑方用1来表示 system(&cls&",其中的p[k][r]!='-'是排除空子的情况 {
for(r=3;r&Y-2;i++) {
cout&i;该点已有棋子,请重新选取落子点;&-'!='!\n&是排除空子的情况
for(r=1;请输入落子的列数:&;n;const&int&&p[k-2][r+2]==p[k][r])
} } /*横线判断*/ for(k=1#include&iostream&#include&iomanip&r&Y;r++)
if(p[k][r]!='-'&&p[k-2][r]==p[k][r]&&p[k-1][r]==p[k][r]&&p[k+1][r]==p[k][r]&&p[k+2][r]==p[k][r])
return&1;&&&&return&0; }int&main(){ memset(p,'-',441);&&//初始化为‘-’ cout&&&欢迎使用简易双人对战五子棋游戏\n&
&&&五子棋棋谱如下:\n&; display(); while(1) {
if(evalue())
cout&&&红方赢!\n&;
if(evalue())
cout&&&黑方赢!\n&;
} return&0;}人人对战五子棋;;
red(); } else&int&Y 
采纳率:47%
为您推荐:
其他类似问题
换一换
回答问题,赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。跪求vc做的五子棋或贪吃蛇,大神多多帮忙,有急用_百度知道
跪求vc做的五子棋或贪吃蛇,大神多多帮忙,有急用
您的回答被采纳后将获得:
系统奖励15(财富值+成长值)+难题奖励10(财富值+成长值)+提问者悬赏100(财富值+成长值)
我有更好的答案
网上很多的
一个还是两个。
一个…五子棋
为您推荐:
其他类似问题
贪吃蛇的相关知识
换一换
回答问题,赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。50分在线!哪有有类似手把手教授C++俄罗斯方块或者贪吃蛇或五子棋等的视频教学?源代码也可!!_百度知道
50分在线!哪有有类似手把手教授C++俄罗斯方块或者贪吃蛇或五子棋等的视频教学?源代码也可!!
下载地址发我邮箱
或者 要求视频文贴出地址 件 要有源代码 也可以
整套流程 万分感谢!!最好是视频文件
我有更好的答案
百度,打5子棋视频教学
百度了 没效果
我有源代码,,没视频,需要可联系我!
谢谢诶 发我邮箱啊
恩!!已发注意查收!!
谢谢啊 你以前编出来过没有??崇拜 还有好的网站和技术 交流下啊
还有好的网站和技术 交流下啊
你是计算机相关专业的嘛??
恩!!!你呢??
我是爱好者啊 谢谢 我要准备一些什么知识
才能编出你的游戏???真的麻烦您了!!!要一些什么基础知识呢??以少走弯路??你总共花了多长时间啊》》我就学了c++的一点知识 有c语言基础的。。。望请继续回答 万分感谢ing
首先对C,C++得比较熟,至少是语法很熟,,而且必须要有一定实战经验,,光靠理解是不行的,,必须得实战,,然后在去学WIn32应用程序的开发!!
这些个小游戏其实不难,,但还是要花上一点时间,,
谢谢你的耐心回答~!!
不客气!! 希望阁下早日学会!
为您推荐:
其他类似问题
您可能关注的内容
俄罗斯方块的相关知识
换一换
回答问题,赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。谁有Android项目比如贪吃蛇或者五子棋,音乐播放器之类在eclipse上运行的。加我QQ有偿_百度知道
谁有Android项目比如贪吃蛇或者五子棋,音乐播放器之类在eclipse上运行的。加我QQ有偿
我有更好的答案
推荐你去eoe或者安坐巴士 论坛去看看
上面有很多完整项目的源码。
采纳率:77%
为您推荐:
其他类似问题
换一换
回答问题,赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。