tailieunhanh - Lập trình Game bằng Visual Basic part 5

Tham khảo tài liệu 'lập trình game bằng visual basic part 5', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Bài 3 Trò chơi xếp gạch 135 vt Val Mid m_dang ii 3 - 2 2 lí vt 89 Then mstop True Exit For Else If Shapel VaKvt 10 .Visible True Then mstop True Exit For End If End If Fnd If Next End Select Cast1 4 Dôi với khôi gạch 5 chí có í dạng Kiếm tra vièn gạch 3 và 4 trong khới For ii 3 To 4 vt ValtMidfmdang ii 3 - 2 2 If vt 89 Then mstop True Exit For Else If Shape 1 Valivt 1 0 .Visible True Then mstop True Exit For End If End If Next End Select 136 Lập trinh game báng Visual Basic Nếu khối gạch vần còn được phép dịch chuyến xuống dưới sau khi kiếm ưa Dịch chuyến khối gạch xuống một hàng If mstop False Then hide_brick vt Val Mid m_dang 1 2 10 dangícurshape CStr vt vt Val Mid m_dang 4 2 1 10 dang curshape dang curshape CStr vt vt Val Mid m_dang 7 2 10 dang curshape dangkurshape CStr vt vt Val Mid m_dang 10 2 10 dang curshape - dang curshape CStr vt showbrick Else Nếu khối gạch bị dừng lại không dược dịch chuyến xuổng nữa Phát sinh một khối gạch mới ở hàng dầu tiên trong không gian chơi - False dang O 03 04 05 06 dangd 03 04 05 14 dang 2 03 04 05 15 dang 3 03 04 05 1 3 dang 4 04 05 14 15 Cụi thú tục testhangday. kiếm tra các hàng đẳy dế loại bó khới không gian chơi và cộng điếm cho người chơi testhangday curshape IntíRnd 5 Mặc dịnh khối gạch mới phát sinh luôn có dạng I blenthe - 1 show brick Bài 3 Trò choi xép gạch 137 mslop - False True End If End Sub Dược gọi từ trong thủ tục movedown dùng kiếm tra hàng có đầy gạch chưa Sub testhangdayO sohangxoa 0 For i 0 To 9 biến dẾm sổ hàng đuợc xóa cùng một iúc Duyệt từng hàng trong không gian chơi 10 hàng mday True For 0 To 9 mặc định xem hàng đã đầy gạch Duyệt từng ò trên một hàng một ô Chí cân ít nhất một õ trong hãng chua có gạch If Shape Hi 10 j . Visible False Then mclay False Exit For End If Xem như hàng chưa đảy mà không cần kiếm tra các ô còn lại trong hàng Nexl If mday True Then nêu hàng vừa Idem tra đẳy gạch sohangxoa sohangxoa 1 tăng biến lưu số hàng được xóa lẽn ì tiến hành xóa hàng đầy For j 0 To 9