俄罗斯方块的VB代码文档格式.docx
- 文档编号:21735144
- 上传时间:2023-02-01
- 格式:DOCX
- 页数:24
- 大小:17.82KB
俄罗斯方块的VB代码文档格式.docx
《俄罗斯方块的VB代码文档格式.docx》由会员分享,可在线阅读,更多相关《俄罗斯方块的VB代码文档格式.docx(24页珍藏版)》请在冰豆网上搜索。
定义使方块可见的过程
a=0使游戏区方块可见
cmdfang(n(0)).Visible=True
cmdfang(n
(1)).Visible=True
cmdfang(n
(2)).Visible=True
cmdfang(n(3)).Visible=True
cmdfangnext(m(0)).Visible=True
cmdfangnext(m
(1)).Visible=True
cmdfangnext(m
(2)).Visible=True
cmdfangnext(m(3)).Visible=True
PrivateSubclearline()'
定义消除整
行的过程
Fori=190To10Step-10
Ifcmdfang(i).Visible=TrueAnd_
cmdfang(i+1).Visible=TrueAnd_
cmdfang(i+2).Visible=TrueAnd_
cmdfang(i+3).Visible=TrueAnd_
cmdfang(i+4).Visible=TrueAnd_
cmdfang(i+5).Visible=TrueAnd_
cmdfang(i+6).Visible=TrueAnd_
cmdfang(i+7).Visible=TrueAnd_
cmdfang(i+8).Visible=TrueAnd_
cmdfang(i+9).Visible=TrueThen
Forj=i+4ToiStep-1
t=1
cmdfang(j).Visible=False
cmdfang(2*i+9-j).Visible=False
Fork=1To4000
DoEvents
Next
t=0
linenum=linenum+1
Forj=i-1To0Step-1
Ifcmdfang(j).Visible=TrueThen
cmdfang(j+10).Visible=True
EndIf
clearline'
为了实现
连消数行,这里使用递归调用
PrivateFunctiondownable()AsBoolean'
自定义函数,
确定方块是否能下降
Ifn(0)<
190Andn
(1)<
190Andn
(2)<
190Andn(3)<
190Then
Ifcmdfang(n(0)+10).Visible=FalseAnd_
cmdfang(n
(1)+10).Visible=FalseAnd_
cmdfang(n
(2)+10).Visible=FalseAnd_
cmdfang(n(3)+10).Visible=FalseThen
downable=True
Else
downable=False
EndFunction
PrivateFunctionleftable()AsBoolean'
自定义函
数,确定方块是否能左移
Ifn(0)Mod10<
>
0Andn
(1)Mod10<
0Andn
(2)Mod10<
0Andn(3)Mod10<
0Then
Ifcmdfang(n(0)-1).Visible=FalseAnd_
cmdfang(n
(1)-1).Visible=FalseAnd_
cmdfang(n
(2)-1).Visible=FalseAnd_
cmdfang(n(3)-1).Visible=FalseThen
leftable=True
leftable=False
PrivateFunctionrightable()AsBoolean'
数,确定方块是否能右移
9Andn
(1)Mod10<
9Andn
(2)Mod10<
9Andn(3)Mod10<
9Then
Ifcmdfang(n(0)+1).Visible=FalseAnd_
cmdfang(n
(1)+1).Visible=FalseAnd_
cmdfang(n
(2)+1).Visible=FalseAnd_
cmdfang(n(3)+1).Visible=FalseThen
rightable=True
rightable=False
PrivateSubloadfangkuai()'
定义随机产
生一种方块的过程
SelectCaseInt(Rnd*6)
这是长条
型方块
SelectCaseInt(Rnd*2)
Case0
m(0)=3
m
(1)=4
m
(2)=5
m(3)=6
situation2=0
Case1
m(0)=5
m
(1)=15
m
(2)=25
m(3)=35
situation2=1
这是正方
形方块
m(0)=4
m
(1)=5
m
(2)=14
m(3)=15
situation2=2
Case2'
这是正S
m(0)=6
m
(2)=15
m(3)=14
situation2=3
m
(1)=14
m(3)=25
situation2=4
Case3'
这是反S
m(3)=16
situation2=5
m(3)=24
situation2=6
Case4'
这是T型
方块
SelectCaseInt(Rnd*4)
m
(2)=6
situation2=7
situation2=8
Case2
m(0)=16
m(3)=5
situation2=9
Case3
m(0)=24
m
(2)=4
situation2=10
Case5'
这是正7
字型方块
situation2=11
m(3)=13
situation2=12
m(0)=25
m
(1)=24
m(3)=4
situation2=13
m(0)=14
situation2=14
Case6'
这是反7
situation2=15
m(0)=15
m(3)=3
situation2=16
m
(1)=25
situation2=17
situation2=18
PrivateSubzhuan()'
定义使方块
旋转的过程
SelectCasesituation
Ifn(0)-18>
=2Andn(3)+9<
=198Then
Ifcmdfang(n(0)-18).Visible=FalseAnd_
cmdfang(n
(1)-9).Visible=FalseAnd_
cmdfang(n(3)+9).Visible=FalseThen
hidefang0
n(0)=n(0)-18
n
(1)=n
(1)-9
n(3)=n(3)+9
showfang0
situation=1
If(n(0)+18)Mod10<
8And(n(3)-9)Mod10>
Ifcmdfang(n(0)+18).Visible=FalseAnd_
cmdfang(n
(1)+9).Visible=FalseAnd_
cmdfang(n(3)-9).Visible=FalseThen
n(0)=n(0)+18
n
(1)=n
(1)+9
n(3)=n(3)-9
situation=0
Ifn(0)-11>
1Then
Ifcmdfang(n(0)-11).Visible=FalseAnd_
cmdfang(n(3)+2).Visible=FalseThen
n(0)=n(0)-11
n
(2)=n
(2)-9
n(3)=n(3)+2
situation=4
Case4
If(n(3)-2)Mod10<
Ifcmdfang(n
(2)+9).Visible=FalseAnd_
cmdfang(n(3)-2).Visible=FalseThen
n(0)=n(0)+11
n
(2)=n
(2)+9
n(3)=n(3)-2
situation=3
Ifn(0)-9>
Ifcmdfang(n(0)-9).Visible=FalseAnd_
n(0)=n(0)-9
n
(2)=n
(2)-11
situation=6
Case6
If(n(3)+2)Mod10>
Ifcmdfang(n
(2)+11).Visible=FalseAnd_
n(0)=n(0)+9
n
(2)=n
(2)+11
situation=5
Case7'
这是T
Ifcmdfang(n(0)-9).Visible=FalseThen
n(3)=n(3)-11
situation=8
Case8
If(n(0)+11)Mod10>
Ifcmdfang(n(0)+11).Visible=FalseThen
situation=9
Case9
Ifn(0)+9<
199Then
Ifcmdfang(n(0)+9).Visible=FalseThen
n(3)=n(3)+11
situation=10
Case10
If(n(0)-11)Mod10<
Ifcmdfang(n(0)-11).Visible=FalseThen
situation=7
Case11'
这是正
7字型方块
1And(n(3)-22)Mod10<
cmdfang(n(3)-22).Visible=FalseThen
n(3)=n(3)-22
situation=12
Case12
0Andn(3)-18>
Ifcmdfang(n(0)+11).Visible=FalseAnd_
cmdfang(n(3)-18).Visible=FalseThen
n(3)=n(3)-18
situation=13
Case13
198And(n(3)+22)Mod10>
Ifcmdfang(n(0)+9).Visible=FalseAnd_
cmdfang(n(3)+22).Visible=FalseThen
n(3)=n(3)+22
situation=14
Case14
9Andn(3)+18<
198Then
cmdfang(n(3)+18).Visible=FalseThen
n(3)=n(3)+18
situation=11
Case15'
这是反
If(n(3)-22)Mod10<
8Then
Ifcmdfang(n
(2)-11).Visible=FalseAnd_
n(2
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 俄罗斯方块 VB 代码
![提示](https://static.bdocx.com/images/bang_tan.gif)