Game Tebak Angka Rahasia Komputer

Kali ini admin akan berbagi sebuah kode game sederhana, game yang kita mainkan ini adalah dengan cara menebak angka rahasia yang telah diacak komputer.

Dalam game ini komputer akan mengacak angka 1-100, kita dituntut untuk menebaknya yang sudah diacak oleh komputer. Kesempatan untuk menebak sebanyak 7x

Berikut adalah screnshoot gambar dari game tebak angka rahsia :

Berikut adalah langkah-langkah pembuatan game tebak angka rahasia dengan menggunakan vb 6 :

1. Buka Form VB6 Standar EXE
2. Desainlah Form1 persis dibawah ini :

Desain Form

Keterangan  :

Command1 Caption Tebak

Command2 Caption Ulangi

Command, Label dan Text name nya default

Jika sudah mendesain seperti gambar diatas, lalu copy paste kode dibawah ini :

Dim angkaRahasia As Integer

Dim jumlahTebakan As Integer

Dim skor As Integer

Const MAX_TEBakan As Integer = 7

Private Sub Form_Load()

    MulaiGame

End Sub

Private Sub MulaiGame()

    Randomize

    angkaRahasia = Int(Rnd * 100) + 1

    jumlahTebakan = 0

    skor = 0

    Label1.Caption = "Komputer sudah memilih angka 1 - 100. Coba tebak angka berapa?!"

    Label2.Caption = "Sisa Tebakan: " & MAX_TEBakan

    Label3.Caption = "Skor: 0"

    Text1.Text = ""

    Text1.Enabled = True

    Command1.Enabled = True

End Sub

Private Sub Command1_Click()

    Dim tebakan As Integer

    If IsNumeric(Text1.Text) = False Then

        MsgBox "Masukkan angka yang valid!", vbExclamation

        Text1.SetFocus

        Exit Sub

    End If

    tebakan = Val(Text1.Text)

    jumlahTebakan = jumlahTebakan + 1

    Label2.Caption = "Sisa Tebakan: " & (MAX_TEBakan - jumlahTebakan)

    If tebakan < angkaRahasia Then

        Label1.Caption = "Angka " & Text1.Text & " Terlalu kecil. Coba lagi."

    ElseIf tebakan > angkaRahasia Then

        Label1.Caption = "Angka " & Text1.Text & " Terlalu besar. Coba lagi."

    Else

        skor = (MAX_TEBakan - jumlahTebakan + 1) * 10

        Label3.Caption = "Skor: " & skor

        Label1.Caption = "Selamat! Jawaban benar."

        Text1.Enabled = False

        Command1.Enabled = False

        Exit Sub

    End If

    If jumlahTebakan >= MAX_TEBakan Then

        Label1.Caption = "GAME OVER! Angka yang benar adalah " & angkaRahasia

        Text1.Enabled = False

        Command1.Enabled = False

    End If

        

End Sub

Private Sub Command2_Click()

    MulaiGame

End Sub

Setelah mengcopi paste diatas sekarang jalankan project Anda

Related Post: Game