Menebak Angka Acak

Perancangan program menebak suatu angka tunggal merupakan salah satu implementasi dari dasar-dasar pemrograman komputer. Angka yang ditebak umumnya merupakan suatu angka yang dibangkitkan sistem secara acak. Angka acak tersebut selanjutnya diminta ditebak oleh pengguna program. Umumnya juga dalam permainan ini penebak akan diberi jatah waktu atau cacah tebakan. Bila salah satu dari kondisi tersebut dipenuhi maka penebak dapat saja menerima hadiah atau lanjut ke tebakan selanjutnya. Pengguna akan diberi peringatan bila tebakan tidak sesuai dengan harapan.

Bahasa pemrograman Visual Basic memungkinkan membangkitkan suatu angka acak dengan menggunakan fungsi rnd(). Fungsi rnd() akan membangkitkan bilangan antara 0 dan 1. Sehingga bila kita menginginkan untuk mendapatkan bilangan bulat maka hasil dari fungsi rnd() tersebut harus kita kalikan dengan 10, 100, 100 dan seterusnya. Misalkan terdapat bilangan acak 0,3456, untuk memperoleh satuan, puluhan, ratusan atau ribuan dapat dilakukan dengan cara:
0.3456 * 10 = 3,456
0.3456 * 100 = 34,56
0.3456 * 1000 = 345,6
0.3456 * 10000 = 3456

Algoritma:
1. Bangkitkan suatu bilangan acak, Mis X
2. Tebak Bilangan Acak Tersebut, Mis A
3. Lakukan Pengujian
Apakah A=X, Jika Ya berarti Tebakan Berhasil dan program berhenti
Apakah A>X, Jika Ya berarti Tebakan Lebih Besar dari Bilangan Acak
Apakah A<X, Jika Ya berarti Tebakan Lebih Kecil dari Bilangan Acak
4. Selesai

Private Sub Form_Activate()
  Dim X As Integer
  Dim A, C As Byte
  Randomize (100) 'Bangkitkan bibit bilangan Acak
  A = Round(Rnd() * 100, 0) 'Bilangan Antara 1 s.d 99
  CTebak = 0 'Cacah Banyak Tebakan
 10:
  X = Val(InputBox("Tebakan Anda "))
  CTebak = CTebak + 1
  Cls 'Bersihkan Form
  Print "Anda Telah Menebak"; CTebak; " Kali"
  If A = X Then
     MsgBox ("Tebakan Anda Tepat")
     End 'Program Berhenti
  ElseIf (X < A) Then
     MsgBox ("Angka Terlalu Kecil")
     GoTo 10
  Else
     MsgBox ("Angka Terlalu Besar")
     GoTo 10
  End If
 End Sub