Game Tebak Angka Di Excel (Advanced Excel)

Posted by

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

Source : http://harisaryono.com/2012/02/yuk-buat-game-tebak-angka-di-excel-advanced-excel/


DR.CB
MS. Office TutorialUpdated at : March 30, 2013

0 comments:

Post a Comment