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

Tham khảo tài liệu 'lập trình game bằng visual basic part 4', 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ả | 102 Lập trình game bàng Visual Basic dangícurshape dang curshape RightCO CStr vt 2 dang curshape - dang curshape RightC O CStr vt - 10 2 dangícurshape dang curshape RightCO CStrfvt 1 2 show_brick bienthe 4 End If Case 4 Bien đối khối gạch 2 dạng 4 thành khối gạch 2 dạng í vt Val Mid m_dang 4 2 xác định vị trí viên gạch thú 2 trung khối If vt Mod 10 0 Then nếu thuộc cột đầu tièn rbien False không cho hiến hình Else Nếu ô bên trái có chứa gạch If Shapel VaKvt - 1 Visible True Then r_bien - False End If End If If rbien True Then hide_br ick vt Val Mid m_dang 4 2 dang curshape RightCO CStrfvt -1 2 dang curshape dang curshape RightC O CStr vt 2 7 dang curshape dang curshape RightCO1 CStdvt 11 2 dang curshape dang curshape RightC O CStrfvt 10 2 show_brick bienthe - 1 End If End Select Bài 3 Trò choi xép gạch 103 Case 2 1 Bi fin đối dạng khái gạch 3 Select Case bienthe Case 1 Biến dói khối gạch 3 dạng ĩ i khối gạch 3 dạng 2 vt ValíMidímdang 7 2 If vt 19 Then r bien False Else If Shape Valívt - 10 .Visible True Or _ Shape VaKvt - 20 .Visible True Then r bien - False End If End If If r_bien True Then hide brick vt Val Mid m_dang 7 2 dang curshape Righti O CStrfvt - 20 2 dang curshape dang curshape RightC O CStrivt - 10 2 dang curshape - dang curshape RightCO CStr vt 2 dang curshape dangicurshape RightC O CStrivt - 1 2 show brick bienthe 2 End If Case 2 1 Biến đổi khối gạch 3 dạng 2 thành khối gạch 3 dạng 3 vt Val Mid m_dang 7 2 If vt Mod 10 7 Then r_bien False 104 Lập trinh game báng Visual Basic Else If Shapel VaKvt 1 .Visible True Or _ Shape Valfvt 2 .Visible True Then r_bien - False End If End If If r_bien True Then hide_brick vt Val Mid m_dang 7 2 dang curshape RightC O CStrfvt 2 2 dang curshape dang curshape RightC O11 CStr vt 1 2 dang curshape dang curshape RfghtC O CStr vt 2 dang curshape dang curshape RightCO CStrfvt - 10 2 showbrick bienthe 3 End If Case 3 Biến đối khối gạch 3 dậng 3 thành khai gạch 3 dạng 4 vt Val Mid m_dang 7 2 If vt 79 Then r_bien False .