程序设计思想.doc

程序设计思想
这是一个俄罗斯方块程序,该程序将俄罗斯方块分解为数组元素,通过对数组元素逐个下移、翻转、左移、右移来实现对俄罗斯方块的相应操作。具体的讲,是对每个数组元素赋值,这个只来控制着相对应的图片框背景颜色的变化,来实现俄罗斯方块。
函数介绍:
showaa显示当前方块的状态
showbb显示下一个方块
changeaa检查行满和统计当前分数,并产生下一个方块
timer1每隔n个时间下移一次
zuoyi输入左箭头时方块左移
youyi输入右箭头时方块右移
daodi输入下箭头时方块直接到底
fanzhuan输入上箭头时方块翻转
command1_click开始游戏并初始化
command2_click结束游戏
loopxx初始化一个方块
flag1记录当前方块的状态
flag2记录下一个方块的状态
timer加速下移
在这个程序中,图形的移动用数组的移动来完成,我把俄罗斯方块分为七大类,分为z型,反z型,长条,L型,反L型,田型,三角形,在数组中用不同的数字来代表他们,并且,每个数字对应一个颜色,通过showaa把当前的颜色显示出来,通过showbb把下一个要出现的图形显示出来。用h1,l1,h2,l2,h3,l3,h4,l4来记录当前方块的位置及颜色,用hb1,lb1,hb2,lb2,hb3,lb3,hb4,lb4来记录下一个图像的位置及颜色,
操作提示:下箭头一直到底,上箭头反转,左箭头左移,右箭头右移,s键加速,p键暂停,o键继续
附程序源代码:
Public h1, h2, h3, h4, l1, l2, l3, l4, flag1, flag2, chengji, hb1, hb2, hb3, hb4, lb1, lb2, lb3, lb4, flag4 As Integer
Dim aa(22, 12) As Integer
Dim aaa(19, 9) As Integer
Dim bb(4, 4) As Integer
Public Sub chushihua()
= flag4
= 100
For i = 0 To 22
For j = 0 To 12
aa(i, j) = 0
Next j
Next i
= True
= False
= flag4 / 500
showaa
loopxx
End Sub
Private mand1_Click()
chengji = 0
For x = 0 To 22
For y = 0 To 12
aa(x, y) = 0
Next y
Next x
showaa
= Val() * 500
flag4 = Val() * 500
= False
= 100
flag1 = Int((20 * Rnd) + 1)
flag2 = Int((20 * Rnd) + 1)
showbb
loopxx
= False

Call showaa
End Sub
Private Sub loopxx()
= False
If flag1 = 1 Then
If aa(1, 3) = 0 And aa(1, 4) = 0 And aa(0, 4) = 0 And aa(0, 5) = 0 Then
h1 = 1
h2 = 1
h3 = 0
h4 = 0
l1 = 3
l2 = 4
l3 = 4
l4 = 5
aa(h1, l1) = 1
aa(h2, l2) = 1
aa(h3, l3) = 1
aa(h4, l4) = 1
Else
Call gameover
End If
End If
If flag1 = 2 Then
If aa(1, 4) = 0 And aa(2, 5) = 0 And aa(0, 4) = 0 And aa(1, 5) = 0 Then
h1 = 1
h2 = 2
h3 = 0
h4 = 1
l1 = 4
l2 = 5
l3 = 4
l4 = 5
aa(h1, l1) = 1
aa(h2, l2) = 1
aa(h3, l