Game : Tebak Angka Sederhana

Kali ini saya mengajak membuat sebuah game tebak angka sederhana dengan menggunakan Macro VBA.

Diharapkan melalui Game sederhana ini, kamu bisa memahami pemrograman VBA dengan baik.

Berikut ini adalah Script untuk membuat Game Sederhana Tebak Angka di Microsoft Excel.

Sub MulaiGame()
Dim nama As String
Dim Target As Long
Dim selsai As Boolean
Dim JmlTebak As Long

nama = InputBox("Siapa namamu?")

Randomize
Target = FormatNumber((100 * Rnd) + 1)

Do Until selsai
    Tebakan = InputBox("Silahkan Tebak dari 1- 100")
    JmlTebak = JmlTebak + 1
    
    If Len(Tebakan) = 0 Then
        MsgBox "Permainan Selsai, Sampai Jumpa lagi"
        selsai = True
        JmlTebak = 0
    Else
        If IsNumeric(Tebakan) Then
            If FormatNumber(Tebakan) = Target Then
                MsgBox "Selamat tebakan Benar " & vbNewLine _
                       & " Berhasil menebak " & Target & " sebanyak " & JmlTebak & " kali"
                selsai = True
            ElseIf FormatNumber(Tebakan) < Target Then
                MsgBox "Angka terlalu kecil, coba lebih besar"
            Else
                MsgBox "Angka terlalu besar, coba lebih kecil"
            End If
        Else
            MsgBox "Silahkan isi dengan Angka"
        End If
    End If
Loop

'simpan
baris = Sheet1.Range("B" & Rows.Count).End(xlUp).Row + 1
Sheet1.Range("A" & baris).Resize(1, 4).Value = Array(baris - 2, nama, Target, JmlTebak & " kali")
End Sub