使用根据怎么制作一个数字益智游戏

　　介绍

今天就跟大家聊聊有关使用根据怎么制作一个数字益智游戏,可能很多人都不太了解,为了让大家更加了解,小编给大家总结了以下内容,希望大家根据这篇文章可以有所收获。

1。选择操作:游戏开始时会提示选择注册,登录,退出三种选项,

2。注册:注册成功会将用户账户与密码存入用户数据txt文档中,连续三次输入空值会直接退出游戏;

3。登录:登录时会将输入数据与用户数据文档内容进行比,对存在该用户则登录成功,同样失败三次后退出游戏;

4。开始游戏:登录成功后,会直接进入游戏,游戏暂定为三个关卡,每个关卡三个小节,游戏通过规则为以关卡作为二维数组的二维数组下标(下标),小节作为一位数组下标(下标+ 4)……文件里有具体实现,不啰嗦额;

5。用户登录,通关每关游戏都会写入游戏日志文档_log游戏。txt,记录用户,操作,通关进度,通关时间等

ps:文件下载后,双击即可运行,游戏的用户文档game_user.txt和日志文档game_log.txt是按照我桌面路径创建的,如果不喜欢可以直接修改为d: \ \ game_user游戏。txt等等,游戏不在乎多好玩,希望能给想学习于六月的童鞋一些帮助

完整代码

Dim 游戏(3 2),i, j,结果,num  & # 39;定义二维数组,二维长度3,一维长度2 　　Dim  fso 、ws f , logFileWrite, logFileRead,, fileStr,国旗,flagFailNum,, flagIndex  & # 39;,定义日志文件 　　set 才能;ws =, CreateObject (“wscript.shell") 　　Set 才能;fso =, CreateObject (“scripting.filesystemobject"), 　　If 才能;fso.fileexists (“C: \用户桌面\ 18190 \ \于六月\测试\ game_log.txt"), Then  　　,,,Else  　　,,,Set  f =, fso.createtextfile (“C: \用户桌面\ 18190 \ \于六月\测试\ game_log.txt",真的) 　　,,,,,& # 39;If  fso.fileexists (“C: \用户桌面\ 18190 \ \于六月\测试\ game_log.txt"), 　　,,,,,,& # 39;,Set  logFileWrite =, fso.OpenTextFile (“C: \用户桌面\ 18190 \ \于六月\测试\ game_log.txt", 8,真的) 　　,,,,,,和,,,,,logFileWrite.writeLine “数字猜猜猜小游戏——游戏日志”; 　　,,,,& # 39;,最终获得if  　　,, 　　最终获得才能If  　　 　　For 才能;i=0,用2,& # 39;,关卡赋值 　　,,For  j=4,用5 　　,,,比赛(我j4)=,我* 3 + j 　　接下来,, 　　,下一个 　　 　　,& # 39;For  i=0,用2 　　& # 39;才能,For  j=0,用1 　　& # 39;才能MsgBox “游戏(“,打折期“,“和j&“):,,,,游戏(i, j) 　　& # 39;才能 　　& # 39;下一个 　　 　　& # 39;,选择操作 　　Dim  cnum, failNum, sucFlag t 　　,,failNum =0 　　,,sucFlag =0 　　Do  While  1=1 　　 　　,If  sucFlag=1, Then  　　,,Exit  Do  　　最终获得才能if  　　 　　,If  failNum =3, 　　MsgBox 才能;“您有连续三次操作失误,系统将直接退出……“ 　　Exit 才能做的事情 　　,最终获得if  　　,cnum =, InputBox(,“欢迎来到,数字猜猜猜小游戏,请选择操作:“和杆(10)和“,1。注册,,2。登录,,,3。退出“,“数字猜猜猜小游戏“) 　　If 才能;cnum =啊叭缓? 　　,,,,cnum =,“1”; 　　,最终获得;如果 　　Select  Case  cnum 　　1,Case  　　& # 39;,账户注册 　　Dim  juname, upwd regStr  　　regStr 才能=,““ 　　,do  while  regStr =,““ 　　uname 才能=,InputBox(“请输入注册账号:,,,,“数字猜猜猜小游戏——注册“) 　　upwd 才能=,InputBox(“请输入注册密码:,,,,“数字猜猜猜小游戏——注册“) 　　If 才能uname  & lt;祝辞,““,Then  　　,,,If  upwd  & lt;祝辞,““,Then  　　,,,,regStr =, uname&“#”, upwd 　　,,,Else  　　,,,,regStr =?“ 　　,,,,MsgBox “您输入的注册账号密码有误,请重新输入“ 　　,才能最终获得;如果 　　其他的才能 　　,,,regStr =?“ 　　,,,,MsgBox “您输入的注册账号密码有误,请重新输入“ 　　,最终获得;如果 　　, 　　,,If  regStr  & lt的在““,Then  　　If 才能;fso.fileexists (“C: \用户桌面\ 18190 \ \于六月\测试\ game_user.txt"), Then  　　,,,,,Set  logFileWrite =, fso.OpenTextFile (“C: \用户桌面\ 18190 \ \于六月\测试\ game_user.txt", 8,真的) 　　,,,,,t=,年(现在),“产生绯闻;,月(现在),“产生绯闻,和天(现在),,,,,,一小时(现在),“:“和分钟(现在),“:“,第二个(现在) 　　,,,,,& # 39;logFileWrite.WriteBlankLines  1 　　,,,,,logFileWrite.writeLine  regStr ,,,,,,, t 　　,,,,logFileWrite.close 　　,,,,,MsgBox “注册成功!“ 　　,,,,,exit 做 　　,,,else  　　,,,Set  f =, fso.createtextfile (“C: \用户桌面\ 18190 \ \于六月\测试\ game_user.txt",真的) 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null

使用根据怎么制作一个数字益智游戏