Game Rắn thế hệ Excel

[VMH0307]

Kính gửi: các Bác!

Em mới hoàn thiện xong Game Rắn - Phiên bản 1, hehe, Kính mời các bác vào mở hàng cho em. Với những kiến thức học lóm được từ các Bác trên diễn đàn, và đam mê đặc biệt với Excel, em làm Game này không tránh khỏi những code, câu lệnh ngây thơ, vậy kính mong các bác góp ý bổ sung để Game được hoàn thiện hơn.

Cám ơn các Bác!!

 

[VMH0307]

Chỉnh sửa lại Code

Public Sub Moi()                            'Tao moi ngau nhien
On Error Resume Next
Lap:
i = (Rnd() * 1000) Mod [COLOR=#ff0000]32 + 1
[/COLOR]j = (Rnd() * 1000) Mod [COLOR=#ff0000]32 + 1
[/COLOR]k = (Rnd() * 1000) Mod [COLOR=#ff0000]32 + 1
[/COLOR]Range("B2").Offset(i, j).Select
If Selection = 1 Then   [COLOR=#008000]'Kiem tra tranh hien tuong Moi trung voi than Ran
[/COLOR]   GoTo Lap
End If
    If i + j = k Then      [COLOR=#008000]'Moi thuong dac biet: tang do dai them 10 don vi, xac suat rat thap: Mau xanh da troi
[/COLOR]       Selection = 3
    End If
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------
    If i + j <> k Then     [COLOR=#008000]'Moi binh thuong: mau xanh lá cây
[/COLOR]       Selection = 2
    End If
End Sub

Em phát hiện ra ở phần Code tạo Mồi cho Rắn cần điều chỉnh lại (phần tô đỏ) để tọa độ của mồi luôn nằm trong bản đồ, với code cũ nó có thể ngẫu nhiên rơi ra ở phần viền Bản đồ.

 

[hungpecc1]

sao em làm mãi ko đc chủ topic.. hướng dẫn kỹ hơn đc ko

--> mở file và chọn enabel macro
---> ấn các phím di chuyển ( ctrl + shift i,.....) và ăn mồi

 

[loivanvn]

Excel là hỗ trợ học mà mọi người chuyên qua thành game được đúng là giỏi gê ah,hồi trước đi học không máy nào được cài game nếu biết cài này sớm tí nữa là ok rồi,đố ai biết mình chơi game