Membuat Program Tebak Angka

Pada kesempatan kali ini, saya akan menjelaskan anda tentang membuat sebuah program tentang Membuat Program Tebak Angka. Program Tebak Angka memang adalah sebuah program yang cukup mudah untuk dibuat hanya perlu sekitar 15 menit untuk membuatnya.

Tampilan Awal Mulai Program Tebak Angka

Kali ini, saya akan menjelaskan cara untuk membuat Program Tebak Angka yang mudah cara membuatnya. Untuk membuatnya, saya akan menggunakan 1 command button dan 1 buah message box saja.

Langkah - Langkahnya untuk membuat program tebak angka ini :

Langkah Pertama. :
Buatlah sebuah form dengan 1 buah Command Button di tengah.

Langkah Kedua :
Masukan Command di Command Button tersebut, Commandnya adalah :

Private Sub Command1_Click()
  Dim X As Integer
  Dim A, C As Byte
  Randomize Timer '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

Jika anda masih belum mengerti akan bahasa - bahasa program, dapat anda pelajari di sini

Setelah itu coba anda jalankan program anda tersebut, jika semua perintah benar, maka program tersebut harusnya bisa berjalan dengan baik. Coba suruh teman anda untuk bermain dengan menggunakan game Tebak Angka yang anda buat sendiri.

Tampilan Program ketika Tebakan Benar

Selamat Mencoba !!

Jika Anda menginginkan program yang jadi dapat Anda Download Klik Di sini !
Jika Anda menginginkan program yang jadi dengan .exe nya dapat Anda Download Klik Di sini !