Buat Game Perkalian sederhana dengan VB 6

Kalau postingan aku beberapa waktu lalu adalah tentang kegunaan dari game perkalian sederhana ini, maka saat ini aku akan bagikan sedikit tips tentang bagaimana caranya membuat Game Perkalian sederhana tersebut.

Tentunya dengan program yang anda buat bisa bermanfaat bagi murid-murid SD yang sedang belajar tentang perkalian.

Berikut ini adalah langkah-langkah kerjanya :

1.       1. Buka program VB 6 dan pilih standart.EXE.

2.       2. Atur Form dan kontrol-kontrolnya seperti di bawah ini:

1.       3. Atur kontrolnya sebagai berikut :

Kontrol/Form	Propersties	Setting
Form1	Caption Icon MaxButton Picture StartUpPosition	Game Perkalian sederhana (Pilih Icon anda) False (Pilih gambar anda) 2-CenterScreen
Label1	Name BackStyle Caption	angka1 0-Transparent 4
Label2	Caption BackStyle	X 0-Transparent
Label4	Caption BackStyle	= 0-Transparent
Label3	Name BackStyle Caption	angka2 0-Transparent 4
Text1	Name Text	txtHasil -
Image1	Name	Gambar1
Command1	Name Caption	cmdPeriksa Periksa
Caommand2	Name Caption	cmdBerikut Berikut
Command3	Name Caption	cmdKeluar Keluar

1.       4. Setelah di atur, tampilannya seperti ini :

 Untuk gambar background dan icon disesuaikan dengan pilihan anda.

1.       5. Buka jendela kode dan masukkan kode di bawah ini :

Dim n As Integer

Dim t As Integer

Private Sub cmdBerikut_Click()

    If CmdBerikut.Caption = "Hasil" Then

       MsgBox "nilai anda adalah  " & t & " dari " & "10", , "Perkalian"

          CmdPeriksa.Enabled = True

       CmdPeriksa.Caption = "Ulangi"

   Exit Sub

   End If

   Gambar1.Visible = False

    CmdPeriksa.Enabled = True

    CmdBerikut.Enabled = False

    txtHasil.Text = ""

    txtHasil.SetFocus

    n = n + 1

    angka2.Caption = Int(Rnd * 10)

    angka1.Caption = Int(Rnd * 10)

    If n = 10 Then

    CmdBerikut.Caption = "Hasil"

    End If

End Sub

Private Sub cmdPeriksa_Click()

                    If CmdPeriksa.Caption = "Ulangi" Then

            returnq

        txtHasil.SetFocus

        Exit Sub

        End If

        If txtHasil.Text = "" Or IsNumeric(txtHasil.Text) = False Then

        MsgBox "Jangan lupa masukkan jawabanmu", , "Perkalian"

        txtHasil.SetFocus

   Exit Sub

   End If

        Gambar1.Visible = True

        CmdBerikut.Enabled = True

        CmdPeriksa.Enabled = False

        If txtHasil.Text = Val(angka2.Caption * angka1.Caption) Then

            Gambar1.Picture = LoadPicture(App.Path & "\benar.gif")

           t = t + 1

            Else

            Gambar1.Picture = LoadPicture(App.Path & "\salah.gif")

      End If

End Sub

Private Sub Form_Load()

returnq

End Sub

Private Sub returnq()

      txtHasil.Text = ""

  CmdBerikut.Caption = "Berikut"

    CmdPeriksa.Caption = "Periksa"

    CmdPeriksa.Enabled = True

    CmdBerikut.Enabled = False

    angka2.Caption = Int(Rnd * 10)

    angka1.Caption = Int(Rnd * 10)

    t = 0

    n = 1

    Gambar1.Visible = True

End Sub

Private Sub cmdKeluar_Click()

End

End Sub

2.       6. Sampai di sini programnya belum benar-benar selesai karena perlu disiapkan  lagi 2 buah gambar berekstensi gif sebagai gambar yang nanti akan ditampilkan jika pilihannya benar atau salah. Coba anda perhatikan kode di atas, di sana ada kode yang dimaksudkan untuk menampilkan gambar benar.gif dan salah.gif yang ada di folder yang sama dengan program yang anda buat. Berikut ini adalah contoh gambar yang aku buat:

 

       7. Nah setelah gambarnya anda siapkan, silahkan beri nama benar.gif dan salah.gif kemudian masukkan di satu folder yang sama dengan program ini. Berikut contohnya kalau di komputerku:

1.       8. Berikut tampilan programnya waktu aku memasukkan jawaban yang benar:

1.       9. Nah sampai di sini program yang kita buat sudah selesai. Aku berharap dengan tutorial sederhana ini dapat bermanfaat untuk anda. Kalau ada saran, masukkan atau pertanyaan dari teman – teman silahkan diberikan tetapi kalau tidak ada karena tidak sempat atau tidak perlu ya tidak mengapa karena tujuan aku membuat blog ini hanya untuk berbagi dan belajar bersama-sama dengan anda.  Terima kasih ya mau mampir di blog sederhana ini ya ....  ^_^

2.       10. Terakhir buat teman-teman yang tertarik untuk mempelajari source code lengkapnya bisa di download    di sini.