Yuk, buat Game Tebak Angka Di Excel (Advanced Excel)

Sudah pernah tahu yang namanya game tebak angka?. Game tebak angka itu cara mainnya seperti ini :

  1. Pikirkan 4 angka mulai dari 0 … 9, yang angka tersebut tidak boleh berulang. Misalkan angka yang didapat adalah 1497
  2. Nah sekarang buat 3 kolom di kertas, isinya kolom tebakan, kolom benar angka dan benar posisi
  3. Salah satu temanmu menebak 4 angka tersebut dan ditulis di kolom tebakan. Misalkan dia menebak secara acak 2417
  4. Maka yang punya angka menuliskan, dari angka yang ditebak itu berapa angka yang benar, dan berapa posisi benar. Untuk contoh diatas, angka benar adalah 3, yaitu 1, 4, dan 7. Sedangkan posisi benar adalah 2 (yaitu posisi 4 dan 7)
  5. Kemudian ditebak lagi, dan dituliskan benar angka dan benar posisinya.
  6. Begitu seterusnya sampai angka dan posisi benar tertebak semua.

Untuk lebih jelasnya, dapat dilihat pada contoh ini

tebak angka 

Kali ini, karena waktu saya sedikit, saya akan terangkan metode untuk membuatnya di Excel, tapi hanya sebagian saja, semoga bisa lebih jelas dengan contoh filenya. Saya ingin membuat permainan ini tidak sepenuhnya dengan VBA, tapi harus memakai perhitungan di sel. 

Logika algoritmanya begini :

1. Generate 4 angka random yang tidak berulang. Ini tidak bisa dibuat di sel, karena setiap dilakukan kalkulasi (F9), maka angka random yang kita buat akan berubah. Sehingga mau tidak mau, langkah 1 harus diprogram di VBA.

2. Tempatkan angka random tersebut di sebuah sel di Excel yang tersembunyi.

3. Untuk perhitungan berapa angka benar dan berapa posisi benar, kita harus meng-explode angka angka tebakan, dan membandingkannya dengan angka random yang telah kita buat.

4. Membandingkan benar angka adalah dengan OR(), sedangkan benar posisi dibandingkan dengan cara pembandingan atas dan bawah

5. Jumlah benar dapat dihitung dengan menghitung nilai 1 pada bp atau ba. Ini menggunakan fungsi CountIf()

tebak angka_2

Lainnya bisa dipelajari sendiri di program contoh. Untuk VBAnya dapat dilihat sebagai berikut:

Function AngkaDitebak()

kata = "0123456789" ‘seeding kata yang akan diambil
AngkaKu = "" ‘variabel angkaku untuk menampung 4 angka yang dihasilkan
katabaru = kata  ‘kata baru maksudnya kata yang sudah dibuang angka yang sudah digunakan
Randomize    ‘ Initialize random-number generator.

temp = Len(kata) 
For i = 1 To 4
   MyValue = Int((temp * Rnd) + 1)    ‘ Generate Random value
   AngkaKu = AngkaKu & Mid(katabaru, MyValue, 1)
   katatemp = Left(katabaru, MyValue – 1) & Mid(katabaru, MyValue + 1, Len(katabaru))
   katabaru = katatemp
   temp = Len(katabaru)
Next i

AngkaDitebak = AngkaKu

End Function

Sub show()
a = AngkaDitebak
‘MsgBox (a) – ini digunakan waktu pengujian
Sheets(3).Range("a1").Value = a  ‘
Sheets(1).Range("d5").Select
End Sub

Yup, sudah sore. waktu habis. Untuk lebih jelasnya, silahkan utak atik file tebak angka.xls berikut ini

Istilah Pencarian:

Klik untuk melihat isi list

One thought on “Yuk, buat Game Tebak Angka Di Excel (Advanced Excel)

  1. Saya ingin bertanya, ada kaitannya dengan fungsi random, meskipun tidak berkaitan langsung dengan topik di atas..
    Yang mau saya tanyakan:
    Misalnya saya punya data Text yg terdapat pada A1 : A60. Isinya adalah :

    DATA01
    DATA02
    DATA03
    :
    :
    DATA60

    Lalu dengan VBA, saya ingin mengambil secara acak 20 data yang terdapat dalam range A1:A60 tersebut, dengan syarat DATA YANG PERNAH DIAMBIL TIDAK BISA DIAMBIL LAGI ATAU DATA TIDAK BERULANG.

    Saya mohon bantuan bapak untuk memberikan solusi dari masalah yg saya alami. Terima Kasih.

Leave a Reply