- PageHelper返回参数详解
- Java 简介
- Java开发环境配置
- Java基础语法
CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.
这篇CFSDN的博客文章vbs 自制数字益智游戏实现代码由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.
在看vb开发,看到二维数组时突发奇想用二维数组作为游戏关卡,
1. 选择操作: 游戏开始时会提示选择注册, 登录, 退出三种选项.
2.注册: 注册成功会将用户账户与密码存入用户数据txt文档中,连续三次输入 空值会直接退出游戏,
3. 登录: 登录时会将输入数据与用户数据文档内容进行比对, 存在该用户则登 录成功, 同样失败三次后退出游戏,
4. 开始游戏: 登录成功后,会直接进入游戏,游戏暂定为三个关卡, 每个关卡三 个小节,游戏通过规则为以关卡作为二维数组的二维数组下标(下标),小 节作为 一位数组下标(下标+4)...文件里有具体实现,不啰嗦额,
5. 用户登录,通关每关游戏都会写入游戏日志文档game _log.txt ,记录用户,操 作,通关进度, 通关时间等 。
ps: 文件下载后,双击即可运行, 游戏的用户文档game_user.txt和日志文档game_log.txt是按照我桌面路径创建的,如果不喜欢可以直接修改为d:\game\game_user.txt等等,游戏不在乎多好玩, 希望能给想学习vbs的童鞋一些帮助 。
完整代码 。
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
|
Dim
game(3,2),i,j,result,num
'定义二维数组 二维长度3, 一维长度2
Dim
fso ,ws,f ,logFileWrite,logFileRead, fileStr,flag,flagFailNum, flagIndex
' 定义日志文件
set ws = CreateObject(
"wscript.shell"
)
Set
fso = CreateObject(
"scripting.filesystemobject"
)
If
fso.fileexists(
"C:\Users\18190\Desktop\vbs\测试\game_log.txt"
)
Then
Else
Set
f = fso.createtextfile(
"C:\Users\18190\Desktop\vbs\测试\game_log.txt"
,true)
'If fso.fileexists("C:\Users\18190\Desktop\vbs\测试\game_log.txt") Then
' Set logFileWrite = fso.OpenTextFile("C:\Users\18190\Desktop\vbs\测试\game_log.txt",8,true)
' logFileWrite.writeLine "数字猜猜猜小游戏-游戏日志"
' end if
End
If
For
i=0
To
2
' 关卡赋值
For
j=4
To
5
game(i,j-4)= i*3+j
Next
Next
'For i=0 To 2
' For j=0 To 1
'MsgBox "game("&i&","&j&"): "& game(i,j)
'Next
'Next
' 选择操作
Dim
cnum, failNum, sucFlag,t
failNum =0
sucFlag =0
Do
While
1=1
If
sucFlag=1
Then
Exit
Do
End
if
If
failNum =3
Then
MsgBox
"您有连续三次操作失误,系统将直接退出..."
Exit
do
end if
cnum = InputBox(
"欢迎来到 数字猜猜猜小游戏 请选择操作:"
&chr(10)&
" 1.注册 2.登录 3.退出"
,
"数字猜猜猜小游戏"
)
If
cnum =
""
Then
cnum =
"-1"
End
if
Select
Case
cnum
Case
1
' 账户注册
Dim
juname, upwd,regStr
regStr =
""
do while regStr =
""
uname = InputBox(
"请输入注册账号: "
,
"数字猜猜猜小游戏-注册"
)
upwd = InputBox(
"请输入注册密码: "
,
"数字猜猜猜小游戏-注册"
)
If
uname <>
""
Then
If
upwd <>
""
Then
regStr = uname&
"#"
&upwd
Else
regStr =
""
MsgBox
"您输入的注册账号密码有误,请重新输入"
End
If
Else
regStr =
""
MsgBox
"您输入的注册账号密码有误,请重新输入"
End
If
If
regStr <>
""
Then
If
fso.fileexists(
"C:\Users\18190\Desktop\vbs\测试\game_user.txt"
)
Then
Set
logFileWrite = fso.OpenTextFile(
"C:\Users\18190\Desktop\vbs\测试\game_user.txt"
,8,true)
t= Year(now)&
"-"
&month(now)&
"-"
&day(now)&
" "
& Hour(now)&
":"
&minute(now)&
":"
&second(now)
'logFileWrite.WriteBlankLines 1
logFileWrite.writeLine regStr &
" "
&t
logFileWrite.close
MsgBox
"注册成功!"
exit do
else
Set
f = fso.createtextfile(
"C:\Users\18190\Desktop\vbs\测试\game_user.txt"
,true)
If
fso.fileexists(
"C:\Users\18190\Desktop\vbs\测试\game_user.txt"
)
Then
Set
logFileWrite = fso.OpenTextFile(
"C:\Users\18190\Desktop\vbs\测试\game_user.txt"
,8,true)
logFileWrite.writeLine
"数字猜猜猜小游戏-用户数据"
logFileWrite.writeLine regStr
logFileWrite.close
MsgBox
"注册成功!"
exit do
end if
End
If
end if
loop
'wscript.sleep 1000
case 2
' 账户登录
Dim
str
Set
logFileRead = fso.OpenTextFile(
"C:\Users\18190\Desktop\vbs\测试\game_user.txt"
,1)
fileStr = logFileRead.ReadAll
logFileRead.close
str = InputBox(
"请输入您的账户名与密码,中间以#键隔开: "
,
" 数字猜猜猜小游戏-登录"
)
if str <>
""
then
flagIndex = InStr(fileStr,str)
If
flagIndex>0
Then
flag =1
Else
flag = 0
Do
While
flagIndex =0
flagFailNum = flagFailNum +1
If
flagFailNum = 3
Then
MsgBox
"抱歉, 您已连续失败3次,系统退出"
wscript.sleep 5000
' 就这样退出吧 -- 缺少wscript 对象
flagFailNum =0
end if
MsgBox
"您的账户与密码输入有误,请查证后再试试...."
str = InputBox(
"请输入您的账户名与密码,中间以#键隔开: "
,
" 数字猜猜猜小游戏-登录"
)
if str <>
""
then
flagIndex = InStr(fileStr,str)
end if
loop
flag = 1
End
If
Else
flag = 0
Do
While
flagIndex =0
flagFailNum = flagFailNum +1
If
flagFailNum = 3
Then
MsgBox
"抱歉, 您已连续失败3次,系统退出"
wscript.sleep 5000
' 就这样退出吧 -- 缺少wscript 对象
flagFailNum =0
end if
MsgBox
"您的账户与密码输入有误,请查证后再试试...."
str = InputBox(
"请输入您的账户名与密码,中间以#键隔开: "
,
" 数字猜猜猜小游戏-登录"
)
if str <>
""
then
flagIndex = InStr(fileStr,str)
end if
loop
flag = 1
end if
' 通过登录验证
if flag =1 then
Set
logFileWrite = fso.OpenTextFile(
"C:\Users\18190\Desktop\vbs\测试\game_log.txt"
,8,true)
t= Year(now)&
"-"
&month(now)&
"-"
&day(now)&
" "
& Hour(now)&
":"
&minute(now)&
":"
&second(now)
'logFileWrite.WriteBlankLines 1
logFileWrite.writeLine
"用户登录: "
&str &
" "
&t
MsgBox
"恭喜您成功登录 数字猜猜猜小游戏! 接下来进入游戏正题: "
num =0
for i=0 to 2
For
j=0
To
1
result = InputBox(
"现在是游戏第"
&(i+1)&
"关第"
&(j+1)&
"小节"
&chr(10)&
" 请输入游戏结果(i*3+j+4): "
&chr(10)&
"退出按-5"
,
"益智小游戏-数字猜猜猜: "
)
If
result =
"-5"
Then
exit for
end if
If
result =
""
Then
result =
"-1"
end if
If
cint(result) = i*3+j+4 then
MsgBox
"恭喜您,成功通过第"
&(i+1)&
"关第"
&(j+1)&
"小节,继续加油哦..."
End
if
Do
While
cint(result) <> i*3+j+4
num =num+1
If
num =3
Then
MsgBox
"抱歉, 您已连续失败3次,通关失败!"
&chr(10)&
" 游戏进度截止为第"
&(i+1)&
"关第"
&(j+1)&
"小节,下次努力哦..."
exit
Do
End
if
MsgBox
"抱歉,您猜错了!请查证后再试...."
result = InputBox(
"现在是游戏第"
&(i+1)&
"关第"
&(j+1)&
"小节, 请输入游戏结果(i*3+j+4): "
,
"答案: "
)
If
result =
""
Then
result =
"-1"
end if
If
cint(result) = i*3+j+4 then
MsgBox
"恭喜您,成功通过第"
&(i+1)&
"关第"
&(j+1)&
"小节,继续加油哦..."
Exit
do
End
if
loop
If
num =3
Then
exit for
end if
Next
If
result =
"-5"
Then
exit for
end if
If
num =3
Then
exit for
End
if
If
i=2
Then
msg =
"聪明的勇士,恭喜您成功通关本游戏!么么哒..."
MsgBox msg
t= Year(now)&
"-"
&month(now)&
"-"
&day(now)&
" "
& Hour(now)&
":"
&minute(now)&
":"
&second(now)
logFileWrite.writeLine
"用户: "
&str&
"游戏进度: "
&msg &
" "
&t
sucFlag =1
exit for
End
If
msg =
"恭喜您成功通关第"
&(i+1)&
"关卡, 接下来进入第"
&(i+2)&
"关...祝您好运!"
MsgBox msg
t= Year(now)&
"-"
&month(now)&
"-"
&day(now)&
" "
& Hour(now)&
":"
&minute(now)&
":"
&second(now)
logFileWrite.writeLine
"用户: "
&str&
"游戏进度: "
&msg &
" "
&t
Next
end if
Case
3
MsgBox
"系统即将退出..."
exit do
case
Else
MsgBox
"您的选择有误,请重新选择..."
failNum = failNum +1
End
select
loop
|
这篇文章就介绍到这了,希望大家以后多多支持我.
最后此篇关于vbs 自制数字益智游戏实现代码的文章就讲到这里了,如果你想了解更多关于vbs 自制数字益智游戏实现代码的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。
我正在关注 melon js tutorial .这是在我的 HUD.js 文件的顶部。 game.HUD = game.HUD || {} 我以前在其他例子中见过这个。 namespace.some
我刚刚制作了这个小游戏,用户可以点击。他可以看到他的点击,就像“cookieclicker”一样。 一切正常,除了一件事。 我尝试通过创建一个代码行变量来缩短我的代码,我重复了很多次。 documen
在此视频中:http://www.youtube.com/watch?v=BES9EKK4Aw4 Notch(我的世界的创造者)正在做他称之为“实时调试”的事情。他实际上是一边修改代码一边玩游戏,而不
两年前,我使用C#基于MonoGame编写了一款《俄罗斯方块》游戏,相关介绍可以参考【这篇文章】。最近,使用业余时间将之前的基于MonoGame的游戏开发框架重构了一下,于是,也就趁此机会将之前的《俄
1.题目 你和你的朋友,两个人一起玩 Nim 游戏: 桌子上有一堆石头。 你们轮流进行自己的回合, 你作为先手 。 每一回合,轮到的人拿掉 1 - 3 块石头。 拿掉最后一块石头的人就是获胜者。 假设
我正在创建平台游戏,有红色方 block (他们应该杀了我)和白色方 block (平台) 当我死时,我应该在当前级别的开始处复活。 我做了碰撞检测,但它只有在我移动时才有效(当我跳到红色方 bloc
因此,我正在处理(编程语言)中创建游戏突破,但无法弄清楚检查与 bat 碰撞的功能。 到目前为止,我写的关于与球棒碰撞的部分只是将球与底座碰撞并以相反的方向返回。目前,游戏是一种永无止境的现象,球只是
我试图让我的敌人射击我的玩家,但由于某种原因,子弹没有显示,也没有向玩家射击我什至不知道为什么,我什至在我的 window 上画了子弹 VIDEO bulls = [] runninggame = T
我正在尝试添加一个乒乓游戏框架。我希望每次球与 Racket 接触时球的大小都会增加。 这是我的尝试。第一 block 代码是我认为问题所在的地方。第二 block 是全类。 public class
我想知道 3D 游戏引擎编程通常需要什么样的数学?任何特定的数学(如向量几何)或计算算法(如快速傅立叶变换),或者这一切都被 DirectX/OpenGL 抽象掉了,所以不再需要高度复杂的数学? 最佳
我正在为自己的类(class)做一个霸气游戏,我一直在尝试通过添加许多void函数来做一些新的事情,但由于某种奇怪的原因,我的开发板无法正常工作,因为它说标识符“board”未定义,但是我有到目前为止
我在使用 mousePressed 和 mouseDragged 事件时遇到了一些问题。我正在尝试创建一款太空射击游戏,我希望玩家能够通过按下并移动鼠标来射击。我认为最大的问题是 mouseDragg
你好,我正在尝试基于概率实现战斗和准确性。这是我的代码,但效果不太好。 public String setAttackedPartOfBodyPercent(String probability) {
所以我必须实现纸牌游戏 war 。我一切都很顺利,除了当循环达到其中一张牌(数组列表)的大小时停止之外。我想要它做的是循环,直到其中一张牌是空的。并指导我如何做到这一点?我知道我的代码可以缩短,但我现
我正在做一个正交平铺 map Java 游戏,当我的船移动到 x 和 y 边界时,按方向键,它会停止移动(按预期),但如果我继续按该键,我的角色就会离开屏幕. 这是我正在使用的代码: @O
这里是 Ship、Asteroids、BaseShapeClass 类的完整代码。 Ship Class 的形状继承自 BaseShapeClass。 Asteroid类是主要的源代码,它声明了Gra
我正在开发这个随机数猜测游戏。在游戏结束时,我希望用户可以选择再次玩(或让其他人玩)。我发现了几个类似的线程和问题,但没有一个能够帮助我解决这个小问题。我很确定我可以以某种方式使用我的 while 循
我认为作为一个挑战,我应该编写一个基于 javascript 的游戏。我想要声音、图像和输入。模拟屏幕的背景(例如 640x480,其中包含我的所有图像)对于将页面的其余部分与“游戏”分开非常有用。我
我正在制作一个游戏,我将图标放在网格的节点中,并且我正在使用这个结构: typedef struct node{ int x,y; //coordinates for graphics.h
我正在研究我的游戏技能(主要是阵列)来生成敌人,现在子弹来击倒他们。我能够在测试时设置项目符号,但只有当我按下一个键(比方说空格键)并且中间没有间隔时才可见,所以浏览器无法一次接受那么多。 有没有什么
我是一名优秀的程序员,十分优秀!