VBA‎ > ‎

Game Tebak Angka

saat mengajar Algoritma1 beberapa hari yang lalu, ada mahasiswa saya yang menanyakan apakah bisa membuat game dengan VB. Waktu itu saya jawab bahwa untuk saat ini developer game sudah menggunakan engine tersendiri untuk membuat game, dan game itu sebenarnya hanya permasalahan logika. Apapun bahasa pemrogramannya, bisa dibuat asal logika game nya masuk.

Waktu itu, saya demokan dengan membuat secara cepat sebuah game tebak angka ... dan waktu itu masih dicobain ke sebuah komputer di lab, dan mungkin tidak semua mahasiswa yang memperhatikan (karena saya tidak membawa proyektor / infokus.


GameTebakAngka


Berikut kode untu game sederhana dukun-dukunan .... eh ... tebak angka


Sub gameTebakAngka()

    Randomize
    angka_rahasia = Int(Rnd() * 100) + 1
    Debug.Print angka_rahasia

    Dim percobaan, tebakan As Byte
    While tebakan <> angka_rahasia
        percobaan = percobaan + 1
        tebakan = InputBox("Masukkan Tebakan Anda, bilangan bulat dari 1 - 100", "Tebakan ke " & percobaan)
        If tebakan < angka_rahasia Then
            MsgBox "coba yang LEBIH BESAR lagi!"
        ElseIf tebakan > angka_rahasia Then
            MsgBox "coba yang LEBIH KECIL lagi!"
        End If
    Wend
        
    MsgBox "Selamat, Anda dapat menebak angka rahasia dalam " & percobaan & " kali"
    If percobaan < 5 Then MsgBox "Anda dukun sakti!"
    
End Sub

Logikanya seperti ini:
  • Komputer membuat sebuah bilangan acak / bilangan random, dari 1 - 100 , yang kemudian disimpan ke variable angka_rahasia.
  • Komputer kemudian menanyakan ke pengguna berapa angka acak tersebut.
  • Jika angka tebakan tersebut sama dengan angka_rahasia, maka permainan berakhir
  • Jika angka tebakan tersebut tidak sama, maka pengguna akan diberikan hint / petunjuk apakah angkanya lebih besar atau lebih kecil lagi ...

Silahkan Buka Microsoft Word Anda, lalu buka VBE (Visual Basic Editor)nya dengan menekan Alt + F11, lalu kopipasta kode tersebut dan jalankan dengan F5



Comments