Tham khảo tài liệu 'lập trình game bằng visual basic part 9', 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ả | 268 Lập trình game bàng Visual Basic Do vt Index - 20 tf vt 0 Then Index Index - 20 If Banco Fỉx lndex 20 Index Mod 20 CurPlayer Then dem dem 1 Else If Banco Fix lndex ị 20 Index Mod 20 50 Then otrong 2 1 Index End If Exit Do End If End If Loop Until vt 19 UpMark dem End Function Đếm số dấu phía dưới õ hiện hành Private Function DownMarkfByVal Index As Integer As Integer Dim dem vt As Integer dem 0 Do vt Index 20 If vt 399 Then Index Index 20 If BancoiFixilndex 20 Index Mod 20 CurPlayer Then dem dem 1 Else If Banco Fix lndex 20 Index Mod 20 - -50 Then Bai 6 ĩro choi carở 269 otrongó 2 Index End If Exit Do End If End If Loop Until vt 380 DownMark dem End Function Đếm sò dấu ớ trên bên trái ỏ hiện hành Private Function LeftUpfByVal Index As Integer As Integer Dim dem vt As Integer dem 0 Do vl Indtrx If vt 19 And vt Mod 20 0 Then Index Index - 21 If BancofFixflndex I 20 Index Mod 20 - CurPlayer Then dem dem 1 Else If Ba ncotFixf Index 20 Index Mod 20 - -50 Then otrongCỈ 1 - Index End If Exit Do End If End If Loop Until vt 1 9 Or vt Mod 20 0 LeftUp dem End Function 270 Lập trinh game bằng Visual Basic Đếm số dấu ớ duới bên phái ô hiện hành Private Function RightDownfByVal Index As Integer As Integer Dim dem vt As Integer dem - 0 Do vt Index If vt 380 And vt Mod 20 19 Then Index Index 21 If Banco Fix lndex I 20 Index Mod 20 - CurPlayer Then dem - dem 1 Else If Banco Fix lndex 20 Index Mod 20 -50 Then otrong 3 2 Index End If Exit Do End If End If Loop Until vt 380 Or vt Mod 20 19 RightDown - dem End Function Đếm số dấư ở ưèn bên phải ô hiện hành Private Function RightUp ByVal Index As Integer As Integer Dim dem vt As Integer dem 0 Do vt Index If vt 19 And vt Mod 20 19 Then Index - Index .
