altogether_design.bas

this game is programmed by visual basic language,please check it,thank you very much!

Attribute VB_Name = "altogether_design"
'两边游戏按左方向键引起变化
Public Sub left_key(dmv As downmove, record As records, operate As operator)
operate.left_key dmv.module_top_x, dmv.module_top_y, dmv.module_type, dmv.module_color_type, record
dmv.give_value operate.module_top_x, operate.module_top_y, operate.module_type, operate.module_color_type
End Sub
'两边游戏按右方向键引起变化
Public Sub right_key(dmv As downmove, record As records, operate As operator)
operate.right_key dmv.module_top_x, dmv.module_top_y, dmv.module_type, dmv.module_color_type, record
dmv.give_value operate.module_top_x, operate.module_top_y, operate.module_type, operate.module_color_type
End Sub
'两边游戏按变化方向键引起变化
Public Sub change_key(dmv As downmove, record As records, operate As operator)
operate.change_key dmv.module_top_x, dmv.module_top_y, dmv.module_type, dmv.module_color_type, record
dmv.give_value operate.module_top_x, operate.module_top_y, operate.module_type, operate.module_color_type
End Sub
'两边游戏按向下方向键引起变化
Public Sub down_key(dmv As downmove, record As records, operate As operator)
operate.down_key dmv.module_top_x, dmv.module_top_y, dmv.module_type, dmv.module_color_type, record
dmv.give_value operate.module_top_x, operate.module_top_y, operate.module_type, operate.module_color_type
End Sub
'显示下一个方块类型的区域，功能代码
Public Sub next_module_show(picture As PictureBox, mdl_type_number As Integer, mdl_creat As creat_module_type_color)
Dim dmv As New downmove
picture.Cls
Select Case mdl_creat.get_mdltype_typevalue(mdl_type_number)
Case 1, 3, 4, 5, 8, 11, 14, 18, 20
dmv.give_value 0, 2, mdl_creat.get_mdltype_typevalue(mdl_type_number), mdl_creat.get_mdltype_colortypevalue(mdl_type_number)
dmv.down_move picture
Case 2, 6, 7, 9, 10, 12, 13, 15, 16, 17, 19
dmv.give_value 0, 0, mdl_creat.get_mdltype_typevalue(mdl_type_number), mdl_creat.get_mdltype_colortypevalue(mdl_type_number)
dmv.down_move picture
End Select
End Sub
'结束处理
Public Sub end_cope(picture As PictureBox)
picture.Cls
picture.forecolor = &H80FF80
picture.CurrentX = picture.ScaleWidth * 1 / 70
picture.CurrentY = picture.ScaleHeight * 2 / 5
picture.Print "  G  A  M  E  "
picture.Print "   O V E R "
End Sub
'方块从顶部落下
Public Sub top_show(mdl_type_number As Integer, mdl_creat As creat_module_type_color, dmv As downmove)
If (mdl_type_number > 50) Then
mdl_type_number = 1
End If
dmv.give_value -1, 5, mdl_creat.get_mdltype_typevalue(mdl_type_number), mdl_creat.get_mdltype_colortypevalue(mdl_type_number)
mdl_type_number = mdl_type_number + 1
End Sub
'用于显示积分情况
Public Function score(line_clear_number As Integer)
Select Case line_clear_number
Case 0: score = 0
Case 1: score = 100
Case 2: score = 300
Case 3: score = 700
Case 4: score = 1500
End Select
End Function