Cara Membuat Game Ular di Microsoft Excel VBA Dengan Mudah dan Cepat

 Anak kelahiran 80an pasti pernah mengalami permaian game ular, permainan ini sangat klasik sekali, waktu itu belum ada yang namanya PC apalagi HP walaupun ada hanya untuk kebutuhan dan orang tertentu saja. Untuk memainkan Game ini anak jaman dahulu kelahiran 80an harus menyewa oleh yang meyewakan. Saat itu dijajakan di sekolah-sekolahan kalau gak salah namanya dulu main Game Board (jimbot). Seiring dengan hadirnya komputer dikalangan masyarakat, Admin baru tau ternyata untuk membuat Game Ular itu sangat mudah, hanya cukup membuka Microsoft Excel dan memberikan kode tertentu dan Game sudah siap di mainkan.

Game Ular dengan Excel VBA

Artikel ini akan membahas secara lengkap konsep, ide, dan gambaran umum cara membuat game ular di Excel dengan mudah dan cepat, tanpa masuk ke langkah teknis satu per satu.

Beberapa alasan kenapa proyek ini layak dicoba:

• Melatih logika dan kreativitas
• Mengenal fitur Excel lebih dalam, terutama formula dan VBA
• Cocok untuk proyek iseng tapi produktif
• Bisa jadi konten unik untuk blog atau portofolio

Konsep Dasar Game Ular di Excel

Ular direpresentasikan sebagai rangkaian sel berwarna, sementara makanan muncul di sel tertentu secara acak. Pergerakan ular biasanya dikontrol menggunakan keyboard, dan di sinilah peran macro atau VBA (Visual Basic for Applications) menjadi sangat penting.

Berikut adalah langka-langkah Cara Membuat Game Ular di Microsoft Excel

1. Buka Microsoft Excel

2. Tambah WorkBook baru

3. Pada Sheet1 tekan  Pilih Tab Developer (pada Menu Bar)

4. Pilih Visual Basic

5. Jendela Visual Basic akan terbuka

6. Pilih Tab Insert (dijendela Visual Basic) >> Module

7. Jendela Module akan terbuka, copy kode dibawah ini di Module1 (code) :

Option Explicit

' ===== KONFIGURASI PAPAN =====

Const BoardStartRow As Long = 2   ' B2

Const BoardStartCol As Long = 2

Const MaxRow As Long = 20

Const MaxCol As Long = 20

' ===== VARIABEL GAME =====

Dim SnakeRow() As Long

Dim SnakeCol() As Long

Dim SnakeLen As Long

Dim Dir As String

Dim FoodRow As Long

Dim FoodCol As Long

' START GAME

Sub StartGame()

    Cells.ClearFormats

    DrawBoard

    

    SnakeLen = 3

    ReDim SnakeRow(1 To 200)

    ReDim SnakeCol(1 To 200)

    

    ' Posisi awal snake (tengah papan)

    SnakeRow(1) = 10: SnakeCol(1) = 10

    SnakeRow(2) = 10: SnakeCol(2) = 9

    SnakeRow(3) = 10: SnakeCol(3) = 8

    Dir = "R"

    PlaceFood

    DrawGame

End Sub

' GERAK 1 LANGKAH

Sub StepSnake()

    Dim i As Long

    Dim newRow As Long, newCol As Long

    

    newRow = SnakeRow(1)

    newCol = SnakeCol(1)

    

    Select Case Dir

        Case "R": newCol = newCol + 1

        Case "L": newCol = newCol - 1

        Case "U": newRow = newRow - 1

        Case "D": newRow = newRow + 1

    End Select

    

    ' Tabrak tembok

    If newRow < 1 Or newRow > MaxRow _

    Or newCol < 1 Or newCol > MaxCol Then

        MsgBox "Game Over!", vbExclamation

        Exit Sub

    End If

    

    ' Geser badan

    For i = SnakeLen To 2 Step -1

        SnakeRow(i) = SnakeRow(i - 1)

        SnakeCol(i) = SnakeCol(i - 1)

    Next i

    

    SnakeRow(1) = newRow

    SnakeCol(1) = newCol

    

    ' Makan food

    If newRow = FoodRow And newCol = FoodCol Then

        SnakeLen = SnakeLen + 1

        SnakeRow(SnakeLen) = SnakeRow(SnakeLen - 1)

        SnakeCol(SnakeLen) = SnakeCol(SnakeLen - 1)

        PlaceFood

    End If

    

    DrawGame

End Sub

' GAMBAR GAME

Sub DrawGame()

    Dim i As Long

    DrawBoard

    

    ' Snake

    For i = 1 To SnakeLen

        Cells(BoardStartRow + SnakeRow(i) - 1, _

              BoardStartCol + SnakeCol(i) - 1).Interior.Color = vbGreen

    Next i

    

    ' Food

    Cells(BoardStartRow + FoodRow - 1, _

          BoardStartCol + FoodCol - 1).Interior.Color = vbRed

End Sub

' PAPAN

Sub DrawBoard()

    Dim r As Long, c As Long

    

    For r = 1 To MaxRow

        For c = 1 To MaxCol

            Cells(BoardStartRow + r - 1, _

                  BoardStartCol + c - 1).Interior.Color = _

                IIf((r + c) Mod 2 = 0, RGB(220, 220, 220), RGB(240, 240, 240))

        Next c

    Next r

End Sub

' FOOD

Sub PlaceFood()

    Randomize

    FoodRow = Int(Rnd * MaxRow) + 1

    FoodCol = Int(Rnd * MaxCol) + 1

End Sub

' KONTROL

Sub KeyUp(): Dir = "U": StepSnake: End Sub

Sub KeyDown(): Dir = "D": StepSnake: End Sub

Sub KeyLeft(): Dir = "L": StepSnake: End Sub

Sub KeyRight(): Dir = "R": StepSnake: End Sub

Sub AktifkanPanah()

    Application.OnKey "{UP}", "KeyUp"

    Application.OnKey "{DOWN}", "KeyDown"

    Application.OnKey "{LEFT}", "KeyLeft"

    Application.OnKey "{RIGHT}", "KeyRight"

End Sub

8. Setelah mengisi kode di Module1 tutup Aplikasi Visual Basicnya

9. Pada Menu Bar pilih Developer >> Klik Macros untuk menjalankannya, kemudian pada jendela Macro setting sebagai berikut :

Game Ular dengan Excel

10. Pilih "AktifkanPanah" kemudian tekan "Run"

11. Klik Macros lagi Pilih "StartGame" kemudian tekan "Run"

12. Game siap di mainkan dengan menekan tanda panah Atas - Bawah dan Kanan - Kiri

Catatan :

*Atur lebar dan tinggi Cell agar ukurannya lebih kecil

Demikianalah artikel kali ini membahas tentang Cara Membuat Game Ular di Microsoft Excel VBA Dengan Mudah dan Cepat, semoga artikel ini bermanfaat buat kita semua.Amin.

Selamat mencoba semoga berhasil