Option Explicit Dim i As Integer Dim time_hour, time_minute, time_second As Integer
Private Sub Form_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 105 Call turn(next_block_kind) Case 106 Call move_left(next_block_kind) Case 108 Call move_right(next_block_kind) Case 107 Call down_block(next_block_kind) End Select End Sub
Public Sub Form_Load() Timer_speed.Enabled = False Call image_position ''''排列方块 Call face ''''设置窗体属性 bx = 3 by = 0 Label_hour.Caption = 0 Label_minute.Caption = 0 ''''Call next_block next_block_kind = 7 Timer_speed.Enabled = True Me.KeyPreview = True End Sub
Private Sub menu_about_Click() Load about about.Visible = True End Sub
Private Sub timer_now_Timer() ''''计时 time_second = time_second + 1 If time_second = 60 Then time_minute = time_minute + 1 time_second = 0 Label_minute.Caption = time_minute End If If time_minute = 60 Then time_hour = time_hour + 1 time_minute = 0 Label_hour.Caption = time_hour End If Label_second.Caption = time_second End Sub Private Sub Timer_speed_Timer() Call down_block(next_block_kind) End Sub Option Explicit Public bx, by As Integer Public next_block_kind As Integer Public p As Integer Public q As Integer Public a As Integer Public n As Integer Public m As Integer
''''Public turn_kind As Integer
Sub show1(X, Y As Integer) Form_main.Image_block(Y * 10 + X).Visible = True Form_main.Image_block(Y * 10 + X + 1).Visible = True Form_main.Image_block(Y * 10 + X + 10).Visible = True Form_main.Image_block(Y * 10 + X + 11).Visible = True End Sub Sub show2(X, Y As Integer) Form_main.Image_block(Y * 10 + X).Visible = True Form_main.Image_block(Y * 10 + X + 1).Visible = True Form_main.Image_block(Y * 10 + X + 12).Visible = True Form_main.Image_block(Y * 10 + X + 11).Visible = True End Sub Sub show3(X, Y As Integer) Form_main.Image_block(Y * 10 + X + 2).Visible = True Form_main.Image_block(Y * 10 + X + 1).Visible = True Form_main.Image_block(Y * 10 + X + 10).Visible = True Form_main.Image_block(Y * 10 + X + 11).Visible = True End Sub Sub show4(X, Y As Integer) Form_main.Image_block(Y * 10 + X + 1).Visible = True Form_main.Image_block(Y * 10 + X + 12).Visible = True Form_main.Image_block(Y * 10 + X + 10).Visible = True Form_main.Image_block(Y * 10 + X + 11).Visible = True End Sub Sub show5(X, Y As Integer) Form_main.Image_block(Y * 10 + X).Visible = True Form_main.Image_block(Y * 10 + X + 12).Visible = True Form_main.Image_block(Y * 10 + X + 10).Visible = True Form_main.Image_block(Y * 10 + X + 11).Visible = True End Sub Sub show6(X, Y As Integer) Form_main.Image_block(Y * 10 + X + 2).Visible = True Form_main.Image_block(Y * 10 + X + 12).Visible = True Form_main.Image_block(Y * 10 + X + 10).Visible = True Form_main.Image_block(Y * 10 + X + 11).Visible = True End Sub Sub show7(X, Y As Integer) Form_main.Image_block(Y * 10 + X).Visible = True Form_main.Image_block(Y * 10 + X + 1).Visible = True Form_main.Image_block(Y * 10 + X + 2).Visible = True Form_main.Image_block(Y * 10 + X + 3).Visible = True End Sub Sub show8(X, Y As Integer) Form_main.Image_block(Y * 10 + X + 1).Visible = True Form_main.Image_block(Y * 10 + X + 10).Visible = True Form_main.Image_block(Y * 10 + X + 11).Visible = True Form_main.Image_block(Y * 10 + X + 20).Visible = True End Sub Sub show9(X, Y As Integer) Form_main.Image_block(Y * 10 + X).Visible = True Form_main.Image_block(Y * 10 + X + 10).Visible = True Form_main.Image_block(Y * 10 + X + 11).Visible = True Form_main.Image_block(Y * 10 + X + 21).Visible = True End Sub Sub show10(X, Y As Integer) Form_main.Image_block(Y * 10 + X + 1).Visible = True Form_main.Image_block(Y * 10 + X + 10).Visible = True Form_main.Image_block(Y * 10 + X + 11).Visible = True Form_main.Image_block(Y * 10 + X + 21).Visible = True End Sub Sub show11(X, Y As Integer) Form_main.Image_block(Y * 10 + X).Visible = True Form_main.Image_block(Y * 10 + X + 10).Visible = True Form_main.Image_block(Y * 10 + X + 11).Visible = True Form_main.Image_block(Y * 10 + X + 20).Visible = True End Sub Sub show12(X, Y As Integer) Form_main.Image_block(Y * 10 + X).Visible = True Form_main.Image_block(Y * 10 + X + 1).Visible = True Form_main.Image_block(Y * 10 + X + 2).Visible = True Form_main.Image_block(Y * 10 + X + 11).Visible = True End Sub Sub show13(X, Y As Integer) Form_main.Image_block(Y * 10 + X).Visible = True Form_main.Image_block(Y * 10 + X + 1).Visible = True Form_main.Image_block(Y * 10 + X + 10).Visible = True Form_main.Image_block(Y * 10 + X + 20).Visible = True End Sub Sub show14(X, Y As Integer) Form_main.Image_block(Y * 10 + X).Visible = True Form_main.Image_block(Y * 10 + X + 1).Visible = True Form_main.Image_block(Y * 10 + X + 2).Visible = True Form_main.Image_block(Y * 10 + X + 12).Visible = True End Sub Sub show15(X, Y As Integer) Form_main.Image_block(Y * 10 + X + 1).Visible = True Form_main.Image_block(Y * 10 + X + 11).Visible = True Form_main.Image_block(Y * 10 + X + 21).Visible = True Form_main.Image_block(Y * 10 + X + 20).Visible = True End Sub Sub show16(X, Y As Integer) Form_main.Image_block(Y * 10 + X).Visible = True Form_main.Image_block(Y * 10 + X + 1).Visible = True Form_main.Image_block(Y * 10 + X + 11).Visible = True Form_main.Image_block(Y * 10 + X + 21).Visible = True End Sub Sub show17(X, Y As Integer) Form_main.Image_block(Y * 10 + X).Visible = True Form_main.Image_block(Y * 10 + X + 1).Visible = True Form_main.Image_block(Y * 10 + X + 2).Visible = True Form_main.Image_block(Y * 10 + X + 10).Visible = True End Sub Sub show18(X, Y As Integer) Form_main.Image_block(Y * 10 + X).Visible = True Form_main.Image_block(Y * 10 + X + 10).Visible = True Form_main.Image_block(Y * 10 + X + 20).Visible = True Form_main.Image_block(Y * 10 + X + 21).Visible = True End Sub Sub show19(X, Y As Integer) Form_main.Image_block(Y * 10 + X).Visible = True Form_main.Image_block(Y * 10 + X + 10).Visible = True Form_main.Image_block(Y * 10 + X + 20).Visible = True Form_main.Image_block(Y * 10 + X + 30).Visible = True End Sub Sub next_block() ''''产生下一个方块(random) Randomize next_block_kind = Int((19 * Rnd) + 1) Call is_full(next_ [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >> 没有相关教程
|