Ý tưởng thực hiện game Mê cung

[duongmanhquan]

Game Mê cung này đã xuất hiện trên điện thoại cảm ứng của Samsung, Nokia.. từ lâu. Mình có ý tưởng về thực hiện game này trên excel, anh chị em nào quan tâm có thể hiện thực hóa ý tưởng này để chia sẻ cùng mọi người không?
Mình nghĩ đây là 1 game khá thú vị và có khả năng thực hiện bằng excel. Tuy nhiên hiểu biết và trình độ còn hạn chế nên mới chỉ ở mức đưa ra ý tưởng

 

[SA_DQ]

Bạn xem trong file đính kèm xem đã đúng í đồ bạn chưa

/(/hưng mới di chuyển lên hay xuống khối ô cùng màu nền (cũng là cùng trị)

 

[SA_DQ]

Trong khi chờ fản hồi từ bạn, mình đã kịp đặt thừa số chung cho 2 macro luôn rồi đây

Option Explicit
Sub AutoShapeUp()      'Len Tren'
 LenXuong -1, True
End Sub

Sub AutoShapeDown()
 LenXuong 1
End Sub

[B]Sub LenXuong(Offs As Long, Optional Ln As Boolean = False)[/B]
 On Error GoTo LoiCT
 Dim Rng As Range, sRng As Range, Rg0 As Range
 Dim MyAdd As String
 Dim MyColor As Byte
 
 MyColor = Selection.Interior.ColorIndex
 If Not Intersect(Selection, Range("K1:O4")) Then
    Set Rng = [c2].Resize(7, 5)
    Set sRng = Rng.Find(Selection.Value, , xlFormulas, xlWhole)
    If Not sRng Is Nothing Then
        MyAdd = sRng.Address
        Do
            If sRng.Interior.ColorIndex = MyColor Then
                If Rg0 Is Nothing Then
                    Set Rg0 = sRng
                Else
                    Set Rg0 = Union(Rg0, sRng)
                End If
            End If
            Set sRng = Rng.FindNext(sRng)
        Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
    End If
    If CungHang(Rg0) And Application.WorksheetFunction.Sum(Rg0.Offset(Offs)) = 0 Then
[COLOR="#0000CD"]'Hàng:'[/COLOR]
        Rg0.Offset(Offs).Interior.ColorIndex = MyColor
        Rg0.Offset(Offs).Value = Selection.Value
        Rg0.Value = ""
        Rg0.Interior.ColorIndex = 0
    ElseIf CungCot(Rg0) And Rg0(1 + Rg0.Count).Value = "" And Ln = False Then
[COLOR="#0000CD"]'Cot:'[/COLOR]
        Rg0(Offs + Rg0.Count).Value = Selection.Value
        Rg0(Offs + Rg0.Count).Interior.ColorIndex = MyColor
        Rg0(Offs).Value = ""
        Rg0(Offs).Interior.ColorIndex = 0
     ElseIf CungCot(Rg0) And Rg0(0).Value = "" And Ln Then
        Rg0(0).Value = Selection.Value
        Rg0(0).Interior.ColorIndex = MyColor
        Rg0(Rg0.Count).Value = ""
        Rg0(Rg0.Count).Interior.ColorIndex = 0
    Else
        MsgBox "No move!"
    End If
 End If
GPE:        Exit Sub
LoiCT:
    MsgBox "Chon O Màu Dòng 1"
[B]End Sub[/B]

]

 

[duongmanhquan]

Bạn viết phần di chuyển lên xuống đúng rồi đó. Cách làm cũng hay. Thêm phần di chuyển sang trái, sang phải nữa là thành công rồi. Cảm ơn bạn nhiều. Có thể thêm phần đếm số lần click di chuyển để tính điểm. Ai di chuyển càng ít thì tức là điểm càng cao (với điều kiện phải đưa đến đích thành công) (không biết làm được ko) . Thêm nút Reset để bắt đầu lại từ đầu. (cái này mình thấy bên game Line có làm được)Cách di chuyển với nút mũi tên của bạn rất hay. Có thể tạo ra nhiều game mới bằng cách này được đó.Nếu bạn quan tâm và ko phiền mình sẽ đưa tiếp các ý tưởng về game mới để mọi người cùng nghiên cứu xem.Trân trọng cảm ơn

 

[SA_DQ]

Thử với ver 1.2 xem sao

/(/ếu còn nhu cầu gì nữa cứ fát biểu

 

[duongmanhquan]

oh men! Bác làm hay quá. Chuẩn luôn. Let's play thôi

 

[duongmanhquan]

Ở nguyên bản game này em thấy nếu các thanh nằm ngang thì chỉ di chuyển sang trái-phải được thôi, không di chuyển lên-xuống được. Tương tự với các thanh dọc chỉ di chuyển lên-xuống. Thanh màu đỏ cũng chỉ di chuyển ngang (nên cửa vào và cửa ra nằm cùng 1 hàng). (có vẻ quy định như vậy sẽ khó hơn)
Có thể tô màu các số cùng màu nền với ô thì sẽ không nhìn thấy số nữa, mà chỉ là các thanh màu. Như vậy đẹp mắt hơn.
Rất tiếc là điện thoại em ko có game này nên không biết ra đề bài thế nào. Cố gắng sưu tầm để ra khoảng 10 bài với 10 cấp độ dễ, khó khác nhau để chơi cho vui.
Góp ý 1 chút để hoàn thiện game

 

[SA_DQ]

Ở nguyên bản game này; Nếu các thanh nằm ngang thì chỉ di chuyển sang trái-phải được thôi, không di chuyển lên-xuống được.
Tương tự với các thanh dọc chỉ di chuyển lên-xuống. Thanh màu đỏ cũng chỉ di chuyển ngang (nên cửa vào và cửa ra nằm cùng 1 hàng). (có vẻ quy định như vậy sẽ khó hơn)
Có thể tô màu các số cùng màu nền với ô thì sẽ không nhìn thấy số nữa, mà chỉ là các thanh màu. Như vậy đẹp mắt hơn.
Góp ý 1 chút để hoàn thiện game

/(/ói chung màn hình & bàn fím 2 loại hình này khác xa nhau; nên không nên dập khuôn i chang từ chương trình này sang chương trình kia được.

 

[duongmanhquan]

Ngôn ngữ viết khác mà. Và qua mỗi cách làm cũng học được nhiều. Mình nghĩ là trước khi sáng tạo ra cái mới thì nên giữ nguyên cái cũ để hiểu rõ cái hay, cái dở. Dập khuôn là dập khuôn luật chơi của trò chơi thôi, còn cách làm ra trò chơi bằng ngôn ngữ excel thì hoàn toàn là sự sáng tạo.
Thao tác excel bằng màn hình cảm ứng có lẽ ko fai là hiếm trong tương lai. Vì điện thoại di động cũng đi từ bàn phím trở thành màn hình cảm ứng, máy tính trong tương lai chắc cũng sẽ như vậy. (Quan điểm cá nhân mình thôi )

 

[SA_DQ]

VER 2.02 đây & xin mời

Có thể tô màu các số cùng màu nền với ô thì sẽ không nhìn thấy số nữa, mà chỉ là các thanh màu. Như vậy đẹp mắt hơn.

(Mình sẽ tháo file bài bên trên nha.)

 

[vanle33]

Game Mê cung này đã xuất hiện trên điện thoại cảm ứng của Samsung, Nokia.. từ lâu. Mình có ý tưởng về thực hiện game này trên excel, anh chị em nào quan tâm có thể hiện thực hóa ý tưởng này để chia sẻ cùng mọi người không?
Mình nghĩ đây là 1 game khá thú vị và có khả năng thực hiện bằng excel. Tuy nhiên hiểu biết và trình độ còn hạn chế nên mới chỉ ở mức đưa ra ý tưởng

Theo mình vấn đề giải quyết cực kỳ đơn giản. Bạn search trên google mấy trang game và down mấy game xếp hình, mê cung ... về chơi. Đâu cần phải khổ sở nghiên cứu chơi game trong excel

 

[ChanhTQ@]

Ăn cái bánh mình gói sẽ cảm thấy ngon hơn rất nhiều đó bạn!

& down mấy game xếp hình, mê cung ... về chơi.
Đâu cần phải khổ sở nghiên cứu chơi game trong excel

Thậm chí có tham gia rữa lá để mẹ gói thôi, cũng thêm niềm vui nho nhỏ rồi!

 

[vanle33]

Thậm chí có tham gia rữa lá để mẹ gói thôi, cũng thêm niềm vui nho nhỏ rồi!

Bác có biết là
Biết biến kiến thức của người khác thành kiến thức của mình là thông minh và đầy trí tuệ không?

 

[duongmanhquan]

Theo mình vấn đề giải quyết cực kỳ đơn giản. Bạn search trên google mấy trang game và down mấy game xếp hình, mê cung ... về chơi. Đâu cần phải khổ sở nghiên cứu chơi game trong excel

Mình thấy rất thú vị khi nghiên cứu chơi game trong excel, vì 3 điều sau:
1. Mở ra cách nhìn mới về excel, rằng excel có thể làm được những điều mà có thể trước kia bạn ko nghĩ rằng ko thể, nay thấy có thể làm được và được tận mắt chứng kiến việc làm ra nó, quả là học hỏi được nhiều điều.
2. Tạo ra game trên excel cũng là quá trình học tập, tìm tòi và sáng tạo. Rất bổ ích khi học thêm được nhiều điều mà có thể ứng dụng cho những công việc khác, ko chỉ là game.
3. Việc người sử dụng excel chơi game thực hiện bằng excel giúp họ thích thú hơn và say mê hơn với excel, khiến excel trở nên thân thiện và gần gũi hơn, đa năng hơn.
Thân!

 

[SA_DQ]

Bác có biết là: Biết biến kiến thức của người khác thành kiến thức của mình là thông minh và đầy trí tuệ không?

Bằng cách nào khác vậy bạn?

Mình thì cho rằng đã sẵn rất nhiều hàm chuyển số thành chữ, nhưng lúc rỗi ta vẫn có thể trui rèn thần công lực bằng cách tự viết lại hoàn chỉnh 1 hàm trên 1 font nào đó;

Sau đó đối chiếu với mọi người xem ta đang ở vị trí nào trong giải thuật của hàm.